trunk/web/browse.cgi

#!/usr/bin/perl -w

use Cwd qw/abs_path/;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Simple;

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 $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;

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

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

        if (@ds) {
                print qq{<response>
<action type='html' target='divRecord' errorCode='' errorMessage='' >
                }, $out->apply(
                        template => 'html_ffzg.tt',
                        data => \@ds,
                ), qq{

<script type='text/javascript'>
<!--
        var el = iwfGetById('divRecordNr');
        if (el) el.innerHTML = '# <b>$rec</b>';
        //iwfShow('divRecord');
        iwfOpacity('divRecord', 100);
//-->
</script>

</action>
</response>
};
                exit;
        } else {
                print qq{
                        <b>Record $rec not found!</b>
                };
        }

} 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('divRecordNr');
        if (el) el.innerHTML = text;
}
        

function load_rec(nr) {
        update_status(nr+'...');
        iwfRequest( url+'/xml/?rec='+nr, 'divRecord' );
        iwfOpacity('divRecord', 30);
}

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

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

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

</script>
</head>
<body onload="load_rec($rec);">

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

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

        <a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>&nbsp;
        <a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>&nbsp;
</div>

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

</body>
</html>};

};
1	dpavlin	46	#!/usr/bin/perl -w
2
3			use Cwd qw/abs_path/;
4			use CGI::Carp qw(fatalsToBrowser);
5			use CGI::Simple;
6
7			use lib '../lib';
8
9			use WebPAC::DB;
10			use WebPAC::Output::TT;
11
12			my $abs_path = abs_path($0);
13			$abs_path =~ s#/[^/]*$#/../#;
14
15			my $db_path = $abs_path . '/db/';
16
17			my $db = new WebPAC::DB(
18			path => $db_path,
19			read_only => 1,
20			debug => 1,
21			);
22
23			my $out = new WebPAC::Output::TT(
24			include_path => "$abs_path/conf/output/tt",
25			filters => { foo => sub { shift } },
26			);
27
28			my $q = new CGI::Simple;
29			my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 );
30
31			my $rec = $q->param('rec') \|\| 1;
32
33			print $q->header;
34
35			if ($q->path_info =~ m#xml#) {
36
37			my @ds = $db->load_ds($rec);
38
39			if (@ds) {
40			print qq{<response>
41			<action type='html' target='divRecord' errorCode='' errorMessage='' >
42			}, $out->apply(
43			template => 'html_ffzg.tt',
44			data => \@ds,
45			), qq{
46
47			<script type='text/javascript'>
48			<!--
49			var el = iwfGetById('divRecordNr');
50			if (el) el.innerHTML = '# <b>$rec</b>';
51			//iwfShow('divRecord');
52			iwfOpacity('divRecord', 100);
53			//-->
54			</script>
55
56			</action>
57			</response>
58			};
59			exit;
60			} else {
61			print qq{
62			<b>Record $rec not found!</b>
63			};
64			}
65
66			} else {
67			print qq{
68			<html>
69			<head>
70			<title>WebPAC simple browse interface</title>
71			<script type='text/javascript' src='iwf/iwfcore.js'></script>
72			<script type='text/javascript' src='iwf/iwfgui.js'></script>
73			<script type='text/javascript' src='iwf/iwfxml.js'></script>
74			<script type='text/javascript' src='iwf/iwfajax.js'></script>
75			<script type='text/javascript'>
76
77			var rec = $rec ;
78			var url = '$self';
79
80			function update_status(text) {
81			var el = iwfGetById('divRecordNr');
82			if (el) el.innerHTML = text;
83			}
84
85
86			function load_rec(nr) {
87			update_status(nr+'...');
88			iwfRequest( url+'/xml/?rec='+nr, 'divRecord' );
89			iwfOpacity('divRecord', 30);
90			}
91
92			function inc_rec() {
93			rec++;
94			load_rec(rec);
95			return false;
96			}
97
98			function dec_rec() {
99			rec--;
100			load_rec(rec);
101			return false;
102			}
103
104	dpavlin	47	function reload_rec() {
105			load_rec(rec);
106			return false;
107			}
108
109	dpavlin	46	</script>
110			</head>
111			<body onload="load_rec($rec);">
112
113			db_path = <tt>$db_path</tt><br/>
114
115			<div style="background: #e0e0e0; padding: 0.5em; display: block;">
116			<a href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">⇦</a>
117			<span id="divRecordNr"> none </span>
118	dpavlin	47
119	dpavlin	46	<a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">⇨</a>
120	dpavlin	47	<a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">↺</a>
121	dpavlin	46	</div>
122
123			<div id="divRecord">
124			<span style="color: #808080;"> no record loaded yet. </span>
125			</div>
126
127			</body>
128			</html>};
129
130			};