trunk/templates/macros.tt2

[% PERL %]
$stash->set( search => sub {
        my ($fld,$search,$sort_by,$link_text) = @_;

        my $html = '<a href="?search='.$fld.':';
        if ($fld eq "subject") {
                my $s = $search;

                # remove re: fdw: [list] preffixes from e-mail
                while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig ||
                        $s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig ||
                        $s =~ s/^\[\S+\]\s*//ig ||
                        $s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g ||
                        $s =~ s/\(fwd\)\s*$//ig ||
                        $s =~ s/\"//g
                ) { };

                $html .= URI::Escape::uri_escape($s);
        } else {
                $html .= URI::Escape::uri_escape($search);
        }

        $html .= '&sort_by='.$sort_by if ($sort_by);

        $html .= '">';
        $html .= ($link_text ? $link_text : $search);
        $html .= '</a>';

        return $html;
} );
[% 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,param.sort_by) %][% 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,param.sort_by) %][% IF !loop.last %], [% END %]
  [% END %]
 </span>
 [% END %]
 [% IF message.cc.size %]
 <span class="cc">Cc:
  [% FOREACH f IN message.cc %]
   [% search('cc_phrase',f,param.sort_by) %][% 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,param.sort_by) %][% IF !loop.last %], [% END %]
  [% END %]
 </span>
 [% END %]
[% END %]

[% MACRO usage_list(list,key,description) BLOCK %]
 [% IF list %]
  <div class="[% key %]">
  [% description %]
  [% FOREACH l IN list %]
   <br>[% search("${key}_phrase",l.name,param.sort_by) %]&nbsp;<span class="counter">[% l.usage %]</span>
  [% END %]
  </div>
 [% END %]
[% END %]


[% 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 %]


[% MACRO url_show_id(id) BLOCK ;
        '?show_id=' ; id ;
        IF param.search ; '&search=' ; param.search ; END ;
        IF param.sort_by ; '&sort_by=' ; param.sort_by ; END ;
END %]


[% MACRO url_search(param) BLOCK ;
 IF !param ; param = param.search ; END ;
 IF param.sort_by ; "?search=" ; param ; "&sort_by=" ; param.sort_by ;
 ELSE ; "?search=" ; param ;
 END ;
END %]


[% PERL %]
$stash->set( sort_bar => sub {
        my ($param,$pre,$del,$post) = @_;

        my ($a1,$a2,$a3) = ('<a href="','">','</a>');
        my ($ss1,$ss2) = ('<span class="sort_selected">','</span>');

        my $html_search = '';
        my $next_sep = '?';

        if ($param->{search}) {
                $html_search = '?search='.$param->{search};
                $next_sep = '&';
        }

        # default sort order
        my ($sort_fld,$sort_order) = ('rank','desc');
        ($sort_fld,$sort_order) = split(/\s+/,$param->{sort_by});

        my $other_order = {
                'asc' => 'desc',
                'desc' => 'asc',
        };

        my $default_sort = {
                'rank' => 'desc',
                'from' => 'asc',
                'to' => 'asc',
                'date' => 'desc',
        };

        my @html;
        foreach my $fld (qw(rank date from to)) {

                my $h = $a1  . $html_search . $next_sep . 'sort_by=';

                if ($sort_fld eq $fld) {
                        $h .= $sort_fld." ".$other_order->{$sort_order};
                        $h .= $a2 . $ss1 . $sort_fld . $ss2 . $a3 ;
                } else {
                        $h .= $fld." ".$default_sort->{$fld};
                        $h .= $a2 . $fld . $a3 ;
                }
                push @html, $h;

        }

        return $pre.join($del,@html).$post;

} );
[% END %]


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

