trunk/templates/master.html

<html>
<head>
<title>[% IF title %][% title %] -- [% END %]Mail::Box Web Search</title>
</head>

[% MACRO search(fld,text,link_text) BLOCK; %]
<a href="?search=[% fld %]:[% IF fld == "subject" %][% FILTER subject_search ; text ; END %][% ELSE ; text ; END %]">[% IF link_text ; link_text ; ELSE ; text ; END %]</a>
[% END %]

[% MACRO option(var, value, text) BLOCK %]
<option value="[% value %]"[% IF value == param.search_fld %] selected[% END %]>[% text %]</option>
[% END %]

[% MACRO from(message) BLOCK %]
<span class="from">
 [% FOREACH f IN message.from %]
  [% search('from_phrase',f) %][% IF !loop.last %],[% END %]
 [% END %]
</span>
[% END %]

[% MACRO to(message) BLOCK %]
[% IF message.to.size %]
<span class="to">To:
 [% FOREACH f IN message.to %]
  [% search('to_phrase',f) %][% IF !loop.last %], [% END %]
 [% END %]
</span>
[% END %]
[% IF message.cc.size %]
<span class="cc">Cc:
 [% FOREACH f IN message.cc %]
  [% search('cc_phrase',f) %][% IF !loop.last %], [% END %]
 [% END %]
</span>
[% END %]
[% IF message.bcc.size %]
<span class="bcc">Bcc:
 [% FOREACH f IN message.bcc %]
  [% IF loop.fist %]Bcc [% END %]
  [% search('bcc_phrase',f) %][% IF !loop.last %], [% END %]
 [% END %]
</span>
[% END %]
[% END %]

[% MACRO date(msg) BLOCK %]
<span class="date">[% msg.date %]</span>
[% END %]

[% MACRO usage_list(list,key,description) BLOCK %]
[% IF list %]
<div class="[% key %]">
[% description %]
[% FOREACH l IN list %]
<br><a href="?search=[% key %]_phrase:[% l.name %]">[% l.name %]</a>&nbsp;<span class="counter">[% l.usage %]</span>
[% END %]
</div>
[% END %]
[% END %]

[% MACRO url_search BLOCK %]
[% IF param.search ; "?search=" ; param.search ; END %]
[% END %]

<body>

<table border="0" width="100%">
<tr>
<td colspan="2">

<form>
Search
<select name="search_fld">
[% option("search_fld","message","anywhere") %]
[% option("search_fld","subject","message subject") %]
[% option("search_fld","body","message text") %]
[% option("search_fld","from_phrase","sender name") %]
[% option("search_fld","from_address","sender address") %]
[% option("search_fld","to_phrase","recipient name") %]
[% option("search_fld","to_address","recipient address") %]
[% option("search_fld","cc_phrase","also to name") %]
[% option("search_fld","bcc_phrase","sneek to name") %]
</select>
<input type="text" name="search_val" size=20 value="[% param.search_val %]">
</select>
<input type="submit" name="submit" value="Go!">
</form>

</td>
</tr>

<tr>
<td valign="top" width="90%">

[% IF results %]
 [% INCLUDE results.html %]
[% ELSIF message %]
 [% INCLUDE message.html %]
[% END %]

</td>
<td valign="top">

[% USE cal = Calendar.Simple(mm,yyyy) %]

