.\" $Cambridge: hermes/doc/talks/2004-02-ukuug/hermes-new.pic,v 1.5 2004/02/13 13:09:14 fanf2 Exp $
.\"
.\" Architecture of new Hermes
.\"
.PS

arrowht  = 0.0625
arrowwid = 0.0375

define cyrus {[
  START:
    for i = 0 to 7 do {
      box "cyrus" "msg. stores" fill 0 width 1 height 0.375 with .s at START + (0.06 * i, -0.03 * i)
    }
]}

C1: cyrus
arrow <-> "pair-wise" "replication" 1
C2: cyrus

C1s: line down 0.125 from C1.s
C2s: line down 0.125 from C2.s

BN: line "replication" "" from C1s.end to C2s.end
arrow down 0.125 from BN.center
OTANES: box "backup" "server" height 0.375
right; line 0.125 from OTANES.r
box "tape robot" height 0.25
left; line 0.125 from OTANES.l
box "disk shelf" height 0.25

C1n: line <-> up 0.25 from C1.n
C2n: line <-> up 0.25 from C2.n

SN: line from C1n.end - (1.5,0) to C2n.end + (1.5,0)

line " LMTP" ljust <-  from SN.center + (0.75,0) up 0.375
line " POP"  ljust  -> from SN.center - (0.75,0) up 0.375
line " IMAP" ljust <-> from SN.center up 0.375

PPSW: box "ppsw" "protocol proxy & email switch" width 3

line dashed from PPSW.n + (0,0.125) right 3
line dashed from PPSW.n + (0,0.125) left 3

line " SMTP" ljust <-> up 0.4375 from PPSW.ne - (0.5,0)
ellipse "Internet" height 0.375

line " POP"  ljust  -> up from PPSW.nw + (0.5,0)
line " SMTP" ljust <-  up from PPSW.nw + (1.5,0)
line " IMAP" ljust <-> up from PPSW.nw + (1.0,0)

box "mail user agents" width 1.5 height 0.25

line "SMTP" "" <- from PPSW.l left
WEB: box "webmail" "(prayer)"
line " IMAP" ljust <-> down 0.375 from WEB.s
line " HTTP" ljust <-> up from WEB.n
box "browser" height 0.25

line "SMTP" "" <- from PPSW.r right
MENU: box "menu syst." "& pine"
line "IMAP " rjust <-> down 0.375 from MENU.s
line "Telnet  ssh     " <-> up from MENU.n
box "terminal" height 0.25

.PE