ipsec/export.cgi

   1 #!/usr/local/bin/perl
   2 # export.cgi
   3 # Actually do the export of a connection
   4
   5 require './ipsec-lib.pl';
   6 &error_setup($text{'export_err'});
   7 &ReadParse();
   8
   9 # Get the config lines
  10 @conf = &get_config();
  11 $conn = $conf[$in{'idx'}];
  12 $lref = &read_file_lines($conn->{'file'});
  13 @lines = map { "$_\n" } @$lref[$conn->{'line'} .. $conn->{'eline'}];
  14
  15 if ($in{'mode'} == 0) {
  16         # Just show on screen
  17         print "Content-type: text/plain\n\n";
  18         print @lines;
  19         }
  20 else {
  21         # Save to file
  22         $in{'file'} || &error($text{'export_efile'});
  23         &open_tempfile(EXPORT, ">$in{'file'}", 1) ||
  24                 &error(&text('export_esave', $!));
  25         &print_tempfile(EXPORT, @lines);
  26         &close_tempfile(EXPORT);
  27
  28         # Tell the user
  29         &ui_print_header(undef, $text{'export_title'}, "");
  30
  31         @st = stat($in{'file'});
  32         print "<p>",&text('export_done', "<tt>$conn->{'value'}</tt>",
  33                           "<tt>$in{'file'}</tt>", $st[7]),"<p>\n";
  34
  35         &ui_print_footer("edit.cgi?idx=$in{'idx'}", $text{'edit_return'});
  36         }
  37