#!/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;