[TCLUG] Linux Backup

[Troy.A Johnson]

Phil,

I use a perl script to that sort of thing, but I choose directories
and what kind of file extensions I want. It is a thrown together
sort of thing on Win98, but it could probably be easily modified
to do what you like. It has a companion ftp-it-to-my-sun script, 
but you'll have to let me know if you're interested _after_ 
looking at the crap I'm attaching now...

Good luck,

Troy

>>> Phillip.J.Crump at WellsFargo.COM 09/06/01 04:36PM >>>
Currently I have about 10 MB (uncompressed) or so of data I need backed up..
I don't need it to be 'happy/clicky' just reliable, I was thinking of
something that could pick up the files or directories that I specify, tar
them up and then copy to the zip drive as 1 tar'd file until the drive is
full..


> -----Original Message-----
> From:	Troy.A Johnson [SMTP:troy.johnson at health.state.mn.us] 
> Sent:	Thursday, September 06, 2001 3:25 PM
> To:	tclug-list at mn-linux.org 
> Subject:	RE: [TCLUG] Linux Backup
> 
> Phillip,
> 
> How happy/clickey do you want this to be?
> How much data are you backing up?
> Do you want to overwrite old backups?
> If not, how many do you want to keep, or should they
> die at a certain age?
> 
> These are just questions to get more of a flavor
> of what you are looking for, though we can assume
> you won't be backing up more than 100 or 250 MB
> (which one is it?) compressed because of your
> choice of medium...
> 
> Good luck,
> 
> Troy
> 
> 
> >>> Phillip.J.Crump at WellsFargo.COM 09/06/01 02:59PM >>>
> No Zip Drive Support..
> 
> > -----Original Message-----
> > From:	Charles_E_Zlamal at consecofinance.com 
> > [SMTP:Charles_E_Zlamal at consecofinance.com] 
> > Sent:	Thursday, September 06, 2001 2:21 PM
> > To:	tclug-list at mn-linux.org 
> > Subject:	Re: [TCLUG] Linux Backup
> > 
> > 
> > Go to www.arkeia.com to obtain a free copy of there backup software
> (great
> > package). I believe that it will support Zip drives. This product
> product
> > provides a nice management interface, and is easy to configure.
> > Additionally, you can backup multiple servers with this, when the time
> > comes.
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > Phillip.J.Crump at WellsFargo.COM@mn-linux.org on 09/06/2001 01:26:24 PM
> > 
> > Please respond to tclug-list at mn-linux.org 
> > 
> > Sent by:  tclug-list-admin at mn-linux.org 
> > 
> > 
> > To:   tclug-list at mn-linux.org 
> > cc:
> > Subject:  [TCLUG] Linux Backup
> > 
> > 
> > I'm looking for some software that I can use to perform
> > unattended-scheduled
> > backups my mandrake 8.0 box.  Any suggestions?
> > For now I just want to backup to my zip drive.
> > 
> > - PJ
> > _______________________________________________
> > tclug-list mailing list
> > tclug-list at mn-linux.org 
> > https://mailman.mn-linux.org/mailman/listinfo/tclug-list 
> > 
> > 
> > 
> > _______________________________________________
> > tclug-list mailing list
> > tclug-list at mn-linux.org 
> > https://mailman.mn-linux.org/mailman/listinfo/tclug-list 
> _______________________________________________
> tclug-list mailing list
> tclug-list at mn-linux.org 
> https://mailman.mn-linux.org/mailman/listinfo/tclug-list 
> 
> _______________________________________________
> tclug-list mailing list
> tclug-list at mn-linux.org 
> https://mailman.mn-linux.org/mailman/listinfo/tclug-list 
_______________________________________________
tclug-list mailing list
tclug-list at mn-linux.org 
https://mailman.mn-linux.org/mailman/listinfo/tclug-list

-------------- next part --------------
#!c:\perl\bin\perl.exe

use Archive::Tar;

my @date = localtime();

my $year = $date[5] + 1900;
my $month = $date[4] + 1;
my $day = $date[3];
if ($month < 10) { $month = "0" . $month; }
if ($day < 10) { $day = "0" . $day; }

my $datecode = $year . $month . $day;

my $directory = "backup";

if ( not -d $directory ) { mkdir $directory or die "cannot make $directory: $!\n"; }

my $extension = ".tgz";
my $filename = $directory . "/" . $datecode . $extension;

if ( -f $filename )
{
	for ( $i = 0; $i < 100; $i++ )
	{
		$filename = $directory . "/" . $datecode . "-" . $i . $extension;
		last if ( not -f $filename);
	}
}

print "$filename\n";

@archdirs = qw(. test test/crypt test/doc test/file test/func 
	test/irr test/miscdata test/net test/perldata test/tk 
	test/win32 test/objects install doc sun);

@allfiles = ();
foreach $adir (@archdirs)
{
	opendir(DIR, "$adir");
	@files = readdir(DIR);
	closedir(DIR);
	if ($adir !~ /^[.]+$/)
	{
		foreach $file (@files) { $file = "$adir/" . $file; }
	}
	@allfiles = (@allfiles, @files);
}

@filelist = grep(/^.+\.(pl|pm|cfg|mdb|html|txt|sto|bat|pif|exe)$/i, @allfiles);

$compressed = 1;
$tarfile = Archive::Tar->new();
$tarfile->add_files(@filelist);
$tarfile->write($filename, $compressed);

print "Backup complete.\n";