#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Carp qw( fatalsToBrowser warningsToBrowser);
use File::DosGlob;
use File::Find;
use Data::Dumper;



my $cgi = CGI->new();
print $cgi->header(), "Alle Verzeichnisse:<br />\n";
warningsToBrowser(1);

my $wantedVerz = '/home/www/bildung-rp/schularchiv/twiki/pub';
my @verz = ();
my @allvFiles = ();

sub wanted {
	return if (/^\.$/ or /^\.\.$/);
	print "[$_] is ein verzeichnis<br />\n" if (-d $_);
  push @verz, $_;
}
find ({wanted =>\&wanted, no_chdir => 1}, $wantedVerz);

foreach( @verz ){
    push @allvFiles, &File::DosGlob::glob("$_/*.*,v");
}

print "Alle v-Dateien:<br />\n";

print Dumper( @allvFiles );

print "<h1>Dateien:</h1>\n";

foreach my $file( @allvFiles ){
    if( -d $file ){ next; }
    open(DAT, "+>>$file") || die "$!";
    flock DAT, 1;
    foreach( <DAT> ){
        $_ =~ s/nobody:/schularchiv:/;
        print "$_\n";
    }
    close(DAT);
}

exit( 1 );