X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCGI%2FUtil.pm;h=7c7b08f1f0a45b711482a8143ed347b193d9363d;hb=2ed511eccdb1c54a77a99ffd2e8b3d8cf558b45c;hp=e0e7a842283a0ab7982fe53ea1df9da3ea22d222;hpb=45e8908fe5b88f920ab544783f3013f36f56fd48;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/CGI/Util.pm b/lib/CGI/Util.pm
index e0e7a84..7c7b08f 100644
--- a/lib/CGI/Util.pm
+++ b/lib/CGI/Util.pm
@@ -4,9 +4,10 @@ use strict;
 use vars qw($VERSION @EXPORT_OK @ISA $EBCDIC @A2E @E2A);
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT_OK = qw(rearrange make_attributes unescape escape expires);
+@EXPORT_OK = qw(rearrange make_attributes unescape escape 
+		expires ebcdic2ascii ascii2ebcdic);
 
-$VERSION = '1.31';
+$VERSION = '1.3';
 
 $EBCDIC = "\t" ne "\011";
 if ($EBCDIC) {
@@ -268,6 +269,18 @@ sub expire_calc {
     return (time+$offset);
 }
 
+sub ebcdic2ascii {
+  my $data = shift;
+  $data =~ s/(.)/chr $E2A[ord($1)]/ge;
+  $data;
+}
+
+sub ascii2ebcdic {
+  my $data = shift;
+  $data =~ s/(.)/chr $A2E[ord($1)]/ge;
+  $data;
+}
+
 1;
 
 __END__