package Apache::portfolio; use strict; use Apache::Constants qw(:common :http); # use Apache::loncommon; use Apache::lonnet; # use Apache::lontexconvert; # use Apache::lonfeedback; # use Apache::lonlocal; sub handler { my $r=@_[0]; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; $r->print("the portfolio handler is in use by $ENV{'user.name'} looking for " .$r->uri."
"); my $file=&Apache::lonnet::filelocation("",$r->uri); my $contents=&Apache::lonnet::getfile($file); # $r->print($contents); $r->print("here's the form
"); $r->print('
'); $r->print(''); $r->print(''); $r->print('
'); return OK; # my $something = "this is something
"; # my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); # Is this even a user? # if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { # $r->print(''. # &mt('No user information available').''); # return OK; # } # $r->print($something); # $r->print($r); # $r->print($ENV{'user.name'}); # $r->print("
should have printed username above
"); # my $key = ""; # foreach my $key (sort(keys(%ENV))) { # $r->print("$key is $ENV{$key}
\n"); # } # # my @envkeys = keys(%ENV); # my $i = 0; # for ($i = 0; $i < 30; $i++){ # $r->print("Key $i is $envkeys[$i]
"); # } # return OK; } 1; __END__