From f4ec06d8db4a8056183c63b3e55daf0abbac1e10 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Wed, 18 Apr 2007 11:55:03 +0000
Subject: r22332: escape bad chars with '_' to form a nice filename

metze
(This used to be commit 3d3c0b36cbb0a34b3e241575d79427936aaa8306)
---
 source4/script/tests/selftest.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'source4')

diff --git a/source4/script/tests/selftest.pl b/source4/script/tests/selftest.pl
index a264d7466c..7a8faa8870 100755
--- a/source4/script/tests/selftest.pl
+++ b/source4/script/tests/selftest.pl
@@ -659,7 +659,9 @@ NETBIOSNAME=\$NETBIOSNAME\" && bash'");
 
 		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;
-- 
cgit