loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.455, 2006/09/13 21:43:25	version 1.456, 2006/09/19 19:03:22
Line 5951 sub lonhttpdurl {	Line 5951 sub lonhttpdurl {
return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;	return 'http://'.$ENV{'SERVER_NAME'}.':'.$lonhttpd_port.$url;
}	}

sub absolute_url {
my ($host_name) = @_;
my $protocol = ($ENV{'SERVER_PORT'} == 443?'https://':'http://');
if ($host_name eq '') {
$host_name = $ENV{'SERVER_NAME'};
}
return $protocol.$host_name;
}

sub connection_aborted {	sub connection_aborted {
my ($r)=@_;	my ($r)=@_;
$r->print(" ");$r->rflush();	$r->print(" ");$r->rflush();