set config ~/.pop3line
 if {[file exists $config]} {
    source $config
 } else {
    set fd [open $config w]
    file attributes $config -permissions 0600
    puts $fd "# Die T-Online E-Mail Adresse, von der die Mails geholt werden."
    puts $fd "set login {@t-online.de}"
    puts $fd ""
    puts $fd "# Das Passwort fuer den T-Online Webmailer."
    puts $fd "set password {mysecret}"
    puts $fd ""
    puts $fd "# Der SMTP-Server, Ueber den die Mails weitergeschickt werden."
    puts $fd "set smtpserver localhost"
    puts $fd ""
    puts $fd "# Der Benutzer, an den die Mails weitergeschickt werden."
    puts $fd "set recipient $tcl_platform(user)"
    puts $fd ""
    puts $fd "# Sollen die Emails nach dem Abholen"
    puts $fd "# geloescht werden (1) oder nicht (0)?"
    puts $fd "set delete 1"

    close $fd
    puts "Created configuration file: $config ."
    puts "Please edit and run me again."
    exit 1
 } 

 package require http
 package require tls
 package require mime
 package require smtp

 http::register https 443 ::tls::socket

 proc formail data {
    set next -1
    puts -nonewline stderr "Passing emails " 
    while 42 {
        set start [string first \n $data [expr {$next + 1}]]
        incr start
        set next [string first "\nFrom " $data $start]
        set end [expr {($next == -1) ? "end" : ($next - 1)}]
        set mail [string range $data $start $end]
        set T [mime::initialize -string $mail]
        set cmd [list smtp::sendmessage $T -queue 1 \
                     -servers $::smtpserver -recipients $::recipient]
        foreach {key value} [mime::getheader $T] {
            mime::setheader $T $key "" -mode delete
            foreach item $value {
                lappend cmd -header [list $key $item]
            }
        }
        eval $cmd
        mime::finalize $T
        puts -nonewline stderr .
        if {$next == -1} break
    }
    puts stderr ""
 }

 proc debug {descr string} {
    # puts stderr "===> $descr: $string"
 }

 proc main {} {

    set error 0
    set BASE https://modem.webmail.t-online.de

    # login and redirect
    debug URL $BASE/index.cgp
    set token [http::geturl $BASE/index.cgp]
    debug STATUS [http::status $token]
    set data [http::data $token]
    debug DATA $data
    http::cleanup $token

    regexp {name="sessionid" value="([^\"]*)">} $data -> id
    regexp {input type="text" name='([^']*)'} $data -> logfield
    regexp {input type="password" name='([^']*)'} $data -> passfield
    debug SID $id
    debug NAME $logfield
    debug PASS $passfield
    set query [http::formatQuery js 0 \
                   sessionid $id \
                   $logfield $::login \
                   $passfield $::password]

    # message overview
    debug URL $BASE/main.cgp
    debug QUERY $query
    set token [http::geturl $BASE/main.cgp -query $query]
    debug STATUS [http::status $token]
    set data [http::data $token]
    debug DATA $data
    http::cleanup $token

    # Redefine BASE according to the current session
    regexp {<A HREF="([^\"]+)/main.cgp">} $data -> BASE

    # find the emails
    set RE {name="(MAIL[^\"]*)" value="([^\"]*)">}
    set query ""
    while 42 {
        debug URL $BASE/main.cgp
        debug QUERY $query
        set token [http::geturl $BASE/main.cgp -query $query]
        debug STATUS [http::status $token]
        set data [http::data $token]
        debug DATA $data
        http::cleanup $token
        set mails [list]
        foreach {_ name value} [regexp -all -inline $RE $data] {
            lappend mails $name $value
        }
        set count [expr {[llength $mails]/2}]
        if {$count} {
            puts stderr "Downloading $count mail(s)."
        } else {
            puts stderr "No (more) mails to download!"
            break
        }
        set query [eval http::formatQuery Speichern.x 1 $mails]
        debug URL $BASE/mailfolder.txt
        debug QUERY $query
        set token [http::geturl $BASE/mailfolder.txt -query $query]
        debug STATUS [http::status $token]
        array set meta [set ${token}(meta)]
        set http  [set ${token}(http)]
        set ncode [http::ncode $token]
        set data  [http::data  $token]
        debug DATA $data
        http::cleanup $token
        if {$ncode == 200 && $meta(Content-Type) eq "x-download/rfc822"} {
            formail $data 
            if {$::delete} {
                lappend mails Loeschen.x 1
                set query [eval [linsert $mails 0 http::formatQuery]]
            } else break
        } else {
            puts stderr "$http"
            set error 1
            break
        }
    }
    exit $error
 }
 main