mirmon updates
authorNigel Metheringham <nigel@exim.org>
Wed, 18 Jul 2007 16:13:33 +0000 (16:13 +0000)
committerNigel Metheringham <nigel@exim.org>
Wed, 18 Jul 2007 16:13:33 +0000 (16:13 +0000)
104 files changed:
icons/bar.gif [new file with mode: 0644]
icons/mirmon.gif [new file with mode: 0644]
icons/mirmon_b.gif [new file with mode: 0644]
icons/mirmon_f.gif [new file with mode: 0644]
icons/mirmon_s.gif [new file with mode: 0644]
icons/mirmon_z.gif [new file with mode: 0644]
icons/mmb01.gif [new file with mode: 0644]
icons/mmb02.gif [new file with mode: 0644]
icons/mmb03.gif [new file with mode: 0644]
icons/mmb04.gif [new file with mode: 0644]
icons/mmb05.gif [new file with mode: 0644]
icons/mmb06.gif [new file with mode: 0644]
icons/mmb07.gif [new file with mode: 0644]
icons/mmb08.gif [new file with mode: 0644]
icons/mmb09.gif [new file with mode: 0644]
icons/mmb10.gif [new file with mode: 0644]
icons/mmb11.gif [new file with mode: 0644]
icons/mmb12.gif [new file with mode: 0644]
icons/mmb13.gif [new file with mode: 0644]
icons/mmb14.gif [new file with mode: 0644]
icons/mmf01.gif [new file with mode: 0644]
icons/mmf02.gif [new file with mode: 0644]
icons/mmf03.gif [new file with mode: 0644]
icons/mmf04.gif [new file with mode: 0644]
icons/mmf05.gif [new file with mode: 0644]
icons/mmf06.gif [new file with mode: 0644]
icons/mmf07.gif [new file with mode: 0644]
icons/mmf08.gif [new file with mode: 0644]
icons/mmf09.gif [new file with mode: 0644]
icons/mmf10.gif [new file with mode: 0644]
icons/mmf11.gif [new file with mode: 0644]
icons/mmf12.gif [new file with mode: 0644]
icons/mmf13.gif [new file with mode: 0644]
icons/mmf14.gif [new file with mode: 0644]
icons/mms01.gif [new file with mode: 0644]
icons/mms02.gif [new file with mode: 0644]
icons/mms03.gif [new file with mode: 0644]
icons/mms04.gif [new file with mode: 0644]
icons/mms05.gif [new file with mode: 0644]
icons/mms06.gif [new file with mode: 0644]
icons/mms07.gif [new file with mode: 0644]
icons/mms08.gif [new file with mode: 0644]
icons/mms09.gif [new file with mode: 0644]
icons/mms10.gif [new file with mode: 0644]
icons/mms11.gif [new file with mode: 0644]
icons/mms12.gif [new file with mode: 0644]
icons/mms13.gif [new file with mode: 0644]
icons/mms14.gif [new file with mode: 0644]
icons/mmsb01.gif [new file with mode: 0644]
icons/mmsb02.gif [new file with mode: 0644]
icons/mmsb03.gif [new file with mode: 0644]
icons/mmsb04.gif [new file with mode: 0644]
icons/mmsb05.gif [new file with mode: 0644]
icons/mmsb06.gif [new file with mode: 0644]
icons/mmsb07.gif [new file with mode: 0644]
icons/mmsb08.gif [new file with mode: 0644]
icons/mmsb09.gif [new file with mode: 0644]
icons/mmsb10.gif [new file with mode: 0644]
icons/mmsb11.gif [new file with mode: 0644]
icons/mmsb12.gif [new file with mode: 0644]
icons/mmsb13.gif [new file with mode: 0644]
icons/mmsb14.gif [new file with mode: 0644]
icons/mmsbf01.gif [new file with mode: 0644]
icons/mmsbf02.gif [new file with mode: 0644]
icons/mmsbf03.gif [new file with mode: 0644]
icons/mmsbf04.gif [new file with mode: 0644]
icons/mmsbf05.gif [new file with mode: 0644]
icons/mmsbf06.gif [new file with mode: 0644]
icons/mmsbf07.gif [new file with mode: 0644]
icons/mmsbf08.gif [new file with mode: 0644]
icons/mmsbf09.gif [new file with mode: 0644]
icons/mmsbf10.gif [new file with mode: 0644]
icons/mmsbf11.gif [new file with mode: 0644]
icons/mmsbf12.gif [new file with mode: 0644]
icons/mmsbf13.gif [new file with mode: 0644]
icons/mmsf01.gif [new file with mode: 0644]
icons/mmsf02.gif [new file with mode: 0644]
icons/mmsf03.gif [new file with mode: 0644]
icons/mmsf04.gif [new file with mode: 0644]
icons/mmsf05.gif [new file with mode: 0644]
icons/mmsf06.gif [new file with mode: 0644]
icons/mmsf07.gif [new file with mode: 0644]
icons/mmsf08.gif [new file with mode: 0644]
icons/mmsf09.gif [new file with mode: 0644]
icons/mmsf10.gif [new file with mode: 0644]
icons/mmsf11.gif [new file with mode: 0644]
icons/mmsf12.gif [new file with mode: 0644]
icons/mmsf13.gif [new file with mode: 0644]
icons/mmsf14.gif [new file with mode: 0644]
icons/mmz01.gif [new file with mode: 0644]
icons/mmz02.gif [new file with mode: 0644]
icons/mmz03.gif [new file with mode: 0644]
icons/mmz04.gif [new file with mode: 0644]
icons/mmz05.gif [new file with mode: 0644]
icons/mmz06.gif [new file with mode: 0644]
icons/mmz07.gif [new file with mode: 0644]
icons/mmz08.gif [new file with mode: 0644]
icons/mmz09.gif [new file with mode: 0644]
icons/mmz10.gif [new file with mode: 0644]
icons/mmz11.gif [new file with mode: 0644]
icons/mmz12.gif [new file with mode: 0644]
icons/mmz13.gif [new file with mode: 0644]
icons/mmz14.gif [new file with mode: 0644]
mirmon/mirmon

diff --git a/icons/bar.gif b/icons/bar.gif
new file mode 100644 (file)
index 0000000..1bb765d
Binary files /dev/null and b/icons/bar.gif differ
diff --git a/icons/mirmon.gif b/icons/mirmon.gif
new file mode 100644 (file)
index 0000000..8932cde
Binary files /dev/null and b/icons/mirmon.gif differ
diff --git a/icons/mirmon_b.gif b/icons/mirmon_b.gif
new file mode 100644 (file)
index 0000000..9e328d7
Binary files /dev/null and b/icons/mirmon_b.gif differ
diff --git a/icons/mirmon_f.gif b/icons/mirmon_f.gif
new file mode 100644 (file)
index 0000000..b1b1f9c
Binary files /dev/null and b/icons/mirmon_f.gif differ
diff --git a/icons/mirmon_s.gif b/icons/mirmon_s.gif
new file mode 100644 (file)
index 0000000..ae20880
Binary files /dev/null and b/icons/mirmon_s.gif differ
diff --git a/icons/mirmon_z.gif b/icons/mirmon_z.gif
new file mode 100644 (file)
index 0000000..677027f
Binary files /dev/null and b/icons/mirmon_z.gif differ
diff --git a/icons/mmb01.gif b/icons/mmb01.gif
new file mode 100644 (file)
index 0000000..9e328d7
Binary files /dev/null and b/icons/mmb01.gif differ
diff --git a/icons/mmb02.gif b/icons/mmb02.gif
new file mode 100644 (file)
index 0000000..bebe957
Binary files /dev/null and b/icons/mmb02.gif differ
diff --git a/icons/mmb03.gif b/icons/mmb03.gif
new file mode 100644 (file)
index 0000000..5b23849
Binary files /dev/null and b/icons/mmb03.gif differ
diff --git a/icons/mmb04.gif b/icons/mmb04.gif
new file mode 100644 (file)
index 0000000..dbc19c0
Binary files /dev/null and b/icons/mmb04.gif differ
diff --git a/icons/mmb05.gif b/icons/mmb05.gif
new file mode 100644 (file)
index 0000000..29d0411
Binary files /dev/null and b/icons/mmb05.gif differ
diff --git a/icons/mmb06.gif b/icons/mmb06.gif
new file mode 100644 (file)
index 0000000..6ad963b
Binary files /dev/null and b/icons/mmb06.gif differ
diff --git a/icons/mmb07.gif b/icons/mmb07.gif
new file mode 100644 (file)
index 0000000..f3e737d
Binary files /dev/null and b/icons/mmb07.gif differ
diff --git a/icons/mmb08.gif b/icons/mmb08.gif
new file mode 100644 (file)
index 0000000..d6a01c0
Binary files /dev/null and b/icons/mmb08.gif differ
diff --git a/icons/mmb09.gif b/icons/mmb09.gif
new file mode 100644 (file)
index 0000000..6a8943a
Binary files /dev/null and b/icons/mmb09.gif differ
diff --git a/icons/mmb10.gif b/icons/mmb10.gif
new file mode 100644 (file)
index 0000000..70bbbd4
Binary files /dev/null and b/icons/mmb10.gif differ
diff --git a/icons/mmb11.gif b/icons/mmb11.gif
new file mode 100644 (file)
index 0000000..f539e29
Binary files /dev/null and b/icons/mmb11.gif differ
diff --git a/icons/mmb12.gif b/icons/mmb12.gif
new file mode 100644 (file)
index 0000000..fefe8d8
Binary files /dev/null and b/icons/mmb12.gif differ
diff --git a/icons/mmb13.gif b/icons/mmb13.gif
new file mode 100644 (file)
index 0000000..9c23a25
Binary files /dev/null and b/icons/mmb13.gif differ
diff --git a/icons/mmb14.gif b/icons/mmb14.gif
new file mode 100644 (file)
index 0000000..5dd2551
Binary files /dev/null and b/icons/mmb14.gif differ
diff --git a/icons/mmf01.gif b/icons/mmf01.gif
new file mode 100644 (file)
index 0000000..b1b1f9c
Binary files /dev/null and b/icons/mmf01.gif differ
diff --git a/icons/mmf02.gif b/icons/mmf02.gif
new file mode 100644 (file)
index 0000000..e677d29
Binary files /dev/null and b/icons/mmf02.gif differ
diff --git a/icons/mmf03.gif b/icons/mmf03.gif
new file mode 100644 (file)
index 0000000..353c28d
Binary files /dev/null and b/icons/mmf03.gif differ
diff --git a/icons/mmf04.gif b/icons/mmf04.gif
new file mode 100644 (file)
index 0000000..466652d
Binary files /dev/null and b/icons/mmf04.gif differ
diff --git a/icons/mmf05.gif b/icons/mmf05.gif
new file mode 100644 (file)
index 0000000..50c5066
Binary files /dev/null and b/icons/mmf05.gif differ
diff --git a/icons/mmf06.gif b/icons/mmf06.gif
new file mode 100644 (file)
index 0000000..67d9963
Binary files /dev/null and b/icons/mmf06.gif differ
diff --git a/icons/mmf07.gif b/icons/mmf07.gif
new file mode 100644 (file)
index 0000000..a2cdba8
Binary files /dev/null and b/icons/mmf07.gif differ
diff --git a/icons/mmf08.gif b/icons/mmf08.gif
new file mode 100644 (file)
index 0000000..f6f1b07
Binary files /dev/null and b/icons/mmf08.gif differ
diff --git a/icons/mmf09.gif b/icons/mmf09.gif
new file mode 100644 (file)
index 0000000..f6b1a29
Binary files /dev/null and b/icons/mmf09.gif differ
diff --git a/icons/mmf10.gif b/icons/mmf10.gif
new file mode 100644 (file)
index 0000000..9c84597
Binary files /dev/null and b/icons/mmf10.gif differ
diff --git a/icons/mmf11.gif b/icons/mmf11.gif
new file mode 100644 (file)
index 0000000..80320fc
Binary files /dev/null and b/icons/mmf11.gif differ
diff --git a/icons/mmf12.gif b/icons/mmf12.gif
new file mode 100644 (file)
index 0000000..78a978e
Binary files /dev/null and b/icons/mmf12.gif differ
diff --git a/icons/mmf13.gif b/icons/mmf13.gif
new file mode 100644 (file)
index 0000000..e0725c2
Binary files /dev/null and b/icons/mmf13.gif differ
diff --git a/icons/mmf14.gif b/icons/mmf14.gif
new file mode 100644 (file)
index 0000000..62b9b5f
Binary files /dev/null and b/icons/mmf14.gif differ
diff --git a/icons/mms01.gif b/icons/mms01.gif
new file mode 100644 (file)
index 0000000..ae20880
Binary files /dev/null and b/icons/mms01.gif differ
diff --git a/icons/mms02.gif b/icons/mms02.gif
new file mode 100644 (file)
index 0000000..3699b91
Binary files /dev/null and b/icons/mms02.gif differ
diff --git a/icons/mms03.gif b/icons/mms03.gif
new file mode 100644 (file)
index 0000000..fffd096
Binary files /dev/null and b/icons/mms03.gif differ
diff --git a/icons/mms04.gif b/icons/mms04.gif
new file mode 100644 (file)
index 0000000..beb1967
Binary files /dev/null and b/icons/mms04.gif differ
diff --git a/icons/mms05.gif b/icons/mms05.gif
new file mode 100644 (file)
index 0000000..c2bbab3
Binary files /dev/null and b/icons/mms05.gif differ
diff --git a/icons/mms06.gif b/icons/mms06.gif
new file mode 100644 (file)
index 0000000..2d13a32
Binary files /dev/null and b/icons/mms06.gif differ
diff --git a/icons/mms07.gif b/icons/mms07.gif
new file mode 100644 (file)
index 0000000..967e69b
Binary files /dev/null and b/icons/mms07.gif differ
diff --git a/icons/mms08.gif b/icons/mms08.gif
new file mode 100644 (file)
index 0000000..8c2a663
Binary files /dev/null and b/icons/mms08.gif differ
diff --git a/icons/mms09.gif b/icons/mms09.gif
new file mode 100644 (file)
index 0000000..16384b8
Binary files /dev/null and b/icons/mms09.gif differ
diff --git a/icons/mms10.gif b/icons/mms10.gif
new file mode 100644 (file)
index 0000000..9e584ae
Binary files /dev/null and b/icons/mms10.gif differ
diff --git a/icons/mms11.gif b/icons/mms11.gif
new file mode 100644 (file)
index 0000000..f963fbb
Binary files /dev/null and b/icons/mms11.gif differ
diff --git a/icons/mms12.gif b/icons/mms12.gif
new file mode 100644 (file)
index 0000000..decf883
Binary files /dev/null and b/icons/mms12.gif differ
diff --git a/icons/mms13.gif b/icons/mms13.gif
new file mode 100644 (file)
index 0000000..b022a6f
Binary files /dev/null and b/icons/mms13.gif differ
diff --git a/icons/mms14.gif b/icons/mms14.gif
new file mode 100644 (file)
index 0000000..1619a62
Binary files /dev/null and b/icons/mms14.gif differ
diff --git a/icons/mmsb01.gif b/icons/mmsb01.gif
new file mode 100644 (file)
index 0000000..a07d76f
Binary files /dev/null and b/icons/mmsb01.gif differ
diff --git a/icons/mmsb02.gif b/icons/mmsb02.gif
new file mode 100644 (file)
index 0000000..e13dbe0
Binary files /dev/null and b/icons/mmsb02.gif differ
diff --git a/icons/mmsb03.gif b/icons/mmsb03.gif
new file mode 100644 (file)
index 0000000..372bdcc
Binary files /dev/null and b/icons/mmsb03.gif differ
diff --git a/icons/mmsb04.gif b/icons/mmsb04.gif
new file mode 100644 (file)
index 0000000..09ebdaf
Binary files /dev/null and b/icons/mmsb04.gif differ
diff --git a/icons/mmsb05.gif b/icons/mmsb05.gif
new file mode 100644 (file)
index 0000000..d764236
Binary files /dev/null and b/icons/mmsb05.gif differ
diff --git a/icons/mmsb06.gif b/icons/mmsb06.gif
new file mode 100644 (file)
index 0000000..575b390
Binary files /dev/null and b/icons/mmsb06.gif differ
diff --git a/icons/mmsb07.gif b/icons/mmsb07.gif
new file mode 100644 (file)
index 0000000..bb8f069
Binary files /dev/null and b/icons/mmsb07.gif differ
diff --git a/icons/mmsb08.gif b/icons/mmsb08.gif
new file mode 100644 (file)
index 0000000..e3daf4a
Binary files /dev/null and b/icons/mmsb08.gif differ
diff --git a/icons/mmsb09.gif b/icons/mmsb09.gif
new file mode 100644 (file)
index 0000000..e436e3e
Binary files /dev/null and b/icons/mmsb09.gif differ
diff --git a/icons/mmsb10.gif b/icons/mmsb10.gif
new file mode 100644 (file)
index 0000000..1c018f6
Binary files /dev/null and b/icons/mmsb10.gif differ
diff --git a/icons/mmsb11.gif b/icons/mmsb11.gif
new file mode 100644 (file)
index 0000000..26857fe
Binary files /dev/null and b/icons/mmsb11.gif differ
diff --git a/icons/mmsb12.gif b/icons/mmsb12.gif
new file mode 100644 (file)
index 0000000..451b382
Binary files /dev/null and b/icons/mmsb12.gif differ
diff --git a/icons/mmsb13.gif b/icons/mmsb13.gif
new file mode 100644 (file)
index 0000000..2631d8c
Binary files /dev/null and b/icons/mmsb13.gif differ
diff --git a/icons/mmsb14.gif b/icons/mmsb14.gif
new file mode 100644 (file)
index 0000000..a6549e6
Binary files /dev/null and b/icons/mmsb14.gif differ
diff --git a/icons/mmsbf01.gif b/icons/mmsbf01.gif
new file mode 100644 (file)
index 0000000..b98b0d4
Binary files /dev/null and b/icons/mmsbf01.gif differ
diff --git a/icons/mmsbf02.gif b/icons/mmsbf02.gif
new file mode 100644 (file)
index 0000000..4fbffe2
Binary files /dev/null and b/icons/mmsbf02.gif differ
diff --git a/icons/mmsbf03.gif b/icons/mmsbf03.gif
new file mode 100644 (file)
index 0000000..bca751a
Binary files /dev/null and b/icons/mmsbf03.gif differ
diff --git a/icons/mmsbf04.gif b/icons/mmsbf04.gif
new file mode 100644 (file)
index 0000000..6a8b62e
Binary files /dev/null and b/icons/mmsbf04.gif differ
diff --git a/icons/mmsbf05.gif b/icons/mmsbf05.gif
new file mode 100644 (file)
index 0000000..0b2cf1f
Binary files /dev/null and b/icons/mmsbf05.gif differ
diff --git a/icons/mmsbf06.gif b/icons/mmsbf06.gif
new file mode 100644 (file)
index 0000000..86f9575
Binary files /dev/null and b/icons/mmsbf06.gif differ
diff --git a/icons/mmsbf07.gif b/icons/mmsbf07.gif
new file mode 100644 (file)
index 0000000..4bb061d
Binary files /dev/null and b/icons/mmsbf07.gif differ
diff --git a/icons/mmsbf08.gif b/icons/mmsbf08.gif
new file mode 100644 (file)
index 0000000..9c70b49
Binary files /dev/null and b/icons/mmsbf08.gif differ
diff --git a/icons/mmsbf09.gif b/icons/mmsbf09.gif
new file mode 100644 (file)
index 0000000..67234e3
Binary files /dev/null and b/icons/mmsbf09.gif differ
diff --git a/icons/mmsbf10.gif b/icons/mmsbf10.gif
new file mode 100644 (file)
index 0000000..cab66eb
Binary files /dev/null and b/icons/mmsbf10.gif differ
diff --git a/icons/mmsbf11.gif b/icons/mmsbf11.gif
new file mode 100644 (file)
index 0000000..151c44b
Binary files /dev/null and b/icons/mmsbf11.gif differ
diff --git a/icons/mmsbf12.gif b/icons/mmsbf12.gif
new file mode 100644 (file)
index 0000000..713c3ce
Binary files /dev/null and b/icons/mmsbf12.gif differ
diff --git a/icons/mmsbf13.gif b/icons/mmsbf13.gif
new file mode 100644 (file)
index 0000000..563866e
Binary files /dev/null and b/icons/mmsbf13.gif differ
diff --git a/icons/mmsf01.gif b/icons/mmsf01.gif
new file mode 100644 (file)
index 0000000..3f96f91
Binary files /dev/null and b/icons/mmsf01.gif differ
diff --git a/icons/mmsf02.gif b/icons/mmsf02.gif
new file mode 100644 (file)
index 0000000..b62e6e0
Binary files /dev/null and b/icons/mmsf02.gif differ
diff --git a/icons/mmsf03.gif b/icons/mmsf03.gif
new file mode 100644 (file)
index 0000000..3ebf5c3
Binary files /dev/null and b/icons/mmsf03.gif differ
diff --git a/icons/mmsf04.gif b/icons/mmsf04.gif
new file mode 100644 (file)
index 0000000..94cf762
Binary files /dev/null and b/icons/mmsf04.gif differ
diff --git a/icons/mmsf05.gif b/icons/mmsf05.gif
new file mode 100644 (file)
index 0000000..a558eb9
Binary files /dev/null and b/icons/mmsf05.gif differ
diff --git a/icons/mmsf06.gif b/icons/mmsf06.gif
new file mode 100644 (file)
index 0000000..a1cd47c
Binary files /dev/null and b/icons/mmsf06.gif differ
diff --git a/icons/mmsf07.gif b/icons/mmsf07.gif
new file mode 100644 (file)
index 0000000..ddf4a43
Binary files /dev/null and b/icons/mmsf07.gif differ
diff --git a/icons/mmsf08.gif b/icons/mmsf08.gif
new file mode 100644 (file)
index 0000000..4976f10
Binary files /dev/null and b/icons/mmsf08.gif differ
diff --git a/icons/mmsf09.gif b/icons/mmsf09.gif
new file mode 100644 (file)
index 0000000..fb8560f
Binary files /dev/null and b/icons/mmsf09.gif differ
diff --git a/icons/mmsf10.gif b/icons/mmsf10.gif
new file mode 100644 (file)
index 0000000..362424f
Binary files /dev/null and b/icons/mmsf10.gif differ
diff --git a/icons/mmsf11.gif b/icons/mmsf11.gif
new file mode 100644 (file)
index 0000000..4e1b8c0
Binary files /dev/null and b/icons/mmsf11.gif differ
diff --git a/icons/mmsf12.gif b/icons/mmsf12.gif
new file mode 100644 (file)
index 0000000..0335cff
Binary files /dev/null and b/icons/mmsf12.gif differ
diff --git a/icons/mmsf13.gif b/icons/mmsf13.gif
new file mode 100644 (file)
index 0000000..b81b556
Binary files /dev/null and b/icons/mmsf13.gif differ
diff --git a/icons/mmsf14.gif b/icons/mmsf14.gif
new file mode 100644 (file)
index 0000000..fbe5052
Binary files /dev/null and b/icons/mmsf14.gif differ
diff --git a/icons/mmz01.gif b/icons/mmz01.gif
new file mode 100644 (file)
index 0000000..677027f
Binary files /dev/null and b/icons/mmz01.gif differ
diff --git a/icons/mmz02.gif b/icons/mmz02.gif
new file mode 100644 (file)
index 0000000..9c90229
Binary files /dev/null and b/icons/mmz02.gif differ
diff --git a/icons/mmz03.gif b/icons/mmz03.gif
new file mode 100644 (file)
index 0000000..22e65e2
Binary files /dev/null and b/icons/mmz03.gif differ
diff --git a/icons/mmz04.gif b/icons/mmz04.gif
new file mode 100644 (file)
index 0000000..1a2c1da
Binary files /dev/null and b/icons/mmz04.gif differ
diff --git a/icons/mmz05.gif b/icons/mmz05.gif
new file mode 100644 (file)
index 0000000..51d094e
Binary files /dev/null and b/icons/mmz05.gif differ
diff --git a/icons/mmz06.gif b/icons/mmz06.gif
new file mode 100644 (file)
index 0000000..888692f
Binary files /dev/null and b/icons/mmz06.gif differ
diff --git a/icons/mmz07.gif b/icons/mmz07.gif
new file mode 100644 (file)
index 0000000..53c6747
Binary files /dev/null and b/icons/mmz07.gif differ
diff --git a/icons/mmz08.gif b/icons/mmz08.gif
new file mode 100644 (file)
index 0000000..464f984
Binary files /dev/null and b/icons/mmz08.gif differ
diff --git a/icons/mmz09.gif b/icons/mmz09.gif
new file mode 100644 (file)
index 0000000..ff93969
Binary files /dev/null and b/icons/mmz09.gif differ
diff --git a/icons/mmz10.gif b/icons/mmz10.gif
new file mode 100644 (file)
index 0000000..5dd4ff4
Binary files /dev/null and b/icons/mmz10.gif differ
diff --git a/icons/mmz11.gif b/icons/mmz11.gif
new file mode 100644 (file)
index 0000000..b9c4ef8
Binary files /dev/null and b/icons/mmz11.gif differ
diff --git a/icons/mmz12.gif b/icons/mmz12.gif
new file mode 100644 (file)
index 0000000..f0cae77
Binary files /dev/null and b/icons/mmz12.gif differ
diff --git a/icons/mmz13.gif b/icons/mmz13.gif
new file mode 100644 (file)
index 0000000..0ad1563
Binary files /dev/null and b/icons/mmz13.gif differ
diff --git a/icons/mmz14.gif b/icons/mmz14.gif
new file mode 100644 (file)
index 0000000..0ce5d19
Binary files /dev/null and b/icons/mmz14.gif differ
index 8c0b298535d823b5c7c8cda8a1fd2a3c4a1f0a9d..39674a704b36e186a46e596eee37b51a3bcfa2c9 100755 (executable)
@@ -1,6 +1,5 @@
-#! /usr/bin/perl -w
-#    $Cambridge$
-#
+#!/usr/bin/perl -w
+# $Cambridge$
 # Copyright (c) 2003 Henk Penning, all rights reserved.
 # penning@cs.uu.nl, http://www.cs.uu.nl/staff/henkp.html
 # Version 1.1 was donated to the Apache Software Foundation 2003 Jan 28
 # Copyright (c) 2003 Henk Penning, all rights reserved.
 # penning@cs.uu.nl, http://www.cs.uu.nl/staff/henkp.html
 # Version 1.1 was donated to the Apache Software Foundation 2003 Jan 28
 # DEALINGS IN THE SOFTWARE.
 #
 # Thanks to Klaus Heinz <heinz@NetBSD.org> for sugestions ao htm_head
 # DEALINGS IN THE SOFTWARE.
 #
 # Thanks to Klaus Heinz <heinz@NetBSD.org> for sugestions ao htm_head
