version 1.12, 2000/12/25 12:44:43
|
version 1.13, 2000/12/26 19:50:25
|
Line 2
|
Line 2
|
# Cookie Based Access Handler for Construction Area |
# Cookie Based Access Handler for Construction Area |
# (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) |
# (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) |
# 6/15,16/11,22/11, |
# 6/15,16/11,22/11, |
# 01/06,01/11,6/1,9/25,9/28,11/22,12/25 Gerd Kortemeyer |
# 01/06,01/11,6/1,9/25,9/28,11/22,12/25,12/26 Gerd Kortemeyer |
|
|
package Apache::loncacc; |
package Apache::loncacc; |
|
|
Line 78 sub handler {
|
Line 78 sub handler {
|
if ($lines[$i]=~/^$contentsep/) { |
if ($lines[$i]=~/^$contentsep/) { |
if ($name) { |
if ($name) { |
chomp($value); |
chomp($value); |
$ENV{"form.$name"}=$value; |
|
if ($fname) { |
if ($fname) { |
$ENV{"form.$name.filename"}=$fname; |
$ENV{"form.$name.filename"}=$fname; |
$ENV{"form.$name.mimetype"}=$fmime; |
$ENV{"form.$name.mimetype"}=$fmime; |
|
} else { |
|
$value=~s/\s+$//s; |
} |
} |
|
$ENV{"form.$name"}=$value; |
} |
} |
if ($i<$#lines) { |
if ($i<$#lines) { |
$i++; |
$i++; |