bin/freeside-backup

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Getopt::Std;
   5 use FS::UID qw(adminsuidsetup);
   6 use FS::Conf;
   7
   8 my $user = shift or die &usage;
   9 adminsuidsetup $user;
  10
  11 #you can skip this just by not having the config
  12 use FS::Cron::backup qw(backup);
  13 backup();
  14
  15 sub usage {
  16   die "Usage:\n\n  freeside-backup user\n";
  17 }
  18
  19 ###
  20 # documentation
  21 ###
  22
  23 =head1 NAME
  24
  25 freeside-backup - Runs a backup
  26
  27 =head1 SYNOPSIS
  28
  29   freeside-backup user
  30
  31 =head1 DESCRIPTION
  32
  33 Runs a backup.  See the dump-scpdest and dump-localdest configuration options.
  34
  35 =head1 BUGS
  36
  37 =head1 SEE ALSO
  38
  39 =cut
  40
  41 1;
  42