PERL Modules - lwp post question

Author

lwp post question

John Miller

2004-07-15, 3:56 pm

Greetings,

I am using the LWP module to set (no success, so far) parameters in a 3com
SuperStack 3 switch.

The script runs with no errors but the parameter does not get set to a new
value.

--------------- script follows -----------------

use LWP;
use strict;

my $url02 = 'http://172.31.129.241/dev01/conf/Advanced_Stack_Setup_.rhtm';

my $ua = LWP::UserAgent->new;
$ua->credentials ( '172.31.129.241:80',
'device',
'admin' => 'testswitch' );
my $res = $ua->post ( $url02, [ 'pace' => '3', 'verb' => 'Apply' ] );
die "$url02 error ", $res->status_line unless $res->is_success;

print "\n status line: ", $res->status_line;
print "\ncontent type: ", $res->content_type, "\n";
-------------- script precedes ----------------

----- page/values I'm trying to "post" follows ---------------

<HTML><BODY BGCOLOR=#ffffff>
<TABLE WIDTH=520><TR><TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE=2><A
HREF="/dev01/conf/VLANs_.rhtm" TARGET="body">VLANs</A> | <A
HREF="/dev01/conf/Switch_Database_.rhtm" TARGET="body">Switch Database</A> |
<A HREF="/dev01/conf/Software_Upgrade_.rhtm" TARGET="body">Software
Upgrade</A> | <A HREF="/dev01/conf/Roving_Analysis_Port_.rhtm"
TARGET="body">Roving Analysis Port</A> | <A
HREF="/dev01/conf/Resilient_Links_.rhtm" TARGET="body">Resilient Links</A> |
<A HREF="/dev01/conf/Reset_.rhtm" TARGET="body">Reset</A> | <A
HREF="/dev01/conf/Port_Trunks_.rhtm" TARGET="body">Port Trunks</A> | <A
HREF="/dev01/conf/Initialize_.rhtm" TARGET="body">Initialize</A> |
<STRONG>Advanced Stack Setup</STRONG></FONT></TD></TR></TABLE><HTML>
<HEAD>
<TITLE>
</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff"><FORM
ACTION="/dev01/conf/Advanced_Stack_Setup_.rhtm?+" METHOD="post"><TABLE
WIDTH="520" BORDER="0" CELLSPACING="0" CELLPADDING="5"
BGCOLOR="#c0c0c0"><TR><TD BGCOLOR="#00008C"><FONT
FACE="Arial,Helvetica,sans-serif" SIZE=2 COLOR="#FFFFFF">Advanced Stack
Setup </FONT></TD></TR><TR><TD BGCOLOR="#c0c0c0"><TABLE WIDTH=100% BORDER=0
CELLSPACING=0 CELLPADDING=0><TR>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>PACE:
</B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><SELECT
NAME="pace" SIZE="1">
<OPTION VALUE="2" SELECTED>Disabled
<OPTION VALUE="3">Enabled
</SELECT>
</FONT></TD>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>FastIP:
</B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><SELECT
NAME="fastip" SIZE="1">
<OPTION VALUE="1">Enabled
<OPTION VALUE="2" SELECTED>Disabled
</SELECT>
</FONT></TD>
</TR>
<INPUT TYPE=hidden NAME=oldfastip VALUE=2><TR>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>Forwarding Mode:
</B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><SELECT
NAME="fwdmode" SIZE="1">
<OPTION VALUE="1">Fast Forward
<OPTION VALUE="2">Fragment Free
<OPTION VALUE="3">Store and Forward
<OPTION VALUE="4" SELECTED>Intelligent
</SELECT>
</FONT></TD>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>802.1Q VLAN
Learning: </B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif"
SIZE="2"><SELECT NAME="gvrp" SIZE="1">
<OPTION VALUE="1">Enabled
<OPTION VALUE="2" SELECTED>Disabled
</SELECT>
</FONT></TD>
</TR>
<TR>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>Spanning Tree:
</B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><SELECT
NAME="spt" SIZE="1">
<OPTION VALUE="0" SELECTED>Disabled
<OPTION VALUE="1">Enabled
</SELECT>
</FONT></TD>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>802.1p Multicast
Learning: </B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif"
SIZE="2"><SELECT NAME="gmrp" SIZE="1">
<OPTION VALUE="1" SELECTED>Enabled
<OPTION VALUE="2">Disabled
</SELECT>
</FONT></TD>
</TR>
<TR>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>Broadcast Storm
Control: </B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif"
SIZE="2"><SELECT NAME="bsc" SIZE="1">
<OPTION VALUE="0">Disabled
<OPTION VALUE="1" SELECTED>Enabled
</SELECT>
</FONT></TD>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>IGMP Multicast
Learning: </B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif"
SIZE="2"><SELECT NAME="igmp" SIZE="1">
<OPTION VALUE="1" SELECTED>Enabled
<OPTION VALUE="2">Disabled
</SELECT>
</FONT></TD>
</TR>
<TR>
<TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><B>Ageing time (Secs):
</B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif" SIZE="2"><INPUT
TYPE=TEXT NAME=ageingtime SIZE=12 MAXLENGTH=12 VALUE=1800></FONT></TD>
<TD><FONT FACE="Arial,Helvetica,sans-serif"
SIZE="2"><B></B></FONT></TD><TD><FONT FACE="Arial,Helvetica,sans-serif"
SIZE="2"></FONT></TD>
</TR>
</TABLE></TD></TR><TR><TD ALIGN="right"><HR><INPUT TYPE="submit"
VALUE="Apply"></TD></TR></TABLE></FORM></BODY></HTML>

Reinhard Pagitsch

2004-07-20, 3:56 pm

Hello John,

John Miller wrote:
> Greetings,
>
> I am using the LWP module to set (no success, so far) parameters in a 3com
> SuperStack 3 switch.
>
> The script runs with no errors but the parameter does not get set to a new
> value.
>
> --------------- script follows -----------------
>
> use LWP;
> use strict;
>
> my $url02 = 'http://172.31.129.241/dev01/conf/Advanced_Stack_Setup_.rhtm';
>
> my $ua = LWP::UserAgent->new;
> $ua->credentials ( '172.31.129.241:80',
> 'device',
> 'admin' => 'testswitch' );
> my $res = $ua->post ( $url02, [ 'pace' => '3', 'verb' => 'Apply' ] );
> die "$url02 error ", $res->status_line unless $res->is_success;
>
> print "\n status line: ", $res->status_line;
> print "\ncontent type: ", $res->content_type, "\n";
> -------------- script precedes ----------------
>
> ----- page/values I'm trying to "post" follows ---------------
[ snip ]

For the POST methode I use:
$myurl = "http://10.1.6.11/exe/getidmo.sh?";
(getidmo.sh is a CGI script)
$response = $ua->request(POST $myurl, [
$Indexs=>$ID,
ORDERBY=>'NOORDER',
PATH=>$path,
HITS=>'10',
COUNT=>'0',
]
);
and not $ua->post.
In your case $myurl have to be:
$myurl= "http://1.1.1.1/dev01/conf/Advanced_Stack_Setup_.rhtm?"
But in my example there will not be a submit button "pressed".
I think the parameters for the CGI script have to pass directly to the
server.
I think you have to pass all parameters which are can be in the form to
the $ua->request(..);

mit freundlichen Grüßen,
with my best regards,
Reinhard

--
QA
ISIS Information Systems
Austria tel: (+43) 2236 27551 150 Fax: 2236 21081
Visit our web site http://www.isis-papyrus.com

Sponsored Links