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