view release on metacpan or  search on metacpan

lib/App/Smbxfer.pm  view on Meta::CPAN

        my @lines;
        while( <$credentials> ){
            my ($value) = (m/.*=\s+?(.*)$/);
            push @lines, $value;
        }
        close $credentials;
        ($username, $password, $domain) = @lines;
    }
    else {
        # Getting credentials interactively...
        $username = prompt( "username? " );
        $password = prompt( "password? ", -e => '*' );
        $domain =   prompt( "domain? " );
    }

    return $username, $password, $domain;
}

#########################

sub validated_paths {
    my %param = @_;

t/xfer_essentials.t  view on Meta::CPAN

use Filesys::SmbClient;

use IO::Prompt;
use File::Find;
use File::Temp qw( tempdir );

BEGIN { use_ok( 'App::Smbxfer', qw( smb_element_type parse_smb_spec do_smb_transfer ) ) }

#~~~~ ((( begin test initialization ))) ~~~~
    prompt( "\n...Beginning test... <press ENTER> " );
    my $server =    prompt( "\n\nSamba server name? " );
    my $share =     prompt( "share name? " );
    my $domain =    prompt( "domain? " );
    my $username =  prompt( "username? " );
    my $password =  prompt( "password? ", -e => '*' );
    my $path_file = prompt( "enter the path to any existing file on the share (relative to share root): " );
    my $path_dir =  prompt( "enter the path to any existing directory on the share (relative to share root): " );
    
    my $smb_share_spec = "smb://$server/$share";

    my $smb = Filesys::SmbClient->new(
        username => $username, password => $password, workgroup => $domain
    );

    # name of dir that will be uploaded as a test:
    my $local_dirname_to_upload = 'dir_to_upload';
    # local relative path to directory containing test resources: