loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

-version 1.12, 2005/08/25 19:43:40
+version 1.12.2.1, 2006/06/02 21:39:02
  Line 101  sub main {
  	    while (my $line=<$fh>) {
  		chomp($line);
  		my ($name,$value)=split(/\=/,$line);
+ 		$name = &unescape($name);
+ 		$value = &unescape($value);
  		$userinfo{$name}=$value;
  	    }
  	    $fh->close();
- Line 209  sub showact {
+ Line 211  sub showact {
      print("</tr></table>\n");
  }
+ # -------------------------------------------------------- Escape Special Chars
+ 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;
+ }