[ic] posttourl.tag
Grant
listbox at email.com
Wed Aug 27 18:17:42 EDT 2003
Marc posted the posttourl.tag on the list for me. I modified it and
subsequently couldn't get IC to restart without complaining about the tag.
I then tried to use the tag just how it was posted and I get a different
error at restart:
Calling UI...Warning while compiling UserTag 'posttourl':
Useless use of a constant in void context at (eval 74) line 18,
<SYSTAG> line 26.
Useless use of a constant in void context at (eval 74) line 19, <SYSTAG>
line 26.
Useless use of a constant in void context at (eval 74) line 20, <SYSTAG>
line 26.
In line 26 of the configuration file
'/store/ic493/code/UserTag/posttourl.tag':
I'm stumped since I get this error with an unmodified tag. Can anyone else
restart with the tag without any errors? Here's the tag:
Usertag posttourl Order url params
Usertag posttourl Interpolate 1
Usertag posttourl Routine <<EOR
sub {
require HTTP::Request;
require HTTP::Headers;
require LWP::UserAgent; # SSL cabable if Crypt::SSLeay installed
my $url=shift; my $params=shift;
$ENV{'HTTPS_VERSION'} = '3';
$ENV{'HTTPS_CERT_FILE'}='xxx.pem';
$ENV{'HTTPS_KEY_FILE'}='xxx.key';
my $page="";
my $request=new HTTP::Request 'POST' => $url;
$request->content_type('application/x-www-form-urlencoded');
$request->content($params);
$request->content_length(length($params));
my $ua=LWP::UserAgent->new;
my $response = $ua->request($request);
$page.=$response->as_string,"\n\n\n";
$page.=$response->code,"\n";
$page.=$response->message,"\n";
return $page;
}
EOR
- Grant
More information about the interchange-users
mailing list