|
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 : /proc/self/root/usr/libexec/webmin/jabber/ |
Upload File : |
#!/usr/bin/perl
# save_modules.cgi
# Save server modules and shared libraries
require './jabber-lib.pl';
&ReadParse();
&error_setup($text{'modules_err'});
$conf = &get_jabber_config();
$session = &find_by_tag("service", "id", "sessions", $conf);
$load = &find("load", $session);
$newload = [ "load", [ $load->[1]->[0] ] ];
for($n=0; defined($mod = $in{"mod_$n"}); $n++) {
next if (!$mod);
$so = $in{"so_$n"};
$mod =~ /^\S+$/ || &error(&text('modules_emod', $mod));
$sopath = $so =~ /^\// ? $so : "$config{'jabber_dir'}/$so";
-r $sopath || &error(&text('modules_eso', $so));
&save_directive($newload, $mod, [ [ $mod, [ { }, 0, $so ] ] ] );
}
&save_directive($session, [ $load ], [ $newload ] );
&save_jabber_config($conf);
&redirect("");