/usr/share/doc/tclcurl/examples/pop3.tcl is in tclcurl 7.22.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | package require TclCurl
set curlHandle [curl::init]
# This just checks the server for messages, if you want to download them
# you need: -url "pop3://pop3.telefonica.net:110/1", -url "pop3://pop3.telefonica.net:110/2", etc
$curlHandle configure -url "pop3://pop3.telefonica.net:110"
$curlHandle configure -username "fandom\$telefonica.net"
$curlHandle configure -password "XXXXXXXX"
$curlHandle configure -bodyvar recieved
$curlHandle configure -verbose 1
$curlHandle perform
$curlHandle cleanup
puts "Recieved:"
puts \n$recieved\n\n
|