svn commit: samba r22332 - in branches/SAMBA_4_0/source/script/tests: .

[metze]

Author: metze
Date: 2007-04-18 11:55:03 +0000 (Wed, 18 Apr 2007)
New Revision: 22332

WebSVN: 
http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22332

Log:
escape bad chars with '_' to form a nice filename

metze
Modified:
   branches/SAMBA_4_0/source/script/tests/selftest.pl


Changeset:
Modified: branches/SAMBA_4_0/source/script/tests/selftest.pl
===================================================================
--- branches/SAMBA_4_0/source/script/tests/selftest.pl  2007-04-18 11:31:55 UTC 
(rev 22331)
+++ branches/SAMBA_4_0/source/script/tests/selftest.pl  2007-04-18 11:55:03 UTC 
(rev 22332)
@@ -659,7 +659,9 @@
 
                setup_env($envname);
 
-               my $pcap_file = "$pcap_dir/$name.cap";
+               my $shname = $name;
+               $shname =~ 
s%[^abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\-]%_%g;
+               my $pcap_file = "$pcap_dir/$shname.cap";
 
                SocketWrapper::setup_pcap($pcap_file) if 
($opt_socket_wrapper_pcap);
                my $result;