http://www.perlmonks.org?node_id=416612


in reply to Re^2: Automated DNS Update Solution Needed
in thread Automated DNS Update Solution Needed

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

-Any sufficiently advanced technology is
indistinguishable from doubletalk.

My Biz

Replies are listed 'Best First'.
Re^4: Automated DNS Update Solution Needed
by PodMaster (Abbot) on Dec 22, 2004 at 07:19 UTC
    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>

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]

In Section Seekers of Perl Wisdom