 |
 |
 |
 |
.:Leistungen:. |
 |
|
| |
Neubau - Umbau - Ausbau
- Maurerarbeiten
- Putzarbeiten
- Estricharbeiten
- kompletter Innenausbau
- Montage von individuell vorgefertigten
Fenstern und Fensterelementen ,Wintergärten
Besondere Leistungen:
- Beratung und Durchführung fachgerechter
Sanierungsmaßnahmen an denkmalgeschützten Bauten
- Sanierung von Umgebindehäusern
Beratung bei
- Fassadengestaltung
- Innengestaltung(moderne Raumgestaltung)
- Einsatz von antiken Baumaterialien
- komplette Abwicklung Ihrer Baumaßnahmen
|
|
|
|
|
|
| |
|
 |
 |
 |
 |
|
 |
 |
|
 |
|
 |
Besucher #!/usr/bin/perl
# Start Setup
$padding = 2;
$log_dat = "counter.txt";
$lock = 1;
$lock_ip =1;
$ip_lock_timeout =30;
$fpt_ip = "ip.txt";
# Ende Setup
print "Content-Type: text/html\n\n";
sub checkIP {
open (FILE,"$fpt_ip");
@ip_array = ;
close (FILE);
open (TABLE,">$fpt_ip") || &error(" Error Scriptfehler.\n");
$this_time = time();
foreach $visitor (@ip_array) {
($ip_addr,$time_stamp) = split(/\|/,$visitor);
if ($this_time < $time_stamp+(60*$ip_lock_timeout)) {
if ($ip_addr eq $ENV{'REMOTE_ADDR'}) {
$found=1;
}
else {
print TABLE "$ip_addr|$time_stamp";
}
}
}
print TABLE "$ENV{'REMOTE_ADDR'}|$this_time\n";
close(TABLE);
return ($found==1) ? 1 : 0;
}
sub error {
print "$_[0]";
exit (0);
}
$flag = ($lock_ip==1) ? &checkIP : 0;
if (!(-e "$log_dat")) {
open (FILE,">$log_dat") || &error("Error Scriptfehler.\n");
$count = 1;
print FILE "$count";
close (FILE);
}
else {
open (FILE,"+<$log_dat");
$count = ;
if ($lock_ip==0 || ($lock_ip==1 && $flag!=1)) {
flock(FILE,2) if ($lock == 1);
$count++;
seek(FILE,0,0);
print FILE "$count";
}
close (FILE);
}
$count = sprintf("%0"."$padding"."d", $count);
print "$count";
exit(0); © by
http://www.leondesign.de V 2.0
|
 |
|
 |
 |
|
|
|
|
|
|
|
|
