version 1.1, 2004/07/03 18:49:42
|
version 1.2, 2004/07/03 19:05:12
|
Line 3 package Apache::lonsupportreq;
|
Line 3 package Apache::lonsupportreq;
|
use strict; |
use strict; |
use lib qw(/home/httpd/lib/perl); |
use lib qw(/home/httpd/lib/perl); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon; |
use Apache::loncommon(); |
use Apache::lonnet; |
use Apache::lonnet(); |
use localenroll; |
use localenroll; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
Line 13 use Mail::Send;
|
Line 13 use Mail::Send;
|
# use MIME::Types; |
# use MIME::Types; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my ($r) = @_; |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
if ($r->header_only) { |
if ($r->header_only) { |