Parent Directory | Revision Log | Patch
revision 1.4 by dpavlin, Fri Jun 29 08:33:59 2001 UTC | revision 1.5 by dpavlin, Fri Jun 29 11:12:59 2001 UTC | |
---|---|---|
# | Line 18 sub dump_gif { | Line 18 sub dump_gif { |
18 | $type ||= TYPE_NONE; | $type ||= TYPE_NONE; |
19 | $file ||= $text; | $file ||= $text; |
20 | $file =~ s/[^a-zA-Z0-9\-]/_/g; | $file =~ s/[^a-zA-Z0-9\-]/_/g; |
21 | $file = lc($file); | |
22 | print "$text" unless ($file eq "-"); | print "$text" unless ($file eq "-"); |
23 | my $tmp=$text; | my $tmp=$text; |
24 | my $nl=1; | my $nl=1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |