source: subversion/applications/utils/tagwatch/unrenderedTags.pl @ 13895

Last change on this file since 13895 was 13366, checked in by joerg, 11 years ago

Add Hashbang for perl script; add reminder to write a help

File size: 645 bytes
Line 
1#!/usr/bin/perl
2
3# TODO: please add a short help to this File
4
5my $BlankFileSize = 540;
6my $dir = "html/Samples";
7
8open(OUT, ">html/unrendered_tags.htm") || die("Can't write to output file\n");
9print OUT "<h1>Unrendered popular tags</h1>\n<p>(at zoom-17)</p>\n<ol>";
10
11opendir(my $dp, $dir) || die("No renderings found\n");
12while(my $file = readdir($dp)){
13  my $fullfile = $dir.'/'.$file;
14  if(-s $fullfile == $BlankFileSize){
15    #if($file =~ m{(\w+?)\_(.*)\.png}){
16    #  push(@Unrendered, "$1 = $2");
17    #}
18   
19    my $text = substr($file,0,-4);
20    $text =~ s/_/ /g;
21    print OUT "<li>$text</li>\n";
22  }
23}
24
25print OUT "</ol>\n";
26close OUT;
Note: See TracBrowser for help on using the repository browser.