You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2002/12/20 07:13:29 UTC
cvs commit: modperl-docs/src/docs/1.0/guide snippets.pod Changes.pod
stas 2002/12/19 22:13:29
Modified: src/docs/1.0/guide snippets.pod Changes.pod
Log:
Added a short version of the mysql back script
Submitted by: "mire" <mi...@sezampro.yu>
Reviewed by: stas
Revision Changes Path
1.13 +19 -0 modperl-docs/src/docs/1.0/guide/snippets.pod
Index: snippets.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/1.0/guide/snippets.pod,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- snippets.pod 8 Nov 2002 06:34:47 -0000 1.12
+++ snippets.pod 20 Dec 2002 06:13:29 -0000 1.13
@@ -1490,6 +1490,25 @@
system. List the names of the databases you want to backup using
the C<db_names> array.
+Here is another version using C<File::Backup>:
+
+ #!/usr/bin/perl -w
+ use strict;
+
+ use File::Backup qw|backup|;
+
+ backup(
+ 'from' => "/home/mire/www",
+ 'to' => "/opt/backup/box/some_dir",
+ 'torootname' => "example_backup_",
+ 'keep' => 4,
+ 'tar' => "/bin/tar",
+ 'compress' => "/usr/bin/bzip2",
+ 'tarflags' => "cvf",
+ 'compressflags' => "",
+ 'tarsuffix' => '.tar',
+ );
+
Now make the script executable and arrange the crontab entry to run
the backup script nightly. Note that the disk space used by the
backups will grow without bound and you should remove the old backups.
1.36 +3 -0 modperl-docs/src/docs/1.0/guide/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/modperl-docs/src/docs/1.0/guide/Changes.pod,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- Changes.pod 8 Nov 2002 06:34:47 -0000 1.35
+++ Changes.pod 20 Dec 2002 06:13:29 -0000 1.36
@@ -26,6 +26,9 @@
o Added some Apache::Cookie login page example with internal
redirects. [Alan Bailward, <alan (at) ufies.org>]
+ o Added a short version of the mysql back script ["mire"
+ <mi...@sezampro.yu>]
+
* performance.pod
o Note about browser not rendering immediately even under $|=1.
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org