loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2001/09/13 19:59:33	version 1.8, 2001/10/26 17:29:28
Line 8	Line 8
package Apache::loncommon;	package Apache::loncommon;

use strict;	use strict;
	use POSIX qw(strftime);
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonmsg();	use Apache::lonmsg();

Line 60 sub get_previous_attempt {	Line 61 sub get_previous_attempt {
}	}
}	}

	sub get_unprocessed_cgi {
	my ($query)= @_;
	map {
	my ($name, $value) = split(/=/,$_);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	if (!defined($ENV{'form.'.$name})) { $ENV{'form.'.$name}=$value; }
	} (split(/&/,$query));
	}

	sub cacheheader {
	my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime);
	my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" />
	<meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" />
	<meta HTTP-EQUIV="Pragma" CONTENT="no-cache" />';
	return $output;
	}

1;	1;
__END__;	__END__;