RE: LWP HTTP::Request Post

BAZLEY Sebastian (Sebastian.BAZLEY@sema.co.uk)
Fri, 14 May 1999 10:23:48 +0100 

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01BE9DEC.1D1F2298
Content-Type: text/plain;
	charset="iso-8859-1"

I have found webchatpp (author: Gisle Aas) very helpful, both for producing
test scripts, and for understanding how to use LWP.

You may be able to code the whole lot in WC format; if not, have a look at
the output PL file produced by webchatpp to see how it can be done.

Sample WC script (from the documentation):

# sample.wc
GET http://www.altavista.com
EXPECT OK
F q=Gisle
CLICK
EXPECT OK && /Gisle Aas/

On unix, this can be run as follows:

webchatpp sample.wc | perl

-- 
Sebastian Bazley <Sebastian.Bazley@sema.co.uk>
The opinions expressed herein are not necessarily the same as those of my
employer ...


> -----Original Message-----
> From: Nick Brown [mailto:valhalla@scriptingcrypt.com]
> Sent: 14 May 1999 00:59
> To: libwww-perl@ics.uci.edu
> Subject: LWP HTTP::Request Post
> 
> 
> Ok heres the deal, i'm working on a script that should 
> automate the task of
> filling out the form below every hour. I cannot get the 
> HTTP::Request to do
> the post... if someone could paste a snippet of code that 
> would work for it
> i would much appreciate it.
> 
> <FORM METHOD=POST ACTION="military.cgi?rc=853502">
> <INPUT TYPE=TEXT SIZE=5 NAME=DraftAmt>
> <INPUT TYPE=SUBMIT NAME=RunDraft VALUE="Draft Your Peasants">
> </FORM>
> 
> The code i am using is:
> 
> sub draft {
>   use LWP::UserAgent;
>   $ua = new LWP::UserAgent;
>   $ua->agent("$0/0.1 " . $ua->agent);
>   $ua->agent("new&improved");
> 
>   $req = new HTTP::Request 'POST' =>
> 'http://utopia-one.eesite.com/military.cgi?rc=85302';
>   $req->content_type('application/x-www-form-urlencoded');
>   $req->content('DraftAmt=999999');
> 
>   # send request
>   $res = $ua->request($req);
> }
> 
> 
> Thanks in advance, BTW the above does not work.
> 


___________________________________________________________________________
This email is confidential and intended solely for the use of the 
individual to whom it is addressed. Any views or opinions presented are 
solely those of the author and do not necessarily represent those of 
Sema Group. 
If you are not the intended recipient, be advised that you have received this
email in error and that any use, dissemination, forwarding, printing, or 
copying of this email is strictly prohibited.

If you have received this email in error please notify the Sema Group
Helpdesk by telephone on +44 (0) 121 627 5600.
___________________________________________________________________________

------_=_NextPart_000_01BE9DEC.1D1F2298
Content-Type: application/ms-tnef
Content-Transfer-Encoding: base64

