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

[metze at samba.org]

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;