example-maintenance.pl

   1 #!/usr/bin/perl
   2 $dir = "/org/org.emacswiki/htdocs";
   3 opendir(DIR, $dir) || die "can't opendir $dir: $!";
   4 @names = grep { /^[a-z]+$/ && -d "$dir/$_" && -d "$dir/$_/keep" } readdir(DIR);
   5 closedir DIR;
   6
   7 for $f (@names) {
   8   system('wget', '-O', "/org/org.emacswiki/htdocs/maintenance/$f.html",
   9          "http://www.emacswiki.org/cgi-bin/$f?action=maintain");
  10 }