version 1.26, 2013/07/15 14:32:45
|
version 1.27, 2014/12/11 01:48:54
|
Line 82 sub show_key_list {
|
Line 82 sub show_key_list {
|
</th></tr> |
</th></tr> |
ENDTABLEHEADER |
ENDTABLEHEADER |
} |
} |
foreach (keys %accesskeys) { |
foreach (keys(%accesskeys)) { |
if ($_=~/^error\:/) { |
if ($_=~/^error\:/) { |
$r->print('<tr><td>No keys have been generated yet.</td></tr>'); |
$r->print('<tr><td>No keys have been generated yet.</td></tr>'); |
} elsif ($accesskeys{$_}=~/$comment/) { |
} elsif ($accesskeys{$_}=~/$comment/) { |
Line 159 sub addcom {
|
Line 159 sub addcom {
|
my %cenv=@_; |
my %cenv=@_; |
my %newcomment=(); |
my %newcomment=(); |
undef %newcomment; |
undef %newcomment; |
foreach (keys %env) { |
foreach (keys(%env)) { |
if ($_=~/^form\.com\_(.+)$/) { |
if ($_=~/^form\.com\_(.+)$/) { |
my $key=$1; |
my $key=$1; |
my $comment=$env{$_}; |
my $comment=$env{$_}; |