2 changed files with 1 additions and 15 deletions
@ -1,14 +0,0 @@
|
||||
#!/usr/bin/perl |
||||
|
||||
sub main() |
||||
{ |
||||
opendir(my $dir, '.'); |
||||
while (readdir $dir) { |
||||
if ($_ =~ m{.*\.png}) { |
||||
print "FORECASTS_ICON(\"$_\", 10, 10, 110, 110, 1.0);\n"; |
||||
} |
||||
} |
||||
closedir($dir); |
||||
} |
||||
|
||||
main(); |
Loading…
Reference in new issue