[fayland commit] r963 - trunk/CPAN/day_day_up/lib/DayDayUp

[codesite...@google.com]

Author: fayland
Date: Sun Feb 22 06:10:07 2009
New Revision: 963

Modified:
trunk/CPAN/day_day_up/lib/DayDayUp/Backup.pm

Log:
tab to spaces

Modified: trunk/CPAN/day_day_up/lib/DayDayUp/Backup.pm
==============================================================================
--- trunk/CPAN/day_day_up/lib/DayDayUp/Backup.pm (original)
+++ trunk/CPAN/day_day_up/lib/DayDayUp/Backup.pm Sun Feb 22 06:10:07 2009
@@ -3,7 +3,7 @@
use strict;
use warnings;

-our $VERSION = '0.07';
+our $VERSION = '0.09';

use base 'Mojolicious::Controller';

@@ -12,18 +12,18 @@
sub index {
my ($self, $c) = @_;

- my $config = $c->config;
- # for FillInForm
- my $fif = $config->{backup};
+ my $config = $c->config;
+ # for FillInForm
+ my $fif = $config->{backup};

$c->render( template => 'backup/index.html', fif => $fif );
}

sub ftp {
- my ($self, $c) = @_;
-
- my $config = $c->config;
- my $dbh = $c->dbh;
+ my ($self, $c) = @_;
+
+ my $config = $c->config;
+ my $dbh = $c->dbh;
my $params = $c->req->params->to_hash;

my $host = $params->{host};
@@ -38,18 +38,18 @@
my $err;

my $sg = Scope::Guard->new(
- sub { $c->render( template => 'backup/index.html', err => $err ) }
- );
+ sub { $c->render( template => 'backup/index.html', err => $err ) }
+ );

if ( $put_file and not -e $local ) {
- return $err = "Local $local is not there";
+ return $err = "Local $local is not there";
}

- #### start use Net::SFTP
+ #### start use Net::FTP
eval {
- require Net::FTP;
- };
- return $err = $@ if ( $@ );
+ require Net::FTP;
+ };
+ return $err = $@ if ( $@ );

my $ftp = Net::FTP->new($host, Debug => 0)
or do { return $err = "Cannot connect to $host: $@"; };
@@ -57,40 +57,40 @@
$ftp->login($user, $pass)
or do { return $err = "Cannot login " . $ftp->message; };

-
- if ( $mode eq 'binary' ) {
- $ftp->binary;
- } elsif ( $mode eq 'ascii') {
- $ftp->ascii;
- } else {
- if ( -e $local and -T $local ) {
- $ftp->binary;
- } else {
- $ftp->ascii;
- }
- }
-
- if ( $get_file ) {
- $ftp->get($remote, $local)
- or do { return $err = "get failed " . $ftp->message; };
- }
- if ( $put_file ) {
- $ftp->put($local, $remote)
- or do { return $err = "put failed " . $ftp->message; };
- }
-
- if ( $params->{save} ) {
- $config->{backup} = {
- host => $host,
- user => $user,
- local => $local,
- remote => $remote,
- };
- $c->save_config( $config );
- }
-
- $ftp->quit;
- $err = "Everything seems OK";
+
+ if ( $mode eq 'binary' ) {
+ $ftp->binary;
+ } elsif ( $mode eq 'ascii') {
+ $ftp->ascii;
+ } else {
+ if ( -e $local and -T $local ) {
+ $ftp->binary;
+ } else {
+ $ftp->ascii;
+ }
+ }
+
+ if ( $get_file ) {
+ $ftp->get($remote, $local)
+ or do { return $err = "get failed " . $ftp->message; };
+ }
+ if ( $put_file ) {
+ $ftp->put($local, $remote)
+ or do { return $err = "put failed " . $ftp->message; };
+ }
+
+ if ( $params->{save} ) {
+ $config->{backup} = {
+ host => $host,
+ user => $user,
+ local => $local,
+ remote => $remote,
+ };
+ $c->save_config( $config );
+ }
+
+ $ftp->quit;
+ $err = "Everything seems OK";
}

1;
@@ -102,8 +102,8 @@

=head1 URL

- /backup
- /backup/ftp
+ /backup
+ /backup/ftp

=head1 AUTHOR