X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=install%2F5.005%2FDBD-Pg-1.22-fixvercmp%2Feg%2Flotest.pl;fp=install%2F5.005%2FDBD-Pg-1.22-fixvercmp%2Feg%2Flotest.pl;h=0000000000000000000000000000000000000000;hp=6192c492615ccab63dc4ed7271903f6e72437a49;hb=3a9c534d55e1736545ef8037e1391101c7a11f2b;hpb=7a67b0df697c1aa35e148bd5b2f1f765bf1969f6

diff --git a/install/5.005/DBD-Pg-1.22-fixvercmp/eg/lotest.pl b/install/5.005/DBD-Pg-1.22-fixvercmp/eg/lotest.pl
deleted file mode 100644
index 6192c4926..000000000
--- a/install/5.005/DBD-Pg-1.22-fixvercmp/eg/lotest.pl
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use DBI;
-use DBD::Pg;
-
-my $dsn = "dbname=p1";
-my $dbh = DBI->connect('dbi:Pg:dbname=p1', undef, undef, { AutoCommit => 1 });
-
-my $buf = 'abcdefghijklmnopqrstuvwxyz' x 400;
-
-my $id = write_blob($dbh, undef, $buf);
-
-my $dat = read_blob($dbh, $id);
-
-print "Done\n";
-
-sub write_blob {
-    my ($dbh, $lobj_id, $data) = @_;
-    
-    # begin transaction
-    $dbh->{AutoCommit} = 0;
-    
-    # Create a new lo if we are not passed an lo object ID.
-    unless ($lobj_id) {
-	# Create the object.
-	$lobj_id = $dbh->func($dbh->{'pg_INV_WRITE'}, 'lo_creat');
-    }    
-
-    # Open it to get a file descriptor.
-    my $lobj_fd = $dbh->func($lobj_id, $dbh->{'pg_INV_WRITE'}, 'lo_open');
-
-    $dbh->func($lobj_fd, 0, 0, 'lo_lseek');
-    
-    # Write some data to it.
-    my $len = $dbh->func($lobj_fd, $data, length($data), 'lo_write');
-    
-    die "Errors writing lo\n" if $len != length($data);
-
-    # Close 'er up.
-    $dbh->func($lobj_fd, 'lo_close') or die "Problems closing lo object\n";
- 
-    # end transaction
-    $dbh->{AutoCommit} = 1;
-    
-    return $lobj_id;
-}
-
-sub read_blob {
-    my ($dbh, $lobj_id) = @_;
-    my $data = '';
-    my $read_len = 256;
-    my $chunk = '';
-
-    # begin transaction
-    $dbh->{AutoCommit} = 0;
-
-    my $lobj_fd = $dbh->func($lobj_id, $dbh->{'pg_INV_READ'}, 'lo_open');
-    
-    $dbh->func($lobj_fd, 0, 0, 'lo_lseek');
-
-    # Pull out all the data.
-    while ($dbh->func($lobj_fd, $chunk, $read_len, 'lo_read')) {
-	$data .= $chunk;
-    }
-
-    $dbh->func($lobj_fd, 'lo_close') or die "Problems closing lo object\n";
-
-    # end transaction
-    $dbh->{AutoCommit} = 1;
-       
-    return $data;
-}