2 $INTERNAL{hash} = shift;
3 $INTERNAL{saves} = $INTERNAL{q} . (join $INTERNAL{q}, @_) . $INTERNAL{q};
4 # $INTERNAL{human} = join ',', @_;
5 # print "<!-- $INTERNAL{hash}: $INTERNAL{human} -->";
6 for (keys %{$INTERNAL{hash}}){
7 print qq{<input type=hidden name="$_" value="${$INTERNAL{hash}}{$_}">}
8 unless $INTERNAL{saves} =~ /$INTERNAL{q}$_$INTERNAL{q}/;
13 $_[0] =~ s/^.*?\n\n//;
20 $_[0] =~ s/\"/"/g;
24 $_[0] =~ s/\n/<br>\n/g;
27 $_[0] =~ s/\t/' ' x $_[4]/eg;
30 $_[0] =~ s/ / /g;
37 $t =~ tr{+} { } unless ($_[1] == 1);
38 $t =~ s{%([0-9A-Fa-f]{2})}
39 {pack('c',hex($1))}ge;
45 $t =~ s{([^a-zA-Z0-9_\-.])}
46 {uc sprintf("%%%02x",ord($1))}ge;
47 $t =~ s{%20}{+}g if ($_[1] == 1);
52 if ($header{'set-cookie'}){
53 $header{'set-cookie'} .= "\nset-cookie: $_[0]";
55 $header{'set-cookie'} = $_[0];
61 open (READFILE, $_[0]);
69 open (WRITEFILE, ">$_[0]");
71 print WRITEFILE $_[1];