gotmail.html.awk
上传用户:xxcykj
上传日期:2007-01-04
资源大小:727k
文件大小:3k
源码类别:

Email客户端

开发平台:

Unix_Linux

  1. #-----------------------------------------------------------------------------
  2. #
  3. #                           Gotmail - gotmail.awk
  4. #
  5. #             1999 by Thomas Nesges <ThomasNesges@TNT-Computer.de>
  6. #
  7. #-----------------------------------------------------------------------------
  8. #-----------------------------------------------------------------------------
  9. # This script is part of GotMail.  It emits html to a specified File
  10. # The AWK-Library htmllib has to be properly installed.
  11. #-----------------------------------------------------------------------------
  12. #-----------------------------------------------------------------------------
  13. function init_environ()
  14. {
  15. TextColor = ENVIRON["GOTM_TXCOL"]
  16. BackColor = ENVIRON["GOTM_BGCOL"] 
  17. MsgColor  = ENVIRON["GOTM_MSGCOL"]
  18. ErrColor  = ENVIRON["GOTM_ERRCOL"]
  19. TimColor  = ENVIRON["GOTM_TIMCOL"]
  20. OutFile   = ENVIRON["GOTM_HTMLFILE"]
  21. PrintMsg  = toupper(ENVIRON["GOTM_MSG"])
  22. PrintErr  = toupper(ENVIRON["GOTM_ERR"])
  23. PrintTim  = toupper(ENVIRON["GOTM_TIM"])
  24. PrintHed  = toupper(ENVIRON["GOTM_HED"])
  25. }
  26. #-----------------------------------------------------------------------------
  27. #-----------------------------------------------------------------------------
  28. {
  29.   init_environ()
  30.   if($2!="reading")
  31.   {
  32. if($3=="messages")
  33. {
  34. Mails = Mails TableRow("start", MsgColor)
  35. Mails = Mails TableItem($5) TableItem($7)
  36. Mails = Mails TableItem(Align($2,0)) 
  37. Mails = Mails TableRow("stop")
  38. }
  39. else if($3=="fetchmail")
  40. {
  41. Times = Times TableRow("start", TimColor)
  42. Times = Times TableItem($0)
  43. Times = Times TableRow("stop")
  44. }
  45. else
  46. {
  47. Errors = Errors TableRow("start", ErrColor)
  48. Errors = Errors TableItem($0)
  49. Errors = Errors TableRow("stop")
  50. }
  51.   }
  52. }
  53. #-----------------------------------------------------------------------------
  54. END {
  55. Stats = StartPage(Title("Gotmail Stats") Body(BackColor, TextColor))
  56. if(PrintHed == "YES")
  57. {
  58. Stats = Stats Align(Headline("Gotmail Stats",1),0) 
  59. Stats = Stats Divider Newline
  60. }
  61. if(PrintMsg == "YES")
  62. {
  63. Stats = Stats TableStart(1)
  64. Stats = Stats TableRow("start", MsgColor)
  65. Stats = Stats TableItem(Bold("Account"))
  66. Stats = Stats TableItem(Bold("Server"))
  67. Stats = Stats TableItem(Bold("Mails fetched"))
  68. Stats = Stats TableRow("stop")
  69. Stats = Stats Mails TableEnd Newline Divider Newline
  70. }
  71. if(PrintErr == "YES")
  72. {
  73. Stats = Stats TableStart(1) 
  74. Stats = Stats TableRow("start", ErrColor)
  75. Stats = Stats TableItem(Bold("Error Messages"))
  76. Stats = Stats TableRow("stop")
  77. Stats = Stats Errors TableEnd Newline Divider 
  78. }
  79. if(PrintTim == "YES")
  80. {
  81. Stats = Stats TableStart(1)
  82. Stats = Stats TableRow("start", TimColor)
  83. Stats = Stats TableItem(Bold("Start/Stop Times"))
  84. Stats = Stats TableRow("stop")
  85. Stats = Stats Times TableEnd Newline Divider
  86. }
  87. Stats = Stats Center("start") "GotMail - 1999 by Thomas Nesges " 
  88. Stats = Stats "<ThomasNesges@TNT-Computer.de>" Center("stop") EndPage
  89. print Stats > OutFile
  90. }
  91. #-----------------------------------------------------------------------------