[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

Tue, 08 Jun 2004 18:34:20 -0000

banghart		Tue Jun  8 14:34:20 2004 EDT

  Added files:                 
    /loncom/interface	portfolio.pm 
  Log:
  Raw beginnings of portfolio handler: This creates the file upload
  form, in anticipation of receiving and storing the file in the user's
  portfolio directory.
  
  
Index: loncom/interface/portfolio.pm
+++ loncom/interface/portfolio.pm
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."<br />");
	my $file=&Apache::lonnet::filelocation("",$r->uri);	
	my $contents=&Apache::lonnet::getfile($file);
#	$r->print($contents);

	$r->print("here's the form<br />");
	$r->print('<form method=post enctype="multipart/form-data" action="'.$r->uri.'">');
	$r->print('<input type=submit value="upload">');
	$r->print('<input name="saywhat" type="file">');
	$r->print('</form>');
	return OK;
#	my $something = "this is something<br />";
#	my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
# Is this even a user?
#    if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
#	$r->print('</head><body>'.
#		  &mt('No user information available').'</body></html>');
#       return OK;
#    }


#	$r->print($something);
#	$r->print($r);
#	$r->print($ENV{'user.name'});
#	$r->print("<br />should have printed username above<br />");
#	my $key = "";
#	foreach my $key (sort(keys(%ENV))) {
#		$r->print("$key is $ENV{$key} <br />\n");
#	}
#
#	my @envkeys = keys(%ENV);	
#	my $i = 0;
#	for ($i = 0; $i < 30; $i++){
#		$r->print("Key $i is $envkeys[$i] <br />");
#	}
#	return OK;
}
1;
__END__