-
-my $PRG = 'mirmon' ;
-my $VER = '$Id: mirmon,v 1.37 2006/12/04 15:16:11 henkp Exp henkp $' ;
-
-use strict ;
-use IO::Pipe ;
-use IO::Select ;
-use Net::hostent ;
-
-my $DEF_CNF = "/etc/$PRG.conf" ;
-
-my %CNF =
-  qw( timeout    300
-      max_probes 25
-      min_poll   1h
-      max_poll   4h
-      min_sync   1d
-      max_sync   2d
-      list_style plain
-      put_histo  top
-      randomize  1
-    ) ;
-
-my @REQ_KEYS =
-  qw( web_page state countries mirror_list probe
-      project_name project_url icons
-    ) ;
+my $PRG = 'mirmon';
+my $VER = '$Id: mirmon,v 1.37 2006/12/04 15:16:11 henkp Exp henkp $';
+use strict;
+use IO::Pipe;
+use IO::Select;
+use Net::hostent;
+my $DEF_CNF = "/etc/$PRG.conf";
+my %CNF = qw( timeout    300
+  max_probes 25
+  min_poll   1h
+  max_poll   4h
+  min_sync   1d
+  max_sync   2d
+  list_style plain
+  put_histo  top
+  randomize  1
+);
+my @REQ_KEYS = qw( web_page state countries mirror_list probe
+  project_name project_url icons
+);
 my @OPT_KEYS =
   qw( project_logo min_poll min_sync max_sync list_style htm_top htm_foot
 my @OPT_KEYS =
   qw( project_logo min_poll min_sync max_sync list_style htm_top htm_foot
-      htm_head put_histo
-    ) ;
-my %CNF_KEYS ; for ( @REQ_KEYS, @OPT_KEYS, keys %CNF )
-  { $CNF_KEYS { $_ } ++ ; }
-
-my $TIM_PAT = '^(\d+)([smhd])$' ;
-my @LIST_STYLE = qw(plain apache) ;
-my @GET_OPTS   = qw(all update) ;
-my @PUT_HGRAM  = qw(top bottom nowhere) ;
-my $HIST       = 14 ;
-my %APA_TYPES  = () ; for ( qw(backup ftp http) ) { $APA_TYPES { $_ } ++ ; }
-
-my $prog = substr($0,rindex($0,'/')+1) ;
+  htm_head put_histo
+);
+my %CNF_KEYS;
+for ( @REQ_KEYS, @OPT_KEYS, keys %CNF ) { $CNF_KEYS{$_}++; }
+my $TIM_PAT    = '^(\d+)([smhd])$';
+my @LIST_STYLE = qw(plain apache);
+my @GET_OPTS   = qw(all update);
+my @PUT_HGRAM  = qw(top bottom nowhere);
+my $HIST       = 14;
+my %APA_TYPES  = ();
+for (qw(backup ftp http)) { $APA_TYPES{$_}++; }
+my $prog = substr( $0, rindex( $0, '/' ) + 1 );
 my $Usage = <<USAGE ;
 Usage: $prog [ -v ] [ -q ] [ -t timeout ] [ -get opt ] [ -c conf ]
 option v   : be verbose
 my $Usage = <<USAGE ;
 Usage: $prog [ -v ] [ -q ] [ -t timeout ] [ -get opt ] [ -c conf ]
 option v   : be verbose
@@ -79,909 +70,782 @@ Documentation : the program contains 'pod' style documentation.
 Extract the doc with 'pod2text $prog' or 'pod2html $prog OUT', etc.
 -------------------------------------------------------------------
 USAGE
 Extract the doc with 'pod2text $prog' or 'pod2html $prog OUT', etc.
 -------------------------------------------------------------------
 USAGE
-sub Usage { die "$_[0]$Usage" ; }
-sub Error { die "$prog: $_[0]\n" ; }
-sub Warn  { warn "$prog: $_[0]\n" ; }
-
+sub Usage { die "$_[0]$Usage"; }
+sub Error { die "$prog: $_[0]\n"; }
+sub Warn  { warn "$prog: $_[0]\n"; }
 # usage: &GetOptions(ARG,ARG,..) defines $opt_ID as 1 or user spec'ed value
 # usage: &GetOptions(\%opt,ARG,ARG,..) defines $opt{ID} as 1 or user value
 # ARG = 'ID' | 'ID=SPC' | 'ID:SPC' for no-arg, required-arg or optional-arg
 # ID  = perl identifier
 # SPC = i|f|s for integer, fixedpoint real or string argument
 # usage: &GetOptions(ARG,ARG,..) defines $opt_ID as 1 or user spec'ed value
 # usage: &GetOptions(\%opt,ARG,ARG,..) defines $opt{ID} as 1 or user value
 # ARG = 'ID' | 'ID=SPC' | 'ID:SPC' for no-arg, required-arg or optional-arg
 # ID  = perl identifier
 # SPC = i|f|s for integer, fixedpoint real or string argument
-
-use Getopt::Long ;
-Getopt::Long::config('no_ignore_case') ;
+use Getopt::Long;
+Getopt::Long::config('no_ignore_case');
 # Usage() unless GetOptions() ;
 # Usage() unless GetOptions() ;
-my %opt = () ; Usage() unless GetOptions (\%opt,'v','q','t=i','get=s','c=s') ;
-Usage("Arg count\n") unless @ARGV >= 0 ;
-
-my %WGT ;
-my $GET = IO::Select -> new () ;
-my %URL ;
-my %RES ;
-my %OLD ;
-my %LST ;
-my %CCS ;
-my %HREF ;
-
+my %opt = ();
+Usage() unless GetOptions( \%opt, 'v', 'q', 't=i', 'get=s', 'c=s' );
+Usage("Arg count\n") unless @ARGV >= 0;
+my %WGT;
+my $GET = IO::Select->new();
+my %URL;
+my %RES;
+my %OLD;
+my %LST;
+my %CCS;
+my %HREF;
 # <META HTTP-EQUIV=Expires CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
 # <META HTTP-EQUIV=Expires CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
