git.rot13.org Git - webpac2/blob - web/browse.cgi

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