eJ8+IhoJAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQSAAQAbAAAAUkU6IExXUCBIVFRQOjpSZXF1ZXN0IFBvc3QAZwgB
CYABACEAAAA2RUVGREJGQURCMDlEMzExOEVFRTAwQzA0RjdENTUwRgCKBwEggAMADgAAAM8HBQAO
AAoAHAAXAAUAKwEBBYADAA4AAADPBwUADgAKABcAMAAFAD8BAQ2ABAACAAAAAgACAAEDkAYADAsA
ADAAAAALAAIAAQAAAAsAKwAAAAAAAwAuAAAAAABAADkAgDw1eeudvgEeAHAAAQAAABcAAABMV1Ag
SFRUUDo6UmVxdWVzdCBQb3N0AAACAXEAAQAAABsAAAABvp2rz0INq2hVCYwR07FlAKDJzgDlAA+Z
jIAAAgEJEAEAAADHBQAAwwUAAPsIAABMWkZ1MZMXUgMACgByY3BnMTI14jIDQ3RleAVBAQMB9/8K
gAKkA+QHEwKAD/MAUARWPwhVB7IRJQ5RAwECAGNo4QrAc2V0MgYABsMRJfYzBEYTtzASLBEzCO8J
97Y7GB8OMDURIgxgYwBQswsJAWQzNhZQC6djATCIIEkgE+B2ZSACEIB1bmQgd2ViE9EAdHBwIChh
dXSiaAWwOiBHBABsHYAgQWFzKSAdcHJ5AR1AZWxwZnVsLF4gBuAe0B2RBcBwA2Bk0xrQC4BnIA6w
cwVABPT+cyCgAHAd4CESHcEEkCIQzyLRIbIe4AfgdG8jQBQQ4CBMV1AuCqIKhAqA2lkIYCAAwCAQ
Yh2AAaD/H2EkcQWgAQAh4CAwHfAe4I8fYRewBUALgCBXQyECiQDAdDsoMGYgbiDQyyCgHVNhJ/Fv
ayLABUCPJ2IIYB5gHsAgUEwdkP8DEB2AIVQJgCCwIBAeCCRx1xQQHYAkMmkFQGMDkSZh2mQCIGUl
GwYQbQtQHYA7KHEE9SgDUidTLnBjdZcHgAIwHlBpAiApOiUqZiMiMC+TLncA4CUzRwxFVB1AAkBw
Oi8v2nc0oC4HQAGQdgQAAZAKLgWgbSUkRVhQRRJDNBBPSyUkRiBxhj0fMyUkQ0xJQzaVQTYXICYm
IC8fNy/NJSpPA6AdwGl4IKAe0HsEAC32ch3AIsAEIAIQbDkXsHdzMhseCDMHIHzPIUAEkBgAJTkt
LQrjL2GPHhAfoDHAA5FCYXofYNUgEDxA1y5BdEAUEADAoTVxLnVrPiUkVCqi/nALgDHRBCAOwCFQ
B5AUEP8d4CAwGCAoQQrAHYApUSlA/wWQRSEKwAMQIBAnYjMBJnHXBCAe0SSxbykwbSAQQxDpC1Bv
eRKBLklAJSolJKw+IEBASrFPBRBnC4BnB0AF0EaiZ2VKs0o2RlsDYR8QTg3gKkBCA2B3nQOgWwDA
AxAkcDp2B0B7E+A8wGFC8AUDIbEFAHl7BTA1cl1KNgZgAjAfEDEmNAXQJjExOVGAIDDQMDo1OUo2
VE5AJ/BUaWI0oS0/QkAN4HM7Q3AhoC4JgAxwUDZ1Yg5qBZBQ0SThIEhUVMBQOjpSZXEKUCIR2lBI
EHRKNla+TypARYKbR9IuUWUHQCCgaScw0Pp3BbBrIbICICnhBPUe0P0qYXMe4CCAHeBKNh6xA3H3
DrAnUwGQcypASFBKNitx/1LQWfIrESdiKKImUTzRRND7H+QIYS4dIS4BRjJL4Cp0v0o2VZwkcS5w
SjYnYnBWgetJQSkScwNwZS6BJwFbYvcKsCIQKdJzAwAecGDxSFH/JxUqYUo2WaBbYlmiIQMt0LVK
NmlnpW0a0CDwYR5wPxggIaBcci3QJRVXGDxGGE9STQXQNABIT0RQPVBPUzQQQTZQSeBPTj0ibQMQ
LdAKwAZ5NXBLMD9yYz04wDUzNTAyIkOla9GQSU5QVTQQVFk2MIw9VDYQNBBTSVpwMAo1B7BBbFA9
RHJhHQGAQQ6gbw9wElNVQmxNSTQQcRNSHcBxYyDQVkFMVXAwInQkJeFdBcBQWRAzAAIwc275L/9s
AnHnUhcncScTaUAvkCSR7yGyBAAyFVcYc1TQLmB0M75cAABKRXvQJKVV0FUUEDxyQUvgAjAZMHt3
JHU9KfA9RmEH4HxPfVktPgNL0QIwKCIkMC8wsC4xICJJMH/5KX9fO4BkfjEmB3AhUR1wZCK3ghh9
ORggcX4FVZwnbML2J34AcecnNDVcMURggCDfLoIJ4ACQDrA1ci9tn26g/W7QJ30qhbGAMAWgAjAx
gcRfdE+gZSgnahFS0GMuADHCL3gtUwIooi3LCHAfYG4nEmQnghuMSvuNUHFmPVGBUYGPiXtoMuH/
CfAd4IWxViKFCwQgfhCAA+2T9SiFopJJfVa/d8cAcLZrBCBFwmROYI8gZSCg+EJUVydTAaCEES5h
B5EXRjJZomrtfZygAAMA/T9SAwAAHgBCEAEAAAA8AAAAPDMuMC42LjMyLjE5OTkwNTEzMTk1ODMx
LjAwN2M1NTMwQGltYWlsLnNjcmlwdGluZ2NyeXB0LmNvbT4AAwDeP69vAAALAACACCAGAAAAAADA
AAAAAAAARgAAAAADhQAAAAAAAAMACIAIIAYAAAAAAMAAAAAAAABGAAAAAFKFAADwEwAAHgAJgAgg
BgAAAAAAwAAAAAAAAEYAAAAAVIUAAAEAAAAEAAAAOC41AAsACoAIIAYAAAAAAMAAAAAAAABGAAAA
AAaFAAAAAAAAAwALgAggBgAAAAAAwAAAAAAAAEYAAAAAAYUAAAAAAAALABSACCAGAAAAAADAAAAA
AAAARgAAAAAOhQAAAAAAAAMAAoAIIAYAAAAAAMAAAAAAAABGAAAAABCFAAAAAAAAAwAVgAggBgAA
AAAAwAAAAAAAAEYAAAAAEYUAAAAAAAADABeACCAGAAAAAADAAAAAAAAARgAAAAAYhQAAAAAAAB4A
JoAIIAYAAAAAAMAAAAAAAABGAAAAADaFAAABAAAAAQAAAAAAAAAeACeACCAGAAAAAADAAAAAAAAA
RgAAAAA3hQAAAQAAAAEAAAAAAAAAHgAogAggBgAAAAAAwAAAAAAAAEYAAAAAOIUAAAEAAAABAAAA
AAAAAAsAM4ALIAYAAAAAAMAAAAAAAABGAAAAAACIAAAAAAAACwA1gAsgBgAAAAAAwAAAAAAAAEYA
AAAABYgAAAAAAAADACYAAAAAAAMANgAAAAAAHgAxQAEAAAANAAAAODgzUzcxRDVFRDE5AAAAAAMA
GkAAAAAAHgAwQAEAAAANAAAAODgzUzcxRDVFRDE5AAAAAAMAGUAAAAAAAwCAEP////8CAfk/AQAA
AFMAAAAAAAAA3KdAyMBCEBq0uQgAKy/hggEAAAAGAAAAL089U0VNQS9PVT1VS0xPTi9DTj1VS0xP
TiBNU01BSUwgVVNFUlMvQ049ODgzUzcxRDVFRDE5AAAeAPg/AQAAABEAAABCQVpMRVkgU2ViYXN0
aWFuAAAAAB4AOEABAAAADQAAADg4M1M3MUQ1RUQxOQAAAAACAfs/AQAAAFMAAAAAAAAA3KdAyMBC
EBq0uQgAKy/hggEAAAAGAAAAL089U0VNQS9PVT1VS0xPTi9DTj1VS0xPTiBNU01BSUwgVVNFUlMv
Q049ODgzUzcxRDVFRDE5AAAeAPo/AQAAABEAAABCQVpMRVkgU2ViYXN0aWFuAAAAAB4AOUABAAAA
DQAAADg4M1M3MUQ1RUQxOQAAAABAAAcwUOtzNeqdvgFAAAgwmCIfHeydvgEeAD0AAQAAAAUAAABS
RTogAAAAAB4AHQ4BAAAAFwAAAExXUCBIVFRQOjpSZXF1ZXN0IFBvc3QAAAsAKQAAAAAACwAjAAAA
AAADAAYQKnYNyAMABxArBQAAAwAQEAAAAAADABEQAgAAAB4ACBABAAAAZQAAAElIQVZFRk9VTkRX
RUJDSEFUUFAoQVVUSE9SOkdJU0xFQUFTKVZFUllIRUxQRlVMLEJPVEhGT1JQUk9EVUNJTkdURVNU
U0NSSVBUUyxBTkRGT1JVTkRFUlNUQU5ESU5HSE9XVE8AAAAA3q4=

------_=_NextPart_000_01BE9DEC.1D1F2298--