vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/lib/perl5/auto/Net/SSLeay/make_form.al

   1 # NOTE: Derived from blib/lib/Net/SSLeay.pm.
   2 # Changes made here will be lost when autosplit is run again.
   3 # See AutoSplit.pm.
   4 package Net::SSLeay;
   5
   6 #line 2450 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/make_form.al)"
   7 ###
   8 ### Easy https manipulation routines
   9 ###
  10
  11 sub make_form {
  12     my (@fields) = @_;
  13     my $form;
  14     while (@fields) {
  15         my ($name, $data) = (shift(@fields), shift(@fields));
  16         $data =~ s/([^\w\-.\@\$ ])/sprintf("%%%2.2x",ord($1))/gse;
  17         $data =~ tr[ ][+];
  18         $form .= "$name=$data&";
  19     }
  20     chop $form;
  21     return $form;
  22 }
  23
  24 # end of Net::SSLeay::make_form
  25 1;