Re^2: Automated DNS Update Solution Needed

[PodMaster]

The only thing it doesn't do (as far as I know) is give you the value of a filled in textarea field.

Sure it does, demonstration (note q=test)
C:\> perl -MWWW::Mechanize::Shell -e shell
Module File::Modified not found. Automatic reloading disabled.
>get http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search
Retrieving http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search(200)
http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search>
http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search>forms
Form [1]
GET http://www.google.com/search [gs]
 num=100                        (hidden readonly)
 hl=en                          (hidden readonly)
 lr=                            (hidden readonly)
 q=test                         (text)
 btnG=Search                    (submit)
Form [2]
GET http://www.google.com/search
 q=test                         (text)
 btnG=Search                    (submit)
 num=100                        (hidden readonly)
 hl=en                          (hidden readonly)
 lr=                            (hidden readonly)
http://www.google.com/search?hl=en&num=100&ie=UTF-8&oe=UTF-8&q=test&btnG=Google+Search>

[Hero Zzyzzx]

That's an <input type="text" name="q">, not a <textarea name="q"></textarea>, on googles homepage, right?

[PodMaster]

Heh, yeah, sorry about that. Still, Mechanize does deal with it, actual demonstration this time :)

C:\>perl -MWWW::Mechanize::Shell -e shell
Module File::Modified not found. Automatic reloading disabled.
>get http://babelfish.altavista.com/
Retrieving http://babelfish.altavista.com/(200)
http://babelfish.altavista.com/>form 1
POST http://babelfish.altavista.com/tr [frmTrText]
 doit=done                      (hidden readonly)
 intl=1                         (hidden readonly)
 tt=urltext                     (hidden readonly)
 trtext=                        (textarea)
 lp=                            (option)   [*/Select from and to languages|zh_en/Chinese-simp to English|zt_en/Chinese-trad to English|en_zh/English
to Chinese-simp|en_zt/English to Chinese-trad|en_nl/English to Dutch|en_fr/English to French|en_de/English to German|en_el/English to Greek|en_it/Engl
ish to Italian|en_ja/English to Japanese|en_ko/English to Korean|en_pt/English to Portuguese|en_ru/English to Russian|en_es/English to Spanish|nl_en/D
utch to English|nl_fr/Dutch to French|fr_en/French to English|fr_de/French to German|fr_el/French to Greek|fr_it/French to Italian|fr_pt/French to Por
tuguese|fr_nl/French to Dutch|fr_es/French to Spanish|de_en/German to English|de_fr/German to French|el_en/Greek to English|el_fr/Greek to French|it_e
n/Italian to English|it_fr/Italian to French|ja_en/Japanese to English|ko_en/Korean to English|pt_en/Portuguese to English|pt_fr/Portuguese to French|
ru_en/Russian to English|es_en/Spanish to English|es_fr/Spanish to French]
 <NONAME>=Translate             (submit)
http://babelfish.altavista.com/>value lp en_nl
http://babelfish.altavista.com/>value trtext I am Bob.
http://babelfish.altavista.com/>
http://babelfish.altavista.com/>submit
200
http://babelfish.altavista.com/tr>forms
Form [1]
GET http://www.altavista.com/web/results
 q=Ik ben Loodje.               (hidden readonly)
 kls=0                          (hidden readonly)
 ienc=utf8                      (hidden readonly)
 search=Search the web with this text (submit)
Form [2]
POST http://babelfish.altavista.com/tr [frmTrText]
 doit=done                      (hidden readonly)
 intl=1                         (hidden readonly)
 tt=urltext                     (hidden readonly)
 trtext=I am Bob.               (textarea)
 lp=en_nl                       (option)   [zh_en/Chinese-simp to English|zt_en/Chinese-trad to English|en_zh/English to Chinese-simp|en_zt/English t
o Chinese-trad|*en_nl/English to Dutch|en_fr/English to French|en_de/English to German|en_el/English to Greek|en_it/English to Italian|en_ja/English t
o Japanese|en_ko/English to Korean|en_pt/English to Portuguese|en_ru/English to Russian|en_es/English to Spanish|nl_en/Dutch to English|nl_fr/Dutch to
French|fr_nl/French to Dutch|fr_en/French to English|fr_de/French to German|fr_el/French to Greek|fr_it/French to Italian|fr_pt/French to Portuguese|
fr_es/French to Spanish|de_en/German to English|de_fr/German to French|el_en/Greek to English|el_fr/Greek to French|it_en/Italian to English|it_fr/Ita
lian to French|ja_en/Japanese to English|ko_en/Korean to English|pt_en/Portuguese to English|pt_fr/Portuguese to French|ru_en/Russian to English|es_en
/Spanish to English|es_fr/Spanish to French]
 <NONAME>=Translate             (submit)
http://babelfish.altavista.com/tr>