aboutsummaryrefslogtreecommitdiffstats
path: root/fetchmail-SA-2006-02.txt
Commit message (Collapse)AuthorAgeFilesLines
* Convert most references from berlios.de to sourceforge.net.Matthias Andree2014-05-211-6/+6
| | | | Re-sign EN and SAs because that broke signatures.
* Relicense security/errata notices as CC BY-ND 3.0.Matthias Andree2012-05-031-9/+18
| | | | Removing the NC/noncommercial clause, to ease redistribution.
* GnuPG-sign security announcements.Matthias Andree2008-06-171-0/+10
| | | | svn path=/branches/BRANCH_6-3/; revision=5199
* Mention regression fixes in 6.3.7.Matthias Andree2007-02-181-3/+11
| | | | svn path=/branches/BRANCH_6-3/; revision=5033
* r5009@balu: mandree | 2007-01-04 00:25:10 +0100Matthias Andree2007-01-041-4/+5
| | | | | | Update. svn path=/branches/BRANCH_6-3/; revision=5006
* Detail on missed CAPA probes.Matthias Andree2006-11-291-1/+2
| | | | svn path=/branches/BRANCH_6-3/; revision=4979
* Detail on missing CAPA probes.Matthias Andree2006-11-291-2/+3
| | | | svn path=/branches/BRANCH_6-3/; revision=4978
* Update.Matthias Andree2006-11-271-2/+3
| | | | svn path=/branches/BRANCH_6-3/; revision=4972
* Bump version.Matthias Andree2006-11-271-20/+17
| | | | svn path=/branches/BRANCH_6-3/; revision=4971
* Update.Matthias Andree2006-11-261-18/+44
| | | | svn path=/branches/BRANCH_6-3/; revision=4964
* Commit draft of fetchmail SA.Matthias Andree2006-11-161-0/+90
svn path=/branches/BRANCH_6-3/; revision=4941
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-22 14:58:11 +0000
="err"># set eiter one to 1 for verbose output log_user 0 set comments 0 package require mysqltcl # connect to MySQL database set handle [::mysql::connect -host $CRDB_host -user $CRDB_username -password $CRDB_password] # get server/usernames to clean up set userlist [::mysql::sel $handle "SELECT UserID, server, username, password, retaindays from $CRDB_DB.fetchmail_user" -flatlist] # loop through all users in database foreach {userid server username password days} $userlist { if {$comments==1} { send_user "\r\nWorking on accound #$userid\r\n*******************************\r\n" } eval spawn telnet -l fetchmail_cleanup $server 110 expect "ready" send "USER $username\r" expect "password" send "PASS $password\r" expect "OK" send "STAT\r" expect "+OK " expect -re "\[0-9]* " set anz $expect_out(0,string) if {$comments==1} { send_user "message count: $anz \r\n" } set i 0 while { $i < $anz } { incr i send "UIDL $i\r" expect -re "\\\+OK $i \(.*\)\r" set uid $expect_out(1,string) ::mysql::exec $handle "insert ignore into $CRDB_DB.fetchmail values ($userid,'$uid',now());" set age [::mysql::sel $handle "SELECT DATEDIFF(now(),Fetchdate) from $CRDB_DB.fetchmail where UserID=$userid and UID='$uid'" -list] if {$comments==1} { send_user "Message #$i: UID: $uid , age: $age \r\n" } if {$age > $days} { send "DELE $i\r" expect "deleted" if {$comments==1} { send_user "Message $i deleted.\r\n" } } } send "quit\r" expect "signing off" ::mysql::exec $handle "delete from $CRDB_DB.fetchmail where DATEDIFF(now(),Fetchdate)>($days*2) and UserID=$userid;" } ::mysql::close $handle exit
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-22 14:58:11 +0000