loncom/cgi/loncgi.pm - diff

Return to loncgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.6, 2006/04/10 17:46:04	version 1.7, 2006/05/18 14:24:06
Line 53 use strict;	Line 53 use strict;
use warnings FATAL=>'all';	use warnings FATAL=>'all';
no warnings 'uninitialized';	no warnings 'uninitialized';

	use lib '/home/httpd/lib/perl/';
use CGI();	use CGI();
use CGI::Cookie();	use CGI::Cookie();
use Fcntl qw(:flock);	use Fcntl qw(:flock);
	use LONCAPA;
use LONCAPA::Configuration();	use LONCAPA::Configuration();

my $lonidsdir;	my $lonidsdir;
Line 162 sub transfer_profile_to_env {	Line 164 sub transfer_profile_to_env {
#############################################	#############################################
#############################################	#############################################

sub escape {
my $str=shift;
$str =~ s/(\W)/"%".unpack('H2',$1)/eg;
return $str;
}

# ----------------------------------------------------- Un-Escape Special Chars

sub unescape {
my $str=shift;
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
return $str;
}


=pod	=pod