Loading ...
Sorry, an error occurred while loading the content.

[patch]adding url var separator support

Expand Messages
  • Laszlo Zavaleta
    hey. i wanted to use Apache::ASP::Server s URL() method to roll my URLs by specifying the variable/value pairs, but noticed that it didn t have support for the
    Message 1 of 1 , Jul 21 5:24 PM
    • 0 Attachment
      hey.
      i wanted to use Apache::ASP::Server's URL() method to roll my URLs by
      specifying the variable/value pairs, but noticed that it didn't have
      support for the semicolon (;) field-separator, only the ampersand (&)
      is currently supported, so i added support for it.
      the way the use changes is simply that now you may add an extra
      variable to specify your field-separator, otherwise the default will
      still be the ampersand (&).
      thus instead of,

      $Server->URL($url, \%params)

      now you can do

      $Server->URL($url, \%params, ';')

      to get your URL returned to you with the variable/value pairs
      separated by a semicolon (;).

      by the way, Apache::ASP rocks, so huge thanks to all of you that have
      contributed to it by now, ive only been using it for a few months, but
      so far ive had little trouble with it and they all turned out to be my
      own fault as well :)

      it is my very first patch, so i apologise if it isnt in the form it
      should be. the patch was generated with 'diff -Naur'.

      --- /usr/lib/perl5/site_perl/5.8.4/Apache/ASP/Server.pm.orig 2005-06-25 11:24:52.000000000 +1000
      +++ /usr/lib/perl5/site_perl/5.8.4/Apache/ASP/Server.pm 2005-06-25 11:10:03.000000000 +1000
      @@ -135,8 +135,9 @@
      }

      sub URL {
      - my($self, $url, $params) = @_;
      + my($self, $url, $params, $fs) = @_;
      $params ||= {};
      + $fs ||= "&";

      if($url =~ s/\?(.*)$//is) {
      my $old_params = $self->{asp}{Request}->ParseParams($1);
      @@ -175,7 +176,7 @@
      }
      }
      if(@query) {
      - $url .= '?'.join('&', @query);
      + $url .= '?'.join($fs, @query);
      }

      $url;

      --
      Geeveston, 21/2300[UTC]: Cloudy; 14 ( 1/ 15);
      Gero arte.

      ---------------------------------------------------------------------
      To unsubscribe, e-mail: asp-unsubscribe@...
      For additional commands, e-mail: asp-help@...
    Your message has been successfully submitted and would be delivered to recipients shortly.