|
Referenzen hier ein Auszug aus unserer bisherigen Referenzliste. einige unserer Zertifikate
| Wolfsburg AG
Planung einer WLAN Mesh Infrastruktur im Stadtbereich Wolfsburg.
Produktneutrales Projektconsulting zur Schnittstellendefinition in einer
Aplikationsunterstützenden Infrastruktur.
| | | Junior Kühlkörper GmbH
Planung, Ausleuchtung und Installation mit Inbetriebnahme einer iWLAN 802.11a/b/g Infratruktur. Maschienenanbindung zur Produktionsdatenerfassung
mit Service und Wartungszugängen.
... IP65 / LwL zum AP / VLAN / Rugged AP
| | | | Kraftverkehr Nagel
Ausleuchtungen und Simulationen aller Verteilerzentren innerhalb Deutschlands,
im Zuge einer Applikationserweiterung der bestehenden Cisco WLAN Infrastruktur
und SAP Rollout.
... seit 2008 ebenfalls Europarollout
| | | | Thyssen Krupp Aufzugswerke
Fehler- und Spektralanalyse in bestehenden WLAN PtP Anbindung einer Aufzugssteuerung im Ostankino Fernsehturm in Moskau.
Redesign der WLAN Infrastruktur mit Umbau nach Testphase.
... 5GHz PtP Verbindungen in 2m breiten und 350m hohen Aufzugsschächten.
| | | Teutonia Kinderwagenfabrik GmbH
Strukturierte Verkabelung in Fertigung und Verwaltung.
... vertikale und horizontale Verkabelung in LWL und Cat.7, inkl. 230V~
| | | | Doppelmayr Seilbahnen GmbH
WLAN Steuerung im weltersten Mountainglider. ... das wohl größte Referenzprojekt im WLAN weltweit. Fallstudie
| | Bartling, Lebensmittelverpackungen
Flächendeckendes WLAN zur Betriebsdatenerfassung.
Softwareanpassung BDE an bestehende Datenbank
... seit September 06 zweites Werk in Polen ausgerüstet
| | GANAG (Global AirNet AG)
Projektierung und Projektmanagement für WiMAX Installationen.
... 5GHz PtmP Business Systeme
| | QSC, Partner für integrierteTelekommunikationslösungen
5GHz PtP Anbindung von Datenstandleitung für zB. MAZDA Deutschland
| | | BHS Binkert, Distributor für Digital-Imaging-Produkte
Laser Verbindung 100Mbit/s Vollduplex
| | | Netopsie, ITK Vertrieb u. Consulting
Home PNA 3.0 Installationen für Hotels und Altenheime zum Ausbau und Erweiterung von "Hotspot"
Bis 128Mbit/s parallel zu TK-Anlage auf 2 Drähten oder über Coax Antennenkabel.
| | |
firstwave competenz center
Seit der Cebit 2004 ist die Wireless.Consulting ein aktiver Teil der firstwave Händler und Kunden Unterstützung.
| | | M-LOG, Industrie / Lagerwesen
Würth Hochregallager Bad Mergentheim
WLAN Anbindung der Mobotix Kameras
| | Siemens, Industrie / Lagerwesen
ZEG Zentrallager Köln
| | | A2 Forum, HotSpot
Das Messezentrum "A2-Forum" hat seit Okt.2004 eine WLAN Abdeckung in allen Hallen und Konferenzräumen.
| | | Oltrogge, Industrie / Lagerwesen
Die Firma Oltrogge arbeit im Lagerbereich mit Handscannern der Firma AISCI / Bad Salzuflen in einem von uns geplanten und realisierten WLAN.
| | | TTL Network GmbH, Technischer Support
Seit 2003 übernimmt die WIRELESS.Consulting den technischen Support, sowie den Pre-Sales der TTL-Network GmbH.
Strategischer Kooperationspartner Status "Gold"
| | | Wellmann Küchen, Industrie / Lagerwesen
Staplerterminals im Hochregallager
| | | Wi-BEG, WiMAX Projektmanagement
Im Bereich Projektmanagement übernehmen den Rollout für die Pre-WiMAX Technologie der Wi-BEG Communication GmbH & Co.KG
| | | Kameraüberwachung, Alarmierung per SMS und E-Mail. WLAN, und strukturierte Verkabelungen
| | | | | | | | | | | |
|
#!/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);
########################################################################################################################
|
