See comments inserted below...
On Sunday, 2003-10-05 at 10:34:21 AM, Rory Campbell-Lange scribbled:
> I am running Kannel cvs-20030915.
>
> I have a perl script that sends messages and needs to send DLR and
> validity information.
>
> I would like to set this with an X-Kannel header, but it doesn't work,
> although I have verified that my script sends the headers to apache.
>
> Instead I have to put these items in the get url, which seems somewhat
> less elegant.
>
> Is this a known bug?
> Thanks,
> Rory
>
> --- perl code snippet ---
> my $dlr_url = uri_escape('http://localhost/cgi-bin/dlr.pl?row=$msgid&dlr=%d');
> $h->header('X-Kannel-DLR-Mask' => 7);
> $h->push_header('X-Kannel-DLR-URL' => $dlr_url);
> $h->push_header('X-Kannel-Validity' => 7200);
>
> # I have been using this to make it work:
> # my $dlr_url = '&validity=7200&dlr-mask=7&dlr-url=' .
> uri_escape('http://localhost/cgi-bin/dlr.pl?row=' . $msgid . '&dlr=%d');
> # $url = $url . $dlr_url;
>
> my $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 30,);
> my $request = HTTP::Request->new('GET', $url, $h);
Just checking... are you saying that...
my $request = HTTP::Request->new('POST', $url, $h);
##^^^^##
doesn't work?
> my $output = $ua->request($request);
> --- perl code snippet ---
>
> --- php test receipt ---
> [Connection] => Keep-Alive
> [Host] => localhost
> [Keep-Alive] => 300
> [User-Agent] => libwww-perl/5.69
> [X-Kannel-DLR-Mask] => 7
> [X-Kannel-DLR-URL] =>
> http%3A%2F%2Flocalhost%2Fcgi-bin%2Fdlr.pl%3Frow%3D%24msgid%26dlr%3D%25d
> [X-Kannel-Validity] => 7200
> --- php test receipt ---
>
>
>
>
> --
> Rory Campbell-Lange
> <[EMAIL PROTECTED]>
> <www.campbell-lange.net>
--
Benjamin Lee
Melbourne, Australia "Always real." http://www.realthought.net/
__________________________________________________________________________
Bus error -- please leave by the rear door.
