ipsec/list_secrets.cgi

   1 #!/usr/local/bin/perl
   2 # Show all secret keys
   3
   4 require './ipsec-lib.pl';
   5 &ui_print_header(undef, $text{'secrets_title'}, "");
   6
   7 @secs = &list_secrets();
   8 if (@secs) {
   9         print &ui_columns_start([ $text{'secrets_name'},
  10                                   $text{'secrets_type'},
  11                                   $text{'secrets_desc'} ]);
  12         foreach $s (@secs) {
  13                 local $desc;
  14                 if (lc($s->{'type'}) eq "psk" &&
  15                     $s->{'value'} =~ /"(.*)"/) {
  16                         $desc = &text('secrets_pass', "<tt>$1</tt>");
  17                         }
  18                 elsif (lc($s->{'type'}) eq "rsa" &&
  19                        $s->{'value'} =~ /Modulus:\s*(\S+)/i) {
  20                         $desc = &text('secrets_mod', "<tt>".substr($1, 0, 20)."..</tt>");
  21                         }
  22                 print &ui_columns_row([
  23                         "<a href='edit_secret.cgi?idx=$s->{'idx'}'>".
  24                         ($s->{'name'} || $text{'secrets_any'})."</a>",
  25                         $text{'secrets_'.lc($s->{'type'})} || uc($s->{'type'}),
  26                         $desc,
  27                         ]);
  28                 }
  29         print &ui_columns_end();
  30         }
  31 else {
  32         print "<b>$text{'secrets_none'}</b><p>\n";
  33         }
  34 print "<a href='edit_secret.cgi?new=1&type=psk'>$text{'secrets_newpsk'}</a>\n";
  35 print "&nbsp;" x 2;
  36 print "<a href='edit_secret.cgi?new=1&type=rsa'>$text{'secrets_newrsa'}</a>\n";
  37 print "<br>\n";
  38
  39 &ui_print_footer("", $text{'index_return'});