|
Impressum
Wireless.Consulting GmbH Weststraße 87 D - 33790 Halle / Westfalen Amtsgericht Gütersloh HRB 7049 Geschäftsführer: Alexander Bendler
Gerichtsstand ist Gütersloh Unsere Bankverbindungen: | Konto | 52 77 9 |
| | BLZ | 480 515 80 |
| | Institut | Kreissparkasse Halle (Westfalen) |
|
Haftungsausschluss
Die auf der Website der Wireless.Consulting GmbH bereitgestellten Informationen werden sorgfältig geprüft und regelmäßig aktualisiert. Es kann aber keinerlei Garantie oder Haftung dafür übernommen werden, dass alle Angaben zu jeder Zeit vollständig, richtig und in letzter Aktualität dargestellt werden. Dies gilt insbesondere für alle Links auf anderen Websites, auf die auf der Webseite der Wireless.Consulting GmbH direkt oder indirekt verwiesen wird. Die Wireless.Consulting GmbH erklärt hinsichtlich der Links ausdrücklich, dass sie keinerlei Einfluss auf die Gestaltung und die Inhalte der verlinkten Seiten hat und sich diese Inhalte nicht zu eigen macht. Diese Erklärung gilt für alle evtl. auf der Website der Wireless.Consulting GmbH angezeigten Links und für alle Inhalte der Seiten, zu denen die auf der Webite der Wireless.Consulting GmbH angemeldeten Banner und Links führen.
Screen-Design, HTML:
|
#!/usr/bin/perl
#!/usr/local/bin/perl
#########################################################################################
# aconon® cms #
# _ ____ ___ _ #
# __ _ ___ ___ _ __ ___ ___(r) / ___| ___ / __| |_ _ _ __ _ _ __ ___ #
# / _` |/ __|/ _ \| '_ \ / _ \| '_ \ \___ \ / _ \| _|| __/| | _ | |/ _` | '__|/ __\ #
# | (_| | (__| (_) | | | | (_) | | | | ___) | (_) | | | |_ | || || | (_| | | | _| #
# \__,_|\___|\___/|_| |_|\___/|_| |_| |____/ \___/|_| \__| \_____/ \__,_|_| \___/ #
# #
# Copyright © 2001 http://www.aconon.de - all rights reserved - Alle Rechte vorbehalten #
#########################################################################################
# sort=a-z aufsteigend sortiert
# sort=z-a absteigend sortiert
# sort=random zufaellig sortiert
# select=BEGRIFF nur Content-Seiten anzeigen, die BEGRIFF in einem der Select Meta-Tags haben
# selectMeta=METANAME wenn Metatag "select" nicht vorhanden ist, nimm diesen (Beispiel text2)
# max=3 maximal 3 Content-Seiten anzeigen
# alternierend=NAME Abwechselnd anderes aussehen einer Listenzeile
# (ab der zweiten Zeile dieses tpl.NAME.txt)
# nodouble=feld von jeder Content-Seite nur eine mit einem Begriff in diesem Feld anzeigen
# (=1 oder =headline verhindert doppelte Eintraege aus dem Feld text1 oder headline)
# ------------------------------------------------------------------------------------- #
# ----- MAIN
# ------------------------------------------------------------------------------------- #
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
#######################################################################
if($0 !~ /^list\.(cgi|pl)$/i && $0) {
$this_dir = $0;
} elsif($ENV{'SCRIPT_FILENAME'} && $ENV{'SCRIPT_FILENAME'} !~ /cgiwrap/) {
$this_dir = $ENV{'SCRIPT_FILENAME'};
} elsif($ENV{'PATH_TRANSLATED'}) {
$this_dir = $ENV{'PATH_TRANSLATED'};
}
$this_dir =~ s/\/[^\/]*$// && unshift(@INC,"$this_dir");
$this_dir =~ s/\\[^\\]*$// && unshift(@INC,"$this_dir");
#######################################################################
# ACHTUNG KEINE &check_pass; EINBAUEN
# DA DIESES PROGRAMM VOM WEBPAGE-BESUCHER AUFGERUFEN WIRD
require 'module.pm';
loadModules();
use Time::Local; # Time-Modul
&readparam; # read CGI parameters
$cd = "$root/$input{'cd'}";
$ordner = "$url/$input{'cd'}";
$nodouble = $input{'nodouble'}; # nodouble # igg 28.11.2003
$richtung = $input{'sort'};
srand();
$random = $input{'random'};
$only = $input{'select'};
$selMeta = $input{'selectMeta'}; # $selMeta = Metatag, wenn kein Meta "select" vorhanden ist. # mne 04.12.2003
$max = $input{'max'};
if(!$max){$max = 9999}
if (!$input{'tpl'}){
$templatename = "$verz_template/tpl.list.txt";
}else{
$templatename = "$verz_template/tpl.$input{'tpl'}.txt";
}
if(!$dyndat){$dyndat = "shtml";}
opendir(DIR, $cd) or print "$!";
foreach my $entry (readdir(DIR)) {
next if $entry =~ /^\.$/; # um Verz. '.' zu ueberspringen.
next if $entry =~ /^\.\.$/; # um Verz. '..' zu ueberspringen.
next if $entry =~ /^_vti_cnf$/; # um FRONTPAGE Verz. zu ueberspringen.
next if $entry =~ /^.hta/; # um .hta Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.css?$/; # um alle css Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.doc?$/; # um alle doc Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.cgi?$/; # um alle doc Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.pdf?$/; # um alle pdf Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.xls?$/; # um alle xls Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.txt?$/; # um alle TXT Dateien zu ueberspringen.
next if $entry =~ /^([a-zA-Z0-9\_\-]+)\.aconon?$/; # um alle aconon Dateien zu ueberspringen.
next if $entry =~ /^noList/; # um Datei die mit noList beginnen zu ueberspringen.
if(!$input{'mitIndex'}){ # zurGams - cgs - 10.05.2005 15:36
next if $entry =~ /^index\./; # um index Datei zu ueberspringen.
}
next if $entry =~ /^lock\./; # um lock Datei zu ueberspringen.
if ($entry !~ /\.htm*/i and $entry !~ /\.shtm*/i and $entry !~ /\.php*/i){$entry .= "/index.$dyndat";}
push(@FILES,"$entry");
}
closedir(DIR);
open(TEMPLATE, "$templatename") or print "$!";
@TEMPLATE = ;
close(TEMPLATE);
if (-f "$verz_template/tpl.$input{'alternierend'}.txt"){ # alternierend # igg 28.11.2003
open(TEMPLATE2, "$verz_template/tpl.$input{'alternierend'}.txt");
@TEMPLATE2 = ;
close(TEMPLATE2);
}else{
@TEMPLATE2 = @TEMPLATE;
}
sub reihenfolge {
if($richtung =~ /^a-z$/i){ # Klein- & Grossschreibung ignorieren # igg 08.05.2004
$a cmp $b;
}elsif($richtung =~ /^z-a/i){ # Klein- & Grossschreibung ignorieren # igg 08.05.2004
$b cmp $a;
}elsif($richtung =~ /^folderfirst$/i){ # Klein- & Grossschreibung ignorieren # igg 08.05.2004
{-d $b <=> -d $a}; # Erst die Ordner dann die Dateien # igg 08.05.2004
}elsif($richtung =~ /^random$/i){ # Klein- & Grossschreibung ignorieren # igg 08.05.2004
$a <=> $b;
}
}
# Alle Elemente von @input in µinem Hash speichern.
@myhash{@FILES} = ("") x @FILES; # Hash-Slices
# Shuffle-Algorithmus:
while ((@remains) = keys %myhash) {
$myrand = $remains[rand @remains];
push(@output, $myrand);
delete $myhash{$myrand};
}
if ($module{'newsletter'})
{
($teaser_length, $teaser_end) = modNewsletter_Read_Teaserinfo($cd);
}
if (!$teaser_length) { $teaser_length = "300"; }
if (!$teaser_end) { $teaser_end = "[...]"; }
LOOP:
foreach $link (sort reihenfolge @output)
{
$pos++;
$filename = "$cd/$link";
if (-f "$filename")
{
open(INFILE, "$filename") or print "$!";
@INFILE = ;
close(INFILE);
}
$externerlink="";
my %headline;
my %text;
foreach $line (@INFILE)
{
## beim parsen der inhaltszeile muss ich nach dem schon gefundenen vergleichen (ob die gefundene html nummer gleich der meta nummer ist und ob meta schon voll ist)
### headline suchen
if ($line =~ //is)
{
if (!$1 || $1 eq "" || $1 eq "0")
{
$headlinenr = "0";
}
else
{
$headlinenr = $1;
}
$headline{$headlinenr} = $2;
}
if(lc($nodouble) eq "headline")
{ # nodouble # igg 28.11.2003
$doppelterText{$2}++;
if($doppelterText{$2} > 1)
{
next LOOP;
}
}
if ($line =~ /(.*)<\/headline(.*?)>/is || $line =~ /(.*)/is)
{
if (!$1 || $1 eq "" || $1 eq "0")
{
$headlinenr = "0";
}
else
{
$headlinenr = $1;
}
if (!$headline{$headlinenr})
{
$headline{$headlinenr} = $2;
}
}
### externer Link suchen
if ($line =~ //is)
{
$externerlink = $1;
}
### text suchen
if ($line =~ //i)
{
if (!$1 || $1 eq "" || $1 eq "0")
{
$textnr = "0";
}
else
{
$textnr = $1;
}
$text{$textnr} = $2;
if ($selMeta)
{ # $only(select) = text(.*), wenn kein meta -> select vorhanden ist # mne 04.12.2003
$select{$1} = $2;
}
if($nodouble and $nodouble eq $1)
{ # nodouble # igg 28.11.2003
$dup = "$nodouble,$2";
$doppelterText{$dup}++;
if($doppelterText{$dup} > 1)
{
next LOOP;
}
}
if (-e "$verz_template/csv-daten.csv")
{
open(CSV,"<$verz_template/csv-daten.csv");
while()
{
$_ =~ s/[\n\r]//g;
($artikel,$text) = split(/\;/,$_);
if($text{$1} =~ /:$artikel>/is)
{ # Nur wenn Schluessel absolut identisch!
$text{$1} =~ s/]*)>/$text/gi;
last;
}
}
close(CSV);
}
}
if ($line =~ /(.*)<\/text(.*?)>/is || $line =~ /(.*)/is)
{
if (!$1 || $1 eq "" || $1 eq "0")
{
$textnr = "0";
}
else
{
$textnr = $1;
}
if (!$text{$textnr})
{
my $Laenge = length($2);
$text{$textnr} = $2;
if ($Laenge > $teaser_length)
{
$text{$textnr} = substr($text{$textnr}, 0, $teaser_length);
}
$text{$textnr} =~ /(.*)\s/is;
$text{$textnr} = $1;
$text{$textnr} .= "$teaser_end";
}
}
### select suchen
if ($line =~ //is)
{
if (!$selMeta)
{
$select{$1} = $2;
}
}
### Image(s) suchen
if ($line =~ /]*)"\s*>/is)
{
$image{$1} = $2;
}
### timer suchen
if ($line =~ /]*)"\s*>/is)
{
($von,$bis) = split(/\-/,$1);
($vontag,$vonmonat,$vonjahr) = split(/\./,$von);
($bistag,$bismonat,$bisjahr) = split(/\./,$bis);
}
$i++;} # ende foreach INFILE
# foreach $line (@INFILE) {
# if ($line =~ //is) {
# $headline = $1;
# if(lc($nodouble) eq "headline"){ # nodouble # igg 28.11.2003
# $doppelterText{$1}++;
# if($doppelterText{$1} > 1){
# next LOOP;
# }
# }
# }
# if ($line =~ //is) {
# $externerlink = $1;
# }
# if ($line =~ //i) {
# $text{$1} = $2;
# if ($selMeta){ # $only(select) = text(.*), wenn kein meta -> select vorhanden ist # mne 04.12.2003
# $select{$1} = $2;
# }
# if($nodouble and $nodouble eq $1){ # nodouble # igg 28.11.2003
# $dup = "$nodouble,$2";
# $doppelterText{$dup}++;
# if($doppelterText{$dup} > 1){
# next LOOP;
# }
# }
# if (-e "$verz_template/csv-daten.csv"){
# open(CSV,"<$verz_template/csv-daten.csv");
# while(){
# $_ =~ s/[\n\r]//g;
# ($artikel,$text) = split(/\;/,$_);
# if($text{$1} =~ /:$artikel>/is){ # Nur wenn Schluessel absolut identisch!
# $text{$1} =~ s/]*)>/$text/gi;
# last;
# }
# }
# close(CSV);
# }
# }
# if ($line =~ //is) {
# if (!$selMeta){
# $select{$1} = $2;
# }
# }
# # Auch image1 , image2 etc. ersetzen - igg 28.04.2005 13:44
# if ($line =~ /]*)"\s*>/is) {
# $image{$1} = $2;
# }
# if ($line =~ /]*)"\s*>/is) {
# ($von,$bis) = split(/\-/,$1);
# ($vontag,$vonmonat,$vonjahr) = split(/\./,$von);
# ($bistag,$bismonat,$bisjahr) = split(/\./,$bis);
# }
# }
if($only){
$ok=0;
foreach $nr (keys (%select)) {
if ($only =~ /$select{$nr}/i){
$ok=1;
last;
}
}
if(! $ok){
next;
}
%select = ""; # BUGFIX # igg 06.11.2003
}
($vontag,$vonmonat,$vonjahr) = split(/\./,$von);
$vmonat = $vonmonat - 1;
if($von =~ /^\d\d\.\d\d\.\d\d\d\d/){
$voncheck = timelocal(0, 0, 0, $vontag, $vmonat, $vonjahr);
}else{
$voncheck = 0;
}
&date();
$tag = substr($date,0,2);
$monat = substr($date,3,2) - 1;
$jahr = substr($date,6,4);
$heute = timelocal(0,0,0,$tag,$monat,$jahr);
($bistag,$bismonat,$bisjahr) = split(/\./,$bis);
$bmonat = $bismonat - 1;
if($bis =~ /^\d\d\.\d\d\.\d\d\d\d/){
$bischeck = timelocal(0, 0, 0, $bistag, $bmonat, $bisjahr);
}else{
$bischeck = 9999999999;
}
if($voncheck <= $heute and $bischeck >= $heute and $anzahl < $max){
$anzahl++;
if($input{'alternierend'} and $alternierend){ # alternierend # igg 28.11.2003
@mtemplate = @TEMPLATE2;
$alternierend = 0;
}else{
@mtemplate = @TEMPLATE;
$alternierend = 1;
}
my $nr;
foreach $mtline (@mtemplate)
{
foreach $nr (keys (%headline))
{
if ($nr == 0)
{
$mtline =~ s//$headline{"0"}/gi;
}
else
{
$mtline =~ s//$headline{$nr}/gi;
}
}
foreach $nr (keys (%text))
{
if ($nr == 0)
{
$mtline =~ s//$text{"0"}/gi;
}
else
{
$mtline =~ s//$text{$nr}/gi;
}
}
if(%image)
{
# Auch image1 , image2 etc. ersetzen - igg 28.04.2005 13:44
foreach $nr (keys (%image))
{
$mtline =~ s//$image{$nr}/gi;
}
}
else
{
$mtline =~ s//\/acononCMS\/upload\/-kein_Bild-.gif/gi;
} # BUGFIX http ohne (:) um auch https zu ermoeglichen # igg 20.11.2003
if($externerlink and ($externerlink =~ m/^http/i or $externerlink =~ m/^ftp:/i or $externerlink =~ m/^mailto:/i)){
$mtline =~ s//$externerlink/gi;
}else{
$mtline =~ s//$ordner\/$link/gi;
}
$mtline =~ s//$pos/gi;
$ausgabe = $ausgabe . $mtline;
}
}
}
&SSI_Functions($ausgabe);
########################################################################################################################
|
