/[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.7 by dpavlin, Mon Nov 5 10:47:10 2001 UTC revision 1.8 by dpavlin, Wed Nov 7 12:09:58 2001 UTC
# Line 14  my $w=125; Line 14  my $w=125;
14  my $h_base=13;  my $h_base=13;
15  my $h;  my $h;
16    
17    my $dir="/data/pliva-si/m";
18    
19  my %iso2utf_tab = (  my %iso2utf_tab = (
20  '¹' => 0x0161, 'ð' => 0x0111, 'è' => 0x010d, 'æ' => 0x0107, '¾' => 0x017e,  '¹' => 0x0161, 'ð' => 0x0111, 'è' => 0x010d, 'æ' => 0x0107, '¾' => 0x017e,
21  '©' => 0x0160, 'Ð' => 0x0110, 'È' => 0x010c, 'Æ' => 0x0106, '®' => 0x017d  '©' => 0x0160, 'Ð' => 0x0110, 'È' => 0x010c, 'Æ' => 0x0106, '®' => 0x017d
# Line 50  sub dump_gif { Line 52  sub dump_gif {
52          $text=iso2utf($text);          $text=iso2utf($text);
53          if ($type == TYPE_BULLET) {          if ($type == TYPE_BULLET) {
54                  $image->Annotate('text' => $text, 'geometry' => '+17+10',                  $image->Annotate('text' => $text, 'geometry' => '+17+10',
55                          'font' => "\@arialbd.ttf", 'pointsize' => 11,                          'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,
56                          'fill' => '#ffffff', 'align' => 'left');                          'fill' => '#ffffff', 'align' => 'left');
57  #               $image->Annotate('text' => $text, 'geometry' => '+17+1',  #               $image->Annotate('text' => $text, 'geometry' => '+17+1',
58  #                       'font' => "\@arialbd.ttf", 'pointsize' => 11,  #                       'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,
59  #                       'pen' => '#FFFFFF', 'align' => 'left');  #                       'pen' => '#FFFFFF', 'align' => 'left');
60  #               $image->Blur('radius' => 0.1);  #               $image->Blur('radius' => 0.1);
61                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00D000',                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00D000',
# Line 61  sub dump_gif { Line 63  sub dump_gif {
63                          '7,4 10,7');                          '7,4 10,7');
64          } elsif ($type == TYPE_BLUEDOT) {          } elsif ($type == TYPE_BLUEDOT) {
65                  $image->Annotate('text' => $text, 'geometry' => '+17+10',                  $image->Annotate('text' => $text, 'geometry' => '+17+10',
66                          'font' => "\@arialbd.ttf", 'pointsize' => 11,                          'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,
67                          'fill' => '#ffffff', 'align' => 'left');                          'fill' => '#ffffff', 'align' => 'left');
68                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00b2dc',                  $image->Draw('primitive' => 'rectangle', 'stroke' => '#00b2dc',
69                          'fill' => '#00b2dc', 'antialias' => 1, 'points' =>                          'fill' => '#00b2dc', 'antialias' => 1, 'points' =>
# Line 89  sub dump_gif { Line 91  sub dump_gif {
91                          }                          }
92                  }                  }
93                  $image->Annotate('text' => $text, 'geometry' => '+3+10',                  $image->Annotate('text' => $text, 'geometry' => '+3+10',
94                          'font' => "\@arialbd.ttf", 'pointsize' => 11,                          'font' => "\@$dir/arialbd.ttf", 'pointsize' => 11,
95                          'fill' => '#FFFFFF', 'align' => 'left');                          'fill' => '#FFFFFF', 'align' => 'left');
96  #               $image->Blur('radius' => 1);  #               $image->Blur('radius' => 1);
97          }          }
98          print " -> " unless ($file eq "-");          print " -> " unless ($file eq "-");
99          $file .= ".gif" unless ($file eq "-");          $file .= ".gif" unless ($file eq "-");
100          $image->Write('filename' => "gif:$file", 'colors' => 256,          $image->Write('filename' => "gif:$dir/$file", 'colors' => 256,
101                  'interlace' => "none", 'compress' => 'lzw');                  'interlace' => "none", 'compress' => 'lzw');
102          print "$file\n" unless ($file eq "-");          print "$file\n" unless ($file eq "-");
103          return "$file";          return "$file";
# Line 106  sub dump_gif { Line 108  sub dump_gif {
108  #exit $?;  #exit $?;
109    
110  #  #
111  my $dbh = DBI->connect("DBI:Pg:dbname=plivasi", "", "") ||  my $dbh = DBI->connect("DBI:Pg:dbname=plivasi", "dpavlin", "") ||
112          die $DBI::errstr;          die $DBI::errstr;
113  my $sth = $dbh->prepare("SELECT section,item,url,level,num FROM menu") ||  my $sth = $dbh->prepare("SELECT section,item,url,level,num FROM menu") ||
114          die $dbh->errstr();          die $dbh->errstr();
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.26