[% PERL %]
$stash->set( get_cal => sub {
        my $cal = shift;
        my $yyyy = shift || return "BUG2";
        my $mm = shift || return "BUG3";
        my $day = shift || return "&nbsp;";

        my $url = shift || "";

        return $day if (! $cal);        # no calendar entries

        my $yyyymm = sprintf("%04d-%02d",$yyyy,$mm);
        my $dd = sprintf("%02d",$day);

        if ($cal->{$yyyymm}->{$dd}) {
                return "<a href=\"/$yyyy/$mm/$dd/$url\" title=\"".$cal->{$yyyymm}->{$dd}."\">$day</a>";
        } else {
                return $day;
        }
} );
[% END %]

  <table border="0">
  <tr><th colspan="7">
        <a href="/[% yyyy ; "/" %]/[% url_search %]">[% yyyy %]</a>-<a href="/[% yyyy ; "/" ; mm %]/[% url_search %]">[% mm %]</a>
  </th></tr>
  [% FOREACH row = cal.rows %]
     <tr>
     [% FOREACH col = row %]
        <td align="right">[% get_cal(calendar,yyyy,mm,col,url_search) %]</td>
     [% END %]
     </tr>
  [% END %]
  </table>

<br>
Thread

[% usage_list(counters.from,'from','From') %]

[% usage_list(counters.to,'to','To') %]

[% usage_list(counters.cc,'cc','Cc') %]

<br>
Lists

<br>
Links

<!--
[% USE dumper ; dumper.dump(calendar) %]
-->

</td>

</tr>


</table>

