snapshot_backup
Differences
This shows you the differences between two versions of the page.
|
snapshot_backup [2011/09/20 20:48] k2patel |
snapshot_backup [2020/08/10 02:35] |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====== Backup ====== | ||
| - | |||
| - | This snapshot backup enable you to have retention.\\ | ||
| - | this manage my infrastructure backup on ec2. | ||
| - | |||
| - | ==== Requirement : ==== | ||
| - | |||
| - | * perl | ||
| - | * Net::Amazon::EC2 | ||
| - | * bash | ||
| - | |||
| - | ==== Files : ==== | ||
| - | |||
| - | * config # store your amazon key here | ||
| - | * db.pl # manage local DB for your snapshot / dates / volume | ||
| - | * backup.sh # Cron this script | ||
| - | * create_snap.pl # Create Snapshot | ||
| - | * config_bash # Manage config of your retention / backup | ||
| - | * snap_status.pl # Check status of your snapshot | ||
| - | * delete_snap.pl # Delete Snapshot which is out of retention. | ||
| - | |||
| - | ==== C0D3s ==== | ||
| - | |||
| - | === config === | ||
| - | |||
| - | <code bash | config > | ||
| - | #!/usr/bin/perl | ||
| - | |||
| - | $awsId = '<your AWS_ID>'; | ||
| - | $awsKey = '<your AWS_KEY>'; | ||
| - | $awsinstance = '<AWS_INSTANCES>'; ## right now it is not used anywhere | ||
| - | </code> | ||
| - | |||
| - | === db.pl === | ||
| - | |||
| - | <code perl | db.pl > | ||
| - | #!/usr/bin/perl | ||
| - | |||
| - | # developed by k2patel | ||
| - | # k2patel@hotmail.com | ||
| - | |||
| - | # this Script Manage all Backup Record. | ||
| - | |||
| - | use Switch; | ||
| - | use DBI; | ||
| - | |||
| - | $filename = 'machine.db'; | ||
| - | unless (-e $filename) { | ||
| - | print "Creating Database..."; | ||
| - | $dbh = DBI->connect( "dbi:SQLite:machine.db" ) || die "Cannot connect: $DBI::errstr"; | ||
| - | $dbh->do( "CREATE TABLE DESK ( v_ID, s_ID, Dte )" ); | ||
| - | $dbh->disconnect; | ||
| - | } | ||
| - | |||
| - | my($num_args) = $#ARGV + 1; | ||
| - | if ($num_args < 3) { | ||
| - | print "\nUsage: db.pl <Operation> <Volume_ID> <Date> [<Snapshot ID>]\n"; | ||
| - | print "Operation : Allowed \"add / get / del\" \n"; | ||
| - | print "All three Value require\n"; | ||
| - | print "Snapshot ID must provided when the Operation is Add / Del\n"; | ||
| - | exit 1; | ||
| - | } | ||
| - | |||
| - | $dbh = DBI->connect( "dbi:SQLite:machine.db" ) || die "Cannot connect: $DBI::errstr"; | ||
| - | |||
| - | switch( $ARGV[0] ){ | ||
| - | case "add" { | ||
| - | if ($ARGV[3] eq ''){ | ||
| - | print "You can not use ADD without Snapshot"; | ||
| - | exit 1; | ||
| - | }else{ | ||
| - | $dbh->do( "INSERT INTO DESK VALUES ( '$ARGV[1]', '$ARGV[2]', '$ARGV[3]' )" ); | ||
| - | } | ||
| - | } | ||
| - | case "del" { | ||
| - | if ($ARGV[3] eq ''){ | ||
| - | print "You can not use DEL without Snapshot"; | ||
| - | exit 1; | ||
| - | }else{ | ||
| - | $dbh->do( "DELETE FROM DESK WHERE s_ID = '$ARGV[2]' AND Dte = '$ARGV[3]'" ); | ||
| - | } | ||
| - | } | ||
| - | case "get" { | ||
| - | $res = $dbh->selectall_arrayref( "SELECT s_ID, Dte FROM DESK WHERE v_ID = '$ARGV[1]' AND Dte = '$ARGV[2]'" ); | ||
| - | foreach( @$res ) { | ||
| - | #print "$_->[0] $_->[1] $_->[2]\n"; | ||
| - | print "$_->[0] $_->[1] $_->[2]\n" | ||
| - | } | ||
| - | } | ||
| - | else | ||
| - | { | ||
| - | $res = $dbh->selectall_arrayref( "SELECT * FROM DESK" ); | ||
| - | foreach( @$res ) { | ||
| - | print "$_->[0] $_->[1] $_->[2]\n"; | ||
| - | } | ||
| - | } | ||
| - | } | ||
| - | $dbh->disconnect; | ||
| - | </code> | ||
| - | |||
| - | === backup.sh === | ||
snapshot_backup.txt ยท Last modified: 2020/08/10 02:35 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
