PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show a list of all scheduled backups
require './virtual-server-lib.pl';
&ReadParse();
&can_backup_sched() || &error($text{'sched_ecannot'});
&can_backup_domain() || &error($text{'backup_ecannot'});
&ui_print_header(undef, $text{'sched_title'}, "", "sched");
@scheds = &list_scheduled_backups();
@scheds = grep { &can_backup_sched($_) } @scheds;
# Work out what to show
$hasinc = &has_incremental_tar() && &has_incremental_format();
@table = ( );
$hasowner = 0;
if (&can_backup_domain() == 1) {
# For master admin, show it if any schedule has a non-master owner
($hasowner) = grep { $_->{'owner'} } @scheds;
}
elsif (&can_backup_domain() == 3) {
# For resellers, always show owner column
$hasowner = 1;
}
# Build table of backups
foreach $s (@scheds) {
my @row;
push(@row, { 'type' => 'checkbox', 'name' => 'd',
'value' => $s->{'id'}, 'disabled' => $s->{'id'}==1 });
@dests = &get_scheduled_backup_dests($s);
@nices = map { &nice_backup_url($_, 1) } @dests;
push(@row, &ui_link("backup_form.cgi?sched=$s->{'id'}",
join("<br>\n", @nices)));
push(@row, &nice_backup_doms($s));
push(@row, $s->{'enabled'} ?
&text('sched_yes', &cron::when_text($s)) :
"<font color=#ff0000>$text{'no'}</font>");
if ($hasinc) {
# Incremental level
push(@row, $s->{'increment'} ? $text{'sched_inc'}
: $text{'sched_full'});
}
# Creator of the backup
if ($hasowner) {
if ($s->{'owner'}) {
$od = &get_domain($s->{'owner'});
push(@row, $od ? $od->{'user'} : $s->{'owner'});
}
else {
push(@row, "");
}
}
# Action links
@links = ( );
push(@links, "<a href='backup_form.cgi?oneoff=$s->{'id'}'>".
"$text{'sched_now'}</a>");
push(@links, "<a href='restore_form.cgi?sched=$s->{'id'}'>".
"$text{'sched_restore'}</a>") if (&can_restore_domain());
push(@row, &ui_links_row(\@links));
push(@table, \@row);
}
# Output the form and table
print &ui_form_columns_table(
"delete_scheds.cgi",
[ [ 'delete', $text{'sched_delete'} ],
[ 'disable', $text{'sched_disable'} ],
[ 'enable', $text{'sched_enable'} ] ],
1,
[ [ "backup_form.cgi?new=1", $text{'sched_add'} ] ],
undef,
[ "", $text{'sched_dest'}, $text{'sched_doms'},
$text{'sched_enabled'},
$hasinc ? ( $text{'sched_level'} ) : ( ),
$hasowner ? ( $text{'sched_owner'} ) : ( ),
$text{'sched_actions'} ],
100, \@table, [ '', 'string', 'string' ],
0, undef,
$text{'sched_none'});
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`