X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fwebbackup.pl;h=c8c8bb4006be68d0814a2edacfeaa46cf5469249;hb=22b4e5096c5b5959df44f31c7b462cad12f20bc2;hp=41e43c769e388e31d8ed28db974c96f743d7c136;hpb=cb81fea9939f349b36e3b5a0cdc0343a6b781da1;p=infobot.git

diff --git a/scripts/webbackup.pl b/scripts/webbackup.pl
index 41e43c7..c8c8bb4 100755
--- a/scripts/webbackup.pl
+++ b/scripts/webbackup.pl
@@ -4,90 +4,93 @@ use strict;
 use LWP;
 use POSIX qw(strftime);
 
-my $backup_interval	= 1;	# every: 1,7,14,30.
-my $backup_count	= 7;
-my $backup_url		= "http://core.junker.org/~apt/tables.tar.bz2";
-my $backup_file		= "tables-##DATE.tar.bz2";
-my $backup_destdir	= "/home/xk/public_html/";
-my $backup_indexfile	= "tables-index.txt";
+my $backup_interval = 1;    # every: 1,7,14,30.
+my $backup_count    = 7;
+my $backup_url       = "http://core.junker.org/~apt/tables.tar.bz2";
+my $backup_file      = "tables-##DATE.tar.bz2";
+my $backup_destdir   = "/home/xk/public_html/";
+my $backup_indexfile = "tables-index.txt";
 
 my %index;
 
 # Usage: &getURL($url);
 sub getURL {
     my ($url) = @_;
-    my ($ua,$res,$req);
+    my ( $ua, $res, $req );
 
     $ua = new LWP::UserAgent;
 ###    $ua->proxy('http', $proxy);
 
-    $req = new HTTP::Request('GET',$url);
+    $req = new HTTP::Request( 'GET', $url );
     $res = $ua->request($req);
 
     # return NULL upon error.
-    if ($res->is_success) {
-	return $res->content;
-    } else {
-	print "error: failure.\n";
-	exit 1;
+    if ( $res->is_success ) {
+        return $res->content;
+    }
+    else {
+        print "error: failure.\n";
+        exit 1;
     }
 }
 
 #...
-if ( -f "$backup_destdir/$backup_indexfile") {
-    if (open(INDEX, "$backup_destdir/$backup_indexfile")) {
-	while (<INDEX>) {
-	    chop;
-
-	    # days since 1970, file.
-	    if (/^(\d+) (\S+)$/) {
-		$index{$1} = $2;
-	    }
-	}
-	close INDEX;
-    } else {
-	print "WARNING: can't open $backup_indexfile.\n";
+if ( -f "$backup_destdir/$backup_indexfile" ) {
+    if ( open( INDEX, "$backup_destdir/$backup_indexfile" ) ) {
+        while (<INDEX>) {
+            chop;
+
+            # days since 1970, file.
+            if (/^(\d+) (\S+)$/) {
+                $index{$1} = $2;
+            }
+        }
+        close INDEX;
+    }
+    else {
+        print "WARNING: can't open $backup_indexfile.\n";
     }
 }
-my $now_days	= (localtime)[7] + (((localtime)[5] - 70) * 365);
-my $now_date	= strftime("%Y%m%d", localtime);
+my $now_days = (localtime)[7] + ( ( (localtime)[5] - 70 ) * 365 );
+my $now_date = strftime( "%Y%m%d", localtime );
 
-if (scalar keys %index) {
-    my $last_days	= (sort {$b <=> $a} keys %index)[0];
+if ( scalar keys %index ) {
+    my $last_days = ( sort { $b <=> $a } keys %index )[0];
 
-    if ($now_days - $last_days < $backup_interval) {
-	print "error: shouldn't run today.\n";
-	goto cycle;
+    if ( $now_days - $last_days < $backup_interval ) {
+        print "error: shouldn't run today.\n";
+        goto cycle;
     }
 }
 
 $backup_file =~ s/##DATE/$now_date/;
 print "backup_file => '$backup_file'.\n";
-if ( -f $backup_file) {
+if ( -f $backup_file ) {
     print "error: $backup_file already exists.\n";
     exit 1;
 }
 
 my $file = &getURL($backup_url);
-open(OUT,">$backup_destdir/$backup_file");
+open( OUT, ">$backup_destdir/$backup_file" );
 print OUT $file;
 close OUT;
 
 $index{$now_days} = $backup_file;
 cycle:;
-my @index = sort {$b <=> $a} keys %index;
+my @index = sort { $b <=> $a } keys %index;
 
-open(OUT,">$backup_destdir/$backup_indexfile");
-for(my $i=0; $i<scalar(@index); $i++) {
+open( OUT, ">$backup_destdir/$backup_indexfile" );
+for ( my $i = 0 ; $i < scalar(@index) ; $i++ ) {
     my $day = $index[$i];
     print "fe: day => '$day'.\n";
 
-    if ($backup_count - 1 >= $i) {
-	print "DEBUG: $day $index{$day}\n";
-	print OUT "$day $index{$day}\n";
-    } else {
-	print "Deleting $index{$day}\n";
-	unlink $backup_destdir."/".$index{$day};
+    if ( $backup_count - 1 >= $i ) {
+        print "DEBUG: $day $index{$day}\n";
+        print OUT "$day $index{$day}\n";
+    }
+    else {
+        print "Deleting $index{$day}\n";
+        unlink $backup_destdir . "/" . $index{$day};
     }
 }
 close OUT;