[% PERL %]
$stash->set( yyyy_mm => sub {
        my $d = shift;

        if ($d =~ /^(\d{4}[\-\/]\d{2})/) {
                return $1;
        } else {
                return $d;
        }
} );
[% END %]
1	dpavlin	24	[% PERL %]
2			$stash->set( search => sub {
3			my ($fld,$search,$sort_by,$link_text) = @_;
4
5			my $html = '<a href="?search='.$fld.':';
6			if ($fld eq "subject") {
7			my $s = $search;
8
9			# remove re: fdw: [list] preffixes from e-mail
10			while ( $s =~ s/^\s\[(?:re\|fwd\|fw):\s+(.+)\]\s$/$1/ig \|\|
11			$s =~ s/^\s(?:re\|fwd\|fw):\s+(.+?)\s$/$1/ig \|\|
12			$s =~ s/^\[\S+\]\s*//ig \|\|
13			$s =~ s/^\[[^@]+@[\w\.]+\s:\s+(.+)\s\]\s*$/$1/g \|\|
14			$s =~ s/\(fwd\)\s*$//ig \|\|
15			$s =~ s/\"//g
16			) { };
17
18			$html .= URI::Escape::uri_escape($s);
19			} else {
20			$html .= URI::Escape::uri_escape($search);
21			}
22
23			$html .= '&sort_by='.$sort_by if ($sort_by);
24
25			$html .= '">';
26			$html .= ($link_text ? $link_text : $search);
27			$html .= '</a>';
28
29			return $html;
30			} );
31			[% END %]
32
33			[% MACRO option(var, value, text) BLOCK %]
34			<option value="[% value %]"[% IF value == param.search_fld %] selected[% END %]>[% text %]</option>
35			[% END %]
36
37			[% MACRO from(message) BLOCK %]
38			<span class="from">
39			[% FOREACH f IN message.from %]
40			[% search('from_phrase',f,param.sort_by) %][% IF !loop.last %],[% END %]
41			[% END %]
42			</span>
43			[% END %]
44
45			[% MACRO to(message) BLOCK %]
46			[% IF message.to.size %]
47			<span class="to">To:
48			[% FOREACH f IN message.to %]
49			[% search('to_phrase',f,param.sort_by) %][% IF !loop.last %], [% END %]
50			[% END %]
51			</span>
52			[% END %]
53			[% IF message.cc.size %]
54			<span class="cc">Cc:
55			[% FOREACH f IN message.cc %]
56			[% search('cc_phrase',f,param.sort_by) %][% IF !loop.last %], [% END %]
57			[% END %]
58			</span>
59			[% END %]
60			[% IF message.bcc.size %]
61			<span class="bcc">Bcc:
62			[% FOREACH f IN message.bcc %]
63			[% IF loop.fist %]Bcc [% END %]
64			[% search('bcc_phrase',f,param.sort_by) %][% IF !loop.last %], [% END %]
65			[% END %]
66			</span>
67			[% END %]
68			[% END %]
69
70			[% MACRO usage_list(list,key,description) BLOCK %]
71			[% IF list %]
72			<div class="[% key %]">
73			[% description %]
74			[% FOREACH l IN list %]
75	dpavlin	25	<br>[% search("${key}_phrase",l.name,param.sort_by) %] <span class="counter">[% l.usage %]</span>
76	dpavlin	24	[% END %]
77			</div>
78			[% END %]
79			[% END %]
80
81
82			[% PERL %]
83			$stash->set( get_cal => sub {
84			my $cal = shift;
85			my $yyyy = shift \|\| return "BUG2";
86			my $mm = shift \|\| return "BUG3";
87			my $day = shift \|\| return " ";
88
89			my $url = shift \|\| "";
90
91			return $day if (! $cal); # no calendar entries
92
93			my $yyyymm = sprintf("%04d-%02d",$yyyy,$mm);
94			my $dd = sprintf("%02d",$day);
95
96			if ($cal->{$yyyymm}->{$dd}) {
97			return "<a href=\"/$yyyy/$mm/$dd/$url\" title=\"".$cal->{$yyyymm}->{$dd}."\">$day</a>";
98			} else {
99			return $day;
100			}
101			} );
102			[% END %]
103
104
105			[% MACRO url_show_id(id) BLOCK ;
106			'?show_id=' ; id ;
107	dpavlin	27	IF param.search ; '&search=' ; param.search ; END ;
108			IF param.sort_by ; '&sort_by=' ; param.sort_by ; END ;
109	dpavlin	24	END %]
110
111
112	dpavlin	30	[% MACRO url_search(param) BLOCK ;
113			IF !param ; param = param.search ; END ;
114			IF param.sort_by ; "?search=" ; param ; "&sort_by=" ; param.sort_by ;
115			ELSE ; "?search=" ; param ;
116	dpavlin	24	END ;
117			END %]
118
119
120			[% PERL %]
121			$stash->set( sort_bar => sub {
122			my ($param,$pre,$del,$post) = @_;
123
124			my ($a1,$a2,$a3) = ('<a href="','">','</a>');
125			my ($ss1,$ss2) = ('<span class="sort_selected">','</span>');
126
127			my $html_search = '';
128			my $next_sep = '?';
129
130			if ($param->{search}) {
131			$html_search = '?search='.$param->{search};
132			$next_sep = '&';
133			}
134
135			# default sort order
136			my ($sort_fld,$sort_order) = ('rank','desc');
137			($sort_fld,$sort_order) = split(/\s+/,$param->{sort_by});
138
139			my $other_order = {
140			'asc' => 'desc',
141			'desc' => 'asc',
142			};
143
144			my $default_sort = {
145			'rank' => 'desc',
146			'from' => 'asc',
147			'to' => 'asc',
148			'date' => 'desc',
149			};
150
151			my @html;
152			foreach my $fld (qw(rank date from to)) {
153
154			my $h = $a1 . $html_search . $next_sep . 'sort_by=';
155
156			if ($sort_fld eq $fld) {
157			$h .= $sort_fld." ".$other_order->{$sort_order};
158			$h .= $a2 . $ss1 . $sort_fld . $ss2 . $a3 ;
159			} else {
160			$h .= $fld." ".$default_sort->{$fld};
161			$h .= $a2 . $fld . $a3 ;
162			}
163			push @html, $h;
164
165			}
166
167			return $pre.join($del,@html).$post;
168
169			} );
170			[% END %]
171
172	dpavlin	25
173			[% MACRO date(msg) BLOCK %]
174			<span class="date"><a href="/[% yyyy_mm(msg.date) %]/[% url_search %]">[% msg.date %]</a></span>
175			[% END %]
176
177			[% PERL %]
178			$stash->set( yyyy_mm => sub {
179			my $d = shift;
180
181			if ($d =~ /^(\d{4}[\-\/]\d{2})/) {
182			return $1;
183			} else {
184			return $d;
185			}
186			} );
187			[% END %]