use Digest::MD5 qw(md5_base64); $bs = "Linux"; # oder "Windows" sub xmlunesc { my $text = shift; $text =~ s//sg; $text =~ s/'/`/sg; $text =~ s/"/"/sg; #" $text =~ s/&/&/sg; $text;} sub xmlsiteinfo { while($xml =~ /|>(.*?))/sg) { $namespace{$2} = $1 if defined $2; } $xml = "";} sub xmlrevision { $xml =~ s/(.*?)//s; my $revco...