blob: ba111a648ff28209af0f0fbbf4d8d2993733dc56 (
plain)
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#-----------------------------------------------------------------------------
#
# Gotmail - gotmail.awk
#
# 1999 by Thomas Nesges <ThomasNesges@TNT-Computer.de>
#
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
# This script is part of GotMail. It emits html to a specified File
# The AWK-Library htmllib has to be properly installed.
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
function init_environ()
{
TextColor = ENVIRON["GOTM_TXCOL"]
BackColor = ENVIRON["GOTM_BGCOL"]
MsgColor = ENVIRON["GOTM_MSGCOL"]
ErrColor = ENVIRON["GOTM_ERRCOL"]
TimColor = ENVIRON["GOTM_TIMCOL"]
OutFile = ENVIRON["GOTM_HTMLFILE"]
PrintMsg = toupper(ENVIRON["GOTM_MSG"])
PrintErr = toupper(ENVIRON["GOTM_ERR"])
PrintTim = toupper(ENVIRON["GOTM_TIM"])
PrintHed = toupper(ENVIRON["GOTM_HED"])
}
#-----------------------------------------------------------------------------
#-----------------------------------------------------------------------------
{
init_environ()
if($2!="reading")
{
if($3=="messages")
{
Mails = Mails TableRow("start", MsgColor)
Mails = Mails TableItem($5) TableItem($7)
Mails = Mails TableItem(Align($2,0))
Mails = Mails TableRow("stop")
}
else if($3=="fetchmail")
{
Times = Times TableRow("start", TimColor)
Times = Times TableItem($0)
Times = Times TableRow("stop")
}
else
{
Errors = Errors TableRow("start", ErrColor)
Errors = Errors TableItem($0)
Errors = Errors TableRow("stop")
}
}
}
#-----------------------------------------------------------------------------
END {
Stats = StartPage(Title("Gotmail Stats") Body(BackColor, TextColor))
if(PrintHed == "YES")
{
Stats = Stats Align(Headline("Gotmail Stats",1),0)
Stats = Stats Divider Newline
}
if(PrintMsg == "YES")
{
Stats = Stats TableStart(1)
Stats = Stats TableRow("start", MsgColor)
Stats = Stats TableItem(Bold("Account"))
Stats = Stats TableItem(Bold("Server"))
Stats = Stats TableItem(Bold("Mails fetched"))
Stats = Stats TableRow("stop")
Stats = Stats Mails TableEnd Newline Divider Newline
}
if(PrintErr == "YES")
{
Stats = Stats TableStart(1)
Stats = Stats TableRow("start", ErrColor)
Stats = Stats TableItem(Bold("Error Messages"))
Stats = Stats TableRow("stop")
Stats = Stats Errors TableEnd Newline Divider
}
if(PrintTim == "YES")
{
Stats = Stats TableStart(1)
Stats = Stats TableRow("start", TimColor)
Stats = Stats TableItem(Bold("Start/Stop Times"))
Stats = Stats TableRow("stop")
Stats = Stats Times TableEnd Newline Divider
}
Stats = Stats Center("start") "GotMail - 1999 by Thomas Nesges "
Stats = Stats "<ThomasNesges@TNT-Computer.de>" Center("stop") EndPage
print Stats > OutFile
}
#-----------------------------------------------------------------------------
|
