- When composing the temporary virtual path for a new file, don't call

[devedit.git] / modules / Template.pm

diff --git a/modules/Template.pm b/modules/Template.pm
index e3fbb98f83404dbfb7bac02d289663014c72dd27..04893d1f08a19538d0a43ba275c241f7a9d54aae 100644 (file)
--- a/modules/Template.pm
+++ b/modules/Template.pm
@@ -1,12 +1,12 @@
 package Template;
 
 #
 package Template;
 
 #

-# Template (Version 1.2a)
+# Template (Version 1.3)

 #
 # Klasse zum Parsen von Templates
 #
 # Autor:            Patrick Canterino <patshaping@gmx.net>
 #
 # Klasse zum Parsen von Templates
 #
 # Autor:            Patrick Canterino <patshaping@gmx.net>

-# Letzte Aenderung: 12.9.2003
+# Letzte Aenderung: 11.4.2004

 #
 
 use strict;
 #
 
 use strict;


@@ -73,16 +73,19 @@ sub add_text($)
 
 # read_file()
 #
 
 # read_file()
 #

-# Einlesen einer Vorlagendatei
-# (Inhalt wird an bereits vorhandenen Text angehaengt)
+# Einlesen einer Vorlagendatei und {INCLUDE}-Anweisungen ggf. verarbeiten
+# (Text wird an bereits vorhandenen Text angehaengt)

 #
 #

-# Parameter: Datei zum Einlesen
+# Parameter: 1. Datei zum Einlesen
+#            2. Status-Code (Boolean):
+#               true  => {INCLUDE}-Anweisungen nicht verarbeiten
+#               false => {INCLUDE}-Anweisungen verarbeiten (Standard)

 #
 # Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
 
 #
 # Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
 

-sub read_file($)
+sub read_file($;$)

 {
 {

- my ($self,$tfile) = @_;
+ my ($self,$tfile,$not_include) = @_;

  local *FILE;
 
  open(FILE,"<$tfile") or croak "Open $tfile: $!";
  local *FILE;
 
  open(FILE,"<$tfile") or croak "Open $tfile: $!";


@@ -90,6 +93,7 @@ sub read_file($)
  close(FILE) or croak "Closing $tfile: $!";
 
  $self->add_text($content);
  close(FILE) or croak "Closing $tfile: $!";
 
  $self->add_text($content);

+ $self->parse_includes unless($not_include);

 }
 
 # fillin()
 }
 
 # fillin()


@@ -128,18 +132,32 @@ sub fillin($$)
 sub fillin_array($$;$)
 {
  my ($self,$var,$array,$glue) = @_;
 sub fillin_array($$;$)
 {
  my ($self,$var,$array,$glue) = @_;

- $glue = '' unless defined $glue;
+ $glue = "" unless defined $glue;

 
  $self->fillin($var,join($glue,@$array));
 }
 
 
  $self->fillin($var,join($glue,@$array));
 }
 

+# to_file()
+#
+# Template in Datei schreiben
+#
+# Parameter: Datei-Handle
+#
+# Rueckgabe: Status-Code (Boolean)
+
+sub to_file($)
+{
+ my ($self,$handle) = @_;
+ return print $handle $self->get_template;
+}
+

 # parse_if_block()
 #
 # IF-Bloecke verarbeiten
 #
 # Parameter: 1. Name des IF-Blocks (das, was nach dem IF steht)
 # parse_if_block()
 #
 # IF-Bloecke verarbeiten
 #
 # Parameter: 1. Name des IF-Blocks (das, was nach dem IF steht)

-#            2. Statuscode (true  => Inhalt anzeigen
-#                           false => Inhalt nicht anzeigen
+#            2. Status-Code (true  => Inhalt anzeigen
+#                            false => Inhalt nicht anzeigen

 #
 # Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
 
 #
 # Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
 


@@ -226,8 +244,8 @@ sub parse_if_block($$)
 # Bedingungstags in einem Vorlagentext verarbeiten
 #
 # Parameter: 1. Tagname
 # Bedingungstags in einem Vorlagentext verarbeiten
 #
 # Parameter: 1. Tagname

-#            2. Statuscode (true  => Tag-Inhalt anzeigen
-#                           false => Tag-Inhalt nicht anzeigen
+#            2. Status-Code (true  => Tag-Inhalt anzeigen
+#                            false => Tag-Inhalt nicht anzeigen

 #
 # Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
 
 #
 # Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
 


@@ -253,6 +271,40 @@ sub parse_condtag($$)
  $self->set_template($template);
 }
 
  $self->set_template($template);
 }
 

+# parse_includes()
+#
+# {INCLUDE}-Anweisungen verarbeiten
+#
+# Parameter: -nichts-
+#
+# Rueckgabe: -nichts- (Template-Objekt wird modifiziert)
+
+sub parse_includes
+{
+ my $self     = shift;
+ my $template = $self->get_template;
+
+ while($template =~ /(\{INCLUDE (\S+?)\})/)
+ {
+  my ($directive,$file) = ($1,$2);
+  my $qm_directive      = quotemeta($directive);
+  my $replacement       = "";
+
+  if(-f $file)
+  {
+   local *FILE;
+
+   open(FILE,"<$file") or croak "Open $file: $!";
+   read(FILE, $replacement, -s $file);
+   close(FILE) or croak "Closing $file: $!";
+  }
+
+  $template =~ s/$qm_directive/$replacement/g;
+ }
+
+ $self->set_template($template);
+}
+

 # ==================
 #  Private Funktion
 # ==================
 # ==================
 #  Private Funktion
 # ==================