jabber/save_file.cgi

   1 #!/usr/local/bin/perl
   2 # save_file.cgi
   3 # Save the jabber config file, with verification
   4
   5 require './jabber-lib.pl';
   6 &ReadParseMime();
   7 &error_setup($text{'file_err'});
   8
   9 # Write to a temp file and check it
  10 $temp = &transname();
  11 $in{'file'} =~ s/\r//g;
  12 open(TEMP, ">$temp");
  13 print TEMP $in{'file'};
  14 close(TEMP);
  15 local $xml = new XML::Parser('Style' => 'Tree');
  16 eval { $xml->parsefile($temp); };
  17 unlink($temp);
  18 if ($@) {
  19         $err = $@;
  20         $err =~ s/\s+at\s+(\S+)\s+line\s+(\d+)$//;
  21         &error($err);
  22         }
  23
  24 # Write to the real file
  25 &open_tempfile(FILE, ">$config{'jabber_config'}");
  26 &print_tempfile(FILE, $in{'file'});
  27 &close_tempfile(FILE);
  28 &redirect("");
  29