cleanup

1 files changed, 0 insertions, 218 deletions

diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
deleted file mode 100644
index 7827f3b..0000000
--- a/Xerl/Page/Templates.pm
+++ /dev/null
@@ -1,218 +0,0 @@
-# Xerl (c) 2005-2011, 2013-2015 by Paul Buetow
-#
-# 	E-Mail: xerl@dev.buetow.org 	WWW: https://xerl.buetow.org
-#
-# This is free software, you may use it and distribute it under the same
-# terms as Perl itself.
-
-package Xerl::Page::Templates;
-
-use strict;
-use warnings;
-
-use v5.14.0;
-
-use Time::HiRes 'tv_interval';
-use Digest::MD5;
-
-use Xerl::Base;
-use Xerl::Page::Content;
-use Xerl::Page::Menu;
-use Xerl::Setup::Configure;
-use Xerl::Tools::FileIO;
-
-use constant RECURSIVE => 1;
-
-sub parse {
-  my $self   = $_[0];
-  my $config = $self->get_config();
-
-  my $site = $config->get_site();
-
-  my $subpath = $site;
-  if ( $site =~ s#^.*/(.*)$#$1#o ) {
-    $subpath =~ s#/[^/]+$#/#;
-    $subpath =~ s#/#.sub/#go;
-
-  }
-  else {
-    $subpath = '';
-  }
-
-  my $cachefile =
-      $config->get_template() . ';'
-    . $config->get_outputformat() . ';'
-    . $site
-    . ( $config->noparse_exists() ? '.noparse' : '' )
-    . '.cache';
-
-  my $cachepath = $config->get_cachepath() . $subpath;
-
-  if ( -f $cachepath . $cachefile
-    && ( $config->usecache_exists() or not $config->nocache_exists() ) )
-  {
-
-    my $io = Xerl::Tools::FileIO->new( path => $cachepath . $cachefile );
-
-    if ( -1 == $io->fslurp() ) {
-      $config->set_finish_request(1);
-      return undef;
-    }
-
-    $self->set_array( $io->get_array() );
-
-  }
-  else {
-    my $xmlconfigpath = $config->get_hostpath() . 'config.xml';
-
-    $xmlconfigpath = $config->get_defaulthostpath() . 'config.xml'
-      unless -f $xmlconfigpath;
-
-    my $xmlconfigreader =
-      Xerl::XML::Reader->new( path => $xmlconfigpath, config => $config );
-
-    if ( -1 == $xmlconfigreader->open() ) {
-      $config->set_finish_request(1);
-      return undef;
-    }
-
-    $xmlconfigreader->parse();
-    $config->set_xmlconfigrootobj( $xmlconfigreader->get_root() );
-
-    my $menu = Xerl::Page::Menu->new( config => $config );
-    $menu->generate();
-    $config->set_menuobj($menu);
-
-    if ( $site =~ /^(\d+)\./ ) {
-      $config->set_templatepath(
-        $config->get_hostpath() . "content/$subpath$site.xml" );
-    }
-    elsif ( -f $config->get_hostpath() . "content/$subpath$site.xml" ) {
-      $config->set_templatepath(
-        $config->get_hostpath() . "content/$subpath$site.xml" );
-    }
-
-    # Hidden files
-    elsif ( -f $config->get_hostpath() . "content/$subpath.$site.xml" ) {
-      $config->set_templatepath(
-        $config->get_hostpath() . "content/$subpath.$site.xml" );
-    }
-    else {
-      my $glob = $config->get_hostpath() . "content/$subpath*.$site.xml";
-      eval "(\$glob) = sort <$glob>;";
-      $config->set_templatepath($glob);
-    }
-
-    my $bodycontent = Xerl::Page::Content->new( config => $config );
-    $bodycontent->parse();
-
-    my $templatepath =
-      $config->get_hostpath() . "templates/" . $config->get_template() . '.xml';
-
-    $templatepath =
-        $config->get_defaulthostpath()
-      . "templates/"
-      . $config->get_template() . '.xml'
-      unless -f $templatepath;
-
-    $config->set_templatepath($templatepath);
-
-    my $templatecontent = Xerl::Page::Content->new( config => $config );
-    $templatecontent->parse();
-
-    $self->set_array( $templatecontent->get_content() );
-    $config->set_content( $bodycontent->get_content() );
-    $self->parsetemplate( '%%', RECURSIVE );
-
-    my $io = Xerl::Tools::FileIO->new(
-      path     => $cachepath,
-      filename => $cachefile,
-      array    => $self->get_array(),
-    );
-
-    $io->fwrite();
-  }
-
-  $self->parsetemplate('$$');    # Parsing dynamic vars.
-  return undef;
-}
-
-sub parsetemplate {
-  my $self          = $_[0];
-  my $config        = $self->get_config();
-  my $deepnesslevel = $_[2] || 0;
-
-  return $self if $deepnesslevel == 100;
-
-  my ( $sep, $foundflag ) = quotemeta $_[1];
-
-  PARSELINE( $config, $sep, \$_, \$foundflag ) for @{ $self->get_array() };
-
-  return $self->parsetemplate( $_[1], $deepnesslevel + 1 )
-    if defined $deepnesslevel > 0 and $foundflag;
-
-  return undef;
-}
-
-sub print {
-  my $self   = $_[0];
-  my $config = $self->get_config();
-
-  my ( $code, $flag ) = ( '', 0 );
-  my $time  = $_[1];
-  my $hflag = 1;
-
-  for my $line ( @{ $self->get_array() } ) {
-    if ( $hflag == 1 && $config->exists('noparse') ) {
-      $line =~ s#^Content-Type.*#Content-Type: text/plain#i;
-      $hflag = 0;
-    }
-
-    $line =~ s/  +/ /g;
-    redo if !$flag and $line =~ s/<perl>((?:.|\n)*?)<\/perl>/eval $1/ego;
-
-    if ( !$flag and $line =~ s/<perl>(.*)$//o ) {
-      $code .= $1;
-      $flag = 1;
-
-    }
-    elsif ( $line =~ s/^(.*?)<\/perl>/eval $code.$1/eo ) {
-      ( $code, $flag ) = ( '', 0 );
-      redo;
-
-    }
-    elsif ($flag) {
-      $line =~ s/^(.*\n)$//o;
-      $code .= $1;
-      next;
-    }
-
-    my $time = defined $time ? sprintf '%1.4f', tv_interval($time) : '';
-
-    $line =~ s/!!HOSTNAME!!/$config->get_hostname()/ge;
-    $line =~ s/!!TIME!!/$time/ge;
-    $line =~ s/!!LT!!/</g;
-    $line =~ s/!!GT!!/>/g;
-    $line =~ s#!!URL\((.+?)\)!!#<a href="$1">$1</a>#g;
-
-    print $line;
-  }
-
-  return undef;
-}
-
-# Static sub
-sub PARSELINE($$$;$) {
-  my $config = $_[0];
-  my ( $sep, $line, $foundflag ) = @_[ 1 .. 3 ];
-
-  $$line =~ s/$sep(!)?(.+?)$sep/
-     defined $1 ? `$2` :
-       (ref $config->getval($2) eq 'ARRAY') 
-      ? join '', @{$config->getval($2)} :
-      $config->getval($2)/eg and $$foundflag = 1;
-
-  return undef;
-}
-
-1;