#!/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;