The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
GBPVR-CDBI-0.01
River stage zero No dependents
++
/ GBPVR::CDBI

NAME

GBPVR::CDBI - Database Abstraction for GBPVR

VERSION

Version 0.01

SYNOPSIS

Example to search the program listings:

        use GBPVR::CDBI;
        my @rows = GBPVR::CDBI::Programme->search_like(name => 'Star%');

Example to display the recorded shows:

        use GBPVR::CDBI;
        my @rows = GBPVR::CDBI::RecordingSchedule->search(status => 2);
        foreach my $row (@rows){
          printf "-----------------------\n";
          printf "%s - '%s'\n", $row->programme_oid->name, $row->programme_oid->sub_title;
          printf "<%s>\n", $row->filename;
          printf "   %s\n", $row->programme_oid->description;
        }

Example to show pending shows (yes, you should be able to order_by via search() and not have to call sort):

        use GBPVR::CDBI;
        my @rows = GBPVR::CDBI::RecordingSchedule->search(status => 0);
        @rows = sort { $a->manual_start_time cmp $b->manual_start_time } @rows;
        foreach my $row (@rows){
          printf "%-20s %8s %s - '%s'\n",
                $row->manual_start_time,
                $row->programme_oid->channel_oid->name,
                $row->programme_oid->name,
                $row->programme_oid->sub_title;
          printf "   %s\n", $row->programme_oid->description;
        }

Example to force all scheduled 'Simpsons' recordings to be low quality:

        use GBPVR::CDBI;
        my $iterator = GBPVR::CDBI::RecordingSchedule->retrieve_all;
        while( my $row = $iterator->next ){
          next unless $row->programme_oid->name =~ /simpsons/i;
          next if $row->quality_level == 2;
          $row->quality_level(2);
          $row->update;
        }
        GBPVR::CDBI::RecordingSchedule->dbi_commit;

INTRODUCTION

This set of classes provides an easy to use, robust, and well-documented way to access the GBPVR database via the Class::DBI module. The major tables are included as well as that of the Video Archiver plugin.

What is GBPVR? It is a Personal Video Recorder (PVR) program. The Microsoft Access .mdb database that is creates stores information such as recording schedules and details about completed recordings. GBPVR can be obtained here: http://gbpvr.com

Note that this allows both read and transactional write access to the database.

Why was this written? In part, as an exercise in Class::DBI, but largely to make it very easy to write stand-alone apps/scripts in perl for GBPVR. To run any kind of custom task involving setting schedules or listing schedules or listing recorded shows.

More details will follow, but it is possible to compile perl scripts that use this into stand-alone exe's to distribute to systems without perl installed (see PAR).

GBPVR CLASSES

The following are the provided GBPVR classes. Note that they all inherit from Class::DBI, so that having an attribute of 'foo' means that $obj->foo is an accessor and $obj->foo('bar') is a mutator. Also note that for the foreign keys, the attribute method will return either the foreign key value or the foreign object, depending on the context.

PLUGIN CLASSES

Video Archiver

The Video Archive plug-in: http://gbpvr.com/pmwiki/pmwiki.php/Plugin/VideoArchive

RecTracker

The RecTracker Utility: http://gbpvr.com/pmwiki/pmwiki.php/Utility/RecTracker

AUTHOR

David Westbrook, <dwestbrook at gmail.com>

PREREQUISITES

GBPVR::CDBI requires the following modules:

DBI

DBD::ODBC

Class::DBI

BUGS

Please report any bugs or feature requests to bug-gbpvr-cdbi at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=GBPVR-CDBI. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc GBPVR::CDBI

You can also look for information at:

ACKNOWLEDGEMENTS

Sub for creating GBPVR

jeff for the VideoArchive plugin

jorm for the RecTracker utility

COPYRIGHT & LICENSE

Copyright 2006 David Westbrook, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Class::DBI, DBD::ODBC

The initial release/announcement: http://forums.gbpvr.com/showthread.php?p=35938#poststop

GBPVR: http://gbpvr.com/

GBPVR wiki (documents the program, configuration, plugins, utilities, etc): http://www.gbpvr.com/pmwiki