![]() ![]() | ![]() |
version 1.6, 2001/12/22 21:46:02 | version 1.7, 2002/03/28 21:38:53 |
---|---|
Line 47 sub handler { | Line 47 sub handler { |
$r->send_http_header; | $r->send_http_header; |
return OK if $r->header_only; | return OK if $r->header_only; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']); | |
my $feedurl=$ENV{'form.postdata'}; | my $feedurl=$ENV{'form.postdata'}; |
$feedurl=~s/^http\:\/\///; | $feedurl=~s/^http\:\/\///; |
$feedurl=~s/^$ENV{'SERVER_NAME'}//; | $feedurl=~s/^$ENV{'SERVER_NAME'}//; |