freeside-backup

diff --git a/FS/bin/freeside-backup b/FS/bin/freeside-backup
new file mode 100644 (file)
index 0000000..25e74a4
--- /dev/null
+++ b/FS/bin/freeside-backup
@@ -0,0 +1,42 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Getopt::Std;
+use FS::UID qw(adminsuidsetup);
+use FS::Conf;
+
+my $user = shift or die &usage;
+adminsuidsetup $user;
+
+#you can skip this just by not having the config
+use FS::Cron::backup qw(backup);
+backup();
+
+sub usage {
+  die "Usage:\n\n  freeside-backup user\n";
+}
+
+###
+# documentation
+###
+
+=head1 NAME
+
+freeside-backup - Runs a backup
+
+=head1 SYNOPSIS
+
+  freeside-backup user
+
+=head1 DESCRIPTION
+
+Runs a backup.  See the dump-scpdest and dump-localdest configuration options.
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+=cut
+
+1;
+