test_smbclient_tarmode.pl: remove unused functions

Signed-off-by: Aurélien Aptel <aurelien.aptel@gmail.com>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Reviewed-by: Jim McDonough <jmcd@samba.org>

diff --git a/source3/script/tests/test_smbclient_tarmode.pl b/source3/script/tests/test_smbclient_tarmode.pl
index fe6e7a2f4ec5c0ffe7c08b1147b8ccc179c3104d..55010010590588bf7363c1c070d4ae16d3dd4a8a 100755 (executable)
--- a/source3/script/tests/test_smbclient_tarmode.pl
+++ b/source3/script/tests/test_smbclient_tarmode.pl
@@ -363,33 +363,6 @@ sub smb_tar {
     smb_client((length($cmd) ? ('-c', $cmd) : ()), @rest);
 }
 
-
-# print find(1)-like output of the share
-# ex: dump_tree(smb_tree())
-sub dump_tree {
-    my ($t, $path) = @_;
-    $path = '' if(!defined $path);
-
-    for my $f (@{$t->{dir}}) {
-        if($f->{attr}{D}) {
-            # print final slash on dir
-            print $path.'/'.$f->{fn},"/\n";
-            dump_tree($f, $path.'/'.$f->{fn});
-        } else {
-            print $path.'/'.$f->{fn},"\n";
-        }
-    }
-}
-
-sub get_file {
-    my ($fullpath, @flags) = @_;
-    my ($file, $dir) = fileparse($fullpath);
-
-    my @files = smb_ls($dir);
-    my @res = grep {$_->{fn} eq $file} @files;
-    return @res ? $res[0] : undef;
-}
-
 sub random {
     my ($min, $max) = @_;
     ($min, $max) = ($max, $min) if($min > $max);