|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/libexec/webmin/apache/ |
Upload File : |
#!/usr/bin/perl
# remove_vserv.pl
# Delete an apache virtual server by server name
@ARGV == 1 || die "usage: remove_vserv.pl <servername>";
$no_acl_check++;
$ENV{'WEBMIN_CONFIG'} = "/etc/webmin";
$ENV{'WEBMIN_VAR'} = "/var/webmin";
if ($0 =~ /^(.*\/)[^\/]+$/) {
chdir($1);
}
require './apache-lib.pl';
$module_name eq 'apache' || die "Command must be run with full path";
$conf = &get_config();
@virts = &find_directive_struct("VirtualHost", $conf);
foreach $v (@virts) {
local $sn = &find_directive("ServerName", $v->{'members'});
if ($sn eq $ARGV[0]) {
# Found the one to delete ..
&save_directive_struct($v, undef, $conf, $conf);
&flush_file_lines();
print "Delete virtual server from $v->{'file'} at line ",
($v->{'line'}+1),"\n";
exit;
}
}
print "Failed to find virtual server\n";