File: imap-uwash.tcl

package info (click to toggle)
tkrat 1%3A2.2cvs20100105-true-dfsg-6.1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 10,340 kB
  • ctags: 9,259
  • sloc: ansic: 96,057; tcl: 25,667; makefile: 1,638; sh: 282
file content (37 lines) | stat: -rw-r--r-- 925 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
# IMAP-definitions and functions for dealing with an
# UWashington imap-server running on localhost.

set imap_fn $dir/imap-folder.[pid]

set mailServer(localhost) \
	[list localhost {} {debug {ssh-cmd {%s %s -l %s exec /usr/sbin/%sd}}} \
	$env(USER)]

set imap_def [list Test imap {} localhost $imap_fn]
set imap_def1 [list Test imap {} localhost ${imap_fn}-1]
set imap_def2 [list Test imap {} localhost ${imap_fn}-2]
set imap_fn1 ${imap_fn}-1
set imap_fn2 ${imap_fn}-2
set dis_def [list Test dis {} localhost $imap_fn]
set imap_map $dir/disconnected/localhost:143$imap_fn+$env(USER)+imap/mappings
set start_uid 11

proc init_imap_folder {def} {
    global hdr

    set fh [open [lindex $def 4] w]
    puts $fh $hdr
    close $fh
}

proc cleanup_imap_folder {def} {
    file delete [lindex $def 4]
}

proc insert_imap {def args} {
    set fh [open [lindex $def 4] a]
    foreach m $args {
	puts $fh $m
    }
    close $fh
}