Mailing List Archive

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@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org