diff options
| author | Stefan Metzmacher <metze@samba.org> | 2007-04-29 20:37:59 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:51:46 -0500 |
| commit | 1e84e4026e3c8f0b94cfaf61a089b075f07417f1 (patch) | |
| tree | 091ad4a99b9f124ffcbf9dec2f7dcd8727851a11 /source4/script/tests/SocketWrapper.pm | |
| parent | 82ad0ea6eaab04cdb1739da468b5ed2169421439 (diff) | |
| download | samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.tar.gz samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.tar.xz samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.zip | |
r22575: move script/tests/ -> selftest/
as discussed with jelmer and abartlet
metze
(This used to be commit e9fe3c40e10accb63d7a2124d3a7e77e499c4209)
Diffstat (limited to 'source4/script/tests/SocketWrapper.pm')
| -rw-r--r-- | source4/script/tests/SocketWrapper.pm | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/source4/script/tests/SocketWrapper.pm b/source4/script/tests/SocketWrapper.pm deleted file mode 100644 index e63605b8df..0000000000 --- a/source4/script/tests/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; |