Re: Telia ADSL

[Gustaf Erikson <gustafe@home.se>]

Eric Bäckhage <backhage@home.se> writes:

> Qba.linuxsweden.nu har ett litet program som heter qADSL som kanske
> kan vara till nytta för Er som sitter med Telia ADSL. Jag har inte
> prövat det själv eftersom jag inte har fått mitt ADSL modem ännu men
> om någon är intresserad så är länken http://qba.linuxsweden.nu/
> . Skulle vara roligt om någon prövade det så jag vet om det är något
> att ha när jag själv får ADSL.
> 
> Eric

Jag använder följande tcl-skript, postat till telia.internet.medunix
av Mattias Busck <m@hulken.busnet.se>. Funkar utmärkt.

--skriptet (comhemlogin.tcl)--

 #!/bin/sh
 # the next line restarts using tclsh \
 exec tclsh "$0" "$@"

 # Sends username and password to Comhem Cable login page
 # Absolutely no error-checking!
 # Works today, may or may not work tomorrow...

 package require http

 set username -mitt användarnamn-
 set password -mitt lösenord-

 set initUrl "http://login1.telia.com/sd/init";
 set postUrl "http://login1.telia.com/sd/login";
 set outUrl "http://login1.telia.com/sd/logout";
 set loginQueryMsg [ http::formatQuery username \
                   $username password $password submitForm "Logga+in" ]
 set logoutQueryMsg [ http::formatQuery submitForm "Logga+ut" ]

 if {$argc == 1 && [lindex $argv 0] == "login"} {
     # We need to load the init-page first
     http::geturl $initUrl
     # POST the username & password to the "Logga in" form
     http::geturl $postUrl -query $loginQueryMsg
 } elseif {$argc == 1 && [lindex $argv 0] == "logout"} {
     http::geturl $outUrl -query $logoutQueryMsg
 } else {
     puts "Usage: comhemlogin.tcl { login | logout }"
     exit -1
 }

--skriptet slut--


-- 
Gustaf Erikson -*- +46 70 444 0726 -*- [http://stureby.net/]

"I use pen and paper, like a Christian"
        -- Patrick O'Brian, on his choice of word processor.