Merge branch 'selftest' of git://git.samba.org/jelmer/samba

1 files changed, 0 insertions, 66 deletions

diff --git a/source4/selftest/SocketWrapper.pm b/source4/selftest/SocketWrapper.pm
deleted file mode 100644
index e63605b8df..0000000000
--- a/source4/selftest/SocketWrapper.pm
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/bin/perl
-# Bootstrap Samba and run a number of tests against it.
-# Copyright (C) 2005-2007 Jelmer Vernooij <jelmer@samba.org>
-# Published under the GNU GPL, v3 or later.
-
-package SocketWrapper;
-
-use Exporter;
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(setup_dir setup_pcap set_default_iface);
-
-use strict;
-use FindBin qw($RealBin);
-
-sub setup_dir($$)
-{
-	my ($dir, $pcap) = @_;
-	my $pcap_dir = undef;
-
-	if (defined($dir)) {
-		if ( -d $dir ) {
-			unlink <$dir/*>;
-		} else {
-			mkdir($dir, 0777);
-		}
-
-		if ($pcap) {
-			$pcap_dir = $dir."/pcap";
-
-			if ( -d $pcap_dir ) {
-				unlink <$pcap_dir/*>;
-			} else {
-				mkdir($pcap_dir, 0777);
-			}
-		}
-	}
-
-	if (defined($pcap_dir)) {
-		$ENV{SOCKET_WRAPPER_PCAP_DIR} = $pcap_dir;
-	} else {
-		delete $ENV{SOCKET_WRAPPER_PCAP_DIR};
-	}
-
-	if (defined($dir)) {
-		$ENV{SOCKET_WRAPPER_DIR} = $dir;
-	} else {
-		delete $ENV{SOCKET_WRAPPER_DIR};
-	}
-
-	return $dir;
-}
-
-sub setup_pcap($)
-{
-	my ($pcap_file) = @_;
-
-	$ENV{SOCKET_WRAPPER_PCAP_FILE} = $pcap_file;
-}
-
-sub set_default_iface($)
-{
-	my ($i) = @_;
-	$ENV{SOCKET_WRAPPER_DEFAULT_IFACE} = $i;
-}
-
-1;