-sub exp_date
-  { my @day = qw(Sun Mon Tue Wed Thu Fri Sat) ;
-    my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) ;
-    my @gmt = gmtime time + 3600 ;
-    sprintf "%s, %02d %s %4d %02d:%02d:%02d GMT"
-      , $day [ $gmt [ 6 ] ]
-      , $gmt [ 3 ]
-      , $mon [ $gmt [ 4 ] ]
-      , $gmt [ 5 ] + 1900
-      , @gmt [ 2, 1, 0 ]
-      ;
-  }
-
-sub find_conf
-  { return $opt{c} if $opt{c} ;
-    my $HOME = ( getpwuid $< ) [ 7 ] or Error "can get homedir '$<' ($!)" ;
-    my @LIST = ( "$PRG.conf" , "$HOME/.$PRG.conf" , $DEF_CNF ) ;
-    for my $conf ( @LIST ) { return $conf if -f $conf ; }
-    Error sprintf "can't find a config file :\n  %s" , join "\n  ", @LIST ;
-  }
-
-sub show_conf
-  { print "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv\n" ;
-    for my $key ( sort keys %CNF )
-      { next if $key =~ m/^_/ ;
-        print "show_conf : $key = '$CNF{$key}'\n" ;
-      }
-    for my $key ( sort keys %HREF )
-      { printf "show_conf : for site '%s' use instead\n   '%s'\n",
-          $key, $HREF { $key } if $opt{v} ;
-      }
-    printf "show_conf : included '%s'\n", join "', '", @{ $CNF{_include} } ;
-    print "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n" ;
-  }
-
-sub get_conf ;
-
-sub get_conf
-  { my $FILE = shift ;
-
-    if ( grep $_ eq $FILE,  @{ $CNF {_include} } )
-      { Error "already included : '$FILE'" ; }
-    else
-      { push @{ $CNF {_include} }, $FILE ; }
-
-    open FILE, $FILE or Error "can't open '$FILE' ($!)" ;
-    my $CONF = join "\n", grep /./, <FILE> ;
-    close FILE ;
-
-    $CONF =~ s/\t/ /g ;           # replace tabs
-    $CONF =~ s/^[+ ]+// ;         # delete leading space, plus
-    $CONF =~ s/\n\n\s+/ /g ;      # glue continuation lines
-    $CONF =~ s/\n\n\+\s+//g ;     # glue concatenation lines
-    $CONF =~ s/\n\n\./\n/g ;      # glue concatenation lines
-
-    chop $CONF ;
-    print "--$CONF--\n" if  $opt{d} ;
-    for ( grep ! /^#/, split /\n\n/, $CONF )
-      { my ($key,$val) = split ' ', $_, 2 ;
-        $val = '' unless defined $val ;
-        print "conf '$FILE' : key '$key', val '$val'\n" if $opt{d} ;
-    if ( exists $CNF_KEYS { $key } )
-      { $CNF { $key } = $val ; }
-    elsif ( $key eq 'site_url' )
-      { my ( $site, $url ) = split ' ' , $val ;
-        $url .= '/' unless $url =~ m!/$! ;
-        $HREF { lc $site } = $url ;
-        printf "config : for site '%s' use instead\n   '%s'\n",
-          $site, $url if $opt{v} ;
-      }
-    elsif ( $key eq 'env' )
-      { my ( $x, $y ) = split ' ' , $val ;
-        $ENV { $x } = $y ;
-        printf "config : setenv '%s'\n   '%s'\n", $x, $y if $opt{v} ;
-      }
-    elsif ( $key eq 'no_randomize' )
-      { $CNF { randomize } = 0 ; }
-    elsif ( $key eq 'include' )
-      { get_conf $val ; }
-    elsif ( $key eq 'show' )
-      { show_conf unless $opt{q} ; }
-    elsif ( $key eq 'exit' )
-      { Error 'exit per config directive' ; }
-    elsif ( $key eq 'max_age' )
-      { $CNF { max_sync } = $val ; }
-    else
-      { show_conf ;
-        Error "unknown keyword '$key' (value '$val')" ;
-      }
-      }
-  }
-
-sub get_conf_opt
-  { my $err = '' ;
-    get_conf find_conf ;
-    $CNF { timeout } = $opt{t} if $opt{t} ;
-    for my $key ( @REQ_KEYS )
-      { unless ( exists $CNF { $key } )
-          { $err .= "$prog error: missing config for '$key'\n" ; }
-      }
-    for my $key ( qw(min_poll max_poll max_sync min_sync) )
-      { my $max = $CNF { $key } ;
-        unless ( $max =~ /$TIM_PAT/o )
-          { $err .= "$prog error: $key ($max) doesn't match /$TIM_PAT/\n" ; }
-      }
-    unless ( grep $CNF { list_style } eq $_, @LIST_STYLE )
-      { $err .= sprintf "%s : error: unknown 'list_style' '%s'\n",
-          $prog, $CNF { list_style } ;
-      }
-    unless ( grep $CNF { put_histo } eq $_, @PUT_HGRAM )
-      { $err .= sprintf "%s : error: unknown 'put_histo' '%s'\n",
-          $prog, $CNF { put_histo } ;
-      }
-    if ( $opt { get } and not grep $opt { get } eq $_, @GET_OPTS )
-      { $err .= sprintf "%s : error: unknown 'get option' '%s'\n",
-          $prog, $opt { get } ;
-      }
-    Error $err if $err ;
-    $opt{q} = 0 if $opt{v} ;
-  }
-
-sub tim_to_s
-  { my $tim = shift ;
-    my %tab = ( 's' => 1, 'm' => 60, 'h' => 60 * 60, 'd' => 60 * 60 * 24 ) ;
-    Error "wrong time '$tim'" unless $tim =~ /$TIM_PAT/o ;
-    my $m = $1 ; my $u = $2 ;
-    return $m * $tab { $u } ;
-  }
-
-sub aprx_eq { my ( $t1, $t2 ) = @_ ; abs ( $t1 - $t2 ) < 60 ; }
-sub aprx_ge { my ( $t1, $t2 ) = @_ ; $t1 > $t2 or      aprx_eq $t1, $t2 ; }
-sub aprx_le { my ( $t1, $t2 ) = @_ ; $t1 < $t2 or      aprx_eq $t1, $t2 ; }
-sub aprx_gt { my ( $t1, $t2 ) = @_ ; $t1 > $t2 and not aprx_eq $t1, $t2 ; }
-sub aprx_lt { my ( $t1, $t2 ) = @_ ; $t1 < $t2 and not aprx_eq $t1, $t2 ; }
-
-sub pr_interval
-  { my $s  = shift ;
-    my ( $magn, $unit ) ;
-    my $mins  = $s / 60          ; my $m = int ( $mins + 0.5 ) ;
-    my $hours = $s / ( 60 * 60 ) ; my $h = int ( $hours + 0.5 ) ;
-
-    if ( $s < 50 )
-      { $magn = $s ; $unit = 'second' ; }
-    elsif ( $m < 50 )
-      { $magn = $m ; $unit = 'minute' ; }
-    elsif ( $h < 36 )
-      { $magn = $h ; $unit = 'hour' ; }
-    else
-      { $magn = sprintf "%.1f", $hours / 24 ; $unit = 'day' ; }
-
-    $unit .= 's' unless $magn == 1 ;
-
-    return "$magn $unit" ;
-  }
-
-sub max_age1
-  { ( tim_to_s $CNF { min_sync } ) + ( tim_to_s $CNF { max_poll } ) ; }
-sub max_age2
-  { ( tim_to_s $CNF { max_sync } ) + ( tim_to_s $CNF { max_poll } ) ; }
-
-sub max_vrfy
-  { ( tim_to_s $CNF { min_poll } ) + ( tim_to_s $CNF { max_poll } ) ; }
-
-sub age_code
-  { my $time = shift ;
-    return 'z' unless $time =~ /^\d+$/ ;
-    return
-      ( ( aprx_ge ( $time, $^T - max_age1 ) )
-      ? 's'
-      : ( aprx_ge ( $time, $^T - max_age2 ) ? 'b' : 'f' )
-      ) ;
-  }
-
-sub err
-  { my $url = shift ;
-    my $stat = shift ;
-    printf "*** %-10s %s\n", $stat, $url unless $opt{q} ;
-    my ( $time, $vrfy, $hstp, $hsts ) ;
-    if ( exists $OLD { $url } )
-      { $time = $OLD { $url } [ 0 ] ;
-        $vrfy = $OLD { $url } [ 2 ] ;
-    $hstp = substr $OLD { $url } [ 3 ], 1 - $HIST ;
-        $hsts = $OLD { $url } [ 4 ] ;
-      }
-    else
-      { $time = 'undef' ;
-        $vrfy = 'undef' ;
-    $hstp = '' ;
-        $hsts = '' ;
-      }
-    $RES { $url } = [ $time, $stat, $vrfy, $hstp . 'f', $hsts, $^T ] ;
-  }
-
-sub res
-  { my $url  = shift ;
-    my $time = shift ;
-    my $stat = shift ;
-    my $hstp =
-      ( exists $OLD { $url }
-      ? substr ( $OLD { $url } [ 3 ], 1 - $HIST )
-      : ''
-      ) ;
-    my $hsts = ( exists $OLD { $url } ? $OLD { $url } [ 4 ] : '') ;
-    printf "result %d %s\n", $time, $url if $opt{v} ;
-    $RES { $url } = [ $time, $stat, $^T, $hstp . 's', $hsts, $^T ] ;
-  }
-
-sub get_state
-  { my $STT = shift ;
-    open STT, $STT or Error "can't open '$STT' ($!)" ;
-    while ( <STT> )
-      { chop ;
-        my ( $url, $time, $stat, $vrfy, $hstp, $hsts, $lprb ) = split ' ' ;
-    $stat =~ s/_/ /g ;
-    $hstp = '' unless defined $hstp ;
-    $hsts = '' unless defined $hsts ;
-    $hsts = '' if $hsts eq 'undef' ;
-    $lprb = 'undef' unless defined $lprb ;
-    $OLD { $url } = [ $time, $stat, $vrfy, $hstp, $hsts, $lprb ] ;
-      }
-    close STT ;
-  }
-
-sub check_hist
-  { my $time = shift ;
-    my $hsts = shift ;
-    printf "check_hist: last '$time' hsts '$hsts'\n" if $opt{d} ;
-
-    my $res = $hsts ;
-    my ( $stmp, $hist ) ;
-
-    if ( $hsts eq '' )
-      { $stmp = 0 ; $hist = '' ; }
-    else
-      { ( $stmp, $hist ) = split '-', $hsts ; }
-
-    if ( aprx_le $stmp, $^T - tim_to_s '1d' )
-      { $res = sprintf "%s-%s%s"
-      , $^T
-      , substr ( $hist, 1 - $HIST )
-      , age_code ( $time )
-      ;
-      }
-    return $res ;
-  }
-
-sub put_state
-  { my $STT = shift ;
-    my $TMP = "$STT.tmp" ;
-    open TMP, ">$TMP" or Error "can't write '$TMP' ($!)" ;
-    for my $url ( sort keys %RES )
-      { $RES { $url } [ 4 ]
-          = check_hist $RES { $url } [ 0 ], $RES { $url } [ 4 ] ;
-        my @OUT = @{ $RES { $url } } ;
-        $OUT [ 1 ] =~ s/\s/_/g ;
+sub exp_date {
+    my @day = qw(Sun Mon Tue Wed Thu Fri Sat);
+    my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+    my @gmt = gmtime time + 3600;
+    sprintf "%s, %02d %s %4d %02d:%02d:%02d GMT", $day[ $gmt[6] ], $gmt[3],
+      $mon[ $gmt[4] ], $gmt[5] + 1900, @gmt[ 2, 1, 0 ];
+}
+sub find_conf {
+    return $opt{c} if $opt{c};
+    my $HOME = ( getpwuid $< )[7] or Error "can get homedir '$<' ($!)";
+    my @LIST = ( "$PRG.conf", "$HOME/.$PRG.conf", $DEF_CNF );
+    for my $conf (@LIST) { return $conf if -f $conf; }
+    Error sprintf "can't find a config file :\n  %s", join "\n  ", @LIST;
+}
+sub show_conf {
+    print "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv\n";
+    for my $key ( sort keys %CNF ) {
+        next if $key =~ m/^_/;
+        print "show_conf : $key = '$CNF{$key}'\n";
+    }
+    for my $key ( sort keys %HREF ) {
+        printf "show_conf : for site '%s' use instead\n   '%s'\n", $key,
+          $HREF{$key}
+          if $opt{v};
+    }
+    printf "show_conf : included '%s'\n", join "', '", @{ $CNF{_include} };
+    print "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";
+}
+sub get_conf;
+sub get_conf {
+    my $FILE = shift;
+    if ( grep $_ eq $FILE, @{ $CNF{_include} } ) {
+        Error "already included : '$FILE'";
+    }
+    else { push @{ $CNF{_include} }, $FILE; }
+    open FILE, $FILE or Error "can't open '$FILE' ($!)";
+    my $CONF = join "\n", grep /./, <FILE>;
+    close FILE;
+    $CONF =~ s/\t/ /g;          # replace tabs
+    $CONF =~ s/^[+ ]+//;        # delete leading space, plus
+    $CONF =~ s/\n\n\s+/ /g;     # glue continuation lines
+    $CONF =~ s/\n\n\+\s+//g;    # glue concatenation lines
+    $CONF =~ s/\n\n\./\n/g;     # glue concatenation lines
+    chop $CONF;
+    print "--$CONF--\n" if $opt{d};
+    for ( grep !/^#/, split /\n\n/, $CONF ) {
+        my ( $key, $val ) = split ' ', $_, 2;
+        $val = '' unless defined $val;
+        print "conf '$FILE' : key '$key', val '$val'\n" if $opt{d};
+        if ( exists $CNF_KEYS{$key} ) { $CNF{$key} = $val; }
+        elsif ( $key eq 'site_url' ) {
+            my ( $site, $url ) = split ' ', $val;
+            $url .= '/' unless $url =~ m!/$!;
+            $HREF{ lc $site } = $url;
+            printf "config : for site '%s' use instead\n   '%s'\n", $site, $url
+              if $opt{v};
+        }
+        elsif ( $key eq 'env' ) {
+            my ( $x, $y ) = split ' ', $val;
+            $ENV{$x} = $y;
+            printf "config : setenv '%s'\n   '%s'\n", $x, $y if $opt{v};
+        }
+        elsif ( $key eq 'no_randomize' ) { $CNF{randomize} = 0; }
+        elsif ( $key eq 'include' ) { get_conf $val ; }
+        elsif ( $key eq 'show' )    { show_conf unless $opt{q}; }
+        elsif ( $key eq 'exit' )    { Error 'exit per config directive'; }
+        elsif ( $key eq 'max_age' ) { $CNF{max_sync} = $val; }
+        else {
+            show_conf;
+            Error "unknown keyword '$key' (value '$val')";
+        }
+    }
+}
+sub get_conf_opt {
+    my $err = '';
+    get_conf find_conf;
+    $CNF{timeout} = $opt{t} if $opt{t};
+    for my $key (@REQ_KEYS) {
+        unless ( exists $CNF{$key} ) {
+            $err .= "$prog error: missing config for '$key'\n";
+        }
+    }
+    for my $key (qw(min_poll max_poll max_sync min_sync)) {
+        my $max = $CNF{$key};
+        unless ( $max =~ /$TIM_PAT/o ) {
+            $err .= "$prog error: $key ($max) doesn't match /$TIM_PAT/\n";
+        }
+    }
+    unless ( grep $CNF{list_style} eq $_, @LIST_STYLE ) {
+        $err .= sprintf "%s : error: unknown 'list_style' '%s'\n", $prog,
+          $CNF{list_style};
+    }
+    unless ( grep $CNF{put_histo} eq $_, @PUT_HGRAM ) {
+        $err .= sprintf "%s : error: unknown 'put_histo' '%s'\n", $prog,
+          $CNF{put_histo};
+    }
+    if ( $opt{get} and not grep $opt{get} eq $_, @GET_OPTS ) {
+        $err .= sprintf "%s : error: unknown 'get option' '%s'\n", $prog,
+          $opt{get};
+    }
+    Error $err if $err;
+    $opt{q} = 0 if $opt{v};
+}
+sub tim_to_s {
+    my $tim = shift;
+    my %tab = ( 's' => 1, 'm' => 60, 'h' => 60 * 60, 'd' => 60 * 60 * 24 );
+    Error "wrong time '$tim'" unless $tim =~ /$TIM_PAT/o;
+    my $m = $1;
+    my $u = $2;
+    return $m * $tab{$u};
+}
+sub aprx_eq { my ( $t1, $t2 ) = @_; abs( $t1 - $t2 ) < 60; }
+sub aprx_ge { my ( $t1, $t2 ) = @_; $t1 > $t2 or aprx_eq $t1, $t2; }
+sub aprx_le { my ( $t1, $t2 ) = @_; $t1 < $t2 or aprx_eq $t1, $t2; }
+sub aprx_gt { my ( $t1, $t2 ) = @_; $t1 > $t2 and not aprx_eq $t1, $t2; }
+sub aprx_lt { my ( $t1, $t2 ) = @_; $t1 < $t2 and not aprx_eq $t1, $t2; }
+sub pr_interval {
+    my $s = shift;
+    my ( $magn, $unit );
+    my $mins  = $s / 60;
+    my $m     = int( $mins + 0.5 );
+    my $hours = $s / ( 60 * 60 );
+    my $h     = int( $hours + 0.5 );
+    if    ( $s < 50 ) { $magn = $s; $unit = 'second'; }
+    elsif ( $m < 50 ) { $magn = $m; $unit = 'minute'; }
+    elsif ( $h < 36 ) { $magn = $h; $unit = 'hour'; }
+    else              { $magn = sprintf "%.1f", $hours / 24; $unit = 'day'; }
+    $unit .= 's' unless $magn == 1;
+    return "$magn $unit";
+}
+sub max_age1 {
+    ( tim_to_s $CNF {min_sync} ) + ( tim_to_s $CNF {max_poll} );
+}
+sub max_age2 {
+    ( tim_to_s $CNF {max_sync} ) + ( tim_to_s $CNF {max_poll} );
+}
+sub max_vrfy {
+    ( tim_to_s $CNF {min_poll} ) + ( tim_to_s $CNF {max_poll} );
+}
+sub age_code {
+    my $time = shift;
+    return 'z' unless $time =~ /^\d+$/;
+    return (
+        ( aprx_ge( $time, $^T - max_age1 ) )
+        ? 's'
+        : ( aprx_ge( $time, $^T - max_age2 ) ? 'b' : 'f' )
+    );
+}
+sub err {
+    my $url  = shift;
+    my $stat = shift;
+    printf "*** %-10s %s\n", $stat, $url unless $opt{q};
+    my ( $time, $vrfy, $hstp, $hsts );
+    if ( exists $OLD{$url} ) {
+        $time = $OLD{$url}[0];
+        $vrfy = $OLD{$url}[2];
+        $hstp = substr $OLD{$url}[3], 1 - $HIST;
+        $hsts = $OLD{$url}[4];
+    }
+    else {
+        $time = 'undef';
+        $vrfy = 'undef';
+        $hstp = '';
+        $hsts = '';
+    }
+    $RES{$url} = [ $time, $stat, $vrfy, $hstp . 'f', $hsts, $^T ];
+}
+sub res {
+    my $url  = shift;
+    my $time = shift;
+    my $stat = shift;
+    my $hstp = (
+        exists $OLD{$url}
+        ? substr( $OLD{$url}[3], 1 - $HIST )
+        : ''
+    );
+    my $hsts = ( exists $OLD{$url} ? $OLD{$url}[4] : '' );
+    printf "result %d %s\n", $time, $url if $opt{v};
+    $RES{$url} = [ $time, $stat, $^T, $hstp . 's', $hsts, $^T ];
+}
+sub get_state {
+    my $STT = shift;
+    open STT, $STT or Error "can't open '$STT' ($!)";
+    while (<STT>) {
+        chop;
+        my ( $url, $time, $stat, $vrfy, $hstp, $hsts, $lprb ) = split ' ';
+        $stat =~ s/_/ /g;
+        $hstp = '' unless defined $hstp;
+        $hsts = '' unless defined $hsts;
+        $hsts = '' if $hsts eq 'undef';
+        $lprb = 'undef' unless defined $lprb;
+        $OLD{$url} = [ $time, $stat, $vrfy, $hstp, $hsts, $lprb ];
+    }
+    close STT;
+}
+sub check_hist {
+    my $time = shift;
+    my $hsts = shift;
+    printf "check_hist: last '$time' hsts '$hsts'\n" if $opt{d};
+    my $res = $hsts;
+    my ( $stmp, $hist );
+    if ( $hsts eq '' ) { $stmp = 0; $hist = ''; }
+    else               { ( $stmp, $hist ) = split '-', $hsts; }
+    if ( aprx_le $stmp, $^T - tim_to_s '1d' ) {
+        $res = sprintf "%s-%s%s", $^T, substr( $hist, 1 - $HIST ),
+          age_code($time);
+    }
+    return $res;
+}
+sub put_state {
+    my $STT = shift;
+    my $TMP = "$STT.tmp";
+    open TMP, ">$TMP" or Error "can't write '$TMP' ($!)";
+    for my $url ( sort keys %RES ) {
+        $RES{$url}[4] = check_hist $RES {$url}[0], $RES{$url}[4];
+        my @OUT = @{ $RES{$url} };
+        $OUT[1] =~ s/\s/_/g;
         printf TMP "%s %s\n", $url, join ' ', @OUT
         printf TMP "%s %s\n", $url, join ' ', @OUT
-      or Error "can't print to $TMP ($!)" ;
-      }
-    close TMP ;
-    if ( -z $TMP )
-      { Warn "wrote empty state file; keeping previous version" ; }
-    else
-      { rename $TMP, $STT or Error "can't rename '$TMP', '$STT' ($!)" ; }
-  }
-
-sub get_ccs
-  { my $CCS = shift ;
-    open CCS, $CCS or Error "can't open '$CCS' ($!)" ;
-    while ( <CCS> )
-      { chop ;
-        next if /^#/ ;
-        my ( $code, $dash, $reg ) = split ' ', $_, 3 ;
-    $CCS { lc $code } = lc $reg ;
-      }
-    close CCS ;
-  }
-
-sub type_site
-  { my $url = shift ;
-    my ( $type, $site, $home ) ;
-    if ( $url =~ m!^(ftp|http)://([^/:]+)(:\d+)?/! )
-      { $type = $1 ; $site = $2 ; $home = $& ; }
-    return $type, $site, $home ;
-  }
-
-sub type { my ( $t, $s, $h) = type_site $_[0] ; $t ; }
-sub site { my ( $t, $s, $h) = type_site $_[0] ; $s ; }
-sub home { my ( $t, $s, $h) = type_site $_[0] ; $h ; }
-
-sub get_list
-  { my $LST = shift ;
-    my ( $reg, $url ) ;
-    open LST, $LST or Error "can't open '$LST' ($!)" ;
-    while ( <LST> )
-      { chop ;
-        next if /^#/ ;
-    next if /^\s*$/ ;
-        if ( $CNF { list_style } eq 'plain' )
-      { ( $reg, $url ) = split ' ' ;
-        unless ( $url =~ m!/$! )
-          { print "*** mirmon appended '/' to $url\n" unless $opt{q} ;
-            $url .= '/' ;
-          }
-      }
-    elsif ( $CNF { list_style } eq 'apache' )
-      { my $apache_type ;
-        ( $apache_type, $reg, $url ) = split ' ' ;
-        unless (  defined $APA_TYPES { $apache_type } )
-          { print "*** strange type : $apache_type\n" unless $opt{q} ;
-            next ;
-          }
-        unless ( $url =~ m!/$! )
-          { print "*** missing '/' in $url\n" unless $opt{q} ;
-            $url .= '/' ;
-          }
-      }
-
-    my $site = site $url ;
-    my $type = type $url ;
-
-    unless ( defined $site )
-      { print "*** strange url : '$url'\n" unless $opt{q} ; next ; }
-
-        $LST { $url } = [ $type , $site, $reg ] ;
-      }
-  }
-
-sub url { sprintf '<A HREF="%s">%s</A>', $_[0], $_[1] ; }
-sub nam { sprintf '<A NAME="%s">%s</A>', $_[0], $_[1] ; }
-sub SMA { sprintf "<FONT SIZE=\"-1\">%s</FONT>", $_[0] ; }
-sub BLD { sprintf "<B>%s</B>", $_[0] ; }
-sub NSS { sprintf SMA('%s&nbsp;site%s'), $_[0], ( $_[0] == 1 ? '' : 's' ) ; }
-sub TAB { sprintf "<TABLE BORDER=2 CELLPADDING=3>%s</TABLE>", $_[0] ; }
-sub TR  { sprintf "<TR>%s</TR>\n", $_[0] ; }
-sub TH  { sprintf "<TH>%s</TH>\n", $_[0] ; }
-sub TD  { sprintf "<TD>%s</TD>\n", $_[0] ; }
-sub TDr { sprintf "<TD ALIGN=\"RIGHT\">%s</TD>\n", $_[0] ; }
-sub RED { sprintf "<FONT COLOR=\"RED\">%s</FONT>", $_[0] ; }
-sub GRN { sprintf '<FONT COLOR="GREEN">%s</FONT>', $_[0] ; }
-
-sub htmlquote
-  { my $x = shift ;
-    $x =~ s/&/&amp;/g ;
-    $x =~ s/</&lt;/g ;
-    $x =~ s/>/&gt;/g ;
-    return $x ;
-  }
-
-sub diff
-  { my $time = shift ;
-    my $max  = shift ;
-    my $res ;
-
-    if ( $time == $^T )
-      { $res = BLD 'renewed' ; }
-    else
-      { $res = pr_interval $^T - $time ;
-        $res = BLD RED $res if aprx_lt $time, $max ;
-      }
-    return $res ;
-  }
-
-sub img_sf_cnt
-  { sprintf '<IMG BORDER=1 SRC="%s/mm%s%02d.gif" ALT="">'
-      , $CNF { icons }, $_[0], $_[1] ;
-  }
-
-sub img_sf { img_sf_cnt $_[0], 1 ; }
-
-sub show_hist
-  { my $hst = shift ;
-    return '' unless $hst =~ m/^[sbfz]+$/ ;
-    if ( length $hst == $HIST and $hst =~ /^(s*b)s*$/ )
-      { return img_sf_cnt 'sb',  length $1 ; }
-    elsif ( length $hst == $HIST and $hst =~ /^(s*f)s*$/ )
-      { return img_sf_cnt 'sf',  length $1 ; }
-    elsif ( length $hst == $HIST and $hst =~ /^(s*b)fs*$/ )
-      { return img_sf_cnt 'sbf', length $1 ; }
-    my $res = '' ;
-    my $cnt = 1 ;
-    my $prf = substr $hst, 0, 1 ;
-    $hst = substr $hst, 1 ;
-    while ( $hst ne '' )
-      { if ( substr ( $prf, 0, 1 ) eq substr ( $hst, 0, 1 ) )
-          { $cnt ++ ;
-        $hst = substr $hst, 1 ;
-      }
-        else
-      { $res .= img_sf_cnt $prf, $cnt ;
-        $prf = substr $hst, 0, 1 ;
-        $hst = substr $hst, 1 ;
-        $cnt = 1 ;
-      }
-      }
-    $res .= img_sf_cnt $prf, $cnt if $cnt ;
-    return $res ;
-  }
-
-sub show_hist_age
-  { my $hsts = shift ;
-    my $time = shift ;
-    return '' if $hsts eq '' ;
-    my ( $t, $h ) = split '-', $hsts ;
+          or Error "can't print to $TMP ($!)";
+    }
+    close TMP;
+    if ( -z $TMP ) { Warn "wrote empty state file; keeping previous version"; }
+    else { rename $TMP, $STT or Error "can't rename '$TMP', '$STT' ($!)"; }
+}
+sub get_ccs {
+    my $CCS = shift;
+    open CCS, $CCS or Error "can't open '$CCS' ($!)";
+    while (<CCS>) {
+        chop;
+        next if /^#/;
+        my ( $code, $dash, $reg ) = split ' ', $_, 3;
+        $CCS{ lc $code } = lc $reg;
+    }
+    close CCS;
+}
+sub type_site {
+    my $url = shift;
+    my ( $type, $site, $home );
+    if ( $url =~ m!^(ftp|http)://([^/:]+)(:\d+)?/! ) {
+        $type = $1;
+        $site = $2;
+        $home = $&;
+    }
+    return $type, $site, $home;
+}
+sub type { my ( $t, $s, $h ) = type_site $_[0]; $t; }
+sub site { my ( $t, $s, $h ) = type_site $_[0]; $s; }
+sub home { my ( $t, $s, $h ) = type_site $_[0]; $h; }
+sub get_list {
+    my $LST = shift;
+    my ( $reg, $url );
+    open LST, $LST or Error "can't open '$LST' ($!)";
+    while (<LST>) {
+        chop;
+        next if /^#/;
+        next if /^\s*$/;
+        if ( $CNF{list_style} eq 'plain' ) {
+            ( $reg, $url ) = split ' ';
+            unless ( $url =~ m!/$! ) {
+                print "*** mirmon appended '/' to $url\n" unless $opt{q};
+                $url .= '/';
+            }
+        }
+        elsif ( $CNF{list_style} eq 'apache' ) {
+            my $apache_type;
+            ( $apache_type, $reg, $url ) = split ' ';
+            unless ( defined $APA_TYPES{$apache_type} ) {
+                print "*** strange type : $apache_type\n" unless $opt{q};
+                next;
+            }
+            unless ( $url =~ m!/$! ) {
+                print "*** missing '/' in $url\n" unless $opt{q};
+                $url .= '/';
+            }
+        }
+        my $site = site $url ;
+        my $type = type $url ;
+        unless ( defined $site ) {
+            print "*** strange url : '$url'\n" unless $opt{q};
+            next;
+        }
+        $LST{$url} = [ $type, $site, $reg ];
+    }
+}
+sub url { sprintf '<A HREF="%s">%s</A>', $_[0], $_[1]; }
+sub nam { sprintf '<A NAME="%s">%s</A>', $_[0], $_[1]; }
+sub SMA { sprintf "<FONT SIZE=\"-1\">%s</FONT>", $_[0]; }
+sub BLD { sprintf "<B>%s</B>", $_[0]; }
+sub NSS { sprintf SMA('%s&nbsp;site%s'), $_[0], ( $_[0] == 1 ? '' : 's' ); }
+sub TAB { sprintf "<TABLE BORDER=2 CELLPADDING=3>%s</TABLE>", $_[0]; }
+sub TR  { sprintf "<TR>%s</TR>\n",                            $_[0]; }
+sub TH  { sprintf "<TH>%s</TH>\n",                            $_[0]; }
+sub TD  { sprintf "<TD>%s</TD>\n",                            $_[0]; }
+sub TDr { sprintf "<TD ALIGN=\"RIGHT\">%s</TD>\n",            $_[0]; }
+sub RED { sprintf "<FONT COLOR=\"RED\">%s</FONT>",            $_[0]; }
+sub GRN { sprintf '<FONT COLOR="GREEN">%s</FONT>',            $_[0]; }
+sub htmlquote {
+    my $x = shift;
+    $x =~ s/&/&amp;/g;
+    $x =~ s/</&lt;/g;
+    $x =~ s/>/&gt;/g;
+    return $x;
+}
+sub diff {
+    my $time = shift;
+    my $max  = shift;
+    my $res;
+    if ( $time == $^T ) { $res = BLD 'renewed'; }
+    else {
+        $res = pr_interval $^T - $time;
+        $res = BLD RED $res if aprx_lt $time, $max;
+    }
+    return $res;
+}
+sub img_sf_cnt {
+    sprintf '<IMG BORDER=1 SRC="%s/mm%s%02d.gif" ALT="">', $CNF{icons}, $_[0],
+      $_[1];
+}
+sub img_sf { img_sf_cnt $_[0], 1; }
+sub show_hist {
+    my $hst = shift;
+    return '' unless $hst =~ m/^[sbfz]+$/;
+    if ( length $hst == $HIST and $hst =~ /^(s*b)s*$/ ) {
+        return img_sf_cnt 'sb', length $1;
+    }
+    elsif ( length $hst == $HIST and $hst =~ /^(s*f)s*$/ ) {
+        return img_sf_cnt 'sf', length $1;
+    }
+    elsif ( length $hst == $HIST and $hst =~ /^(s*b)fs*$/ ) {
+        return img_sf_cnt 'sbf', length $1;
+    }
+    my $res = '';
+    my $cnt = 1;
+    my $prf = substr $hst, 0, 1;
+    $hst = substr $hst, 1;
+    while ( $hst ne '' ) {
+        if ( substr( $prf, 0, 1 ) eq substr( $hst, 0, 1 ) ) {
+            $cnt++;
+            $hst = substr $hst, 1;
+        }
+        else {
+            $res .= img_sf_cnt $prf, $cnt;
+            $prf = substr $hst, 0, 1;
+            $hst = substr $hst, 1;
+            $cnt = 1;
+        }
+    }
+    $res .= img_sf_cnt $prf, $cnt if $cnt;
+    return $res;
+}
+sub show_hist_age {
+    my $hsts = shift;
+    my $time = shift;
+    return '' if $hsts eq '';
+    my ( $t, $h ) = split '-', $hsts;
     if ( aprx_lt $t, $^T ) { $h .= age_code $time ; }
     if ( aprx_lt $t, $^T ) { $h .= age_code $time ; }
-    return show_hist substr $h, - $HIST ;
-  }
-
-sub gen_histogram_probes
-  { my ( $time, $stat, $vrfy, $hstp, $hsts, $lprb ) ;
-    my %tab = () ;
-    my %bad = () ;
-    my $res = '' ;
-    my $s_cnt = 0 ;
-    my $f_cnt = 0 ;
-    my $hr_min ;
-    my $hr_max ;
-    return '' unless scalar keys %RES ;
-    for my $url ( keys %RES )
-      { ( $time, $stat, $vrfy, $hstp, $hsts, $lprb ) = @{ $RES { $url } } ;
-        my $hr = int ( ( $^T - $lprb ) / 3600 + 0.5 ) ;
-    $hr_min = $hr if ! defined $hr_min or $hr < $hr_min ;
-    $hr_max = $hr if ! defined $hr_max or $hr > $hr_max ;
-        if ( $stat eq 'ok' )
-      { $tab { $hr } ++ ; $s_cnt ++ ; }
-    else
-      { $bad { $hr } ++ ; $f_cnt ++ ; }
-      }
-    $res = TR
-      ( TH ( 'hours ago' )
-      . TH ( 'succ' )
-      . TH ( 'fail' )
-      . TH sprintf
-          ( '%s %s, %s %s'
-          , $s_cnt , GRN ( 'successful' )
-      , $f_cnt , RED ( 'failed' )
-          )
-      ) ;
-
-    my $max = 0 ;
-    for my $x ( keys %tab )
-      { my $tot = $tab { $x } + ( $bad { $x } || 0 ) ;
-        $max = $tot if $max < $tot ;
-      } ;
-
-    return "<BLOCKQUOTE>\nnothing yet\n</BLOCKQUOTE>\n" unless $max ;
-
-    for my $hr ( $hr_min .. $hr_max )
-      { my $x = $tab { $hr } || 0 ;
-        my $y = $bad { $hr } || 0 ;
-        my $n = int ( $x / $max * $HIST ) ;
-        my $b = int ( $y / $max * $HIST ) ;
-    $res .= TR
-      ( TDr ( $hr )
-      . TDr ( $x )
-      . TDr ( $y )
-      . TD
-          ( ( $n ? img_sf_cnt ( 's', $n ) : '' )
-          . ( $b ? img_sf_cnt ( 'f', $b ) : '' )
-          . ( ( $n + $b ) ? '' : '&nbsp;' )
-          )
-      ) ;
-      }
-    return "<BLOCKQUOTE>\n" . TAB ( $res ) . "</BLOCKQUOTE>\n" ;
-  }
-
-sub gen_histogram
-  { my $MAX_H = max_age1 ;
-    my $MAX_h = 1 +
-      ( ( 20 * 3600 <= $MAX_H and $MAX_H <= 36 * 3600 )
-      ? int ( $MAX_H / 3600 )
-      : 25
-      ) ;
-    my $MAX_O = max_age2 ;
-    my $MAX_o = int ( $MAX_O / 3600 + 0.5 ) ;
-    my $H = 18 ;
-    my %W   = ( 'old' => 1, 'ded' => 1, 'bad' => 1 ) ;
-    my %Wmx = ( 'old' => 5, 'ded' => 3, 'bad' => 3 ) ;
-    my %tab ;
-    my %hst ;
-    my $res ;
-    for ( my $x = 0 ; $x < $MAX_h ; $x ++ ) { $tab { $x } = 0 ; }
-    $tab { old } = 0 ; $tab { ded } = 0 ; $tab { bad } = 0 ;
-    for my $url ( keys %RES )
-      { my $time = $RES { $url } [ 0 ] ;
-        if ( $time =~ /^\d+$/ )
-      { my $s  = $^T - $time ;
-        my $hr = int ( $s / $MAX_H * ( $MAX_h - 1 ) + 0.5 ) ;
-        if    ( $s <= $MAX_H ) { $tab { $hr  } ++ ; }
-        elsif ( $s <= $MAX_O ) { $tab { old } ++ ; }
-        else                   { $tab { ded } ++ ; }
-      }
-    else
-      { $tab { bad } ++ ; }
-      }
-    my $max = 0 ;
-    for ( grep ! exists $Wmx { $_ }, keys %tab )
-      { $max = $tab { $_ } if $tab { $_ } > $max ; }
-
-    my %bad ;
-
-    for my $aux ( keys %Wmx )
-      { $bad { $aux } = $tab { $aux } ;
-        if ( $bad { $aux } > $max )
-          { $W { $aux } = $Wmx { $aux } ;
-            my $d = int ( $bad { $aux } / $W { $aux } ) ;
-            for ( my $i = 1 ; $i < $W { $aux } ; $i++ )
-              { $tab { $aux . $i } = $d ;
-        if ( $bad { $aux } % $Wmx { $aux } > $i )
-          { $tab { $aux . $i } ++ ;
-            $tab { $aux } -- ;
-              }
-          }
-            $tab { $aux } -= ( $W { $aux } - 1 ) * $d ;
-        $max = $tab { $aux } if $max < $tab { $aux } ;
-          }
-      }
-
-#   if ( $opt{v} )
-#     { for my $hr ( keys %tab )
-#         { printf "tab '%s' = '%s'\n", $hr, $tab { $hr } ; }
-#     }
-
-    return 'nothing yet' unless $max ;
-    $H = $max if 8 <= $max and $max <= 26 ;
-    for ( keys %tab )
-      { $hst { $_ } = int ( $H * $tab { $_ } / $max + 0.5 ) ; }
-    my @keys = sort { $a <=> $b } grep /^\d+$/, keys %hst ;
-    my $tab_hr = 0 ;
-    for my $hr ( @keys ) { $tab_hr += $tab { $hr } ; }
-    push @keys
-      , grep ( m/^old/, sort keys %tab )
-      , grep ( m/^ded/, sort keys %tab )
-      , grep ( m/^bad/, sort keys %tab )
-      ;
-    for ( my $h = $H ; $h > 0 ; $h -- )
-      { $res .= "<TR>\n" ;
-    $res .= sprintf "<TH ROWSPAN=3 VALIGN=\"TOP\">&uarr;</TH>\n"
-      if $h == $H ;
-    $res .= sprintf '<TD ROWSPAN=%d ALIGN="CENTER">%s</TD>' . "\n"
-      , $H-6, NSS ( $max ) if $h == $H - 3 ;
-    $res .= sprintf "<TH ROWSPAN=3 VALIGN=\"BOTTOM\">&darr;</TH>\n"
-      if $h == 3 ;
-        for my $x ( @keys )
-      { $res .=  sprintf "<TH>%s</TH>\n"
-          , ( ( $hst { $x } >= $h )
-            ? img_sf
-            ( $x =~ /^\d+$/
-            ? 's'
-            : ( $x =~ /^old/ ? 'b' : ( $x =~ /^ded/ ? 'f' : 'z' ) )
-            )
-        : ( ( $h == 1 and $hst { $x } == 0 )
-          ? sprintf
-              ( '<IMG SRC="%s/bar.gif" ALT="" BORDER=0>'
-              , $CNF { icons }
+    return show_hist substr $h, -$HIST;
+}
+sub gen_histogram_probes {
+    my ( $time, $stat, $vrfy, $hstp, $hsts, $lprb );
+    my %tab   = ();
+    my %bad   = ();
+    my $res   = '';
+    my $s_cnt = 0;
+    my $f_cnt = 0;
+    my $hr_min;
+    my $hr_max;
+    return '' unless scalar keys %RES;
+    for my $url ( keys %RES ) {
+        ( $time, $stat, $vrfy, $hstp, $hsts, $lprb ) = @{ $RES{$url} };
+        my $hr = int( ( $^T - $lprb ) / 3600 + 0.5 );
+        $hr_min = $hr if !defined $hr_min or $hr < $hr_min;
+        $hr_max = $hr if !defined $hr_max or $hr > $hr_max;
+        if   ( $stat eq 'ok' ) { $tab{$hr}++; $s_cnt++; }
+        else                   { $bad{$hr}++; $f_cnt++; }
+    }
+    $res = TR(
+            TH('hours ago')
+          . TH('succ')
+          . TH('fail')
+          . TH sprintf( '%s %s, %s %s',
+            $s_cnt, GRN('successful'), $f_cnt, RED('failed') )
+    );
+    my $max = 0;
+    for my $x ( keys %tab ) {
+        my $tot = $tab{$x} + ( $bad{$x} || 0 );
+        $max = $tot if $max < $tot;
+    }
+    return "<BLOCKQUOTE>\nnothing yet\n</BLOCKQUOTE>\n" unless $max;
+    for my $hr ( $hr_min .. $hr_max ) {
+        my $x = $tab{$hr} || 0;
+        my $y = $bad{$hr} || 0;
+        my $n = int( $x / $max * $HIST );
+        my $b = int( $y / $max * $HIST );
+        $res .= TR(
+                TDr($hr)
+              . TDr($x)
+              . TDr($y)
+              . TD(
+                  ( $n ? img_sf_cnt( 's', $n ) : '' )
+                . ( $b ? img_sf_cnt( 'f', $b ) : '' )
+                  . ( ( $n + $b ) ? '' : '&nbsp;' )
               )
               )
-          : ''
-          )
-        ) ;
-      }
-        $res .= "</TR>\n" ;
-      }
-
-    my $HR = '<HR SIZE=2 WIDTH="95%%" NOSHADE>' ;
-
-    $res .= "<TR>\n" ;
-    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", 1 ;
-    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $MAX_h ;
-    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $W { old } ;
-    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $W { ded } ;
-    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $W { bad } ;
-    $res .= "</TR>\n" ;
-
-    $res .= "<TR>\n" ;
-    $res .= '<TD ALIGN="CENTER">&nbsp;<B>age</B>&nbsp;&rarr;&nbsp;</TD>' ;
-
-    $res .= "<TH>|</TH>\n" ;
-    $res .= sprintf
-      ( '<TD COLSPAN=%d ALIGN="CENTER">'
-      . '&larr;&nbsp; 0 &le; <B>age</B> &le; %s &nbsp;&rarr;'
-      . "</TD>\n"
-      , $MAX_h - 2, pr_interval ( $MAX_H )
-      )
-      ;
-    $res .= "<TH>|</TH>\n" ;
-    $res .= sprintf
-      ( '<TD ALIGN="CENTER" COLSPAN=%d>'
-      . '&nbsp;%sh&nbsp;&lt;&nbsp;%s&nbsp;&le;&nbsp;%sh&nbsp;'
-      . "</TD>\n"
-      , $W { old }, int($MAX_H/60/60) , BLD ( 'age' ), $MAX_o
-      ) ;
-    $res .= sprintf
-      ( '<TD ALIGN="CENTER" COLSPAN=%d>'
-      . '&nbsp;<FONT COLOR="RED">old</FONT>&nbsp;'
-      . "</TD>\n"
-      , $W { ded }
-      ) ;
-    $res .= sprintf
-      ( '<TD ALIGN="CENTER" COLSPAN=%d>'
-      . '&nbsp;<FONT COLOR="RED">bad</FONT>&nbsp;'
-      . "</TD>\n"
-      , $W { bad }
-      ) ;
-    $res .= "</TR>\n" ;
-
-    my $FRMT = '<TD ALIGN="CENTER" COLSPAN=%d>&nbsp;%s&nbsp;</TD>' ;
-
-    $res .= "<TR>\n" ;
-    $res .= sprintf "$FRMT\n", 1,  NSS scalar keys %RES ;
-    $res .= "<TH>|</TH>\n" ;
+        );
+    }
+    return "<BLOCKQUOTE>\n" . TAB($res) . "</BLOCKQUOTE>\n";
+}
+sub gen_histogram {
+    my $MAX_H = max_age1;
+    my $MAX_h = 1 + (
+        ( 20 * 3600 <= $MAX_H and $MAX_H <= 36 * 3600 )
+        ? int( $MAX_H / 3600 )
+        : 25
+    );
+    my $MAX_O = max_age2;
+    my $MAX_o = int( $MAX_O / 3600 + 0.5 );
+    my $H     = 18;
+    my %W     = ( 'old' => 1, 'ded' => 1, 'bad' => 1 );
+    my %Wmx   = ( 'old' => 5, 'ded' => 3, 'bad' => 3 );
+    my %tab;
+    my %hst;
+    my $res;
+    for ( my $x = 0 ; $x < $MAX_h ; $x++ ) { $tab{$x} = 0; }
+    $tab{old} = 0;
+    $tab{ded} = 0;
+    $tab{bad} = 0;
+    for my $url ( keys %RES ) {
+        my $time = $RES{$url}[0];
+        if ( $time =~ /^\d+$/ ) {
+            my $s = $^T - $time;
+            my $hr = int( $s / $MAX_H * ( $MAX_h - 1 ) + 0.5 );
+            if    ( $s <= $MAX_H ) { $tab{$hr}++; }
+            elsif ( $s <= $MAX_O ) { $tab{old}++; }
+            else                   { $tab{ded}++; }
+        }
+        else { $tab{bad}++; }
+    }
+    my $max = 0;
+    for ( grep !exists $Wmx{$_}, keys %tab ) {
+        $max = $tab{$_} if $tab{$_} > $max;
+    }
+    my %bad;
+    for my $aux ( keys %Wmx ) {
+        $bad{$aux} = $tab{$aux};
+        if ( $bad{$aux} > $max ) {
+            $W{$aux} = $Wmx{$aux};
+            my $d = int( $bad{$aux} / $W{$aux} );
+            for ( my $i = 1 ; $i < $W{$aux} ; $i++ ) {
+                $tab{ $aux . $i } = $d;
+                if ( $bad{$aux} % $Wmx{$aux} > $i ) {
+                    $tab{ $aux . $i }++;
+                    $tab{$aux}--;
+                }
+            }
+            $tab{$aux} -= ( $W{$aux} - 1 ) * $d;
+            $max = $tab{$aux} if $max < $tab{$aux};
+        }
+    }
+    #   if ( $opt{v} )
+    #     { for my $hr ( keys %tab )
+    #         { printf "tab '%s' = '%s'\n", $hr, $tab { $hr } ; }
+    #     }
+    return 'nothing yet' unless $max;
+    $H = $max if 8 <= $max and $max <= 26;
+    for ( keys %tab ) { $hst{$_} = int( $H * $tab{$_} / $max + 0.5 ); }
+    my @keys = sort { $a <=> $b } grep /^\d+$/, keys %hst;
+    my $tab_hr = 0;
+    for my $hr (@keys) { $tab_hr += $tab{$hr}; }
+    push @keys, grep ( m/^old/, sort keys %tab ),
+      grep ( m/^ded/, sort keys %tab ), grep ( m/^bad/, sort keys %tab );
+    for ( my $h = $H ; $h > 0 ; $h-- ) {
+        $res .= "<TR>\n";
+        $res .= sprintf "<TH ROWSPAN=3 VALIGN=\"TOP\">&uarr;</TH>\n"
+          if $h == $H;
+        $res .= sprintf '<TD ROWSPAN=%d ALIGN="CENTER">%s</TD>' . "\n", $H - 6,
+          NSS($max)
+          if $h == $H - 3;
+        $res .= sprintf "<TH ROWSPAN=3 VALIGN=\"BOTTOM\">&darr;</TH>\n"
+          if $h == 3;
+        for my $x (@keys) {
+            $res .= sprintf "<TH>%s</TH>\n",
+              (
+                ( $hst{$x} >= $h )
+                ? img_sf(
+                    $x =~ /^\d+$/
+                    ? 's'
+                    : ( $x =~ /^old/ ? 'b' : ( $x =~ /^ded/ ? 'f' : 'z' ) )
+                  )
+                : (
+                    ( $h == 1 and $hst{$x} == 0 )
+                    ? sprintf( '<IMG SRC="%s/bar.gif" ALT="" BORDER=0>',
+                        $CNF{icons} )
+                    : ''
+                )
+              );
+        }
+        $res .= "</TR>\n";
+    }
+    my $HR = '<HR SIZE=2 WIDTH="95%%" NOSHADE>';
+    $res .= "<TR>\n";
+    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", 1;
+    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $MAX_h;
+    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $W{old};
+    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $W{ded};
+    $res .= sprintf "<TD COLSPAN=%d>$HR</TD>\n", $W{bad};
+    $res .= "</TR>\n";
+    $res .= "<TR>\n";
+    $res .= '<TD ALIGN="CENTER">&nbsp;<B>age</B>&nbsp;&rarr;&nbsp;</TD>';
+    $res .= "<TH>|</TH>\n";
+    $res .=
+      sprintf( '<TD COLSPAN=%d ALIGN="CENTER">'
+          . '&larr;&nbsp; 0 &le; <B>age</B> &le; %s &nbsp;&rarr;'
+          . "</TD>\n",
+        $MAX_h - 2, pr_interval($MAX_H) );
+    $res .= "<TH>|</TH>\n";
+    $res .= sprintf(
+        '<TD ALIGN="CENTER" COLSPAN=%d>'
+          . '&nbsp;%sh&nbsp;&lt;&nbsp;%s&nbsp;&le;&nbsp;%sh&nbsp;'
+          . "</TD>\n",
+        $W{old}, int( $MAX_H / 60 / 60 ),
+        BLD('age'), $MAX_o
+    );
+    $res .= sprintf(
+        '<TD ALIGN="CENTER" COLSPAN=%d>'
+          . '&nbsp;<FONT COLOR="RED">old</FONT>&nbsp;'
+          . "</TD>\n",
+        $W{ded}
+    );
+    $res .= sprintf(
+        '<TD ALIGN="CENTER" COLSPAN=%d>'
+          . '&nbsp;<FONT COLOR="RED">bad</FONT>&nbsp;'
+          . "</TD>\n",
+        $W{bad}
+    );
+    $res .= "</TR>\n";
+    my $FRMT = '<TD ALIGN="CENTER" COLSPAN=%d>&nbsp;%s&nbsp;</TD>';
+    $res .= "<TR>\n";
+    $res .= sprintf "$FRMT\n", 1, NSS scalar keys %RES;
+    $res .= "<TH>|</TH>\n";
     $res .= sprintf "$FRMT\n", $MAX_h - 2, NSS $tab_hr ;
     $res .= sprintf "$FRMT\n", $MAX_h - 2, NSS $tab_hr ;
-    $res .= "<TH>|</TH>\n" ;
-    $res .= sprintf "$FRMT\n", $W { old }, NSS $bad { old } ;
-    $res .= sprintf "$FRMT\n", $W { ded }, NSS $bad { ded } ;
-    $res .= sprintf "$FRMT\n", $W { bad }, NSS $bad { bad } ;
-    $res .= "</TR>\n" ;
-
-    $res = "<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>\n$res\n</TABLE>\n" ;
-    $res = sprintf "<TABLE CELLPADDING=5 BORDER=4>%s</TABLE>\n"
-       , "<TR><TH>\n$res\n</TH></TR>" ;
-    if ( $max == $H )
-      { $res .= sprintf "<BR>units %s %s %s %s represent one mirror site.\n"
-          , img_sf ( 's' ), img_sf ( 'f' ), img_sf ( 'b' ), img_sf ( 'z' ) ;
-      }
-    else
-      { $res .= sprintf
-          "<BR>each %s %s %s %s unit represents %s mirror sites.\n"
-          , img_sf ( 's' ) , img_sf ( 'f' ), img_sf ( 'b' ) , img_sf ( 'z' )
-      , sprintf ( "%.1f", $max / $H )
-      }
-    return $res ;
-  }
-
-sub revdom { my $dom = shift ; join '.', reverse split /\./, $dom ; }
-
-sub by_type_site
-  { my $a_type = $a -> [ 0 ] ;
-    my $b_type = $b -> [ 0 ] ;
-    my $a_site = $a -> [ 2 ] ;
-    my $b_site = $b -> [ 2 ] ;
-    ( revdom $a_site ) cmp ( revdom $b_site )
-    or
-    $a_type cmp $b_type
-    ;
-  }
-
-sub by_CCS { ( $CCS { $a } || $a ) cmp ( $CCS { $b } || $b ) ; }
-
-sub legend ;
-
-sub gen_page
-  { my $PPP = shift ;
-    my $TMP = "$PPP.tmp" ;
-    my %tab ;
-    my $refs ;
-    for my $url ( keys %LST )
-      { my ( $type , $site, $reg ) = @{ $LST { $url } } ;
-        push @{ $tab { $reg } }, [ $type, $url, $site ] ;
-      }
-
-    my $bad = 0 ; my $old = 0 ; my $unr = 0 ;
-    my %stats ;
-    my @stats ;
-    my $ok = 0 ;
-
-    for my $url ( keys %RES )
-      { my ( $time, $stat, $vrfy ) = @{ $RES { $url } } ;
-        if ( $stat eq 'ok' ) { $ok ++ ; } else { $stats { $stat } ++ ; }
-        if ( $time eq 'undef' )
-      { $bad ++ ; }
-    elsif ( 'f' eq age_code $time )
-      { $old ++ ; }
-    if ( $vrfy eq 'undef' or aprx_lt $vrfy, $^T - max_vrfy )
-      { $unr ++ ; }
-      }
-
-    my $STAT = sprintf
-        "%d bad -- %d older than %s -- %s unreachable for more than %s"
-      , $bad
-      , $old
-      , pr_interval ( max_age2 )
-      , $unr
-      , pr_interval ( max_vrfy )
-      ;
-
-    my $PROB = 'last probes : ' ;
-    push @stats, "$ok were ok" if $ok ;
-    for my $stat ( sort keys %stats )
-      { push @stats, sprintf "%s had %s", $stats { $stat }, RED  $stat ; }
-    $PROB .= join ', ', @stats ;
-
-    for my $reg ( sort keys %tab )
-      { $refs .= sprintf "&nbsp;%s&nbsp;\n"
-          , url "#$reg"
-      , "<FONT SIZE=\"+1\">$reg</FONT>"
-      ;
-      }
-
-    my $COLS = 5 ;
-    my $LOGO = $CNF { project_logo }
-      ? url
-          ( $CNF { project_url }
-      , sprintf
-              ( '<IMG SRC="%s" ALT="%s" ALIGN="RIGHT" BORDER=0>'
-          , $CNF { project_logo }
-          , $CNF { project_name }
-          )
-          )
-      : ''
-      ;
-    my $HTOP = $CNF{htm_top}  ? $CNF{htm_top}  . "\n" : '' ;
-    my $FOOT = $CNF{htm_foot} ? $CNF{htm_foot} . "\n" : '' ;
-    my $HEAD = $CNF{htm_head} ? $CNF{htm_head} . "\n" : '' ;
-    my $TITL = url $CNF{project_url}, $CNF{project_name} ;
-    my $EXPD = exp_date ;
-
-    open PPP, ">$TMP" or Error "can't write $TMP ($!)" ;
+    $res .= "<TH>|</TH>\n";
+    $res .= sprintf "$FRMT\n", $W{old}, NSS $bad {old};
+    $res .= sprintf "$FRMT\n", $W{ded}, NSS $bad {ded};
+    $res .= sprintf "$FRMT\n", $W{bad}, NSS $bad {bad};
+    $res .= "</TR>\n";
+    $res = "<TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0>\n$res\n</TABLE>\n";
+    $res = sprintf "<TABLE CELLPADDING=5 BORDER=4>%s</TABLE>\n",
+      "<TR><TH>\n$res\n</TH></TR>";
+    if ( $max == $H ) {
+        $res .= sprintf "<BR>units %s %s %s %s represent one mirror site.\n",
+          img_sf('s'), img_sf('f'), img_sf('b'), img_sf('z');
+    }
+    else {
+        $res .=
+          sprintf "<BR>each %s %s %s %s unit represents %s mirror sites.\n",
+          img_sf('s'), img_sf('f'), img_sf('b'), img_sf('z'),
+          sprintf( "%.1f", $max / $H );
+    }
+    return $res;
+}
+sub revdom { my $dom = shift; join '.', reverse split /\./, $dom; }
+sub by_type_site {
+    my $a_type = $a->[0];
+    my $b_type = $b->[0];
+    my $a_site = $a->[2];
+    my $b_site = $b->[2];
+    ( revdom $a_site ) cmp( revdom $b_site )
+      or $a_type cmp $b_type;
+}
+sub by_CCS { ( $CCS{$a} || $a ) cmp( $CCS{$b} || $b ); }
+sub legend;
+sub gen_page {
+    my $PPP = shift;
+    my $TMP = "$PPP.tmp";
+    my %tab;
+    my $refs;
+    for my $url ( keys %LST ) {
+        my ( $type, $site, $reg ) = @{ $LST{$url} };
+        push @{ $tab{$reg} }, [ $type, $url, $site ];
+    }
+    my $bad = 0;
+    my $old = 0;
+    my $unr = 0;
+    my %stats;
+    my @stats;
+    my $ok = 0;
+    for my $url ( keys %RES ) {
+        my ( $time, $stat, $vrfy ) = @{ $RES{$url} };
+        if   ( $stat eq 'ok' ) { $ok++; }
+        else                   { $stats{$stat}++; }
+        if    ( $time eq 'undef' )        { $bad++; }
+        elsif ( 'f'   eq age_code $time ) { $old++; }
+        if ( $vrfy eq 'undef' or aprx_lt $vrfy, $^T - max_vrfy ) { $unr++; }
+    }
+    my $STAT =
+      sprintf "%d bad -- %d older than %s -- %s unreachable for more than %s",
+      $bad, $old, pr_interval(max_age2), $unr, pr_interval(max_vrfy);
+    my $PROB = 'last probes : ';
+    push @stats, "$ok were ok" if $ok;
+    for my $stat ( sort keys %stats ) {
+        push @stats, sprintf "%s had %s", $stats{$stat}, RED $stat ;
+    }
+    $PROB .= join ', ', @stats;
+    for my $reg ( sort keys %tab ) {
+        $refs .= sprintf "&nbsp;%s&nbsp;\n", url "#$reg",
+          "<FONT SIZE=\"+1\">$reg</FONT>";
+    }
+    my $COLS = 5;
+    my $LOGO =
+      $CNF{project_logo}
+      ? url(
+        $CNF{project_url},
+        sprintf(
+            '<IMG SRC="%s" ALT="%s" ALIGN="RIGHT" BORDER=0>',
+            $CNF{project_logo}, $CNF{project_name}
+        )
+      )
+      : '';
+    my $HTOP = $CNF{htm_top}  ? $CNF{htm_top} . "\n"  : '';
+    my $FOOT = $CNF{htm_foot} ? $CNF{htm_foot} . "\n" : '';
+    my $HEAD = $CNF{htm_head} ? $CNF{htm_head} . "\n" : '';
+    my $TITL = url $CNF{project_url}, $CNF{project_name};
+    my $EXPD = exp_date;
+    open PPP, ">$TMP" or Error "can't write $TMP ($!)";
     print PPP '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01'
     print PPP '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01'
-      . ' Transitional//EN"'
-      . '>' ;
-    print PPP "<HTML>\n" ;
-    print PPP "<HEAD>\n" ;
-    print PPP "<TITLE>the status of $CNF{project_name} mirrors</TITLE>\n" ;
+      . ' Transitional//EN"' . '>';
+    print PPP "<HTML>\n";
+    print PPP "<HEAD>\n";
+    print PPP "<TITLE>the status of $CNF{project_name} mirrors</TITLE>\n";
     printf PPP "%s\n", '<meta HTTP-EQUIV="content-type" '
     printf PPP "%s\n", '<meta HTTP-EQUIV="content-type" '
-      . 'CONTENT="text/html; charset=ISO-8859-1">' ;
-    print PPP "<META HTTP-EQUIV=\"refresh\" CONTENT=\"3600\">\n" ;
-    print PPP "<META HTTP-EQUIV=\"Expires\" CONTENT=\"$EXPD\">\n" ;
-    print PPP $HEAD if $HEAD ;
-    print PPP "</HEAD>\n" ;
-    print PPP "<BODY BGCOLOR=\"#FFFFFF\">\n" ;
-    print PPP $LOGO ;
-
-    print PPP "<H2>the status of $TITL mirrors</H2>\n" ;
-
-    print PPP "<TABLE BORDER=0 CELLPADDING=2>\n" ;
-    printf PPP "<TR><TD>date</TD><TD>:</TD><TD>%s (GMT)</TD></TR>\n"
-      , scalar gmtime $^T ;
-    printf PPP "<TR><TD>last&nbsp;check</TD><TD>:</TD><TD>%s (GMT)</TD></TR>\n"
-      , scalar gmtime ( $opt{get} ? $^T : ( stat $CNF { state } ) [9] ) ;
-    print PPP "</TABLE>\n" ;
-
-    printf PPP "<P>%s</P>\n", $HTOP if $HTOP ;
-
-    if ( $CNF { put_histo } eq 'top' )
-      { print PPP "<H2>age histogram</H2>\n" ;
-
-        print PPP "<BLOCKQUOTE>\n" ;
-        print PPP gen_histogram ;
-        print PPP "</BLOCKQUOTE>\n" ;
-      }
-
-    print PPP "<H2>regions</H2>\n" ;
-
-    print PPP "<BLOCKQUOTE>\n" ;
-    print PPP "<CENTER>\n" ;
-    printf PPP "%s\n", $refs ;
-    print PPP "</CENTER>\n" ;
-    print PPP "</BLOCKQUOTE>\n" ;
-
-    print PPP "<H2>report</H2>\n" ;
-
-    my $attr1 = "COLSPAN=$COLS BGCOLOR=\"LIME\"" ;
-    my $attr2 = 'BGCOLOR="AQUA"' ;
-
-    print PPP "<BLOCKQUOTE>\n" ;
-    print PPP "<TABLE BORDER=2 CELLPADDING=5>\n" ;
-    printf PPP "<TR><TH $attr1>%d sites in %d regions</TH></TR>\n"
-      , scalar keys %LST
-      , scalar keys %tab
-      ;
-    printf PPP "<TR><TH $attr1>%s</TH></TR>\n", $STAT ;
-    printf PPP "<TR><TH $attr1>%s</TH></TR>\n", $PROB ;
-    print PPP "<TR>\n" ;
-    printf PPP "  <TH $attr2>%s site -- home</TH>\n"
-      , $CNF { project_name } ;
-    printf PPP "  <TH $attr2>%s</TH>\n", 'type' ;
-    printf PPP "  <TH $attr2>%s</TH>\n", 'mirror age,<BR>daily stats' ;
-    printf PPP "  <TH $attr2>%s</TH>\n", 'last probe,<BR>probe stats' ;
-    printf PPP "  <TH $attr2>%s</TH>\n", 'last stat' ;
-    print PPP "</TR>\n" ;
-    for my $reg ( sort by_CCS keys %tab )
-      { my $itms = $tab { $reg } ;
-
-        my $ccs = exists $CCS { $reg } ? $CCS { $reg } : $reg ;
+      . 'CONTENT="text/html; charset=ISO-8859-1">';
+    print PPP "<META HTTP-EQUIV=\"refresh\" CONTENT=\"3600\">\n";
+    print PPP "<META HTTP-EQUIV=\"Expires\" CONTENT=\"$EXPD\">\n";
+    print PPP $HEAD if $HEAD;
+    print PPP "</HEAD>\n";
+    print PPP "<BODY BGCOLOR=\"#FFFFFF\">\n";
+    print PPP $LOGO;
+    print PPP "<H2>the status of $TITL mirrors</H2>\n";
+    print PPP "<TABLE BORDER=0 CELLPADDING=2>\n";
+    printf PPP "<TR><TD>date</TD><TD>:</TD><TD>%s (GMT)</TD></TR>\n",
+      scalar gmtime $^T;
+    printf PPP "<TR><TD>last&nbsp;check</TD><TD>:</TD><TD>%s (GMT)</TD></TR>\n",
+      scalar gmtime( $opt{get} ? $^T : ( stat $CNF{state} )[9] );
+    print PPP "</TABLE>\n";
+    printf PPP "<P>%s</P>\n", $HTOP if $HTOP;
+    if ( $CNF{put_histo} eq 'top' ) {
+        print PPP "<H2>age histogram</H2>\n";
+        print PPP "<BLOCKQUOTE>\n";
+        print PPP gen_histogram;
+        print PPP "</BLOCKQUOTE>\n";
+    }
+    print PPP "<H2>regions</H2>\n";
+    print PPP "<BLOCKQUOTE>\n";
+    print PPP "<CENTER>\n";
+    printf PPP "%s\n", $refs;
+    print PPP "</CENTER>\n";
+    print PPP "</BLOCKQUOTE>\n";
+    print PPP "<H2>report</H2>\n";
+    my $attr1 = "COLSPAN=$COLS BGCOLOR=\"LIME\"";
+    my $attr2 = 'BGCOLOR="AQUA"';
+    print PPP "<BLOCKQUOTE>\n";
+    print PPP "<TABLE BORDER=2 CELLPADDING=5>\n";
+    printf PPP "<TR><TH $attr1>%d sites in %d regions</TH></TR>\n",
+      scalar keys %LST, scalar keys %tab;
+    printf PPP "<TR><TH $attr1>%s</TH></TR>\n", $STAT;
+    printf PPP "<TR><TH $attr1>%s</TH></TR>\n", $PROB;
+    print PPP "<TR>\n";
+    printf PPP "  <TH $attr2>%s site -- home</TH>\n", $CNF{project_name};
+    printf PPP "  <TH $attr2>%s</TH>\n",              'type';
+    printf PPP "  <TH $attr2>%s</TH>\n", 'mirror age,<BR>daily stats';
+    printf PPP "  <TH $attr2>%s</TH>\n", 'last probe,<BR>probe stats';
+    printf PPP "  <TH $attr2>%s</TH>\n", 'last stat';
+    print PPP "</TR>\n";
+    for my $reg ( sort by_CCS keys %tab ) {
+        my $itms = $tab{$reg};
+        my $ccs = exists $CCS{$reg} ? $CCS{$reg} : $reg;
         $ccs = nam $reg,
         $ccs = nam $reg,
-      ( scalar @{ $itms } > 6
-      ? sprintf "%s&nbsp;&nbsp;-&nbsp;&nbsp;%d sites"
-          , $ccs, scalar @{ $itms }
-      : $ccs
-      ) ;
-
-    my $attr3 = "COLSPAN=$COLS BGCOLOR=\"YELLOW\"" ;
-        printf PPP "<TR><TH $attr3>$ccs</TH></TR>\n" ;
-
-    for my $itm ( sort by_type_site @{ $itms } )
-      { my ( $type, $url, $site ) = @{ $itm } ;
-        my ( $time, $stat, $hstp, $hsts, $vrfy ) ;
-        my ( $pr_time, $pr_last, $pr_hstp, $pr_hsts ) ;
-
-        print PPP "<TR>\n" ;
-        printf PPP
-             "  <TD ALIGN=\"RIGHT\">%s&nbsp;&nbsp;%s</TD>\n"
-          .  "  <TD>%s</TD>\n"
-          , url ( $url , $site )
-          , url ( home ( $url ), '@' )
-          , $type
-          ;
-
-        if ( exists $RES { $url } )
-          { ( $time, $stat, $vrfy, $hstp, $hsts ) = @{ $RES { $url } } ;
-            $pr_time = $time =~ /^\d+$/
-              ? diff $time, $^T - max_age2 : '&nbsp;' ;
-            $pr_last = $vrfy =~ /^\d+$/
-              ? diff $vrfy, $^T - max_vrfy : '&nbsp;' ;
+          (
+            scalar @{$itms} > 6
+            ? sprintf "%s&nbsp;&nbsp;-&nbsp;&nbsp;%d sites",
+            $ccs,
+            scalar @{$itms}
+            : $ccs
+          );
+        my $attr3 = "COLSPAN=$COLS BGCOLOR=\"YELLOW\"";
+        printf PPP "<TR><TH $attr3>$ccs</TH></TR>\n";
+        for my $itm ( sort by_type_site @{$itms} ) {
+            my ( $type, $url, $site ) = @{$itm};
+            my ( $time, $stat, $hstp, $hsts, $vrfy );
+            my ( $pr_time, $pr_last, $pr_hstp, $pr_hsts );
+            print PPP "<TR>\n";
+            printf PPP "  <TD ALIGN=\"RIGHT\">%s&nbsp;&nbsp;%s</TD>\n"
+              . "  <TD>%s</TD>\n", url( $url, $site ), url( home($url), '@' ),
+              $type;
+            if ( exists $RES{$url} ) {
+                ( $time, $stat, $vrfy, $hstp, $hsts ) = @{ $RES{$url} };
+                $pr_time = $time =~ /^\d+$/
+                  ? diff $time, $^T - max_age2
+                  : '&nbsp;';
+                $pr_last = $vrfy =~ /^\d+$/
+                  ? diff $vrfy, $^T - max_vrfy
+                  : '&nbsp;';
                 $pr_hstp = show_hist $hstp ;
                 $pr_hstp = show_hist $hstp ;
-                $pr_hsts = show_hist_age $hsts, $time ;
-
-          }
-        else
-          { ( $pr_time, $pr_last, $pr_hstp, $pr_hsts, $stat ) =
-              ( '&nbsp;', '&nbsp;', '', '', '&nbsp;' ) ;
-          }
-
-        $stat = RED $stat if $stat ne 'ok' ;
-        printf PPP "  <TD ALIGN=\"RIGHT\">%s<BR>%s</TD>\n"
-          , $pr_time, $pr_hsts ;
-        printf PPP "  <TD ALIGN=\"RIGHT\">%s<BR>%s</TD>\n"
-          , $pr_last, $pr_hstp ;
-        printf PPP "  <TD>%s</TD>\n", $stat ;
-        print PPP "</TR>\n" ;
-      }
-      }
-    print PPP "</TABLE>\n" ;
-    print PPP "</BLOCKQUOTE>\n" ;
-
-    if ( $CNF { put_histo } eq 'bottom' )
-      { print PPP "<H2>age histogram</H2>\n" ;
-
-        print PPP "<BLOCKQUOTE>\n" ;
-        print PPP gen_histogram ;
-        print PPP "</BLOCKQUOTE>\n" ;
-      }
-
-    print PPP legend ;
-
-    print PPP "<H3>probe results</H3>\n" ;
-    print PPP gen_histogram_probes ;
-
-    print PPP "<H3>software</H3>\n" ;
-
-    print PPP "<BLOCKQUOTE><TABLE><TR>\n" ;
-    my $MIR_IMG = sprintf
-      '<IMG BORDER=2 ALT="mirmon" SRC="%s/mirmon.gif">' , $CNF { icons } ;
-    print PPP sprintf "<TH><A HREF=\"%s\">%s</A></TH>\n"
-      , 'http://www.cs.uu.nl/people/henkp/mirmon/', $MIR_IMG ;
-    print PPP "<TD>$VER</TD>\n" ;
-    print PPP "</TR></TABLE></BLOCKQUOTE>\n" ;
-    print PPP $FOOT ;
-    print PPP "</BODY>\n" ;
-    print PPP "</HTML>" ;
-
-    if ( print PPP "\n" )
-      { close PPP ;
-        if ( -z $TMP )
-          { Warn "wrote empty html file; keeping previous version" ; }
-        else
-          { rename $TMP, $PPP or Error "can't rename $TMP, $PPP ($!)" ; }
-      }
-    else
-      { Error "can't print to $TMP ($!)" ; }
-  }
-
-sub legend
-  { return <<LEGENDA ;
+                $pr_hsts = show_hist_age $hsts, $time;
+            }
+            else {
+                ( $pr_time, $pr_last, $pr_hstp, $pr_hsts, $stat ) =
+                  ( '&nbsp;', '&nbsp;', '', '', '&nbsp;' );
+            }
+            $stat = RED $stat if $stat ne 'ok';
+            printf PPP "  <TD ALIGN=\"RIGHT\">%s<BR>%s</TD>\n", $pr_time,
+              $pr_hsts;
+            printf PPP "  <TD ALIGN=\"RIGHT\">%s<BR>%s</TD>\n", $pr_last,
+              $pr_hstp;
+            printf PPP "  <TD>%s</TD>\n", $stat;
+            print PPP "</TR>\n";
+        }
+    }
+    print PPP "</TABLE>\n";
+    print PPP "</BLOCKQUOTE>\n";
+    if ( $CNF{put_histo} eq 'bottom' ) {
+        print PPP "<H2>age histogram</H2>\n";
+        print PPP "<BLOCKQUOTE>\n";
+        print PPP gen_histogram;
+        print PPP "</BLOCKQUOTE>\n";
+    }
+    print PPP legend;
+    print PPP "<H3>probe results</H3>\n";
+    print PPP gen_histogram_probes;
+    print PPP "<H3>software</H3>\n";
+    print PPP "<BLOCKQUOTE><TABLE><TR>\n";
+    my $MIR_IMG = sprintf '<IMG BORDER=2 ALT="mirmon" SRC="%s/mirmon.gif">',
+      $CNF{icons};
+    print PPP sprintf "<TH><A HREF=\"%s\">%s</A></TH>\n",
+      'http://www.cs.uu.nl/people/henkp/mirmon/', $MIR_IMG;
+    print PPP "<TD>$VER</TD>\n";
+    print PPP "</TR></TABLE></BLOCKQUOTE>\n";
+    print PPP $FOOT;
+    print PPP "</BODY>\n";
+    print PPP "</HTML>";
+    if ( print PPP "\n" ) {
+        close PPP;
+        if ( -z $TMP ) {
+            Warn "wrote empty html file; keeping previous version";
+        }
+        else { rename $TMP, $PPP or Error "can't rename $TMP, $PPP ($!)"; }
+    }
+    else { Error "can't print to $TMP ($!)"; }
+}
+sub legend {
+    return <<LEGENDA ;
 <H3>legend</H3>
 <H3>legend</H3>
-
 <H4><I>project</I> site -- home</H4>
 <H4><I>project</I> site -- home</H4>
-
 <BLOCKQUOTE>
 <B><I>project</I> site</B> is an url.
 The <B>href</B> is the href for the site in the list of mirrors,
 <BLOCKQUOTE>
 <B><I>project</I> site</B> is an url.
 The <B>href</B> is the href for the site in the list of mirrors,
@@ -993,16 +857,12 @@ pointing to the document root of the site. This pointer is
 useful if the <B><I>project</I> site</B> url is invalid,
 possibly because the mirror site moved the archive.
 </BLOCKQUOTE>
 useful if the <B><I>project</I> site</B> url is invalid,
 possibly because the mirror site moved the archive.
 </BLOCKQUOTE>
-
 <H4>type</H4>
 <H4>type</H4>
-
 <BLOCKQUOTE>
 Indicates the type (<B>ftp</B> or <B>http</B>) of
 the <B><I>project</I> site</B> and <B>home</B> urls.
 </BLOCKQUOTE>
 <BLOCKQUOTE>
 Indicates the type (<B>ftp</B> or <B>http</B>) of
 the <B><I>project</I> site</B> and <B>home</B> urls.
 </BLOCKQUOTE>
-
 <H4>mirror age, daily stats</H4>
 <H4>mirror age, daily stats</H4>
-
 <BLOCKQUOTE>
 The <B>mirror age</B> is based upon the last successful probe.
 <P>
 <BLOCKQUOTE>
 The <B>mirror age</B> is based upon the last successful probe.
 <P>
@@ -1031,7 +891,6 @@ configuration parameters :
 </TR>
 <TR>
   <TH><FONT COLOR="GREEN">fresh</FONT></TH>
 </TR>
 <TR>
   <TH><FONT COLOR="GREEN">fresh</FONT></TH>
-
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">0</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
     @{[$CNF{min_sync}]} + @{[$CNF{max_poll}]}</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">0</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
     @{[$CNF{min_sync}]} + @{[$CNF{max_poll}]}</TD>
@@ -1040,7 +899,6 @@ configuration parameters :
 </TR>
 <TR>
   <TH><FONT COLOR="BLUE">oldish</FONT></TH>
 </TR>
 <TR>
   <TH><FONT COLOR="BLUE">oldish</FONT></TH>
-
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
     @{[$CNF{min_sync}]} + @{[$CNF{max_poll}]}</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
     @{[$CNF{min_sync}]} + @{[$CNF{max_poll}]}</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
@@ -1050,7 +908,6 @@ configuration parameters :
 </TR>
 <TR>
   <TH><FONT COLOR="RED">old</FONT></TH>
 </TR>
 <TR>
   <TH><FONT COLOR="RED">old</FONT></TH>
-
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
     @{[$CNF{max_sync}]} + @{[$CNF{max_poll}]}</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">&infin;</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">
     @{[$CNF{max_sync}]} + @{[$CNF{max_poll}]}</TD>
   <TD BGCOLOR="YELLOW" ALIGN="CENTER">&infin;</TD>
@@ -1065,9 +922,7 @@ configuration parameters :
 </TABLE>
 </BLOCKQUOTE>
 </BLOCKQUOTE>
 </TABLE>
 </BLOCKQUOTE>
 </BLOCKQUOTE>
-
 <H4>last probe, probe stats</H4>
 <H4>last probe, probe stats</H4>
-
 <BLOCKQUOTE>
 <B>Last probe</B> indicates when the last successful probe was made.
 <B>Probe stats</B> gives the probe history (<I>right</I> is <I>recent</I>).
 <BLOCKQUOTE>
 <B>Last probe</B> indicates when the last successful probe was made.
 <B>Probe stats</B> gives the probe history (<I>right</I> is <I>recent</I>).
@@ -1075,161 +930,126 @@ A probe is either a
 <FONT COLOR="GREEN"><B>success</B></FONT> or a
 <FONT COLOR="RED"><B>failure</B></FONT>.
 </BLOCKQUOTE>
 <FONT COLOR="GREEN"><B>success</B></FONT> or a
 <FONT COLOR="RED"><B>failure</B></FONT>.
 </BLOCKQUOTE>
-
 <H4>last stat</H4>
 <H4>last stat</H4>
-
 <BLOCKQUOTE>
 <B>Last stat</B> gives the status of the last probe.
 </BLOCKQUOTE>
 <BLOCKQUOTE>
 <B>Last stat</B> gives the status of the last probe.
 </BLOCKQUOTE>
-
 LEGENDA
 LEGENDA
-  }
-
-sub start_date
-  { my $url = shift ;
-    my $CMD = shift ;
-    my $TIMEOUT = $CNF { timeout } ;
-    my $src = $HREF { lc site $url } || $url ;
-    $CMD =~ s/%TIMEOUT%/$TIMEOUT/g ;
-    $CMD =~ s/%URL%/$src/g ;
-    printf "*** SUBSTITUTE site %s\n+  url %s\n+  %s\n",
-      site($url), $HREF { lc site $url }, $CMD
-        if $HREF { lc site $url } and $opt{v} ;
-    my $WGT = new IO::Pipe ;
-    my $res = $WGT -> reader ( split ' ', $CMD ) ;
-    if ( $res )
-      { $WGT -> blocking ( 0 ) ;
-        $GET -> add ( $WGT ) ;
-    $URL { $WGT } = $url ;
-      }
-    else
-      { err $url, 'no pipe' ; }
-  }
-
-sub get_date
-  { my $WGT = shift ;
-    my $url = $URL { $WGT } ;
-    my $time = undef ;
-
-    $WGT -> blocking ( 1 ) ;
-    unless ( $WGT -> eof () ) { $time = $WGT -> getline () ; }
-    $GET -> remove ( $WGT ) ;
-    $WGT -> flush ;
-    $WGT -> close ;
-
-    return err $url, 'no time' unless defined $time ;
-    return err $url, "empty"   if $time =~ /^\s*$/  ;
-
-    $time = ( split ' ', $time ) [ 0 ] ;
-
-    if ( $time !~ /^\d+$/ )
-      { $time = htmlquote $time ;
-        $time = substr ( $time, 0, 15 ) . '..' if length $time > 15 ;
-        err $url, "'$time'" ;
-      }
-    else
-      { res $url, $time, 'ok' ; }
-  }
-
-sub get_dates
-  { my $CMD = shift ;
-    my @QUE ;
-    my $PAR = $CNF { max_probes } ;
-    my $cnt_LST = scalar keys %LST ;
-    for my $url ( sort keys %LST )
-      { if ( $opt{get} eq 'all' or ! exists $OLD { $url } )
-          { push @QUE, $url ; }
-    elsif ( $opt{get} eq 'update' )
-      { my $stat = $OLD { $url } [ 1 ] ;
-        my $vrfy = $OLD { $url } [ 2 ] ;
-        my $lprb = $OLD { $url } [ 5 ] ;
-        if ( ( $lprb eq 'undef'
-            or aprx_le $lprb, $^T - tim_to_s $CNF { min_poll }
-             )
-         and ( $stat ne 'ok'
-            or aprx_le $vrfy, $^T - tim_to_s $CNF { max_poll }
-             )
-           )
-          { push @QUE, $url ; }
-        elsif ( $CNF { randomize } and 0 == int rand $cnt_LST )
-          { push @QUE, $url ; }
-        else
-          { $RES { $url } = $OLD { $url } ; }
-      }
-    else
-      { Error "unknown opt_get '$opt{get}'" ; }
-      }
-
-    while ( @QUE )
-      { while ( $GET -> count () < $PAR and @QUE )
-          { my $url = shift @QUE ;
-            if ( gethost site $url )
-          { start_date $url, $CMD ; }
-        else
-          { err $url, 'site not found' ; }
-          }
-
-    my @can_read = $GET -> can_read ( 0 ) ;
-
-    printf "que %d, get %d, can %d\n",
-      scalar @QUE, $GET -> count (), scalar @can_read
-        if $opt{v} ;
-
-        for my $can_read ( @can_read )
-      { get_date $can_read ; }
-
-        sleep 1 ;
-      }
-
-    my $stop = time + $CNF { timeout } + 10 ;
-
-    while ( $GET -> count () and time < $stop )
-      { sleep 1 ;
-
-        my @can_read = $GET -> can_read ( 0 ) ;
-
-    printf "wait %2d, get %d, can %d\n",
-      $stop - scalar time, $GET -> count (), scalar @can_read
-        if $opt{v} ;
-
-        for my $can_read ( @can_read )
-      { get_date $can_read ; }
-      }
-
-    for my $WGT ( $GET -> handles () )
-      { my $url = $URL { $WGT } ;
-        err $url, 'hangs' ;
-      }
-  }
-
-get_conf_opt ;
-get_ccs   $CNF { countries } ;
-get_state $CNF { state } ;
-get_list  $CNF { mirror_list } ;
-
-if ( $opt{get} )
-  { get_dates $CNF { probe } ;
-    put_state $CNF { state } ;
-  }
-else
-  { %RES = %OLD }
-
-gen_page $CNF { web_page } ;
-
+}
+sub start_date {
+    my $url     = shift;
+    my $CMD     = shift;
+    my $TIMEOUT = $CNF{timeout};
+    my $src     = $HREF{ lc site $url } || $url;
+    $CMD =~ s/%TIMEOUT%/$TIMEOUT/g;
+    $CMD =~ s/%URL%/$src/g;
+    printf "*** SUBSTITUTE site %s\n+  url %s\n+  %s\n", site($url),
+      $HREF{ lc site $url }, $CMD
+      if $HREF{ lc site $url } and $opt{v};
+    my $WGT = new IO::Pipe;
+    my $res = $WGT->reader( split ' ', $CMD );
+    if ($res) {
+        $WGT->blocking(0);
+        $GET->add($WGT);
+        $URL{$WGT} = $url;
+    }
+    else { err $url, 'no pipe'; }
+}
+sub get_date {
+    my $WGT  = shift;
+    my $url  = $URL{$WGT};
+    my $time = undef;
+    $WGT->blocking(1);
+    unless ( $WGT->eof() ) { $time = $WGT->getline(); }
+    $GET->remove($WGT);
+    $WGT->flush;
+    $WGT->close;
+    return err $url, 'no time' unless defined $time;
+    return err $url, "empty" if $time =~ /^\s*$/;
+    $time = ( split ' ', $time )[0];
+    if ( $time !~ /^\d+$/ ) {
+        $time = htmlquote $time ;
+        $time = substr( $time, 0, 15 ) . '..' if length $time > 15;
+          err $url, "'$time'";
+    }
+    else { res $url, $time, 'ok'; }
+}
+sub get_dates {
+    my $CMD = shift;
+    my @QUE;
+    my $PAR     = $CNF{max_probes};
+    my $cnt_LST = scalar keys %LST;
+    for my $url ( sort keys %LST ) {
+        if ( $opt{get} eq 'all' or !exists $OLD{$url} ) { push @QUE, $url; }
+        elsif ( $opt{get} eq 'update' ) {
+            my $stat = $OLD{$url}[1];
+            my $vrfy = $OLD{$url}[2];
+            my $lprb = $OLD{$url}[5];
+            if (
+                (
+                    $lprb eq 'undef'
+                    or aprx_le $lprb,
+                    $^T - tim_to_s $CNF {min_poll}
+                )
+                and (
+                    $stat ne 'ok' or aprx_le $vrfy,
+                    $^T - tim_to_s $CNF {max_poll}
+                )
+              )
+            {
+                push @QUE, $url;
+            }
+            elsif ( $CNF{randomize} and 0 == int rand $cnt_LST ) {
+                push @QUE, $url;
+            }
+            else { $RES{$url} = $OLD{$url}; }
+        }
+        else { Error "unknown opt_get '$opt{get}'"; }
+    }
+    while (@QUE) {
+        while ( $GET->count() < $PAR and @QUE ) {
+            my $url = shift @QUE;
+            if ( gethost site $url ) { start_date $url, $CMD; }
+            else                     { err $url, 'site not found'; }
+        }
+        my @can_read = $GET->can_read(0);
+        printf "que %d, get %d, can %d\n", scalar @QUE, $GET->count(),
+          scalar @can_read
+          if $opt{v};
+        for my $can_read (@can_read) { get_date $can_read ; }
+        sleep 1;
+    }
+    my $stop = time + $CNF{timeout} + 10;
+    while ( $GET->count() and time < $stop ) {
+        sleep 1;
+        my @can_read = $GET->can_read(0);
+        printf "wait %2d, get %d, can %d\n", $stop - scalar time, $GET->count(),
+          scalar @can_read
+          if $opt{v};
+        for my $can_read (@can_read) { get_date $can_read ; }
+    }
+    for my $WGT ( $GET->handles() ) {
+        my $url = $URL{$WGT};
+          err $url, 'hangs';
+    }
+}
+get_conf_opt;
+get_ccs $CNF {countries};
+get_state $CNF {state};
+get_list $CNF {mirror_list};
+if ( $opt{get} ) {
+    get_dates $CNF {probe};
+    put_state $CNF {state};
+}
+else { %RES = %OLD }
+gen_page $CNF {web_page};
 __END__
 __END__
-
 =pod
 =pod
-
 =head1 NAME
 =head1 NAME
-
   mirmon - monitor the state of mirrors
   mirmon - monitor the state of mirrors
-
 =head1 SYNOPSIS
 =head1 SYNOPSIS
-
   mirmon [ -v ] [ -q ] [ -t timeout ] [ -get opt ] [ -c conf ]
   mirmon [ -v ] [ -q ] [ -t timeout ] [ -get opt ] [ -c conf ]
-
 =head1 OPTIONS
 =head1 OPTIONS
-
   option v   : be verbose
   option q   : be quiet
   option t   : set timeout [ default 300 ] ;
   option v   : be verbose
   option q   : be quiet
   option t   : set timeout [ default 300 ] ;
@@ -1241,46 +1061,33 @@ __END__
   Documentation : the program contains 'pod' style documentation.
   Extract the doc with 'pod2text mirmon' or 'pod2html mirmon OUT', etc.
   -------------------------------------------------------------------
   Documentation : the program contains 'pod' style documentation.
   Extract the doc with 'pod2text mirmon' or 'pod2html mirmon OUT', etc.
   -------------------------------------------------------------------
-
 =head1 USAGE
 =head1 USAGE
-
   The program is intended to be run by cron every hour.
   The program is intended to be run by cron every hour.
-
     42 * * * * perl /path/to/mirmon -q -get update
     42 * * * * perl /path/to/mirmon -q -get update
-
   It quietly probes a subset of the sites in a given list,
   writes the results in the 'state' file and generates a web page
   with the results. The subset contains the sites that are new, bad
   and/or not probed for a specified time.
   It quietly probes a subset of the sites in a given list,
   writes the results in the 'state' file and generates a web page
   with the results. The subset contains the sites that are new, bad
   and/or not probed for a specified time.
-
   When no 'get' option is specified, the program just generates a
   new web page from the last known state.
   When no 'get' option is specified, the program just generates a
   new web page from the last known state.
-
   The program checks the mirrors by running a (user specified)
   program on a pipe. A (user specified) number of probes is
   run in parallel using nonblocking IO. When something can be
   read from the pipe, it switches the pipe to blocking IO and
   reads one line from the pipe. Then it flushes and closes the
   pipe. No attempt is made to kill the probe.
   The program checks the mirrors by running a (user specified)
   program on a pipe. A (user specified) number of probes is
   run in parallel using nonblocking IO. When something can be
   read from the pipe, it switches the pipe to blocking IO and
   reads one line from the pipe. Then it flushes and closes the
   pipe. No attempt is made to kill the probe.
-
   The probe should return something that looks like "1043625600\n",
   that is, a timestamp followed by a newline. The exit status of
   the probe is ignored.
   The probe should return something that looks like "1043625600\n",
   that is, a timestamp followed by a newline. The exit status of
   the probe is ignored.
-
 =head1 CONFIG FILE
 =head1 CONFIG FILE
-
 =head2 location
 =head2 location
-
   A config file can be specified with the -c option.
   If -c is not used, the program looks for a config file in
   -- ./mirmon.conf
   -- $HOME/.mirmon.conf
   -- /etc/mirmon.conf
   A config file can be specified with the -c option.
   If -c is not used, the program looks for a config file in
   -- ./mirmon.conf
   -- $HOME/.mirmon.conf
   -- /etc/mirmon.conf
-
 =head2 syntax
 =head2 syntax
-
   A config file looks like this :
   A config file looks like this :
-
     +--------------------------------------------------
     |# lines that start with '#' are comment
     |# blank lines are ignored too
     +--------------------------------------------------
     |# lines that start with '#' are comment
     |# blank lines are ignored too
@@ -1311,252 +1118,159 @@ __END__
     |. part2
     |. part3
     +--------------------------------------------------
     |. part2
     |. part3
     +--------------------------------------------------
-
 =head1 CONFIG FILE : required entries
 =head1 CONFIG FILE : required entries
-
 =head2 project_name <name>
 =head2 project_name <name>
-
   Specify a short plaintext name for the project.
   Specify a short plaintext name for the project.
-
     project_name Apache
     project_name CTAN
     project_name Apache
     project_name CTAN
-
 =head2 project_url <url>
 =head2 project_url <url>
-
   Specify an url pointing to the 'home' of the project.
   Specify an url pointing to the 'home' of the project.
-
     project_url http://www.apache.org/
     project_url http://www.apache.org/
-
 =head2 mirror_list <file name>
 =head2 mirror_list <file name>
-
   Specify the file containing the mirrors to probe.
   Two formats are supported :
   Specify the file containing the mirrors to probe.
   Two formats are supported :
-
   -- plain : lines like
   -- plain : lines like
-
        us http://www.tux.org/
        nl http://apache.cs.uu.nl/dist/
        us http://www.tux.org/
        nl http://apache.cs.uu.nl/dist/
-
   -- apache : lines like those in the apache mirrors.list
   -- apache : lines like those in the apache mirrors.list
-
        ftp  us ftp://ftp.tux.org/pub/net/apache/dist/ user@tux.org
        http nl http://apache.cs.uu.nl/dist/ user@cs.uu.nl
        ftp  us ftp://ftp.tux.org/pub/net/apache/dist/ user@tux.org
        http nl http://apache.cs.uu.nl/dist/ user@cs.uu.nl
-
   Specify the required format with 'list_style' (see below).
   The default style is 'plain'.
   Specify the required format with 'list_style' (see below).
   The default style is 'plain'.
-
   If the url part of a line doesn't end in a slash ('/'), mirmon
   adds a slash and issues a warning unless it is in quiet mode.
   If the url part of a line doesn't end in a slash ('/'), mirmon
   adds a slash and issues a warning unless it is in quiet mode.
-
 =head2 web_page <file name>
 =head2 web_page <file name>
-
   Specify where the html report page is written.
   Specify where the html report page is written.
-
 =head2 icons <directory name>
 =head2 icons <directory name>
-
   Specify the directory where the icons can be found.
   Specify the directory where the icons can be found.
-
 =head2 probe <program + arguments>
 =head2 probe <program + arguments>
-
   Specify the program+args to probe the mirrors. Example:
   Specify the program+args to probe the mirrors. Example:
-
     probe /sw/bin/wget -q -O - -T %TIMEOUT% -t 1 %URL%TIME
     probe /sw/bin/wget -q -O - -T %TIMEOUT% -t 1 %URL%TIME
-
   Before the program is started, %TIMEOUT% and %URL% are
   substituted with the proper timeout and url values.
   Before the program is started, %TIMEOUT% and %URL% are
   substituted with the proper timeout and url values.
-
   Here it is assumed that each hour the root server writes
   a timestamp in /path/to/archive/TIME, for instance with
   a crontab entry like
   Here it is assumed that each hour the root server writes
   a timestamp in /path/to/archive/TIME, for instance with
   a crontab entry like
-
     42 * * * * perl -e 'printf "%s\n", time' > /path/to/archive/TIME
     42 * * * * perl -e 'printf "%s\n", time' > /path/to/archive/TIME
-
   Mirmon reads one line of output from the probe and interprets
   the first word on that line as a timestamp ; for example :
   Mirmon reads one line of output from the probe and interprets
   the first word on that line as a timestamp ; for example :
-
     1043625600
     1043625600 Mon Jan 27 00:00:00 2003
     1043625600 www.apache.org Mon Jan 27 00:00:00 2003
     1043625600
     1043625600 Mon Jan 27 00:00:00 2003
     1043625600 www.apache.org Mon Jan 27 00:00:00 2003
-
 =head2 state <file name>
 =head2 state <file name>
-
   Specify where the file containing the state is written.
   The program reads this file on startup and writes the
   file when mirrors are probed (-get is specified).
   Specify where the file containing the state is written.
   The program reads this file on startup and writes the
   file when mirrors are probed (-get is specified).
-
 =head2 countries <file name>
 =head2 countries <file name>
-
   Specify the file containing the country codes;
   The file should contain lines like
   Specify the file containing the country codes;
   The file should contain lines like
-
     us - united states
     nl - netherlands
     us - united states
     nl - netherlands
-
   The mirmon package contains a recent ISO list.
   The mirmon package contains a recent ISO list.
-
 =head1 CONFIG FILE : optional entries
 =head1 CONFIG FILE : optional entries
-
 =head2 max_probes <number>
 =head2 max_probes <number>
-
   Optionally specify the number of parallel probes (default 25).
   Optionally specify the number of parallel probes (default 25).
-
 =head2 timeout <seconds>
 =head2 timeout <seconds>
-
   Optionally specify the timeout for the probes (default 300).
   After the last probe is started, the program waits for
   <timeout> + 10 seconds, cleans up and exits.
   Optionally specify the timeout for the probes (default 300).
   After the last probe is started, the program waits for
   <timeout> + 10 seconds, cleans up and exits.
-
 =head2 project_logo <logo>
 =head2 project_logo <logo>
-
   Optionally specify (the SRC of the IMG of) a logo to be placed
   top right on the page.
   Optionally specify (the SRC of the IMG of) a logo to be placed
   top right on the page.
-
     project_logo /icons/apache.gif
     project_logo http://www.apache.org/icons/...
     project_logo /icons/apache.gif
     project_logo http://www.apache.org/icons/...
-
 =head2 htm_head <html>
 =head2 htm_head <html>
-
   Optionally specify some HTML to be placed before </HEAD>.
   Optionally specify some HTML to be placed before </HEAD>.
-
     htm_head
       <link REL=StyleSheet HREF="/style.css" TYPE="text/css">
     htm_head
       <link REL=StyleSheet HREF="/style.css" TYPE="text/css">
-
 =head2 htm_top <html>
 =head2 htm_top <html>
-
   Optionally specify some HTML to be placed near the top of the page.
   The supplied text is placed between <P> and </P>.
   Optionally specify some HTML to be placed near the top of the page.
   The supplied text is placed between <P> and </P>.
-
     htm_top testing 1, 2, 3
     htm_top testing 1, 2, 3
-
 =head2 htm_foot <html>
 =head2 htm_foot <html>
-
   Optionally specify HTML to be placed near the bottom of the page.
   Optionally specify HTML to be placed near the bottom of the page.
-
     htm_foot
       <HR>
       <A HREF="..."><IMG SRC="..." BORDER=0></A>
       <HR>
     htm_foot
       <HR>
       <A HREF="..."><IMG SRC="..." BORDER=0></A>
       <HR>
-
 =head2 put_histo top|bottom|nowhere
 =head2 put_histo top|bottom|nowhere
-
   Optionally specify where the age histogram must be placed.
   The default is 'top'.
   Optionally specify where the age histogram must be placed.
   The default is 'top'.
-
 =head2 min_poll <time spec>
 =head2 min_poll <time spec>
-
   For 'min_poll' see next item. A <time spec> is a number followed by
   a unit 's' (seconds), or 'm' (minutes), or 'h' (hours), or 'd' (days).
   For example '3d' (three days) or '36h' (36 hours).
   For 'min_poll' see next item. A <time spec> is a number followed by
   a unit 's' (seconds), or 'm' (minutes), or 'h' (hours), or 'd' (days).
   For example '3d' (three days) or '36h' (36 hours).
-
 =head2 max_poll <time spec>
 =head2 max_poll <time spec>
-
   Optionally specify the maximum probe interval. When the program is
   called with option '-get update', all sites are probed which are :
   -- new : the site appears in the list, but there is no known state
   -- bad : the last probe of the site was unsuccessful
   -- old : the last probe was more than 'max_poll' ago.
   Sites are not probed if the last probe was less than 'min_poll' ago.
   Optionally specify the maximum probe interval. When the program is
   called with option '-get update', all sites are probed which are :
   -- new : the site appears in the list, but there is no known state
   -- bad : the last probe of the site was unsuccessful
   -- old : the last probe was more than 'max_poll' ago.
   Sites are not probed if the last probe was less than 'min_poll' ago.
-
   So, if you specify
   So, if you specify
-
     min_poll 4h
     max_poll 12h
     min_poll 4h
     max_poll 12h
-
   the 'reachable' sites are probed twice daily and the 'unreachable'
   sites are probed at most six times a day.
   the 'reachable' sites are probed twice daily and the 'unreachable'
   sites are probed at most six times a day.
-
   The default 'min_poll' is '1h' (1 hour).
   The default 'max_poll' is '4h' (4 hours).
   The default 'min_poll' is '1h' (1 hour).
   The default 'max_poll' is '4h' (4 hours).
-
 =head2 min_sync <time spec>
 =head2 min_sync <time spec>
-
   Optionally specify how often the mirrors are required to
   make an update. The default 'min_sync' is '1d' (1 day).
   Optionally specify how often the mirrors are required to
   make an update. The default 'min_sync' is '1d' (1 day).
-
 =head2 max_sync <time spec>
 =head2 max_sync <time spec>
-
   Optionally specify the maximum allowable sync interval.
   Sites exceeding the limit will be considered 'old'.
   The default 'max_sync' is '2d' (2 days).
   Optionally specify the maximum allowable sync interval.
   Sites exceeding the limit will be considered 'old'.
   The default 'max_sync' is '2d' (2 days).
-
 =head2 no_randomize
 =head2 no_randomize
-
   With a low probablility, mirmon probes mirrors that would
   otherwise not be probed. In the long run, this balances
   the number of mirror probes over the hourly mirmon runs.
   Specifically, if there are N mirrors in the list and some
   mirmon run would probe K sites, on average (N-K)/N extra
   sites will be probed.
   With a low probablility, mirmon probes mirrors that would
   otherwise not be probed. In the long run, this balances
   the number of mirror probes over the hourly mirmon runs.
   Specifically, if there are N mirrors in the list and some
   mirmon run would probe K sites, on average (N-K)/N extra
   sites will be probed.
-
   If you don't want this behaviour, use 'no_randomize'.
   If you don't want this behaviour, use 'no_randomize'.
-
 =head2 list_style plain|apache
 =head2 list_style plain|apache
-
   Optionally specify the format ('plain' or 'apache') of the
   mirror-list. See the description of 'mirror_list' above.
   The default list_style is 'plain'.
   Optionally specify the format ('plain' or 'apache') of the
   mirror-list. See the description of 'mirror_list' above.
   The default list_style is 'plain'.
-
 =head2 site_url <site> <url>
 =head2 site_url <site> <url>
-
   Optionally specify a substitute url for a site. When access to
   a site is restricted (in Australia, for instance), another
   (sometimes secret) url can be used to probe the site. The <site>
   of an url is the part between '://' and the first '/'.
   Optionally specify a substitute url for a site. When access to
   a site is restricted (in Australia, for instance), another
   (sometimes secret) url can be used to probe the site. The <site>
   of an url is the part between '://' and the first '/'.
-
 =head2 env <key> <value>
 =head2 env <key> <value>
-
   Optionally specify an environment variable.
   Optionally specify an environment variable.
-
 =head2 include <file name>
 =head2 include <file name>
-
   Optionally specify a file to include. The specified file is processed
   'in situ'. After the specified file is read and processed, config
   processing is resumed in the file where the 'include' was encountered.
   The 'include' depth is unlimited. However, it is a fatal error to
   include a file twice under the same name.
   Optionally specify a file to include. The specified file is processed
   'in situ'. After the specified file is read and processed, config
   processing is resumed in the file where the 'include' was encountered.
   The 'include' depth is unlimited. However, it is a fatal error to
   include a file twice under the same name.
-
 =head2 show
 =head2 show
-
   When the config processor encounters the 'show' command, it
   dumps the content of the current config to standout, if option
   -v is specified. This is intented for debugging.
   When the config processor encounters the 'show' command, it
   dumps the content of the current config to standout, if option
   -v is specified. This is intented for debugging.
-
 =head2 exit
 =head2 exit
-
   When the config processor encounters the 'exit' command, it
   terminates the program. This is intented for debugging.
   When the config processor encounters the 'exit' command, it
   terminates the program. This is intented for debugging.
-
 =head1 STATE FILE FORMAT
 =head1 STATE FILE FORMAT
-
   The state file consists of lines; one line per site.
   Each line consists of white space separated fields.
   The seven fields are :
   The state file consists of lines; one line per site.
   Each line consists of white space separated fields.
   The seven fields are :
-
 =head2 field 1 : url
 =head2 field 1 : url
-
   The url as given in the mirror list.
   The url as given in the mirror list.
-
 =head2 field 2 : age
 =head2 field 2 : age
-
   The age of the site, or 'undef' if no probe was ever successful.
   The age of the site, or 'undef' if no probe was ever successful.
-
 =head2 field 3 : status last probe
 =head2 field 3 : status last probe
-
   The status of the last probe.
   The status of the last probe.
-
 =head2 field 4 : time last succesful probe
 =head2 field 4 : time last succesful probe
-
   The timestamp of the last succesful probe or 'undef'
   if the site was never successfully probed.
   The timestamp of the last succesful probe or 'undef'
   if the site was never successfully probed.
-
 =head2 field 5 : probe history
 =head2 field 5 : probe history
-
   The probe history is a list of 's' (for success) and 'f' (for failure)
   characters indicating the result of the probe. New results are appended
   whenever the site is probed.
   The probe history is a list of 's' (for success) and 'f' (for failure)
   characters indicating the result of the probe. New results are appended
   whenever the site is probed.
-
 =head2 field 6 : state history
 =head2 field 6 : state history
-
   The state history consists of a timestamp, a '-' char, and a list of
   chars indicating a past status: 's' (fresh), 'b' (oldish), 'f' (old)
   or 'z' (bad). The timestamp indicates when the state history was last
   The state history consists of a timestamp, a '-' char, and a list of
   chars indicating a past status: 's' (fresh), 'b' (oldish), 'f' (old)
   or 'z' (bad). The timestamp indicates when the state history was last
@@ -1564,25 +1278,15 @@ __END__
   and the last update of the history state was 24 (or more) hours ago.
   The status is determined by the site's age and a few configuration
   parameters. The details are explained in the legend of the report page.
   and the last update of the history state was 24 (or more) hours ago.
   The status is determined by the site's age and a few configuration
   parameters. The details are explained in the legend of the report page.
-
 =head2 field 7 : last probe
 =head2 field 7 : last probe
-
   The timestamp of the last probe.
   The timestamp of the last probe.
-
 =head1 INSTALLATION
 =head1 INSTALLATION
-
 =over
 =over
-
 =item *
 =item *
-
   The '#!' path for perl is probably wrong.
   The '#!' path for perl is probably wrong.
-
 =back
 =back
-
 =head1 AUTHOR
 =head1 AUTHOR
-
 =begin html
 =begin html
-
 <BLOCKQUOTE>
   &copy; 2003
   <A HREF="http://www.cs.uu.nl/staff/henkp.html">Henk P. Penning</A>,
 <BLOCKQUOTE>
   &copy; 2003
   <A HREF="http://www.cs.uu.nl/staff/henkp.html">Henk P. Penning</A>,
@@ -1591,15 +1295,9 @@ __END__
   <BR>
   $Id: mirmon,v 1.37 2006/12/04 15:16:11 henkp Exp henkp $
 </BLOCKQUOTE>
   <BR>
   $Id: mirmon,v 1.37 2006/12/04 15:16:11 henkp Exp henkp $
 </BLOCKQUOTE>
-
 =end html
 =end html
-
 =begin text
 =begin text
-
   (c) 2003 Henk P. Penning, Computer Science Department, Utrecht University
   http://www.cs.uu.nl/staff/henkp.html -- penning@cs.uu.nl
   (c) 2003 Henk P. Penning, Computer Science Department, Utrecht University
   http://www.cs.uu.nl/staff/henkp.html -- penning@cs.uu.nl
-
 =end text
 =end text
-
-=cut
-
+=cut
\ No newline at end of file