From: Dobrica Pavlinusic Date: Mon, 14 Nov 2005 16:16:57 +0000 (+0000) Subject: r8863@llin: dpavlin | 2005-11-14 16:59:48 +0100 X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=27a4ecca6972847b63e09e4a9e2394c53d0af8a3;p=webpac2 r8863@llin: dpavlin | 2005-11-14 16:59:48 +0100 edit template in browser git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@54 07558da8-63fa-0310-ba24-9fe276d99e06 --- diff --git a/web/browse.cgi b/web/browse.cgi index 54b3283..bf5cd61 100755 --- a/web/browse.cgi +++ b/web/browse.cgi @@ -1,9 +1,13 @@ #!/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'; @@ -16,6 +20,9 @@ $abs_path =~ s#/[^/]*$#/../#; my $db_path = $abs_path . '/db/'; my $template = 'html_ffzg.tt'; +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, read_only => 1, @@ -32,7 +39,7 @@ my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 ); my $rec = $q->param('rec') || 1; -print $q->header; +print $q->header( -charset => 'utf-8' ); if ($q->path_info =~ m#xml#) { @@ -79,18 +86,58 @@ if ($q->path_info =~ m#xml#) { } elsif ($q->path_info =~ m#template#) { - my $tmpl = read_file($out->{'include_path'} . '/' . $template); - $tmpl = $q->escapeHTML($tmpl); + my @actions; + + if ($q->param('save_template')) { + + my $tmpl = $q->param('tt_template') || die "no template?"; + my $tmpl_file = $out->{'include_path'} . '/' . $template; + write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!"; + rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!"; + + print qq{ + +$template saved + + + + + + }; + exit; + + } + + my $tmpl = read_file($out->{'include_path'} . '/' . $template) || die "can't read template $template: $!"; + $tmpl = $q->escapeHTML($iconv_utf8->convert($tmpl)); print qq{ - -
+ +
+ + +idle + + + + -}; + }; + + exit; } else { print qq{ @@ -145,6 +192,7 @@ function init_page() { db_path = $db_path
+template = $template
@@ -156,6 +204,7 @@ db_path = $db_path
⇨ ↺ ▤ +