jabber/save_modules.cgi

   1 #!/usr/local/bin/perl
   2 # save_modules.cgi
   3 # Save server modules and shared libraries
   4
   5 require './jabber-lib.pl';
   6 &ReadParse();
   7 &error_setup($text{'modules_err'});
   8
   9 $conf = &get_jabber_config();
  10 $session = &find_by_tag("service", "id", "sessions", $conf);
  11 $load = &find("load", $session);
  12
  13 $newload = [ "load", [ $load->[1]->[0] ] ];
  14 for($n=0; defined($mod = $in{"mod_$n"}); $n++) {
  15         next if (!$mod);
  16         $so = $in{"so_$n"};
  17         $mod =~ /^\S+$/ || &error(&text('modules_emod', $mod));
  18         $sopath = $so =~ /^\// ? $so : "$config{'jabber_dir'}/$so";
  19         -r $sopath || &error(&text('modules_eso', $so));
  20         &save_directive($newload, $mod, [ [ $mod, [ { }, 0, $so ] ] ] );
  21         }
  22 &save_directive($session, [ $load ], [ $newload ] );
  23
  24 &save_jabber_config($conf);
  25 &redirect("");