hent-logo

   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