diff options
| author | ivan <ivan> | 2006-07-04 01:18:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-07-04 01:18:33 +0000 |
| commit | d177cda5d1f99f5c163ee62861613bc02290d84f (patch) | |
| tree | fab2d3b7c0e33c093acddc2cee6693c71af10783 /lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm | |
initial importSTART
Diffstat (limited to 'lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm')
| -rw-r--r-- | lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm b/lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm new file mode 100644 index 0000000..556b557 --- /dev/null +++ b/lib/Business/OnlinePayment/PPIPayMover/URLEncoder.pm @@ -0,0 +1,14 @@ +package Business::OnlinePayment::PPIPayMover::URLEncoder;
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(Encode);
+
+1;
+
+sub Encode {
+ #my $self = shift;
+ my $value = shift;
+
+ $value =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
+ return $value;
+}
|