version 1.2, 2000/06/07 19:19:31
|
version 1.3, 2000/06/12 18:25:03
|
Line 69 ENDHEADER
|
Line 69 ENDHEADER
|
$r->print('<input type=hidden name=blue value=green><input type=submit></form>'); |
$r->print('<input type=hidden name=blue value=green><input type=submit></form>'); |
} |
} |
my $envkey; |
my $envkey; |
foreach $envkey (keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$role,$where)=split(/\./,$envkey); |
my ($dum1,$dum2,$role,$where)=split(/\./,$envkey); |