# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1262036620 -3600
# Node ID 860bc9dd9d16bfba004dbb9880173202faf7ab21
# Parent  a5091a79d1c999fa3e8f362058b7faa289231604
[perltidy]

diff -r a5091a79d1c9 -r 860bc9dd9d16 ftpipe
--- a/ftpipe	Mon Dec 28 22:10:42 2009 +0100
+++ b/ftpipe	Mon Dec 28 22:43:40 2009 +0100
@@ -11,26 +11,28 @@
 # user: 54117
 # pass: aOUN9I6v
 
-my $opt_put = 0;
-my $opt_get = 0;
+my $opt_put   = 0;
+my $opt_get   = 0;
 my $opt_debug = 0;
-my $opt_cmd = "";
+my $opt_cmd   = "";
 
 sub exec_create(@);
 
-
 sub parse_url($);
 
 MAIN: {
     GetOptions(
-	"p|put!" => sub { $opt_cmd = "put" },
-	"g|get!" => sub { $opt_cmd = "get" },
-	#"l|ls!"  => 
-	#"r|rm!"  => 
-	"debug!" => \$opt_debug,
-	"h|help" => sub { pod2usage(-verbose => 1, -exit => 0) },
-	"m|man" => sub { pod2usage(-verbose => 2, -exit => 0) },
-    ) and @ARGV or pod2usage();
+        "p|put!" => sub { $opt_cmd = "put" },
+        "g|get!" => sub { $opt_cmd = "get" },
+
+        #"l|ls!"  =>
+        #"r|rm!"  =>
+        "debug!" => \$opt_debug,
+        "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) },
+        "m|man"  => sub { pod2usage(-verbose => 2, -exit => 0) },
+      )
+      and @ARGV
+      or pod2usage();
 
     my %ftp = parse_url(shift);
 
@@ -41,16 +43,16 @@
     my $ftp = new FTP($ftp{host}, Debug => $opt_debug, Passive => 1);
     $ftp->login($ftp{user}, $ftp{pass});
     $ftp->binary;
-    $ftp->cwd($ftp{dir}); 
+    $ftp->cwd($ftp{dir});
 
     given ($opt_cmd) {
-	when("put")  { $ftp->put(*STDIN, $ftp{file}) }
-	when("get")  { $ftp->get($ftp{file}, *STDOUT) }
-	default      { pod2usage }
+        when ("put") { $ftp->put(*STDIN, $ftp{file}) }
+        when ("get") { $ftp->get($ftp{file}, *STDOUT) }
+        default { pod2usage };
     }
 
     exit;
-    
+
     $ftp->put(*STDIN, $ftp{file});
     print $ftp->dir, "\n";
 
@@ -64,44 +66,46 @@
     return my %r = %+;
 }
 
-{ package FTP;
-  use base ("Net::FTP");
+{
+
+    package FTP;
+    use base ("Net::FTP");
 
-  sub new {
-    my $class = shift;
-    my $self = bless $class->SUPER::new(@_)
-	or die $@;
-    return bless $self => $class;
-  }
+    sub new {
+        my $class = shift;
+        my $self  = bless $class->SUPER::new(@_)
+          or die $@;
+        return bless $self => $class;
+    }
 
-  sub login {
-    my $self = shift;
-    $self->SUPER::login(@_) or die "Can't login: " . $self->message;
-  }
+    sub login {
+        my $self = shift;
+        $self->SUPER::login(@_) or die "Can't login: " . $self->message;
+    }
 
-  sub cwd {
-    my $self = shift;
-    $self->SUPER::cwd(@_) or die "Can't chdir: " . $self->message;
-  }
+    sub cwd {
+        my $self = shift;
+        $self->SUPER::cwd(@_) or die "Can't chdir: " . $self->message;
+    }
 
-  sub put {
-    my $self = shift;
-    $self->SUPER::put(@_) or die "Can't put: " . $self->message;
-  }
+    sub put {
+        my $self = shift;
+        $self->SUPER::put(@_) or die "Can't put: " . $self->message;
+    }
 
-  sub get {
-    my $self = shift;
-    $self->SUPER::get(@_) or die "Can't get: " . $self->message;
-  }
+    sub get {
+        my $self = shift;
+        $self->SUPER::get(@_) or die "Can't get: " . $self->message;
+    }
 
-  sub binary {
-    my $self = shift;
-    $self->SUPER::binary(@_) or die "Can't set binary mode: " . $self->message;
-  }
+    sub binary {
+        my $self = shift;
+        $self->SUPER::binary(@_)
+          or die "Can't set binary mode: " . $self->message;
+    }
 
 }
 
-
 __END__
 
 =head1 NAME