PAL.C.T MINI SHELL
#!/usr/bin/perl
# Save the email settings for a repository
require './virtualmin-svn-lib.pl';
&ReadParse();
&error_setup($text{'email_err'});
$config{'cannotify'} || &error($text{'email_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'});
# Save settings
$in{'email_def'} || $in{'email'} =~ /\S/ || &error($text{'email_eemail'});
&save_repository_email($dom, $rep, $in{'email_def'} ? undef : $in{'email'});
&webmin_log("email", "repo", $in{'rep'}, { 'dom' => $dom->{'dom'} });
&redirect("index.cgi?show=$in{'show'}");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`