From 59e77b42d011947728337c1d72b20c8c26546f05 Mon Sep 17 00:00:00 2001
From: kirinji <kirinji@b7d4c41f-bb2b-0410-be1d-d0fb2b8774c1>
Date: Mon, 13 Aug 2007 12:42:42 +0000
Subject: [PATCH]

---
 cgi-files/install.cgi   | 2 +-
 cgi-files/kiriwrite.cgi | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/cgi-files/install.cgi b/cgi-files/install.cgi
index 0bb18dc..4aadeb9 100755
--- a/cgi-files/install.cgi
+++ b/cgi-files/install.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!/opt/perl-5.9.5/bin/perl5.9.5 -Tw
 
 #################################################################################
 # Kiriwrite Installer Script (install.cgi)					#
diff --git a/cgi-files/kiriwrite.cgi b/cgi-files/kiriwrite.cgi
index b787558..d3abccd 100755
--- a/cgi-files/kiriwrite.cgi
+++ b/cgi-files/kiriwrite.cgi
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -zTw
 
 #################################################################################
 # Kiriwrite (kiriwrite.cgi)							#
@@ -8998,7 +8998,8 @@ sub kiriwrite_compile_makepages{
 
 				($page_filename) = $page_filename =~ m/^(.*)$/g;
 				($kiriwrite_config{"directory_data_output"}) = $kiriwrite_config{"directory_data_output"} =~ m/^(.*)$/g;
-				open($filehandle_page, ">:utf8 ",  $kiriwrite_config{"directory_data_output"} . '/' . $page_filename) or ($kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{pagenotwritten}, $page_filename, $!)), $kiriwrite_presmodule->addlinebreak(), $error_count++, next);
+
+				open($filehandle_page, "> ",  $kiriwrite_config{"directory_data_output"} . '/' . $page_filename) or ($kiriwrite_presmodule->addtext($error_prefix . kiriwrite_language($kiriwrite_lang->{compile}->{pagenotwritten}, $page_filename, $!)), $kiriwrite_presmodule->addlinebreak(), $error_count++, next);
 
 				if (!$page_final){
 
-- 
2.39.2