home *** CD-ROM | disk | FTP | other *** search
/ Java Developer's Companion / Java Developer's Companion.iso / documentation / tutorial / networking / urls / example / backwards next >
Encoding:
Text File  |  1997-07-13  |  1.3 KB  |  35 lines
  1. /*
  2.  * Copyright (c) 1995-1997 Sun Microsystems, Inc. All Rights Reserved.
  3.  *
  4.  * Permission to use, copy, modify, and distribute this software
  5.  * and its documentation for NON-COMMERCIAL purposes and without
  6.  * fee is hereby granted provided that this copyright notice
  7.  * appears in all copies. Please refer to the file "copyright.html"
  8.  * for further important copyright and licensing information.
  9.  *
  10.  * SUN MAKES NO REPRESENTATIONS OR WARRANTIES ABOUT THE SUITABILITY OF
  11.  * THE SOFTWARE, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
  12.  * TO THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
  13.  * PARTICULAR PURPOSE, OR NON-INFRINGEMENT. SUN SHALL NOT BE LIABLE FOR
  14.  * ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR
  15.  * DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES.
  16.  */
  17. #!/opt/internet/bin/perl
  18. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  19. @pairs = split(/&/, $buffer);
  20. foreach $pair (@pairs)
  21. {
  22.     ($name, $value) = split(/=/, $pair);
  23.     $value =~ tr/+/ /;
  24.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  25.     # Stop people from using subshells to execute commands
  26.     $value =~ s/~!/ ~!/g; 
  27.     $FORM{$name} = $value;
  28. }
  29.  
  30. print "Content-type: text/plain\n\n";
  31. print "$FORM{'string'} reversed is: ";
  32. $foo=reverse($FORM{'string'});
  33. print "$foo\n";
  34. exit 0;
  35.