PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show a form for dumping a repository
require './virtualmin-svn-lib.pl';
&ReadParse();
&error_setup($text{'dump_err'});
$config{'candump'} || &error($text{'dump_ecannot'});
# Get the domain and repository
$dom = &virtual_server::get_domain($in{'dom'});
&can_edit_domain($dom) || &error($text{'add_edom'});
@reps = &list_reps($dom);
($rep) = grep { $_->{'rep'} eq $in{'rep'} } @reps;
$rep || &error($text{'delete_erep'});
&ui_print_header(&virtual_server::domain_in($dom), $text{'dump_title'}, "");
print $text{'dump_desc'},"<p>\n";
print &ui_form_start("dump.cgi/$rep->{'rep'}.dump", "post");
print &ui_hidden("dom", $in{'dom'});
print &ui_hidden("rep", $in{'rep'});
print &ui_hidden("show", $in{'show'});
print &ui_table_start($text{'dump_header'}, undef, 2, [ "width=30%" ]);
print &ui_table_row($text{'email_rep'}, "<tt>$in{'rep'}</tt>");
print &ui_table_row($text{'dump_to'},
&ui_radio("to_def", 0,
[ [ 0, $text{'dump_browser'}."<br>" ],
[ 1, &text('dump_file', &ui_textbox("file", undef, 40).
&file_chooser_button("file")) ] ]));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'dump_ok'} ] ]);
&ui_print_footer("index.cgi?show=$in{'show'}", $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`