Sack/web/browse.cgi

#!/usr/bin/perl -w

use strict;

use Cwd qw/abs_path/;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Simple;
use File::Slurp;
use Data::Dumper;
use Text::Iconv;

use lib '../lib';

use WebPAC::DB;
use WebPAC::Output::TT;

my $abs_path = abs_path($0);
$abs_path =~ s#/[^/]*$#/../#;

my $db_path = $abs_path . '/db/';
my $template = 'html_ffzg.tt';

my $iconv_utf8 = new Text::Iconv('ISO-8859-2', 'UTF-8');
my $iconv_loc = new Text::Iconv('UTF-8', 'ISO-8859-2');

my $db = new WebPAC::DB(
        path => $db_path,
        read_only => 1,
        debug => 1,
);

my $out = new WebPAC::Output::TT(
        include_path => "$abs_path/conf/output/tt",
        filters => { foo => sub { shift } },
);

my $q = new CGI::Simple;
my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 );

my $rec = $q->param('rec') || 1;

print $q->header( -charset    => 'utf-8' );

if ($q->path_info =~ m#xml#) {

        my @ds = $db->load_ds($rec);

        if (@ds && $#ds > 0) {
                print qq{<response>
<action type='html' target='div_record' errorCode='' errorMessage='' >
                }, $iconv_utf8->convert( $out->apply(
                        template => $template,
                        data => \@ds,
                ) ), qq{

</action>
<action type='javascript' errorCode='' errorMessage='' >
<!--
        var el = iwfGetById('div_record_nr');
        if (el) el.innerHTML = '# <b>$rec</b>';
        //iwfShow('div_record');
        iwfOpacity('div_record', 100);
//-->
</action>
</response>
};
                exit;
        } else {
                print qq{<response>
<action type='html' target='div_record' errorCode='' errorMessage='' >

<b>Record $rec not found!</b>
</action>
<action type='javascript' errorCode='' errorMessage='' >
<!--
        var el = iwfGetById('div_record_nr');
        if (el) el.innerHTML = '<strike>&nbsp;$rec&nbsp;</strike>';
//-->
</action>
</response>
};
                exit;
        }

} elsif ($q->path_info =~ m#template#) {

                my @actions;

                if ($q->param('save_template')) {

                        my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) || die "no template?";
                        sub _conv_js {
                                my $t = shift || return;
                                return $iconv_loc->convert(chr(hex($t)));
                        }
                        $tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
                        $tmpl =~ s/[\n\r]+$//s;

                        my $tmpl_file = $out->{'include_path'} . '/' . $template;
                        write_file($tmpl_file . '.new', $tmpl) || die "can't save $tmpl_file: $!";
                        rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";

                        print qq{<response>
<action type='html' target='div_status' errorCode='' errorMessage='' >
<tt>$template</tt> saved
</action>
<action type='js'>
<!--
iwfShow('div_status', 1);
reload_rec();
iwfHideGentlyDelay('div_status', 2, 2000, 1);
-->
</action>
</response>
                        };
                        exit;

                }

                my $tmpl = read_file($out->{'include_path'} . '/' . $template) || die "can't read template $template: $!";
                $tmpl = $q->escapeHTML($iconv_utf8->convert($tmpl));

                print qq{<response>
<action type='html' target='div_template' errorCode='' errorMessage='' >
<pre>}, Dumper($q->Vars), qq{</pre>

<form name="frmEditor" action="$self" method="post" iwfTarget="div_status" >

<textarea name="tt_template" cols="80" rows="10" style="display: block;">
$tmpl
</textarea>

<br/>
<input type="button" name="save_template" value="Save" onclick="javascript:iwfRequest(this);" />
<!--
<input type="checkbox" name="checkin_template" id="checkin_checkbox" label="checkin" /> checkin
-->
&nbsp;&nbsp;<span id="div_status" style="color: #808080;">idle</span>

<input type='hidden' value='hidden post value' name='hidValue' />

</form>
</action>
<action type='js'>
<!--
iwfHideGentlyDelay('div_status', 2, 2000, 1);
-->
</action>
</response>
                };

                exit;

} else {
        print qq{
<html>
<head>
<title>WebPAC simple browse interface</title>
<script type='text/javascript' src='iwf/iwfcore.js'></script>
<script type='text/javascript' src='iwf/iwfgui.js'></script>
<script type='text/javascript' src='iwf/iwfxml.js'></script>
<script type='text/javascript' src='iwf/iwfajax.js'></script>
<script type='text/javascript'>

var rec = $rec ;
var url = '$self';

function update_status(text) {
        var el = iwfGetById('div_record_nr');
        if (el) el.innerHTML = text;
}

function load_rec(nr) {
        if (nr == 1) {
                iwfHide('a_left_arr', 1);
        } else {
                iwfShow('a_left_arr', 1);
        }
        update_status(nr+'...');
        iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
        iwfOpacity('div_record', 30);
}

function inc_rec() {
        rec++;
        load_rec(rec);
        return false;
}

function dec_rec() {
        if (rec > 1) {
                rec--;
                load_rec(rec);
        }
        return false;
}

function reload_rec() {
        load_rec(rec);
        return false;
}

function init_page() {
        load_rec(rec);
        // load template
        iwfRequest( url+'/template/', 'div_template' );
}

</script>
</head>
<body onload="init_page();">

db_path = <tt>$db_path</tt><br/>
template = <tt>$template</tt><br/>

<div id="iwfLog" style="display: none;">
</div>

<div style="background: #e0e0e0; padding: 0.5em; display: block;">
        <a id="a_left_arr" href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>
        <span id="div_record_nr"> none </span>

        <a id="a_right_arr" href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>
        <a id="a_reload" href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>
        <a href="#" onClick="iwfRefreshLog(); return false;">&#9636;</a>

</div>

<div id="div_template">
<span style="color: #808080;"> no template loaded yet. </span>
</div>

<div id="div_record" style="display: block;">
<span style="color: #808080;"> no record loaded yet. </span>
</div>


</body>
</html>};

};
1	dpavlin	46	#!/usr/bin/perl -w
2
3	dpavlin	54	use strict;
4
5	dpavlin	46	use Cwd qw/abs_path/;
6			use CGI::Carp qw(fatalsToBrowser);
7			use CGI::Simple;
8	dpavlin	49	use File::Slurp;
9	dpavlin	54	use Data::Dumper;
10			use Text::Iconv;
11	dpavlin	46
12			use lib '../lib';
13
14			use WebPAC::DB;
15			use WebPAC::Output::TT;
16
17			my $abs_path = abs_path($0);
18			$abs_path =~ s#/[^/]*$#/../#;
19
20			my $db_path = $abs_path . '/db/';
21	dpavlin	49	my $template = 'html_ffzg.tt';
22	dpavlin	46
23	dpavlin	54	my $iconv_utf8 = new Text::Iconv('ISO-8859-2', 'UTF-8');
24			my $iconv_loc = new Text::Iconv('UTF-8', 'ISO-8859-2');
25
26	dpavlin	46	my $db = new WebPAC::DB(
27			path => $db_path,
28			read_only => 1,
29			debug => 1,
30			);
31
32			my $out = new WebPAC::Output::TT(
33			include_path => "$abs_path/conf/output/tt",
34			filters => { foo => sub { shift } },
35			);
36
37			my $q = new CGI::Simple;
38			my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 );
39
40			my $rec = $q->param('rec') \|\| 1;
41
42	dpavlin	54	print $q->header( -charset => 'utf-8' );
43	dpavlin	46
44			if ($q->path_info =~ m#xml#) {
45
46			my @ds = $db->load_ds($rec);
47
48	dpavlin	49	if (@ds && $#ds > 0) {
49	dpavlin	46	print qq{<response>
50	dpavlin	49	<action type='html' target='div_record' errorCode='' errorMessage='' >
51	dpavlin	58	}, $iconv_utf8->convert( $out->apply(
52	dpavlin	49	template => $template,
53	dpavlin	46	data => \@ds,
54	dpavlin	58	) ), qq{
55	dpavlin	46
56	dpavlin	57	</action>
57			<action type='javascript' errorCode='' errorMessage='' >
58	dpavlin	46	<!--
59	dpavlin	49	var el = iwfGetById('div_record_nr');
60	dpavlin	46	if (el) el.innerHTML = '# <b>$rec</b>';
61	dpavlin	49	//iwfShow('div_record');
62			iwfOpacity('div_record', 100);
63	dpavlin	46	//-->
64			</action>
65			</response>
66			};
67			exit;
68			} else {
69	dpavlin	49	print qq{<response>
70			<action type='html' target='div_record' errorCode='' errorMessage='' >
71
72			<b>Record $rec not found!</b>
73	dpavlin	57	</action>
74			<action type='javascript' errorCode='' errorMessage='' >
75	dpavlin	49	<!--
76			var el = iwfGetById('div_record_nr');
77	dpavlin	59	if (el) el.innerHTML = '<strike> $rec </strike>';
78	dpavlin	49	//-->
79			</action>
80			</response>
81			};
82			exit;
83	dpavlin	46	}
84
85	dpavlin	49	} elsif ($q->path_info =~ m#template#) {
86
87	dpavlin	54	my @actions;
88	dpavlin	49
89	dpavlin	54	if ($q->param('save_template')) {
90
91	dpavlin	58	my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) \|\| die "no template?";
92			sub _conv_js {
93			my $t = shift \|\| return;
94			return $iconv_loc->convert(chr(hex($t)));
95			}
96			$tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
97	dpavlin	63	$tmpl =~ s/[\n\r]+$//s;
98	dpavlin	58
99	dpavlin	54	my $tmpl_file = $out->{'include_path'} . '/' . $template;
100	dpavlin	58	write_file($tmpl_file . '.new', $tmpl) \|\| die "can't save $tmpl_file: $!";
101	dpavlin	54	rename $tmpl_file . '.new', $tmpl_file \|\| die "can't rename to $tmpl_file: $!";
102
103			print qq{<response>
104			<action type='html' target='div_status' errorCode='' errorMessage='' >
105	dpavlin	60	<tt>$template</tt> saved
106	dpavlin	54	</action>
107			<action type='js'>
108			<!--
109	dpavlin	60	iwfShow('div_status', 1);
110	dpavlin	54	reload_rec();
111	dpavlin	60	iwfHideGentlyDelay('div_status', 2, 2000, 1);
112	dpavlin	54	-->
113			</action>
114			</response>
115			};
116			exit;
117
118			}
119
120			my $tmpl = read_file($out->{'include_path'} . '/' . $template) \|\| die "can't read template $template: $!";
121			$tmpl = $q->escapeHTML($iconv_utf8->convert($tmpl));
122
123	dpavlin	49	print qq{<response>
124			<action type='html' target='div_template' errorCode='' errorMessage='' >
125	dpavlin	54	<pre>}, Dumper($q->Vars), qq{</pre>
126
127	dpavlin	61	<form name="frmEditor" action="$self" method="post" iwfTarget="div_status" >
128	dpavlin	54
129			<textarea name="tt_template" cols="80" rows="10" style="display: block;">
130	dpavlin	49	$tmpl
131			</textarea>
132	dpavlin	54
133			<br/>
134			<input type="button" name="save_template" value="Save" onclick="javascript:iwfRequest(this);" />
135	dpavlin	61	<!--
136			<input type="checkbox" name="checkin_template" id="checkin_checkbox" label="checkin" /> checkin
137			-->
138			<span id="div_status" style="color: #808080;">idle</span>
139	dpavlin	54
140			<input type='hidden' value='hidden post value' name='hidValue' />
141
142			</form>
143	dpavlin	49	</action>
144	dpavlin	61	<action type='js'>
145			<!--
146			iwfHideGentlyDelay('div_status', 2, 2000, 1);
147			-->
148			</action>
149	dpavlin	49	</response>
150	dpavlin	54	};
151	dpavlin	49
152	dpavlin	54	exit;
153
154	dpavlin	46	} else {
155			print qq{
156			<html>
157			<head>
158			<title>WebPAC simple browse interface</title>
159			<script type='text/javascript' src='iwf/iwfcore.js'></script>
160			<script type='text/javascript' src='iwf/iwfgui.js'></script>
161			<script type='text/javascript' src='iwf/iwfxml.js'></script>
162			<script type='text/javascript' src='iwf/iwfajax.js'></script>
163			<script type='text/javascript'>
164
165			var rec = $rec ;
166			var url = '$self';
167
168			function update_status(text) {
169	dpavlin	49	var el = iwfGetById('div_record_nr');
170	dpavlin	46	if (el) el.innerHTML = text;
171			}
172
173			function load_rec(nr) {
174	dpavlin	59	if (nr == 1) {
175			iwfHide('a_left_arr', 1);
176			} else {
177			iwfShow('a_left_arr', 1);
178			}
179	dpavlin	46	update_status(nr+'...');
180	dpavlin	49	iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
181			iwfOpacity('div_record', 30);
182	dpavlin	46	}
183
184			function inc_rec() {
185			rec++;
186			load_rec(rec);
187			return false;
188			}
189
190			function dec_rec() {
191	dpavlin	59	if (rec > 1) {
192			rec--;
193			load_rec(rec);
194			}
195	dpavlin	46	return false;
196			}
197
198	dpavlin	47	function reload_rec() {
199			load_rec(rec);
200			return false;
201			}
202
203	dpavlin	49	function init_page() {
204			load_rec(rec);
205			// load template
206			iwfRequest( url+'/template/', 'div_template' );
207			}
208
209	dpavlin	46	</script>
210			</head>
211	dpavlin	49	<body onload="init_page();">
212	dpavlin	46
213			db_path = <tt>$db_path</tt><br/>
214	dpavlin	54	template = <tt>$template</tt><br/>
215	dpavlin	46
216	dpavlin	49	<div id="iwfLog" style="display: none;">
217			</div>
218
219	dpavlin	46	<div style="background: #e0e0e0; padding: 0.5em; display: block;">
220	dpavlin	59	<a id="a_left_arr" href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">⇦</a>
221	dpavlin	49	<span id="div_record_nr"> none </span>
222	dpavlin	47
223	dpavlin	59	<a id="a_right_arr" href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">⇨</a>
224			<a id="a_reload" href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">↺</a>
225			<a href="#" onClick="iwfRefreshLog(); return false;">▤</a>
226	dpavlin	54
227	dpavlin	46	</div>
228
229	dpavlin	49	<div id="div_template">
230			<span style="color: #808080;"> no template loaded yet. </span>
231			</div>
232
233			<div id="div_record" style="display: block;">
234	dpavlin	46	<span style="color: #808080;"> no record loaded yet. </span>
235			</div>
236
237	dpavlin	49
238	dpavlin	46	</body>
239			</html>};
240
241			};