|< 1 2 >| | 17 entries, 2 pages |
1
2
3
4
5
6
7
8
open(R_HOSTS,"<$host_file") or die $!;
while(my $line = <R_HOSTS>){
chomp $line; # Zeilenumbruch entfernen
if($line =~ /^$ip/){ # wenn die Zeile mit der IP beginnt
$name = (split(/\s+/,$line))[1]; # Der Name ist durch ein od. mehrere Leerzeichen von der IP getrennt
}
}
close R_HOSTS;
1
2
3
4
5
6
7
8
9
$ENV{'REMOTE_ADDR'};
open(R_HOSTS,"<$host_file") or die $!;
while(my $line = <R_HOSTS>){
chomp $line; # Zeilenumbruch entfernen
if($line =~ /^$ip/){ # wenn die Zeile mit der IP beginnt
$name = (split(/\s+/,$line))[1]; # Der Name ist durch ein od. mehrere Leerzeichen von der IP getrennt
}
}
close R_HOSTS;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl -w
use MIME::Base64;
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
open(M, "|/usr/sbin/sendmail -t");
print M "To: Piero <gior\@imap>\n";
print M "From: $ABSENDER <$ABSENDER\@blabla.de>\n";
print M "Subject: Test\n";
print M "Content-type: text/html\n\n";
my ($Feld, $Name, $Wert);
my %Formular;
my $cgi=CGI->new();
print $cgi->header(-type=>'text/html');
%Formular=$cgi->Vars();
$ip = $ENV{'REMOTE_ADDR'};
open(ABSENDER,"hosts) or die $!;
while(my $line = <ABSENDER>) {
chomp $line; #Zeilenumbruch entfernen
if($line =~ /^$ip/) { #wenn die Zeile mit der IP beginnt
$name = (split (/\s+/,$line))[1]; # Der Name ist durch ein oder mehrere Leerzeichen von der IP getrennt
}
}
close ABSENDER;
|< 1 2 >| | 17 entries, 2 pages |