/[pliva-si]/m/menu.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /m/menu.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ravilov, Thu Jun 28 10:55:30 2001 UTC revision 1.2 by dpavlin, Thu Jun 28 18:44:38 2001 UTC
# Line 4  use strict; Line 4  use strict;
4  use DBI;  use DBI;
5  use Image::Magick;  use Image::Magick;
6    
7  use constant TYPE_NONE => scalar 0;  use constant TYPE_NONE => scalar 2;
8  use constant TYPE_BULLET => scalar 1;  use constant TYPE_BULLET => scalar 3;
9  use constant TYPE_LINE => scalar 2;  use constant TYPE_LINE => scalar 1;
10    
11  sub dump_gif {  sub dump_gif {
12          my ($text, $type, $file) = @_;          my ($text, $type, $file) = @_;
# Line 18  sub dump_gif { Line 18  sub dump_gif {
18          $image->Set('size' => '125x13');          $image->Set('size' => '125x13');
19          $image->Read('xc:#283880');          $image->Read('xc:#283880');
20          if ($type == TYPE_BULLET) {          if ($type == TYPE_BULLET) {
21                  $image->Annotate('text' => $text, 'geometry' => '+17+1',                  $image->Annotate('text' => $text, 'geometry' => '+17+10',
22                          'font' => "\@arialbd.ttf", 'pointsize' => 11,                          'font' => "\@arialbd.ttf", 'pointsize' => 11,
23                          'pen' => '#FFFFFF', 'align' => 'left');                          'fill' => '#ffffff', 'align' => 'left');
24                  $image->Blur('radius' => 1);  #               $image->Annotate('text' => $text, 'geometry' => '+17+1',
25    #                       'font' => "\@arialbd.ttf", 'pointsize' => 11,
26    #                       'pen' => '#FFFFFF', 'align' => 'left');
27    #               $image->Blur('radius' => 0.1);
28                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00D000',                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00D000',
29                          'fill' => '#00D000', 'antialias' => 1, 'points' =>                          'fill' => '#00D000', 'antialias' => 1, 'points' =>
30                          '7,4 10,7');                          '7,4 10,7');
31          } else {          } else {
32                  $image->Annotate('text' => $text, 'geometry' => '+3+0',                  $image->Annotate('text' => $text, 'geometry' => '+3+10',
33                          'font' => "\@arialbd.ttf", 'pointsize' => 11,                          'font' => "\@arialbd.ttf", 'pointsize' => 11,
34                          'pen' => '#FFFFFF', 'align' => 'left');                          'fill' => '#FFFFFF', 'align' => 'left');
35                  $image->Blur('radius' => 1);  #               $image->Blur('radius' => 1);
36                  if ($type == TYPE_LINE) {                  if ($type == TYPE_LINE) {
37                          $image->Draw('primitive' => 'line',                          $image->Draw('primitive' => 'line',
38                                  'stroke' => '#00FF00', 'fill' => '#00FF00',                                  'stroke' => '#00FF00', 'fill' => '#00FF00',
# Line 66  sub dump_gif { Line 69  sub dump_gif {
69          return "$file";          return "$file";
70  }  }
71    
72  print "Content-Type: image/gif\n\n";  #print "Content-Type: image/gif\n\n";
73  dump_gif("NOVOSTI", TYPE_LINE, "-");  #dump_gif("NOVOSTI", TYPE_LINE, "-");
74  exit $?;  #exit $?;
75    
76  my $dbh = DBI->connect("DBI:Pg:dbname=corp", "", "") ||  my $dbh = DBI->connect("DBI:Pg:dbname=plivasi", "", "") ||
77          die $DBI::errstr;          die $DBI::errstr;
78  my $sth = $dbh->prepare("SELECT section,item,url FROM menu") ||  my $sth = $dbh->prepare("SELECT section,item,url,level FROM menu") ||
79          die $dbh->errstr();          die $dbh->errstr();
80  $sth->execute() || die $sth->errstr();  $sth->execute() || die $sth->errstr();
81  while (my @arr = $sth->fetchrow_array()) {  while (my @arr = $sth->fetchrow_array()) {
82          if (0) {          $dbh->do("UPDATE menu SET file='".dump_gif($arr[1], $arr[3])."' WHERE item='$arr[1]'");
                 dump_gif($arr[1], TYPE_BULLET);  
         } else {  
                 $dbh->do("UPDATE menu SET file='".dump_gif($arr[1], TYPE_BULLET).  
                         "' WHERE item='$arr[1]'");  
         }  
83  }  }
84  $sth->finish;  $sth->finish;
85  $dbh->disconnect;  $dbh->disconnect;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26