[Perl] ip adresse zur identifikation auslesen - nur wie?

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • [Perl] ip adresse zur identifikation auslesen - nur wie?

    hallo leute

    - ich brauche eure hilfe
    - ich muss eine internetseiet nur bestimmten ip-adressen zugänglich machen, weiß leider nur noch nicht so richtig wie

    mein code:

    use strict;
    use CGI qw(:all);
    use CGI::Carp qw(fatalsToBrowser);

    my $emailauswertung = param('Emailauswertung');

    if ( $emailauswertung eq 'Emailauswertung' )
    {
    my $ip = $ENV{'REMOTE_ADDR'};

    if ($ip == xxx.xxx.xxx.xxx)
    {
    print header ;
    print start_html('zulassen');
    print "willkommen";
    print end_html ;
    }
    else
    {
    print header ;
    print start_html('ablehnen');
    print "keine berechtigung";
    print end_html ;
    }
    }
    else
    {
    print header ;
    print start_html('geht nicht');
    print "geht nicht";
    print end_html ;
    }

    mein problem ist, egal von welcher ip ich bekomme immen ein willkommen


    mfg
    gestern standen wir am abgrund heute sind wir einen schritt weiter

  • #2
    ich kenn mich mit perl ja nicht aus, aber gehört das xxx.xxx.xxx.xxx nicht in ' (hockomma)?
    Ich denke, also bin ich. - Einige sind trotzdem...

    Kommentar


    • #3
      fehler gefunden

      habe den fehler gefunden

      die zeile muss lauten

      if ( $ip eq '139.17.165.231' )
      gestern standen wir am abgrund heute sind wir einen schritt weiter

      Kommentar

      Lädt...
      X