loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.445, 2006/08/17 22:35:52	version 1.446, 2006/08/18 20:24:54
Line 5921 sub lonhttpdurl {	Line 5921 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();