ENV{'SCRIPT_NAME'} umschreiben (Allgemeines zu Perl)

[thread]13779[/thread]

ENV{'SCRIPT_NAME'} umschreiben

Leser: 21

Articles: hide open all | hide show old branches

+5 replies

Gast gast

2009-07-25 15:13

Hallo leute,
ich versuche krampfhaft diesen $ENV{'SCRIPT_NAME'} Befehl umzuschreiben das keine endung wie ?domain.de rangehängt wird oder das das Ergebnis nicht im neuen Tab geöffnet wird, muß dazu sagen bin Neuling in Perl Programmierung.

eingebunden wird das script so :

Code: (dl )

virtual('tools/mx_lookup.cgi');

hier mal das Script:

Code (perl): (dl )

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>DNS MX Lookup</title>
</head>
<body bgcolor="#bcc43e" text="#000000" link="#000000" vlink="#fc0000" alink="#fc0000">
<h2>DNS MX Lookup</h2>
<p>Mit dieser Anwendung k&ouml;nnen Sie die Mail Exchanger sowie Namensserver ermitteln.</p>
<div align="left">
<table border="0" style="background-color:#bcc43e">
<tr>
<td style="padding:0px;text-align:left;">
<form action="$ENV{'SCRIPT_NAME'}" method="get">
<b>Domain eingeben:</b> <input type="text" name="domain" />
&nbsp;&nbsp;<input type="submit" value="Daten Senden" />
</form>
</td>
</tr>
</table>
EOFHTML

# Hauptfunktion

my $domain = param('domain');

if($domain)
{
 if($domain =~ /^([a-zA-Z0-9]{1,}([\.]?|[-]?))*[a-zA-Z0-9]{1,}\.{1}[a-zA-Z]{2,6}$/)
 {
  my $res = new Net::DNS::Resolver;
  my @mx = mx($res,$domain);

  if(@mx)
  {
   print "<b><p>".scalar @mx." Mail Exchanger f&uuml;r Domain $domain gefunden.</b></p>\n\n";
   print "<table border=\"0\">\n<tr>\n<td><b>Server</b></td>\n<td><b>IP-Adresse</b></td>\n<td><b>Echter Hostname</b></td>\n<td><b>Preference</b></td>\n</tr>\n";

   foreach my $mxr(@mx)
   {
    my $server = $mxr->exchange;
    my $ip     = get_ip($res,$server);
    my $host   = gethostbyaddr(inet_aton($ip),AF_INET);
    my $pref   = $mxr->preference;

    print "<tr>\n";
    print "<td>".$server."</td>\n";
    print "<td>".$ip."</td>\n";
    print "<td>".$host."</td>\n";
    print "<td>".$pref."</td>\n";
    print "</tr>\n";
   }
   print "</table>\n\n";
  }
  else
  {
   print "<p>F&uuml;r die Domain $domain wurden keine Mail Exchanger gefunden.<br />\n";
   print "Grund: <i>".$res->errorstring."</i></p>\n\n";
  }

  my $nsd = $res->query($domain,"NS");

  if($nsd)
  {
   my @ns = $nsd->answer;
   @ns = reverse(@ns);

   print "<b><p>Namensserver der Domain $domain</b>:</p>\n\n";
   print "<table border=\"0\">\n<tr>\n<td><b>Server</b></td>\n<td><b>IP-Adresse</b></td>\n<td><b>Echter Hostname</b></td>\n</tr>\n";

   foreach my $nsr(@ns)
   {
    my $server = $nsr->nsdname;
    my $ip     = get_ip($res,$server);
    my $host   = gethostbyaddr(inet_aton($ip),AF_INET);

    print "<tr>\n";
    print "<td>".$server."</td>\n";
    print "<td>".$ip."</td>\n";
    print "<td>".$host."</td>\n";
    print "</tr>\n";
   }
   print "</table>\n";
  }
  else
  {
   print "<p>F&uuml;r die Domain $domain konnten keine Namensserver ermittelt werden.<br />\n";
   print "Grund: <i>".$res->errorstring."</i></p>\n";
  }
 }
 else
 {
  print "<p><b>$domain</b> ist kein g&uuml;ltiger Domainname!</p>\n";
 }
}
else
{
 print "<p>&nbsp;</p>\n";
}

print <<"EOFHTML";
</div>
</body>
EOFHTML

print "</html>";

# get_ip()
#
# Die zu einem Servernamen gehoerende IP-Adresse ermitteln
#
# Parameter: 1. Net::DNS::Resolver-Objekt
#            2. Servername
#
# Rueckgabe: Je nach Kontext ein Skalar oder eine Liste mit
#            der oder den IP-Adressen, ansonsten false.

sub get_ip
{
 my ($res,$server) = @_;
 my @answer = $res->query($server,"A")->answer;

 if(@answer)
 {
  if(wantarray)
  {
   my @ips;
   foreach my $answers(@answer)
   {
    push(@ips,$answers->address);
   }
   return @ips;
  }
  return $answer[0]->address;
 }

 return;
}

Bin für jede Hilfe Dankbar.

+3 replies
GwenDragon

2009-07-25 21:57
User since
2005-01-17
14748 Artikel
Admin1
Zeile 12:
Statt:
Code (html): (dl )

<form action="$ENV{'SCRIPT_NAME'}" method="get">
das:
Code (html): (dl )

<form action="$ENV{'SCRIPT_NAME'}" method="POST">
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- sid burn
  
  2009-07-26 16:35
  
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  
  Erst nachdem ich deinen Beitrag gelesen habe ist mir überhaupt klar geworden was der Threadstarter überhaupt wollte.
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - GwenDragon
    
    2009-07-26 18:04
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Na ja, seh verständlich war es mir auch nicht.
    Ich habe da mal auf das Skript geschaut und mir gedacht: Bei einem get hängt Perl ja die Parameter an, vielleicht ist das als Problem gemeint.
    Also besser ein Post.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
sid burn

2009-07-26 16:36

User since
2006-03-29
1520 Artikel
BenutzerIn

Quote
oder das das Ergebnis nicht im neuen Tab geöffnet wird,

Das kannst du nicht beeiflussen. Ob ein Web-browser ein ergebnis im neuem Tab öffnet oder nicht ist Einstellungssache des Browsers.
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-07-25 15:13.