backup-config/cgi_args.pl

   1
   2 use strict;
   3 use warnings;
   4 do 'backup-config-lib.pl';
   5
   6 sub cgi_args
   7 {
   8 my ($cgi) = @_;
   9 if ($cgi eq 'edit.cgi') {
  10         my @backups = &list_backups();
  11         return @backups ? 'id='.&urlize($backups[0]->{'id'})
  12                         : 'new=1';
  13         }
  14 return undef;
  15 }