linux-l: Perlsuche

[Duncan Rubinger]

Hi,

> > [Tue Apr 17 11:05:00 2001] [error] [client 192.168.0.198] malformed
> > header from script. Bad header=duncan:
> > /home/httpd/cgi-bin/findhttp.cgi
>
> Als schnelle Abhilfe kannst Du folgende Zeile an den Anfang des
> Scripts stellen:
>
> print "Content-type: text/html\n\n";

Hilft leider nicht viel, selber Fehler :-(

Hier mal das Script:
-------Snip------
#!/usr/bin/perl
use CGI;
print "Content-type: text/html\n";
print "Available Websites on Server:\n";

######### Suche und finde #########
PHSuche();
print join("\n", at DirList0),"\n";

######### Sub - Anfang #########
sub PHSuche()
{
opendir(DPH, "/home") || die "can't open /home: $!";
  @DirList0 = grep { ! /^\./ && -d "/home/$_/public_html" } readdir(DPH);
#print "Content-type: text/html\n";

closedir DPH;
return (@DirList0);
}
-------Snap------


Ciao, Duncan