No Messages Expunged!To prevent unintended deletions, you must check the box on the Expunge Confirmation page to indicate that you acknowledge expunge will leave the folder [WPCmd PEMailbox mailboxname] empty.
"
}
} else {
statmsg "No deleted messages to Expunge"
}
} elseif {$growpage == 1 || [string compare $growverb $growpage] == 0} {
if {$grownum <= 0 || $grownum > $growmax} {
set grownum 5
}
incr ppg $grownum
catch {WPCmd PEInfo set grownum $grownum}
WPCmd PEInfo indexlines $ppg
} elseif {$shrinkpage == 1 || [string compare $shrinkverb $shrinkpage] == 0} {
if {$grownum <= 0 || $grownum > $growmax} {
set grownum 5
}
incr ppg -$grownum
catch {WPCmd PEInfo set grownum $grownum}
if {$ppg < 1} {
set ppg 1
}
WPCmd PEInfo indexlines $ppg
} elseif {$bod_prev} {
set top "$top-$ppg"
set uid 0
} elseif {$bod_first} {
set first 1
if {$messagecount > 0} {
set top [WPCmd PEMailbox uid $first]
}
set uid 0
} elseif {$bod_next} {
set top "$top $ppg"
set uid 0
} elseif {$bod_last} {
if {$messagecount > 0} {
if {$zoomed} {
if {$zoomed > $ppg} {
if {[catch {WPCmd PEMailbox uid [WPCmd PEMailbox next [expr {[WPCmd PEMailbox last] - [expr {${ppg} - 1}]}]]} top]} {
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
} else {
set first [WPCmd PEMessage $top number]
}
}
} else {
if {[set first [expr {$messagecount - $ppg + 1}]] < 0} {
set first 1
}
set top [WPCmd PEMailbox uid $first]
}
}
set uid 0
} elseif {[string length $goto]} {
if {[regexp {^([0-9]+)$} $gonum n]} {
if {$n > 0 && $n <= [WPCmd PEMailbox last]} {
set first $n
set uid [WPCmd PEMailbox uid $first]
set top $uid
set gonum ""
} else {
statmsg "Jump value $gonum out of range"
set goto ""
}
} else {
if {[string length $gonum]} {
statmsg "Unrecognized Jump value: $gonum"
} else {
statmsg "Enter a message number, then click 'Jump'"
}
}
} elseif {$promptsave == 1 || [string compare [string tolower $promptsave] save] == 0} {
if {[WPCmd PEMailbox selected] == 0} {
statmsg "Place checkmarks in the box next to desired messages, then click 'Save'"
} else {
set uid 0
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) fr_promptsave.tcl]
set nopage 1
}
} elseif {$savecancel == 1 || [string compare cancel [string tolower $savecancel]] == 0} {
catch {WPCmd PEInfo unset wp_index_script}
lappend newmail [list "Save cancelled. Folder not created."]
} elseif {[string length $browse] && [string compare $browse Browse] == 0} {
set uid 0
_cgi_set_uservar onselect main
_cgi_set_uservar oncancel main
_cgi_set_uservar controls 0
source [WPTFScript savebrowse]
set nopage 1
} elseif {([string length $save] && ([string compare [string trim $save] OK] == 0 || [string compare [string trim $save] Save] == 0)) || [string compare save [string tolower $op]] == 0} {
if {[WPCmd PEMailbox selected] == 0} {
statmsg "Place checkmarks in the box next to desired messages, then click 'Save'"
} elseif {[catch {cgi_import cancel}] == 0} {
statmsg "Save cancelled"
} else {
set f_name [string trim $f_name]
if {[string length $f_name]} {
if {[regexp {^([0-9]+)$} $f_colid]} {
switch -exact -- $f_name {
__folder__prompt__ {
set uid 0
_cgi_set_uservar onselect {index save=OK}
_cgi_set_uservar oncancel index
_cgi_set_uservar target body
_cgi_set_uservar controls 0
source [WPTFScript savecreate]
set nopage 1
}
__folder__list__ {
set uid 0
_cgi_set_uservar onselect {index save=OK}
_cgi_set_uservar oncancel index
_cgi_set_uservar target body
_cgi_set_uservar controls 0
source [WPTFScript savebrowse]
set nopage 1
}
default {
if {$auths} {
catch {WPCmd PESession nocred $f_colid $f_name}
if {[catch {WPCmd PESession creds $f_colid $f_name $user $pass} result]} {
lappend newmail ["Cannot set credentials ($f_colid) $f_name: result"]
}
}
if {[catch {WPCmd PEFolder exists $f_colid $f_name} reason]} {
if {[string compare BADPASSWD [string range $reason 0 8]] == 0} {
set oncancel "index.tcl&savecancel=1"
set conftext "Create Folder '$f_name'?"
lappend params [list page index]
lappend params [list save Save]
lappend params [list f_name $f_name]
lappend params [list f_colid $f_colid]
source [WPTFScript auth]
set nopage 1
} else {
lappend newmail [list "Existance test failed: $reason"]
}
} elseif {$reason == 0} {
if {$create == 1 || [string compare create [string tolower $create]] == 0} {
if {[catch {WPCmd PEFolder create $f_colid $f_name} reason]} {
lappend newmail [list "Create failed: $reason"]
} else {
set dosave 1
}
} else {
set qstate [list $f_name]
set params [list [list page index]]
lappend params [list save OK]
lappend params [list f_name $f_name]
lappend params [list f_colid $f_colid]
lappend qstate $params
if {[catch {WPCmd PEInfo set querycreate_state $qstate}] == 0} {
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) fr_querycreate.tcl]
set nopage 1
} else {
statmsg "Error saving creation state"
}
}
} else {
set dosave 1
}
if {[info exists dosave]} {
if {[catch {WPCmd PEMailbox apply save $f_colid $f_name} reason]} {
error [list _action "Cannot save to $f_name in $f_colid" $reason]
} else {
set statmsg "Saved $reason message[WPplural $reason] to $f_name"
set savedef [WPTFSaveDefault $uid]
if {[lindex $savedef 0] == $f_colid} {
WPTFAddSaveCache $f_name
}
if {[WPCmd PEInfo feature auto-unselect-after-apply]} {
if {[catch {WPCmd PEMailbox select none} result]} {
set statmsg "Cannot clear all message marks: $result"
} else {
if {$result == 0} {
set statmsg "No Marked messages to Unmark"
} else {
append statmsg " and unmarked"
}
}
}
statmsg $statmsg
}
}
}
}
} else {
statmsg "Unrecognized collection id"
}
} else {
statmsg "Must provide a folder name to Save to"
}
}
} elseif {[string compare Set $setflag] == 0 || [string compare Delete $setflag] == 0 || [string compare Undelete $setflag] == 0} {
switch -- $setflag {
Delete {
set flagverb Delete
set flags delete
}
Undelete {
set flagverb Undelete
set flags undeleted
}
default {
set flagverb Set
}
}
if {[WPCmd PEMailbox selected] == 0} {
statmsg "Place checkmarks in the box next to desired messages, then click '$flagverb'"
} else {
switch -- $flags {
delete {
set flagverb "for deletion"
if {[catch {WPCmd PEMailbox apply delete} reason]} {
set statmsg "Problem deleting: $reason"
}
}
undeleted {
set flagverb Undeleted
if {[catch {WPCmd PEMailbox apply undelete} reason]} {
set statmsg "Problem undeleting: $reason"
}
}
new {
set flagverb New
if {[catch {WPCmd PEMailbox apply flag ton new} reason]} {
set statmsg "Problem setting New flag: $reason"
}
}
read {
set flagverb Read
if {[catch {WPCmd PEMailbox apply flag not new} reason]} {
set statmsg "Problem Unsetting New flag: $reason"
}
}
answered {
set flagverb Answered
if {[catch {WPCmd PEMailbox apply flag ton ans} reason]} {
set statmsg "Problem setting Answered flag: $reason"
}
}
unanswered {
set flagverb "Not Answered"
if {[catch {WPCmd PEMailbox apply flag not ans} reason]} {
set statmsg "Problem Unsetting Answered flag: $reason"
}
}
important {
set flagverb "Important"
if {[catch {WPCmd PEMailbox apply flag ton imp} reason]} {
set statmsg "Problem setting Important flag: $reason"
}
}
unimportant {
set flagverb "Not Important"
if {[catch {WPCmd PEMailbox apply flag not imp} reason]} {
set statmsg "Problem Unsetting Important flag: $reason"
}
}
default {
statmsg "Unknown flag set request: $flags"
}
}
if {![info exists statmsg]} {
set statmsg "$reason message[WPplural $reason] flagged $flagverb"
if {[WPCmd PEInfo feature auto-unselect-after-apply]} {
if {[catch {WPCmd PEMailbox select none} result]} {
set statmsg "Cannot clear all message marks: $result"
} else {
if {$result == 0} {
set statmsg "No Selected messages to Unmark"
} else {
append statmsg " and unmarked"
}
}
}
}
statmsg $statmsg
}
} elseif {[string length $mark]} {
if {[string compare mark [string tolower [lindex $mark 0]]] == 0} {
if {[catch {WPCmd PEMailbox select all} result]} {
statmsg "Cannot mark all messages: $result"
} else {
set zm ""
if {$zoomed} {
set zoomed [WPCmd PEMailbox zoom 0]
set zm ". Message List now displaying all messages."
}
statmsg "All messages in folder '[WPCmd PEMailbox mailboxname]' marked$zm"
}
} elseif {[string compare $mark 1] == 0} {
if {$zoomed} {
statmsg "Messages on page already marked"
} elseif {$messagecount > 0} {
set p [split $uidpage ","]
set s [WPCmd PEMessage [lindex $p 0] number]
set e [WPCmd PEMessage [lindex $p end] number]
if {[catch {WPCmd PEMailbox select broad num $s $e} result]} {
statmsg "Cannot mark messages: $result"
} else {
statmsg "Marked all messages [cgi_underline "on this page"]"
}
}
}
} elseif {[string length $unmark]} {
if {[string compare unmark [lindex [string tolower $unmark] 0]] == 0} {
if {[catch {WPCmd PEMailbox select none} result]} {
statmsg "Cannot clear all message marks: $result"
} else {
if {$result == 0} {
statmsg "No marked messages to Unmark"
} else {
if {[regexp {[0-9]+} $result] && $result == $messagecount} {
set result All
}
statmsg "Unmarked $result Messages"
}
}
} elseif {[string compare $unmark 1] == 0} {
if {[catch {WPCmd PEMailbox select clear [split $uidpage ","]} result]} {
statmsg "Cannot clear message marks: $result"
} else {
if {$result == 0} {
statmsg "No marked messages to Unmark"
} else {
statmsg "Unmarked all messages [cgi_underline "on this page"]"
}
}
}
} elseif {[string length $select] && [string compare $select $selectverb] == 0} {
switch -- $selectop {
mark {
if {[catch {WPCmd PEMailbox select all} result]} {
statmsg "Cannot mark all messages: $result"
} elseif {0} {
statmsg "All messages marked"
}
}
clear {
if {[catch {WPCmd PEMailbox select none} result]} {
statmsg "Cannot clear all message marks: $result"
} elseif {0} {
if {$result == 0} {
statmsg "No marked messages to Unmark"
} else {
statmsg "Unmarked $result messages"
}
}
}
text {
set uid 0
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) fr_seltext.tcl]
set nopage 1
}
date {
set uid 0
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) fr_seldate.tcl]
set nopage 1
}
stat {
set uid 0
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) fr_selstat.tcl]
set nopage 1
}
zoom {
if {[WPCmd PEMailbox selected] == 0} {
statmsg "No marked messages to Zoom on"
} elseif {$zoomed == 0} {
set zoomed [WPCmd PEMailbox zoom 1]
}
}
unzoom {
set zoomed [WPCmd PEMailbox zoom 0]
}
null {
}
default {
set uid 0
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) fr_select.tcl]
set nopage 1
}
}
} elseif {$zoom != ""} {
set z 0
if {[WPCmd PEMailbox selected] == 0} {
if {[string compare [string tolower [string range $zoom 0 7]] "show all"]} {
statmsg "No marked messages to Zoom in on!"
}
} elseif {$zoomed == 0} {
set z 1
}
set zoomed [WPCmd PEMailbox zoom $z]
} elseif {$doselect == 1} {
WPLoadCGIVar result
if {[string compare new [string tolower $result]] == 0} {
catch {WPCmd PEMailbox select none}
catch {WPCmd PEMailbox zoom 0}
set zoomed 0
set result broad
}
set selected [WPCmd PEMailbox selected]
if {[catch {WPLoadCGIVar cancel}] || [string compare cancel [string tolower $cancel]] != 0} {
if {[catch {WPLoadCGIVar by}]} {
if {[string length $selectop]} {
set by [string tolower [lindex $selectop 1]]
} else {
statmsg "Unknown Search Option -- Click button associated with desired search"
set by unset
}
}
switch -- $by {
date {
WPLoadCGIVar datecase ;# on, since or before
WPLoadCGIVar datemon ;# month abbrev: jan, feb etc
WPLoadCGIVar dateday ;# day num
WPLoadCGIVar dateyear ;# year num
if {[catch {WPCmd PEMailbox select $result date $datecase $dateyear $datemon $dateday} reason]} {
statmsg "Date Search Failed: $reason"
} else {
selectresponse Date $reason $selected zoomed top uid
}
}
text {
WPLoadCGIVar textcase ;# ton, not
WPLoadCGIVar field ;# to from cc recip partic subj any
WPLoadCGIVar text ;# search string
if {[catch {WPCmd PEMailbox select $result text $textcase $field $text} reason]} {
statmsg "Text Search Failed: $reason"
} else {
switch -- $field {
subj {set fieldtext "\"Subject:\""}
from {set fieldtext "\"From:\""}
to {set fieldtext "\"To:\""}
cc {set fieldtext "\"Cc:\""}
recip {set fieldtext "Recipient"}
partic {set fieldtext "Participant"}
default {set fieldtext "Full text"}
}
selectresponse $fieldtext $reason $selected zoomed top uid
}
}
status {
if {[catch {WPLoadCGIVar flag}]} {
statmsg "Choose a Status value and then click [cgi_bold "Search Status"]"
} else {
WPLoadCGIVar statcase
if {[catch {WPCmd PEMailbox select $result status $statcase $flag} reason]} {
statmsg "Flag Search Failed: $reason"
} else {
switch -- $statcase {
not { set casetext "NOT " }
default { set casetext "" }
}
switch -- $flag {
imp {set flagtext Important}
new {set flagtext "New status"}
ans {set flagtext Answered}
del {set flagtext Deleted}
}
selectresponse "${casetext}${flagtext} status" $reason $selected zoomed top uid
}
}
}
unset {
if {[catch {WPLoadCGIVar text}] == 0} {
catch {WPCmd PEInfo set wp_def_search_text $text}
}
}
default {
WPCmd PEInfo statmsg "Unknown Search Option"
}
}
} else {
catch {WPCmd PEInfo unset wp_def_search_text}
}
catch {WPCmd PEInfo unset wp_index_script}
} elseif {$sortrev} {
if {$rev} {
set rev 0
} else {
set rev 1
}
} elseif {$sortto} {
set sort To
} elseif {$sortfrom} {
set sort From
} elseif {$sortdate} {
set sort Date
} elseif {$sortsize} {
set sort siZe
} elseif {$sortsubject} {
set sort Subject
} elseif {$sortorderedsubj} {
set sort OrderedSubj
} elseif {$sortthread} {
set sort tHread
} elseif {$folders} {
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) folders.tcl]
set nopage 1
} elseif {[string compare reply [string tolower $op]] == 0} {
if {0} {
set oncancel index
set cid [WPCmd PEInfo key]
#_cgi_set_uservar style Reply
source [WPTFScript compose]
set nopage 1
}
statmsg "Aggregate Reply not implemented yet"
} elseif {[string compare forward [string tolower $op]] == 0} {
statmsg "Aggregate Forward not implemented yet"
} elseif {[string length $aggon]} {
set aggtabstate [expr {$aggtabstate | $aggbar}]
WPCmd PEInfo aggtabstate $aggtabstate
} elseif {[string length $aggoff]} {
if {$zoomed} {
set zoomed [WPCmd PEMailbox zoom 0]
statmsg "Message List now displaying all (marked and unmarked) messages"
}
set aggtabstate [expr {$aggtabstate & ~$aggbar}]
WPCmd PEInfo aggtabstate $aggtabstate
} elseif {[string length $hdron]} {
set aggtabstate [expr {$aggtabstate | $sortbar}]
WPCmd PEInfo aggtabstate $aggtabstate
} elseif {[string length $hdroff]} {
set aggtabstate [expr {$aggtabstate & ~$sortbar}]
WPCmd PEInfo aggtabstate $aggtabstate
} elseif {[catch {WPCmd PEInfo set wp_index_script} script] == 0} {
catch {WPCmd PEInfo unset wp_index_script}
set uid 0
source [file join $_wp(cgipath) $_wp(appdir) $_wp(ui1dir) $script]
set nopage 1
} elseif {[string length $spamit]} {
if {[WPCmd PEMailbox selected] == 0} {
statmsg "Place checkmarks in the box next to desired messages, then click '$spamit'"
} else {
# create
# aggregate save
if {[info exists _wp(spamsubj)] && [string length $_wp(spamsubj)]} {
set spamsubj $_wp(spamsubj)
} else {
set spamsubj "Spam Report"
}
# aggregate delete
if {[info exists _wp(spamfolder)] && [string length $_wp(spamfolder)]
&& [catch {
set savedef [WPCmd PEMailbox savedefault]
if {[WPCmd PEFolder exists [lindex $savedef 0] $_wp(spamfolder)] == 0} {
WPCmd PEFolder create [lindex $savedef 0] $_wp(spamfolder)
}
WPCmd PEMailbox apply save [lindex $savedef 0] $_wp(spamfolder)
} result]} {
statmsg "Error Reporting Spam: $result"
} elseif {[info exists _wp(spamaddr)] && [string length $_wp(spamaddr)]
&& [catch {WPCmd PEMailbox apply spam $_wp(spamaddr) $spamsubj} reason]} {
statmsg "Error Sending Spam Notice: $reason"
} elseif {[catch {WPCmd PEMailbox apply delete} reason]} {
statmsg "Error marking Spam Deleted: $reason"
} else {
set seld [WPCmd PEMailbox selected]
statmsg "$seld spam message[WPplural $seld] reported and flagged for deletion"
catch {WPCmd PEMailbox select none}
}
}
} elseif {[string compare "set flags" [string tolower $op]] == 0} {
if {[catch {WPCmd PEInfo flaglist} flags]} {
statmsg "Can't get flags: $flags"
} else {
# then go thru flag list setting and clearing as needed
foreach flag $flags {
if {[catch {cgi_import_as $flag val}]} {
if {[catch {WPCmd PEMessage $uid flag $flag 0} result]} {
statmsg "Can't set $flag: $result"
break
}
} else {
set newval [expr {[string compare $val on] == 0}]
if {[catch {WPCmd PEMessage $uid flag $flag $newval} result]} {
statmsg "Can't set $flag: $result"
break
}
}
}
}
}
if {![info exists nopage]} {
# set the specified sort order
if {[catch {WPCmd PEMailbox sort $sort $rev} currentsort]} {
error [list _action Sort $currentsort]
}
if {$aggops} {
set selected [WPCmd PEMailbox selected]
if {$selected < 1 && $zoomed} {
set zoomed 0
WPCmd PEMailbox zoom 0
statmsg "Message List now displaying all (marked and unmarked) messages"
}
}
# "top" is uid of first message in index. n after '+' is relative offset
if {$messagecount <= 0} {
set first 1
set top 0
set miv ""
} else {
if {[regexp {^([0-9]+)([\+\ -])([0-9]+)$} $top dummy u sign offset]} {
if {$u == 0 || [catch {WPCmd PEMessage $u number} first]} {
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
} else {
set top $u
}
if {$offset != 0} {
if {[catch {WPCmd PEMailbox next [WPCmd PEMessage $top number] ${sign}${offset}} newfirst] == 0} {
set first $newfirst
set top [WPCmd PEMailbox uid $newfirst]
}
}
} elseif {[regexp {^[0-9]*$} $top]} {
if {$top == 0 || [catch {WPCmd PEMessage $top number} first]} {
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
}
} else {
statmsg "Invalid UID for first message"
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
}
# validate first is in range
if {$messagecount && $first < [set f [WPCmd PEMailbox first]]} {
set first $f
set top [WPCmd PEMailbox uid $f]
}
# check framing
if {$zoomed} {
if {$zoomed < $ppg || [WPCmd PEMessage $top select] == 0} {
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
} else {
set first [WPCmd PEMessage $top number]
}
set uid $top
} else {
if {$messagecount < $ppg} {
if {![string length $goto]} {
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
}
} elseif {$first > $messagecount} {
if {[set mdiff [expr {$messagecount - $ppg + 1}]] < 0} {
set first [WPCmd PEMailbox first]
set top [WPCmd PEMailbox uid $first]
} else {
set first $mdiff
set top [WPCmd PEMailbox uid $mdiff]
}
}
}
# validate uid
# use "size" instead of "number" to work around temporary bug in pinetcld
if {$uid != 0 && ([catch {WPCmd PEMessage $uid size} n] || $n <= 0)} {
set uid 0
}
set nv [WPCmd PEMailbox nextvector $first $ppg [list indexparts indexcolor status statusbits]]
set miv [lindex $nv 0]
set charset [lindex $nv 1]
# hook to keep last viewed message in current message list
if {$uid > 0} {
if {[catch {WPCmd PEMessage $uid number} n] == 0 && [uid_framed $uid $miv] == 0} {
set first $n
set top $uid
set nv [WPCmd PEMailbox nextvector $first $ppg [list indexparts indexcolor status statusbits ]]
set miv [lindex $nv 0]
set charset [lindex $nv 1]
}
#set uid 0 ;# no longer "last viewed"
#catch {WPCmd PEInfo unset uid}
}
# remember for next time
catch {
WPCmd PEInfo set top $top
WPCmd PEInfo set sort $sort
WPCmd PEInfo set rev $rev
}
}
if {[llength $miv] == 0
|| (!([info exists charset] && [string length $charset])
&& ([catch {WPCmd PEConfig varget character-set} charset]
|| [string length [set charset [lindex $charset 0]]] == 0
|| [string compare [string tolower $charset] "us-ascii"] == 0))} {
set charset "UTF-8"
}
catch {fconfigure stdout -encoding binary}
# start writing page
cgi_http_head {
WPStdHttpHdrs "text/html; charset=$charset"
}
cgi_html {
cgi_head {
cgi_http_equiv Content-Type "text/html; charset=$charset"
set onload "onLoad="
set onunload "onUnload="
if {[info exists _wp(exitonclose)]} {
WPExitOnClose
append onload "wpLoad();"
append onunload "wpUnLoad();"
}
if {[info exists _wp(timing)]} {
set onsubmit "onSubmit=return submitTimestamp()"
cgi_script type="text/javascript" language="JavaScript" {
cgi_puts "var loadtime = new Date();"
cgi_put "function submitTimestamp(){"
cgi_put " var now = new Date();"
cgi_put " document.index.submitted.value = now.getTime();"
cgi_put " return true;"
cgi_puts "}"
cgi_put "function fini() {"
cgi_put " var now = new Date();"
cgi_put " var t_load = (now.getTime() - loadtime.getTime())/1000;"
if {$submitted} {
cgi_put " var t_submit = (now.getTime() - $submitted)/1000;"
set rtt ", rtt = '+t_submit+', cumulative = '+(t_submit + t_load)"
} else {
set rtt "'"
}
cgi_put " window.status = 'Page loaded in '+t_load+' seconds${rtt};"
cgi_puts "}"
}
append onload "fini();"
} else {
set onsubmit ""
}
set normalreload [cgi_buffer {WPHtmlHdrReload "$_wp(appdir)/$_wp(ui1dir)/wp.tcl?page=index"}]
if {[info exists _wp(exitonclose)]} {
cgi_script type="text/javascript" language="JavaScript" {
cgi_put "function indexReloadTimer(t){"
cgi_put " reloadtimer = window.setInterval('wpLink(); window.location.replace(\\'[cgi_root]/$_wp(appdir)/$_wp(ui1dir)/wp.tcl?page=index&reload=1\\')', t * 1000);"
cgi_puts "}"
}
append onload "indexReloadTimer($_wp(refresh));"
cgi_noscript {
cgi_puts $normalreload
}
} else {
cgi_puts $normalreload
}
WPStyleSheets
cgi_puts ""
cgi_script type="text/javascript" language="JavaScript" {
cgi_put "function flip(d){"
cgi_put " var f = document.index;"
cgi_put " if(f && document.implementation){"
cgi_put " var e = document.createElement('input');"
cgi_puts " var ver = navigator.appVersion;"
cgi_put " if(!((ver.indexOf('MSIE')+1) && (ver.indexOf('Macintosh')+1))) e.type = 'hidden';"
cgi_put " e.name = 'bod_'+d;"
cgi_put " e.value = 1;"
cgi_put " f.appendChild(e);"
cgi_put " f.submit();"
cgi_put " return false;"
cgi_put " }"
cgi_put " return true;"
cgi_puts "}"
cgi_put "function view(u) {"
cgi_put " var f = document.index;"
cgi_put " f.target = '$vtarget';"
cgi_put " f.page.value = 'fr_view';"
cgi_put " f.uid.value = u;"
cgi_puts " f.submit();"
cgi_puts " return false;"
cgi_puts "}"
cgi_put "function toggleMarks(elobj){"
cgi_put " var i, ckd = 1;"
cgi_put " for(i = 0; i < document.index.uidList.length; i++)"
cgi_put " if(!document.index.uidList\[i\].checked){"
cgi_put " ckd = 0;"
cgi_put " break;"
cgi_put " }"
cgi_put " for(i = 0; i < document.index.uidList.length; i++) document.index.uidList\[i\].checked = !ckd;"
cgi_put " elobj.src = (ckd) ? '[WPimg markall3]' : '[WPimg marknone3]';"
cgi_put " return false;"
cgi_puts "}"
}
if {$_wp(keybindings)} {
set kequiv {
{{?} {top.location = 'wp.tcl?page=help'}}
{{l} {top.location = 'wp.tcl?page=folders'}}
{{a} {top.location = 'wp.tcl?page=addrbook'}}
{{n} {if(flip('next')) location = 'wp.tcl?page=body&bod_next=1'}}
{{p} {if(flip('prev')) location = 'wp.tcl?page=body&bod_prev=1'}}
{{ } {if(flip('next')) location = 'wp.tcl?page=body&bod_next=1'}}
{{-} {if(flip('prev')) location = 'wp.tcl?page=body&bod_prev=1'}}
{{;} {if(document.index.select) document.index.select.click(); else document.index.aggon.click()}}
{{z} {if(document.index.zoom) document.index.zoom.click()}}
}
lappend kequiv [list {c} "top.location = 'wp.tcl?page=compose&oncancel=main.tcl&cid=[WPCmd PEInfo key]'"]
if {$aggops && ($aggtabstate & $aggbar)} {
set exclusions document.index.f_name
} else {
set exclusions ""
}
append onload [WPTFKeyEquiv $kequiv $exclusions]
}
}
cgi_body bgcolor=$_wp(bordercolor) background=[file join $_wp(imagepath) logo $_wp(logodir) back.gif] "style=\"background-repeat: repeat-x\"" $onload $onunload {
catch {WPCmd set help_context index}
# check for status msg updates
foreach s [WPStatusMsgs] {
lappend newmail [list $s]
}
if {[llength $newmail]} {
WPTFStatusTable $newmail 1 "style=\"padding: 6px 0; color: white\""
if {!$reload} {
WPCmd PEMailbox newmailreset
}
}
if {$ppg > 50} {
set postmethod post
set enctype "multipart/form-data"
} else {
set postmethod get
set enctype "application/x-www-form-urlencoded"
}
cgi_form $_wp(appdir)/$_wp(ui1dir)/wp method=$postmethod enctype=$enctype name=index $onsubmit target=body {
# context line
cgi_table border=0 cellspacing=0 cellpadding=0 width="100%" class="context" {
if {[llength $newmail]} {
cgi_table_row {
cgi_table_data height=1 bgcolor="#000000" width="100%" colspan=8 {
cgi_put [cgi_img [WPimg dot2] border=0 height=1]
}
}
}
cgi_table_row bgcolor="#999999" {
if {$zoomed} {
if {[catch {WPCmd PEMailbox messagecount after [lindex [lindex $miv end] 0]} messagesremaining]} {
unset messagesremaining
}
set z "[cgi_span class="marked" marked] "
set t $zoomed
} else {
set messagesremaining [expr {$messagecount - ($first + $ppg - 1)}]
set t $messagecount
set z ""
}
if {[catch {WPCmd PEMailbox messagecount before [lindex [lindex $miv 0] 0]} messagesbefore] == 0 && $messagesbefore > 0} {
if {$messagesbefore > $ppg} {
set b $ppg
} else {
set b $messagesbefore
}
switch $b {
1 {
set c One
set p ""
}
default {
set c $b
set p s
}
}
set prevtext " [cgi_unbreakable_string "($c on [cgi_url previous wp.tcl?page=body&bod_prev=1 "onClick=return flip('prev')"] page)"]"
} else {
set messagesbefore 0
set prevtext ""
}
if {$messagesbefore <= 0 && $messagesremaining <= 0} {
switch $t {
0 {
set counttext "[cgi_bold No] ${z}messages in folder"
}
1 {
set counttext "[cgi_bold Only] ${z}message in folder"
}
2 {
set counttext "[cgi_bold Both] ${z}messages in folder"
}
default {
set counttext "[cgi_bold All] $t ${z}messages in folder"
}
}
} elseif {$zoomed} {
if {$messagesbefore > 0} {
if {$messagesremaining > 0} {
set counttext "[expr {$messagesbefore + 1}] thru [expr {$zoomed - $messagesremaining}] of $zoomed [cgi_span class="marked" marked] messages"
} else {
if {[set p [llength $miv]] == 1} {
set lasttext ""
} else {
set lasttext " $p"
}
set counttext "[cgi_bold Last]${lasttext} of $zoomed [cgi_span class="marked" marked] messages"
}
} else {
set counttext "[cgi_bold First] $ppg of $zoomed [cgi_span class="marked" marked] messages"
}
} else {
set n [WPcomma $messagecount]
if {[lindex [lindex $miv 0] 0] == 1} {
set counttext "[cgi_bold First] $ppg of $n messages"
} else {
set l [lindex [lindex $miv end] 0]
if {$l == $messagecount} {
if {[set p [llength $miv]] == 1} {
set lasttext ""
} else {
set lasttext " $p"
}
set counttext "[cgi_bold Last]${lasttext} of $n messages"
} else {
set counttext "Message [WPcomma $first] - [WPcomma $l] of $n"
}
}
}
cgi_table_data align=left class="context" "style=\"padding-left: 4\"" {
cgi_unbreakable {
cgi_put "${counttext}[cgi_breakable]${prevtext}"
}
}
cgi_table_data align=right {
cgi_unbreakable {
if {[WPCmd PEInfo feature expunge-without-confirm-everywhere]
|| ([WPCmd PEInfo feature expunge-without-confirm]
&& [string compare [string tolower [WPCmd PEMailbox mailboxname]] inbox] == 0)} {
set butname expunge
cgi_text "emptyit=1" type=hidden notab
} else {
set butname queryexpunge
}
if {$aggops} {
cgi_submit_button "mark=Mark All in Folder" class="navbutton"
cgi_submit_button "unmark=Unmark All" class="navbutton"
cgi_put [cgi_breakable]
cgi_submit_button "setflag=Delete" class="navbutton"
cgi_submit_button "setflag=Undelete" class="navbutton"
if {([info exists _wp(spamaddr)] && [string length $_wp(spamaddr)])
|| ([info exists _wp(spamfolder)] && [string length $_wp(spamfolder)])} {
cgi_submit_button "spamit=Report Spam" class="navbutton" "style=\" color: white; background-color: black\""
}
}
cgi_submit_button "${butname}=Expunge" class="navbutton"
}
}
}
}
cgi_text "page=index" type=hidden notab
cgi_text "cid=$cid" type=hidden notab
cgi_text "first=$first" type=hidden notab
cgi_text "uid=0" type=hidden notab
cgi_text "top=$top" type=hidden notab
cgi_text "frestore=1" type=hidden notab
cgi_text "submitted=0" type=hidden notab
if {$aggops} {
if {[llength $miv]} {
foreach v $miv {
lappend uv [lindex $v 1]
}
set uidpage [join $uv ","]
} else {
set uidpage ""
}
cgi_text "uidpage=${uidpage}" type=hidden notab
if {$aggtabstate & $aggbar} {
# commands
cgi_table border=0 cellspacing=0 cellpadding=0 width="100%" class=ops {
cgi_table_row {
cgi_table_data height=1 "bgcolor=#000000" colspan=12 align=left {
cgi_put [cgi_img [WPimg dot2] height=1]
}
}
cgi_table_row {
cgi_put "