From 74886e72841a2188b082a80b892270a1fe69df2b Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Mon, 7 Apr 2008 16:57:08 +0000
Subject: * different ways to load binary/text files

---
 lib/XXV/OUTPUT/Html.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/XXV/OUTPUT/Html.pm b/lib/XXV/OUTPUT/Html.pm
index 5884fc1..b918e81 100644
--- a/lib/XXV/OUTPUT/Html.pm
+++ b/lib/XXV/OUTPUT/Html.pm
@@ -279,7 +279,7 @@ sub parseTemplateFile {
             return entities($s);
         },
         version => sub{ return main::getVersion },
-        loadfile    => sub{ return load_file(@_) },
+        loadfile    => sub{ return load_file(@_,'binary') },
         writefile   => sub{
             my $filename = shift || return error('No filename defined!');
             my $data = shift || return error('No data defined!');
@@ -289,7 +289,7 @@ sub parseTemplateFile {
             # absolut Path to file
             my $file = sprintf('%s/%s', $dir, $filename);
             # absolut Path to file
-            if(save_file($file, $data)) {
+            if(save_file($file, $data,'binary')) {
                 # return the relative Path
                 my ($relpath) = $file =~ '/(.+?/.+?)$';
                 return sprintf('tempimages/%s', $filename);
@@ -656,7 +656,7 @@ sub datei {
         lg sprintf("stream file : '%s' (%s)",$file,convert($size));
         $self->_stream([$file],$size, 0, $typ, %args);
     } else {
-        my $data = load_file($file) || '';
+        my $data = load_file($file,'binary') || '';
         # send data
         $self->out($data, $typ, %args );
     }
-- 
cgit v1.2.3