</body>
1	dpavlin	6	<html>
2			<head>
3	dpavlin	7	<title>[% IF title %][% title %] -- [% END %]Mail::Box Web Search</title>
4			</head>
5	dpavlin	6
6	dpavlin	11	[% MACRO search(fld,text,link_text) BLOCK; %]
7	dpavlin	14	<a href="?search=[% fld %]:[% IF fld == "subject" %][% FILTER subject_search ; text ; END %][% ELSE ; text ; END %]">[% IF link_text ; link_text ; ELSE ; text ; END %]</a>
8	dpavlin	7	[% END %]
9
10	dpavlin	12	[% MACRO option(var, value, text) BLOCK %]
11			<option value="[% value %]"[% IF value == param.search_fld %] selected[% END %]>[% text %]</option>
12			[% END %]
13
14	dpavlin	13	[% MACRO from(message) BLOCK %]
15			<span class="from">
16			[% FOREACH f IN message.from %]
17			[% search('from_phrase',f) %][% IF !loop.last %],[% END %]
18			[% END %]
19			</span>
20			[% END %]
21
22			[% MACRO to(message) BLOCK %]
23	dpavlin	16	[% IF message.to.size %]
24			<span class="to">To:
25	dpavlin	13	[% FOREACH f IN message.to %]
26			[% search('to_phrase',f) %][% IF !loop.last %], [% END %]
27			[% END %]
28	dpavlin	16	</span>
29			[% END %]
30			[% IF message.cc.size %]
31			<span class="cc">Cc:
32	dpavlin	13	[% FOREACH f IN message.cc %]
33			[% search('cc_phrase',f) %][% IF !loop.last %], [% END %]
34			[% END %]
35	dpavlin	16	</span>
36			[% END %]
37			[% IF message.bcc.size %]
38			<span class="bcc">Bcc:
39	dpavlin	13	[% FOREACH f IN message.bcc %]
40	dpavlin	14	[% IF loop.fist %]Bcc [% END %]
41			[% search('bcc_phrase',f) %][% IF !loop.last %], [% END %]
42	dpavlin	13	[% END %]
43			</span>
44			[% END %]
45	dpavlin	16	[% END %]
46	dpavlin	13
47			[% MACRO date(msg) BLOCK %]
48			<span class="date">[% msg.date %]</span>
49			[% END %]
50
51	dpavlin	19	[% MACRO usage_list(list,key,description) BLOCK %]
52			[% IF list %]
53			<div class="[% key %]">
54			[% description %]
55			[% FOREACH l IN list %]
56	dpavlin	23	<br><a href="?search=[% key %]_phrase:[% l.name %]">[% l.name %]</a> <span class="counter">[% l.usage %]</span>
57	dpavlin	19	[% END %]
58			</div>
59			[% END %]
60			[% END %]
61
62	dpavlin	21	[% MACRO url_search BLOCK %]
63			[% IF param.search ; "?search=" ; param.search ; END %]
64			[% END %]
65
66	dpavlin	6	<body>
67
68	dpavlin	12	<table border="0" width="100%">
69			<tr>
70			<td colspan="2">
71
72			<form>
73			Search
74			<select name="search_fld">
75	dpavlin	14	[% option("search_fld","message","anywhere") %]
76	dpavlin	12	[% option("search_fld","subject","message subject") %]
77			[% option("search_fld","body","message text") %]
78			[% option("search_fld","from_phrase","sender name") %]
79			[% option("search_fld","from_address","sender address") %]
80	dpavlin	13	[% option("search_fld","to_phrase","recipient name") %]
81			[% option("search_fld","to_address","recipient address") %]
82	dpavlin	16	[% option("search_fld","cc_phrase","also to name") %]
83			[% option("search_fld","bcc_phrase","sneek to name") %]
84	dpavlin	12	</select>
85			<input type="text" name="search_val" size=20 value="[% param.search_val %]">
86			</select>
87	dpavlin	16	<input type="submit" name="submit" value="Go!">
88	dpavlin	12	</form>
89
90			</td>
91			</tr>
92
93			<tr>
94	dpavlin	13	<td valign="top" width="90%">
95	dpavlin	12
96	dpavlin	7	[% IF results %]
97			[% INCLUDE results.html %]
98			[% ELSIF message %]
99			[% INCLUDE message.html %]
100			[% END %]
101	dpavlin	6
102	dpavlin	12	</td>
103			<td valign="top">
104
105	dpavlin	20	[% USE cal = Calendar.Simple(mm,yyyy) %]
106	dpavlin	12
107	dpavlin	20	[% PERL %]
108			$stash->set( get_cal => sub {
109			my $cal = shift;
110			my $yyyy = shift \|\| return "BUG2";
111			my $mm = shift \|\| return "BUG3";
112			my $day = shift \|\| return " ";
113
114	dpavlin	21	my $url = shift \|\| "";
115
116	dpavlin	20	return $day if (! $cal); # no calendar entries
117
118			my $yyyymm = sprintf("%04d-%02d",$yyyy,$mm);
119			my $dd = sprintf("%02d",$day);
120
121			if ($cal->{$yyyymm}->{$dd}) {
122	dpavlin	21	return "<a href=\"/$yyyy/$mm/$dd/$url\" title=\"".$cal->{$yyyymm}->{$dd}."\">$day</a>";
123	dpavlin	20	} else {
124			return $day;
125			}
126			} );
127			[% END %]
128
129	dpavlin	12	<table border="0">
130	dpavlin	21	<tr><th colspan="7">
131			<a href="/[% yyyy ; "/" %]/[% url_search %]">[% yyyy %]</a>-<a href="/[% yyyy ; "/" ; mm %]/[% url_search %]">[% mm %]</a>
132			</th></tr>
133	dpavlin	12	[% FOREACH row = cal.rows %]
134			<tr>
135			[% FOREACH col = row %]
136	dpavlin	21	<td align="right">[% get_cal(calendar,yyyy,mm,col,url_search) %]</td>
137	dpavlin	12	[% END %]
138			</tr>
139			[% END %]
140			</table>
141
142			<br>
143			Thread
144
145	dpavlin	19	[% usage_list(counters.from,'from','From') %]
146	dpavlin	12
147	dpavlin	19	[% usage_list(counters.to,'to','To') %]
148	dpavlin	12
149	dpavlin	19	[% usage_list(counters.cc,'cc','Cc') %]
150
151	dpavlin	12	<br>
152			Lists
153
154			<br>
155			Links
156
157	dpavlin	21	<!--
158	dpavlin	20	[% USE dumper ; dumper.dump(calendar) %]
159	dpavlin	21	-->
160	dpavlin	12
161			</td>
162
163			</tr>
164
165
166			</table>
167
168	dpavlin	6	</body>