doc/homework/worktime.html - diff

Return to worktime.html CVS log

Up to [LON-CAPA] / doc / homework

Diff for /doc/homework/worktime.html between versions 1.1 and 1.4

version 1.1, 2002/06/07 06:39:18	version 1.4, 2005/04/07 06:56:20
Line 14	Line 14
"username" appears it should be replaced by your specific	"username" appears it should be replaced by your specific
username.	username.
</p>	</p>
<h3>Example 1</h3>	<p>
	Please add this to your /etc/httpd/conf/loncapa_apache.conf file
	</p>

	<h3>Conf Changes</h3>


	<Location /adm/username><br />
	PerlAccessHandler Apache::lonacc<br />
	SetHandler perl-script<br />
	PerlHandler Apache::username<br />
	</Location><br />

	<LocationMatch "\.username$"><br />
	SetHandler perl-script<br />
	PerlHandler Apache::username<br />
	</LocationMatch><br />

	<h3>Example 1</h3>
<pre>	<pre>
package Apache::username;	package Apache::username;
use strict;	use strict;
Line 40 sub handler {	Line 58 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
<i>$r->print("The username handler is in use by $ENV{'user.name'}");</i>	<i>$r->print("The username handler is in use by $env{'user.name'}");</i>
return OK;	return OK;
}	}
1;	1;
Line 57 sub handler {	Line 75 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
<i>$r->print("The username handler is in use by $ENV{'user.name'} looking for "	<i>$r->print("The username handler is in use by $env{'user.name'} looking for "
.$r->uri."<br>");</i>	.$r->uri."<br>");</i>
<b>my $file=&Apache::lonnet::filelocation("",$r->uri);</b>	<b>my $file=&Apache::lonnet::filelocation("",$r->uri);</b>
<b>my $contents=&Apache::lonnet::getfile($file);</b>	<b>my $contents=&Apache::lonnet::getfile($file);</b>
Line 78 sub handler {	Line 96 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
$r->print("The username handler is in use by $ENV{'user.name'} looking for "	$r->print("The username handler is in use by $env{'user.name'} looking for "
.$r->uri."<br>");	.$r->uri."<br>");
my $file=&Apache::lonnet::filelocation("",$r->uri);	my $file=&Apache::lonnet::filelocation("",$r->uri);
my $contents=&Apache::lonnet::getfile($file);	my $contents=&Apache::lonnet::getfile($file);
Line 100 sub handler {	Line 118 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
$r->print("The username handler is in use by $ENV{'user.name'} looking for "	$r->print("The username handler is in use by $env{'user.name'} looking for "
.$r->uri."<br>");	.$r->uri."<br>");
my $file=&Apache::lonnet::filelocation("",$r->uri);	my $file=&Apache::lonnet::filelocation("",$r->uri);
my $contents=&Apache::lonnet::getfile($file);	my $contents=&Apache::lonnet::getfile($file);
Line 113 sub handler {	Line 131 sub handler {
} else {	} else {
$r->print("<br>Last time you said $hash{'info'}");	$r->print("<br>Last time you said $hash{'info'}");
}	}
if ($ENV{'form.info'}) {	if ($env{'form.info'}) {
$r->print("<br>Now you say $ENV{'form.info'}");	$r->print("<br>Now you say $env{'form.info'}");
$hash{'info'}=$ENV{'form.info'};	$hash{'info'}=$env{'form.info'};
&Apache::lonnet::put('username',%hash);	&Apache::lonnet::put('username',%hash);
}</b>	}</b>
return OK;	return OK;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.1
changed lines
	Added in v.1.4