Chvilku jsme to zkouseli, ale pouziva to jeste nejake sessions, takze se nezadarilo. Nerikam, ze to nejde, jen casu nebylo moc. Vim, ze loni pri testovacim provozu se podobnym scriptikem nekdo nekde chlubil, takze pokud to technicky lze i ted, urcite se brzy opet pochlubi :)
neni nad curl
logon:
/usr/local/bin/curl -dusername=jmeno -dpassword=heslo -dsubmitButton=OK "http://172.16.255.6/serviceLogon/home?service=sluzba" -s -L >/var/log/adsl.logon
logout:
/usr/local/bin/curl -dconfirmed=true -dsubmitButton=OK "http://172.16.255.6/serviceStop/home?service=sluzba" -s -L >/var/log/adsl.logout
sluzba ... napr. 220003-Basic pro Nextra ADSL Basic
Přihlášování využívá HTTP-POST metodu. Stačí tedy jakýkoli nástroj, který umí utevřít URL a poslat pomocí POST údaje s jménem, heslem a typem služby
Já používám následující skript (vyžaduje knihovnu scotty z http://wwwhome.cs.utwente.nl/~schoenw/scotty/), ale zcela jistě by šlo použít Perl nebo poslední beta verzi wget.
#!/usr/bin/tclsh
package require http
set jmeno _vase_jmeno
set heslo _vase_heslo
set sluzba 220003-Basic
set prm [http::formatQuery username $jmeno password $heslo service $sluzba]
http::geturl http://172.16.255.6/serviceLogon -query $prm