/[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.6 by dpavlin, Wed Oct 10 12:00:18 2001 UTC revision 1.7 by dpavlin, Mon Nov 5 10:47:10 2001 UTC
# Line 35  sub iso2utf { Line 35  sub iso2utf {
35  sub dump_gif {  sub dump_gif {
36          my ($text, $type, $file) = @_;          my ($text, $type, $file) = @_;
37          $type ||= TYPE_NONE;          $type ||= TYPE_NONE;
38          $file ||= $text;          $file ||= "$text-$type";
39          $file =~ s/[^a-zA-Z0-9\-]/_/g;          $file =~ s/[^a-zA-Z0-9\-]/_/g;
40          $file = lc($file);          $file = lc($file);
41          print "$text" unless ($file eq "-");          print "$text" unless ($file eq "-");
# Line 105  sub dump_gif { Line 105  sub dump_gif {
105  #dump_gif("NOVOSTI", TYPE_LINE, "-");  #dump_gif("NOVOSTI", TYPE_LINE, "-");
106  #exit $?;  #exit $?;
107    
108    #
109  my $dbh = DBI->connect("DBI:Pg:dbname=plivasi", "", "") ||  my $dbh = DBI->connect("DBI:Pg:dbname=plivasi", "", "") ||
110          die $DBI::errstr;          die $DBI::errstr;
111  my $sth = $dbh->prepare("SELECT section,item,url,level,num FROM menu") ||  my $sth = $dbh->prepare("SELECT section,item,url,level,num FROM menu") ||

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.26