Wiki-import.pl

From PTAGISWiki

#!/usr/bin/perl -w

my $indir = `pwd`;
chomp $indir;
my $file;

opendir(IN, $indir) || die "couldn't open $indir for read";

while ($file = readdir(IN)) {
	next unless ($file =~ /xml$/);
	print "importing $file to wiki...\n";
	print `cat $indir/$file | php /var/www/html/wiki/maintenance/importDump.php`;
}
closedir(IN);