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_file = 'html_ffzg.tt';
  22 my $css_file = 'user.css';
  23
  24 my $iconv_utf8 = new Text::Iconv('ISO-8859-2', 'UTF-8');
  25 my $iconv_loc = new Text::Iconv('UTF-8', 'ISO-8859-2');
  26
  27 my $db = new WebPAC::DB(
  28         path => $db_path,
  29         read_only => 1,
  30         debug => 1,
  31 );
  32
  33 my $out = new WebPAC::Output::TT(
  34         include_path => "$abs_path/conf/output/tt",
  35         filters => { foo => sub { shift } },
  36 );
  37
  38 my $q = new CGI::Simple;
  39 my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 );
  40
  41 my $rec = $q->param('rec') || 1;
  42
  43 print $q->header( -charset    => 'utf-8' );
  44
  45 ##---- some handy subs
  46
  47 sub update_file($$) {
  48         my ($path, $content) = @_;
  49
  50         $content = $iconv_loc->convert( $content ) || die "no content?";
  51
  52         sub _conv_js {
  53                 my $t = shift || return;
  54                 return $iconv_loc->convert(chr(hex($t)));
  55         }
  56         $content =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
  57         $content =~ s/^[\n\r]+//s;
  58         $content =~ s/[\n\r]+$//s;
  59
  60         write_file($path . '.new', $content) || die "can't save ${path}.new $!";
  61         rename $path . '.new', $path || die "can't rename to $path: $!";
  62 }
  63
  64 sub get_file_in_html($) {
  65         my ($path) = @_;
  66
  67         die "no path?" unless ($path);
  68
  69         my $content = read_file($path) || die "can't read $path: $!";
  70         $content = $q->escapeHTML($iconv_utf8->convert($content));
  71
  72         return $content;
  73 }
  74
  75 ##----
  76
  77 if ($q->path_info =~ m#xml#) {
  78
  79         my @ds = $db->load_ds($rec);
  80
  81         if (@ds && $#ds > 0) {
  82                 print qq{<response>
  83 <action type='html' target='div_record' errorCode='' errorMessage='' >
  84                 }, $iconv_utf8->convert( $out->apply(
  85                         template => $template_file,
  86                         data => \@ds,
  87                 ) ), qq{
  88
  89 </action>
  90 <action type='javascript' errorCode='' errorMessage='' >
  91 <!--
  92         var el = iwfGetById('div_record_nr');
  93         if (el) el.innerHTML = '# <b>$rec</b>';
  94         //iwfShow('div_record');
  95         iwfOpacity('div_record', 100);
  96 //-->
  97 </action>
  98 </response>
  99 };
 100                 exit;
 101         } else {
 102                 print qq{<response>
 103 <action type='html' target='div_record' errorCode='' errorMessage='' >
 104
 105 <b>Record $rec not found!</b>
 106 </action>
 107 <action type='javascript' errorCode='' errorMessage='' >
 108 <!--
 109         var el = iwfGetById('div_record_nr');
 110         if (el) el.innerHTML = '<strike>&nbsp;$rec&nbsp;</strike>';
 111 //-->
 112 </action>
 113 </response>
 114 };
 115                 exit;
 116         }
 117
 118 } elsif ($q->path_info =~ m#template#) {
 119
 120                 my $template_path = $out->{'include_path'} . '/' . $template_file;
 121
 122                 if ($q->param('save_template')) {
 123
 124                         update_file($template_path, $q->param('tt_template'));
 125
 126                         print qq{<response>
 127 <action type='html' target='div_template_status' errorCode='' errorMessage='' >
 128 <tt>$template_file</tt> saved
 129 </action>
 130 <action type='js'>
 131 <!--
 132 iwfShow('div_template_status', 1);
 133 reload_rec();
 134 iwfHideGentlyDelay('div_template_status', 2, 2000, 1);
 135 -->
 136 </action>
 137 </response>
 138                         };
 139                         exit;
 140
 141                 }
 142
 143                 my $tmpl = get_file_in_html($template_path);
 144
 145                 print qq{<response>
 146 <action type='html' target='div_template' errorCode='' errorMessage='' >
 147
 148 <form name="frmEditor" action="$self" method="post" iwfTarget="div_template_status" >
 149
 150 <textarea name="tt_template" cols="80" rows="10" style="display: block;">
 151 $tmpl
 152 </textarea>
 153
 154 <br/>
 155 <input type="button" name="save_template" value="Save" onclick="javascript:iwfRequest(this);" />
 156 <!--
 157 <input type="checkbox" name="checkin_template" id="checkin_checkbox" label="checkin" /> checkin
 158 -->
 159 &nbsp;&nbsp;<span id="div_template_status" style="color: #808080;">idle</span>
 160
 161 <input type='hidden' value='hidden post value' name='hidValue' />
 162
 163 </form>
 164 </action>
 165 <action type='js'>
 166 <!--
 167 iwfHideGentlyDelay('div_template_status', 2, 2000, 1);
 168 -->
 169 </action>
 170 </response>
 171                 };
 172
 173                 exit;
 174
 175 } elsif ($q->path_info =~ m#css#) {
 176
 177                 my $css_path = $abs_path . '/web/' . $css_file;
 178
 179
 180                 if ($q->param('save_css')) {
 181                         update_file($css_path, $q->param('user_css'));
 182
 183                         print qq{<response>
 184 <action type='html' target='div_css_status' errorCode='' errorMessage='' >
 185 <tt>$css_file</tt> saved
 186 </action>
 187 <action type='js'>
 188 <!--
 189 iwfShow('div_css_status', 1);
 190 // switch css
 191 css_rnd++;
 192 iwfLog('loading user.css?'+css_rnd);
 193 iwfGetById('user_css_link').href = 'user.css?'+css_rnd;
 194 iwfHideGentlyDelay('div_css_status', 2, 2000, 1);
 195 -->
 196 </action>
 197 </response>
 198                         };
 199                         exit;
 200
 201                 }
 202
 203                 my $user_css = get_file_in_html($css_path);
 204
 205                 print qq{<response>
 206 <action type='html' target='div_css' errorCode='' errorMessage='' >
 207
 208 <form name="frmCSSEditor" action="$self" method="post" iwfTarget="div_css_status" >
 209
 210 <textarea name="user_css" cols="80" rows="10" style="display: block; width: 100%;">
 211 $user_css
 212 </textarea>
 213
 214 <br/>
 215 <input type="button" name="save_css" value="Save" onclick="javascript:iwfRequest(this);" />
 216 &nbsp;&nbsp;<span id="div_css_status" style="color: #808080;">idle</span>
 217 </form>
 218 </action>
 219 <action type='js'>
 220 <!--
 221 iwfLog('loaded CSS template');
 222 -->
 223 </action>
 224 </response>
 225                 };
 226
 227                 exit;
 228
 229 } else {
 230         print <<"_END_OF_HEAD_";
 231 <html>
 232 <head>
 233 <title>WebPAC simple browse interface</title>
 234
 235 <link id="user_css_link" href="user.css" type="text/css" rel="stylesheet">
 236
 237 <script type='text/javascript' src='iwf/iwfcore.js'></script>
 238 <script type='text/javascript' src='iwf/iwfgui.js'></script>
 239 <script type='text/javascript' src='iwf/iwfxml.js'></script>
 240 <script type='text/javascript' src='iwf/iwfajax.js'></script>
 241 <script type='text/javascript' src='iwf/iwconfig.js'></script>
 242 <script type='text/javascript'>
 243
 244 var rec = $rec ;
 245 var url = '$self';
 246
 247 var css_rnd = 0;
 248
 249 function update_status(text) {
 250         var el = iwfGetById('div_record_nr');
 251         if (el) el.innerHTML = text;
 252 }
 253
 254 function load_rec(nr) {
 255         if (nr == 1) {
 256                 iwfHide('a_left_arr', 1);
 257         } else {
 258                 iwfShow('a_left_arr', 1);
 259         }
 260         update_status(nr+'...');
 261         iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
 262         iwfOpacity('div_record', 30);
 263 }
 264
 265 function inc_rec() {
 266         rec++;
 267         load_rec(rec);
 268         return false;
 269 }
 270
 271 function dec_rec() {
 272         if (rec > 1) {
 273                 rec--;
 274                 load_rec(rec);
 275         }
 276         return false;
 277 }
 278
 279 function reload_rec() {
 280         load_rec(rec);
 281         return false;
 282 }
 283
 284 function edit_template() {
 285         iwfHideGently('div_css', 30, 1);
 286         iwfShowGently('div_template', 30, 1);
 287         return false;
 288 }
 289
 290 function edit_css() {
 291         iwfHideGently('div_template', 30, 1);
 292         iwfShowGently('div_css', 30, 1);
 293         return false;
 294 }
 295
 296 function init_page() {
 297         iwfLog('div_css = ' + iwfX('div_css') + ':' + iwfY('div_css'));
 298         iwfLog('div_template = ' + iwfX('div_template') + ':' + iwfY('div_template'));
 299
 300         iwfX('div_css', iwfX('div_template'));
 301         iwfY('div_css', iwfY('div_template'));
 302
 303         iwfLog('div_css = ' + iwfX('div_css') + ':' + iwfY('div_css'));
 304
 305         load_rec(rec);
 306
 307         // load template editor
 308         iwfRequest( url+'/template/', 'div_template' );
 309         // load css editor
 310         iwfRequest( url+'/css/', 'div_css' );
 311 }
 312
 313 </script>
 314
 315 </head>
 316 <body onload="init_page();">
 317
 318 <div id="iwfLog">
 319 </div>
 320
 321 db_path = <tt>$db_path</tt><br/>
 322 template = <tt>$template_file</tt><br/>
 323 css = <tt>$css_file</tt>
 324
 325 <div style="background: #e0e0e0; padding: 0.5em; display: block;">
 326         <a id="a_left_arr" href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>
 327         <span id="div_record_nr"> none </span>
 328
 329         <a id="a_right_arr" href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>
 330         <a id="a_reload" href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>
 331         <a href="#" onClick="iwfShowLog(); return false;">&#9636;</a>
 332
 333 </div>
 334
 335 <div>
 336
 337 <div style="display: block;">
 338 Editor
 339 <a id="a_template" href="#" onClick="return edit_template();">template</a>
 340 <a id="a_css" href="#" onClick="return edit_css();">css</a>
 341
 342 <div id="div_template">
 343 <span style="color: #808080;"> no template loaded yet. </span>
 344 </div>
 345
 346 <div id="div_css" style="position: absolute; display: none;">
 347 <span style="color: #808080;"> no CSS loaded yet. </span>
 348 </div>
 349
 350 </div>
 351
 352 <div id="div_record" style="display: block;">
 353 <span style="color: #808080;"> no record loaded yet. </span>
 354 </div>
 355
 356
 357 </body>
 358 </html>
 359 _END_OF_HEAD_
 360
 361 }