#!/usr/bin/perl
# makes a backup of local repository and then ftps it to
# another server for cold storage
#

# get today's date
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
#!/usr/bin/perl
# makes a backup of local repository and then ftps it to
# another server for cold storage
#

# get today's date
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
my $datestr = sprintf( "%4i-%02i-%02i", $year + 1900, $mon + 1, $mday );

# first backup the file
my $fname = "$datestr-repository.tar.bz";
my $new_fpath = "/tmp/$fname";
system( "tar cyvvf $new_fpath /home/cvs/repository" ) and die "Couldn't tar up file. Reason: $?";

# now ftp the contents to a usable location
use Net::FTP;

my $conn;

$conn = Net::FTP->new( 'somedomain.com', Debug => 1 ) or die "damn couldn't connect to the ftp server";
$conn->login( 'user', 'pass' );
$conn->binary();
$conn->put( $new_fpath, "backups/$fname" );
$conn->quit();

$conn = Net::FTP->new( '192.168.1.6', Debug => 1 ) or die "damn couldn't connect to the ftp server";
$conn->login( 'user', 'pass' );
$conn->binary();
$conn->put( $new_fpath, "backups/$fname" );
$conn->quit();

use strict;
use Carp;
use Net::IRC;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use URI::Escape;
use XML::Parser;
use XML::Simple;
use XML::Writer;
use XMLParser;
use POSIX;
use Data::Dumper;
use Date::Calc qw(Delta_DHMS);
use Time::Local;
use Getopt::Std;
use Config::IniFiles;
use File::Basename;
use Hash::Merge qw(merge);
use Proc::Daemon;