Allow to specify a remote name for an uploaded file

[devedit.git] / modules / Template.pm

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

-# Template (Version 1.4)
+# Template (Version 1.5)

 #
 # Klasse zum Parsen von Templates
 #
 # Autor:            Patrick Canterino <patrick@patshaping.de>
 #
 # Klasse zum Parsen von Templates
 #
 # Autor:            Patrick Canterino <patrick@patshaping.de>

-# Letzte Aenderung: 5.2.2005
+# Letzte Aenderung: 4.5.2005

 #
 
 use strict;
 #
 
 use strict;


@@ -160,13 +160,15 @@ sub to_file($)
 # Parameter: 1. Name des IF-Blocks (das, was nach dem IF steht)
 #            2. Status-Code (true  => Inhalt anzeigen
 #                            false => Inhalt nicht anzeigen
 # Parameter: 1. Name des IF-Blocks (das, was nach dem IF steht)
 #            2. Status-Code (true  => Inhalt anzeigen
 #                            false => Inhalt nicht anzeigen

+#            3. true  => Verneinten Block nicht parsen
+#               false => Verneinten Block parsen (Standard)

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

-sub parse_if_block($$)
+sub parse_if_block($$;$)

 {
 {

- my ($self,$name,$state) = @_;
- my $template            = $self->get_template;
+ my ($self,$name,$state,$no_negate) = @_;
+ my $template                       = $self->get_template;

 
  my $count = 0;
 
 
  my $count = 0;
 


@@ -180,7 +182,18 @@ sub parse_if_block($$)
   my $start    = index($template,'{IF '.$name.'}');
   my $tpl_tmp  = substr($template,$start);
   my @splitted = split(/\{ENDIF\}/,$tpl_tmp);
   my $start    = index($template,'{IF '.$name.'}');
   my $tpl_tmp  = substr($template,$start);
   my @splitted = split(/\{ENDIF\}/,$tpl_tmp);

-  push(@splitted,'') if(substr($template,-7) eq '{ENDIF}');
+
+  # Wenn sich am Ende der Zeichenkette {ENDIF} befinden, werden diese
+  # von split() ignoriert, was zu einem Verschachtelungsfehler fuehrt
+  # Die fehlenden leeren Zeichenketten muessen von Hand eingefuegt werden
+
+  my $x = 1;
+
+  while(substr($tpl_tmp,-7*$x,7) eq '{ENDIF}')
+  {
+   push(@splitted,'');
+   $x++;
+  }

 
   my $block = ''; # Kompletter bedingter Block
   my $ifs   = 0;  # IF-Zaehler (wird fuer jedes IF erhoeht und fuer jedes ENDIF erniedrigt)
 
   my $block = ''; # Kompletter bedingter Block
   my $ifs   = 0;  # IF-Zaehler (wird fuer jedes IF erhoeht und fuer jedes ENDIF erniedrigt)


@@ -246,6 +259,13 @@ sub parse_if_block($$)
  }
 
  $self->set_template($template);
  }
 
  $self->set_template($template);

+
+ # Evtl. verneinte Form parsen
+
+ unless($no_negate)
+ {
+  $self->parse_if_block('!'.$name,not($state),1);
+ }

 }
 
 # parse_condtag()
 }
 
 # parse_condtag()


@@ -293,22 +313,18 @@ sub parse_includes
  my $self     = shift;
  my $template = $self->get_template;
 
  my $self     = shift;
  my $template = $self->get_template;
 

- while($template =~ /(\{INCLUDE (\S+?)\})/)
+ while($template =~ /(\{INCLUDE (\S+?)\})/g)

  {
   my ($directive,$file) = ($1,$2);
   my $qm_directive      = quotemeta($directive);
  {
   my ($directive,$file) = ($1,$2);
   my $qm_directive      = quotemeta($directive);

-  my $replacement       = '';

 
   if(-f $file)
   {
 
   if(-f $file)
   {

-   local *FILE;
+   my $inc = new Template;
+   $inc->read_file($file);

 
 

-   open(FILE,'<'.$file) or croak "Open $file: $!";
-   read(FILE, $replacement, -s $file);
-   close(FILE) or croak "Closing $file: $!";
+   $template =~ s/$qm_directive/$inc->get_template/eg;

   }
   }

-
-  $template =~ s/$qm_directive/$replacement/g;

  }
 
  $self->set_template($template);
  }
 
  $self->set_template($template);


@@ -344,25 +360,10 @@ sub substr_count($$)
 #  Alias-Funktionen
 # ==================
 
 #  Alias-Funktionen
 # ==================
 

-sub addtext($)
-{
- shift->add_text(shift);
-}
-
-sub as_string
-{
- return shift->get_template;
-}
-
-sub condtag($$)
-{
- shift->parse_condtag(@_);
-}
-
-sub readin($)
-{
- shift->read_file(shift);
-}
+*addtext   = \&add_text;
+*as_string = \&get_template;
+*condtag   = \&parse_condtag;
+*readin    = \&read_file;

 
 # it's true, baby ;-)
 
 
 # it's true, baby ;-)