[cristin-ws.git] / hent-logo

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('dbi:Oracle:fridadmo',
		       'fds',
		       'PASSORD',
		       { RaiseError => 1, AutoCommit => 0});
$dbh->{LongReadLen} = 1000000;

my $sql = "select logo from presentasjon where presentasjonslopenr = :id";

my $sth;

eval {
    $sth = $dbh->prepare($sql);
    $sth->bind_param(':id', $ARGV[0]);

    $sth->execute();
};

if ($@) {
    die "SQL '$sql' feilet!";
}


open my $logo, ">", "logo.jpg" or die "can't write logo file";

my @data = $sth->fetchrow_array();
print $logo $data[0];

$dbh->commit();

close $logo;
Commit	Line	Data
a6a50d6b	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use DBI;
	7
	8	my $dbh = DBI->connect('dbi:Oracle:fridadmo',
	9	'fds',
	10	'PASSORD',
	11	{ RaiseError => 1, AutoCommit => 0});
	12	$dbh->{LongReadLen} = 1000000;
	13
	14	my $sql = "select logo from presentasjon where presentasjonslopenr = :id";
	15
	16	my $sth;
	17
	18	eval {
	19	$sth = $dbh->prepare($sql);
	20	$sth->bind_param(':id', $ARGV[0]);
	21
	22	$sth->execute();
	23	};
	24
	25	if ($@) {
	26	die "SQL '$sql' feilet!";
	27	}
	28
	29
	30	open my $logo, ">", "logo.jpg" or die "can't write logo file";
	31
	32	my @data = $sth->fetchrow_array();
	33	print $logo $data[0];
	34
	35	$dbh->commit();
	36
	37	close $logo;
	38
	39
	40