scripts/shortcuts/mkSnapshot.pl

#!/usr/bin/perl

## --------------------------------------------------------------------------------
##  $Id: feed.pl,v 1.3 2003/01/20 16:29:48 joko Exp $
## --------------------------------------------------------------------------------
##  $Log: feed.pl,v $
## --------------------------------------------------------------------------------


use strict;
use warnings;

BEGIN {
  use FindBin qw($Bin);
  use lib qw(
    $Bin/../../libs
  );
}


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main

use org::netfrag::shortcuts qw(
  run_cmd run_cmds
  now today
);


my $arg1 = shift;
die "Please specify file to write snapshot to on the command-line." if !$arg1;

my $arg2 = shift;
die "Please specify item (directory for now) to snapshot on the command-line." if !$arg2;
die "Argument given is no directory." if ! -d $arg2;

run_cmd("tar -czf $arg1 $arg2");

1;
__END__
1	#!/usr/bin/perl
2
3	## --------------------------------------------------------------------------------
4	## $Id: feed.pl,v 1.3 2003/01/20 16:29:48 joko Exp $
5	## --------------------------------------------------------------------------------
6	## $Log: feed.pl,v $
7	## --------------------------------------------------------------------------------
8
9
10	use strict;
11	use warnings;
12
13	BEGIN {
14	use FindBin qw($Bin);
15	use lib qw(
16	$Bin/../../libs
17	);
18	}
19
20
21	# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
22
23	use org::netfrag::shortcuts qw(
24	run_cmd run_cmds
25	now today
26	);
27
28
29	my $arg1 = shift;
30	die "Please specify file to write snapshot to on the command-line." if !$arg1;
31
32	my $arg2 = shift;
33	die "Please specify item (directory for now) to snapshot on the command-line." if !$arg2;
34	die "Argument given is no directory." if ! -d $arg2;
35
36	run_cmd("tar -czf $arg1 $arg2");
37
38	1;
39	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26