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/selftest/SocketWrapper.pm | |
parent | 82ad0ea6eaab04cdb1739da468b5ed2169421439 (diff) | |
download | samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.tar.gz samba-1e84e4026e3c8f0b94cfaf61a089b075f07417f1.tar.bz2 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/selftest/SocketWrapper.pm')
-rw-r--r-- | source4/selftest/SocketWrapper.pm | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/source4/selftest/SocketWrapper.pm b/source4/selftest/SocketWrapper.pm new file mode 100644 index 0000000000..e63605b8df --- /dev/null +++ b/source4/selftest/SocketWrapper.pm @@ -0,0 +1,66 @@ +#!/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; |