view release on metacpan or  search on metacpan

contrib/clean_pending-Win32_ODBC.pl  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Win32::ODBC;

my $DriverType = "Microsoft Access Driver (*.mdb)";
my $DSN = "Win32 ODBC --MAOmaoMAOmaoMAO--";
my $Dir = "c:\\program files\\devnz\\gbpvr";
my $DBase = "gbpvr.mdb";


Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType,("DSN=$DSN", "Description=MAO Win32 ODBC Test DSN for Perl", "DBQ=$Dir\\$DBase", "DEFAULTDIR=$Dir", "UID=", "PWD=")) or die "ConfigDSN(): Could not add temporary DSN" . Win32::ODBC::Error();

my $db=new Win32::ODBC($DSN) or die "couldn't ODBC $DSN because ", Win32::ODBC::Error(), "\n";

my $cullPendingSQL = <<EOF;
  DELETE FROM recording_schedule
  WHERE status = 0

lib/GBPVR/CDBI.pm  view on Meta::CPAN

use warnings;
use strict;

our $VERSION = '0.04';

use base 'Class::DBI';
use Win32::TieRegistry;
use File::Spec;

our $gbpvr_dir = $Registry->{'LMachine\software\devnz\GBPVR InstallDir'} || 'C:\program files\devnz\gbpvr';

__PACKAGE__->db_setup(file => 'gbpvr.mdb');

sub db_setup {
  my $self = shift;
  my $p = { @_ };
  my $file = $p->{file};
  $file = File::Spec->rel2abs($file, $gbpvr_dir);  # if file was a relative path, make it full with respect to GBPVR
  my $dbopts = $p->{dbopts} || { AutoCommit=>0, LongTruncOk => 1, LongReadLen => 255 };
  my $dsn = 'driver=Microsoft Access Driver (*.mdb);dbq=' . $file;

t/recordingschedule.t  view on Meta::CPAN

use Test::More;
use strict;
use warnings;

plan tests => 125;

use File::Spec;
use GBPVR::CDBI::RecordingSchedule;

my $db= File::Spec->rel2abs("t\\gbpvr.mdb");
ok($db, "found test db");
my $rc = GBPVR::CDBI->db_setup(file => $db);
ok($rc, "got db handle");

my @rows = GBPVR::CDBI::RecordingSchedule->retrieve_all();
is(scalar(@rows), 3, "got exactly 3 rows");

my @matches = (
  {
    oid => 1,