#!/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';
$abs_path =~ s#/[^/]*$#/../#;
my $db_path = $abs_path . '/db/';
-my $template = 'html_ffzg.tt';
+my $template_path = "$abs_path/conf/output/tt";
+opendir(my $dir, $template_path) || die "can't open template path $template_path: $!";
+my @templates = grep { /\.tt$/i } readdir($dir);
+my $css_file = 'user.css';
+
+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,
);
my $out = new WebPAC::Output::TT(
- include_path => "$abs_path/conf/output/tt",
+ include_path => $template_path,
filters => { foo => sub { shift } },
);
my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 );
my $rec = $q->param('rec') || 1;
+my $template_filename = $q->param('template') || $templates[0];
+
+print $q->header( -charset => 'utf-8' );
+
+##---- some handy subs
+
+sub update_file($$) {
+ my ($path, $content) = @_;
+
+ $content = $iconv_loc->convert( $content ) || die "no content?";
+
+ sub _conv_js {
+ my $t = shift || return;
+ return $iconv_loc->convert(chr(hex($t)));
+ }
+ $content =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
+ $content =~ s/^[\n\r]+//s;
+ $content =~ s/[\n\r]+$//s;
+
+ write_file($path . '.new', $content) || die "can't save ${path}.new $!";
+ rename $path . '.new', $path || die "can't rename to $path: $!";
+}
+
+sub get_file_in_html($) {
+ my ($path) = @_;
+
+ die "no path?" unless ($path);
+
+ my $content = read_file($path) || die "can't read $path: $!";
+ $content = $q->escapeHTML($iconv_utf8->convert($content));
+
+ return $content;
+}
+
+sub template_list_html($) {
+ my $current = shift || die;
-print $q->header;
+ my $html = qq{ Template\n<ul> };
+
+ foreach my $t (sort @templates) {
+ if ($t eq $current) {
+ $html .= qq{ <li><b>$t</b></li> };
+ } else {
+ $html .= qq{ <li><a href="#" onClick="load_template('$t'); return false;">$t</a></li> };
+ }
+ }
+
+ $html .= qq{ </ul> };
+ return $html;
+}
+
+##----
if ($q->path_info =~ m#xml#) {
- my @ds = $db->load_ds($rec);
+ my $ds = $db->load_ds($rec);
- if (@ds && $#ds > 0) {
+ if ($ds) {
print qq{<response>
<action type='html' target='div_record' errorCode='' errorMessage='' >
- }, $out->apply(
- template => $template,
- data => \@ds,
- ), qq{
+ }, $iconv_utf8->convert( $out->apply(
+ template => $template_filename,
+ data => $ds,
+ ) ), qq{
-<script type='text/javascript'>
+</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);
//-->
-</script>
-
</action>
</response>
};
<action type='html' target='div_record' errorCode='' errorMessage='' >
<b>Record $rec not found!</b>
-<script type='text/javascript'>
+</action>
+<action type='javascript' errorCode='' errorMessage='' >
<!--
var el = iwfGetById('div_record_nr');
- if (el) el.innerHTML = '<strike>$rec</strike>';
+ if (el) el.innerHTML = '<strike> $rec </strike>';
//-->
-</script>
-
</action>
</response>
};
exit;
}
+} elsif ($q->path_info =~ m#template_list#) {
+
+ print qq{<response>
+<action type='html' target='div_template_list' errorCode='' errorMessage='' >
+<div>} . template_list_html($template_filename) . qq{</div>
+</action>
+</response>
+ };
+
+ exit;
+
} elsif ($q->path_info =~ m#template#) {
- my $tmpl = read_file($out->{'include_path'} . '/' . $template);
- $tmpl = $q->escapeHTML($tmpl);
+ my $template_path = $out->{'include_path'} . '/' . $template_filename;
+
+ if ($q->param('save_template')) {
+
+ update_file($template_path, $q->param('tt_template'));
+
+ print qq{<response>
+<action type='html' target='div_template_status' errorCode='' errorMessage='' >
+<tt>$template_filename</tt> saved
+</action>
+<action type='js'>
+<!--
+iwfShow('div_template_status', 1);
+reload_rec();
+iwfHideGentlyDelay('div_template_status', 2, 2000, 1);
+-->
+</action>
+</response>
+ };
+ exit;
+
+ }
+
+ my $tmpl = get_file_in_html($template_path);
print qq{<response>
<action type='html' target='div_template' errorCode='' errorMessage='' >
-<textarea name="tt_template" cols="80" rows="10">
+
+<form name="frmEditor" action="$self" method="post" iwfTarget="div_template_status" >
+
+<textarea name="tt_template" cols="80" rows="10" style="display: block;">
$tmpl
</textarea>
-<br/><input type="button" name="save" value="Save">
+
+<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
+-->
+ <span id="div_template_status" style="color: #808080;">idle</span>
+
+<input type="hidden" name="template" value="$template_filename" />
+
+</form>
+</action>
+<action type='js'>
+<!--
+iwfOpacity('div_template', 100);
+iwfHideGentlyDelay('div_template_status', 2, 2000, 1);
+-->
</action>
</response>
-};
+ };
+
+ exit;
+
+} elsif ($q->path_info =~ m#css#) {
+
+ my $css_path = $abs_path . '/web/' . $css_file;
+
+
+ if ($q->param('save_css')) {
+ update_file($css_path, $q->param('user_css'));
+
+ print qq{<response>
+<action type='html' target='div_css_status' errorCode='' errorMessage='' >
+<tt>$css_file</tt> saved
+</action>
+<action type='js'>
+<!--
+iwfShow('div_css_status', 1);
+// switch css
+css_rnd++;
+iwfLog('loading user.css?'+css_rnd);
+iwfGetById('user_css_link').href = 'user.css?'+css_rnd;
+iwfHideGentlyDelay('div_css_status', 2, 2000, 1);
+-->
+</action>
+</response>
+ };
+ exit;
+
+ }
+
+ my $user_css = get_file_in_html($css_path);
+
+ print qq{<response>
+<action type='html' target='div_css' errorCode='' errorMessage='' >
+
+<form name="frmCSSEditor" action="$self" method="post" iwfTarget="div_css_status" >
+
+<textarea name="user_css" cols="80" rows="10" style="display: block; width: 100%;">
+$user_css
+</textarea>
+
+<br/>
+<input type="button" name="save_css" value="Save" onclick="javascript:iwfRequest(this);" />
+ <span id="div_css_status" style="color: #808080;">idle</span>
+</form>
+</action>
+<action type='js'>
+<!--
+iwfLog('loaded CSS template');
+-->
+</action>
+</response>
+ };
+
+ exit;
} else {
- print qq{
+
+ my $template_list_html = template_list_html($template_filename);
+
+ print <<"_END_OF_HEAD_";
<html>
<head>
<title>WebPAC simple browse interface</title>
+
+<link id="user_css_link" href="user.css" type="text/css" rel="stylesheet">
+
<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' src='iwf/iwconfig.js'></script>
<script type='text/javascript'>
var rec = $rec ;
var url = '$self';
+var template_filename = '$template_filename';
+
+var css_rnd = 0;
function update_status(text) {
var el = iwfGetById('div_record_nr');
}
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' );
+ iwfRequest( url+'/xml/?template='+template_filename+'&rec='+nr, 'div_record' );
iwfOpacity('div_record', 30);
}
}
function dec_rec() {
- rec--;
- load_rec(rec);
+ if (rec > 1) {
+ rec--;
+ load_rec(rec);
+ }
return false;
}
return false;
}
-function init_page() {
+function edit_template() {
+ iwfHideGently('div_css', 30, 1);
+ iwfShowGently('div_template', 30, 1);
+ return false;
+}
+
+function edit_css() {
+ iwfHideGently('div_template', 30, 1);
+ iwfShowGently('div_css', 30, 1);
+ return false;
+}
+
+function load_template(name) {
+ iwfLog('changing template to '+name);
+ iwfOpacity('div_template', 30);
+ template_filename = name;
+ // load template editor
+ iwfRequest( url+'/template/?template='+template_filename, 'div_template' );
load_rec(rec);
- // load template
- iwfRequest( url+'/template/', 'div_template' );
+
+ // refresh template list
+ iwfRequest( url+'/template_list/?template='+template_filename, 'div_template_list' );
+}
+
+function init_page() {
+ iwfLog('div_css = ' + iwfX('div_css') + ':' + iwfY('div_css'));
+ iwfLog('div_template = ' + iwfX('div_template') + ':' + iwfY('div_template'));
+
+ iwfX('div_css', iwfX('div_template'));
+ iwfY('div_css', iwfY('div_template'));
+
+ iwfLog('div_css = ' + iwfX('div_css') + ':' + iwfY('div_css'));
+
+ // load template editor and record
+ load_template(template_filename);
+
+ // load css editor
+ iwfRequest( url+'/css/', 'div_css' );
}
</script>
+
</head>
<body onload="init_page();">
-db_path = <tt>$db_path</tt><br/>
-
-<div id="iwfLog" style="display: none;">
+<div id="iwfLog">
</div>
+db_path = <tt>$db_path</tt><br/>
+css = <tt>$css_file</tt>
+
<div style="background: #e0e0e0; padding: 0.5em; display: block;">
- <a href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">⇦</a>
+ <a id="a_left_arr" href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">⇦</a>
<span id="div_record_nr"> none </span>
- <a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">⇨</a>
- <a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">↺</a>
- <a href="#" onClick="iwfRefreshLog(); return false;">▤</a>
+ <a id="a_right_arr" href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">⇨</a>
+ <a id="a_reload" href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">↺</a>
+ <a href="#" onClick="iwfShowLog(); return false;">▤</a>
+
+</div>
+
+
+<div id="div_template_list" style="display: inline; border: 2px solid #ffcc88; float: right; z-index: 10;">
+$template_list_html
</div>
+<div>
+
+<div style="border: 2px solid #ffff80;">
+
+Editor
+<a id="a_template" href="#" onClick="return edit_template();">template</a>
+<a id="a_css" href="#" onClick="return edit_css();">css</a>
+
+
<div id="div_template">
<span style="color: #808080;"> no template loaded yet. </span>
</div>
+<div id="div_css" style="position: absolute; display: none;">
+<span style="color: #808080;"> no CSS loaded yet. </span>
+</div>
+
+</div>
+
<div id="div_record" style="display: block;">
<span style="color: #808080;"> no record loaded yet. </span>
</div>
</body>
-</html>};
+</html>
+_END_OF_HEAD_
-};
+}