Ang. absolutte stier, er det
http://etsted/enmappe/enfil.htmlJeg kan ikke vedhæfte scriptet ??????????? så her er den som den køre på UNIX.
#!/usr/bin/perl
######### Chek for antal sendte bytes######################
if ( $ENV{'CONTENT_LENGTH'} > 1000 )
{
print<<CONTENT_LENGTH_FEJLMEDDELELSE;
Content-type: text/html
<HTML><BODY><h2>Fejl: Du må maksimalt sende 2000 bytes data</h2></BODY></HTML>
CONTENT_LENGTH_FEJLMEDDELELSE
return;
}
######################################################
#Læsning af in data starter her
$in=<STDIN>;
##############################################################################
#Selv definerende funktion, der læser de fra browseren modtagne data
#og konverterer diverse specialkoder i URL-encoding til deres respektive tegn.
sub laesStandardInput
{
my ($data) = $in;
$data=~s/\+/ /g;
$data=~s/\%([A-F0-9]{2})/pack('C', hex($1))/eg;
return $data;
}
$indata = laesStandardInput();
%inddataarry=split('[=&]',$indata);
@noegle=keys(%inddataarry);
####################################################
#
#Splitter indataarry
#
$ord = ($inddataarry{$noegle[0]});
#
#
############### validering af url ####################
$ord=lc($ord);
$fejl = '';
$antal = length($ord);
if ($antal==0)
{
$fejl = "Fejl der er ikke indtastet søgeord !!<br>";
}
$chekFejl = length($fejl);
if ($chekFejl > 0)
{
print<<STOP1;
Content-type: text/html
<html>
<head>
<title>Søgeside</title>
</head>
<body>
Test <strong>$fejl</strong><br>
<HR>
<strong>Ny søgning</strong>
<form method="POST" action="/cgi-bin/soeg1.pl">
Indtast søgeord <input type="text" name="soegeord" size="20"><input type="submit" value="Søg"><input type="reset" value="Reset"></p>
</form>
ord -- $ord in -- $in ---$indhold --- $starta -- $sluta<br>
</body>
</html>
STOP1
}
if ($chekFejl == 0)
{
################ læsning af fil ##################
@filer = (side1,side2,havn,havn2,kommune,hvidesande,handvrk,sondervig);
$fundene='';
$x=scalar(@filer);
$mange=0;
for ($y=0; $y <= $x ; $y++)
{
$indhold = '';
open (INDFIL,"< /home/yde/public_html/mappe/@filer[$y].html");
for ($i=0; $linie = <INDFIL> ;$i++)
{
$indhold .= $linie;
}
if ( $indhold =~/$ord/)
{
$indholdb=$indhold;
$indhold=lc($indhold);
$mange=$mange+1;
## Title##########################
$start=index($indhold,title,0);
$begynd=$start+5;
$start=$start+6;
$slut= index($indhold,title,$begynd);
$laengde=($slut - $start)-2;
$title=substr($indholdb,$start,$laengde);
$title=ucfirst($title);
## Description ###################
$starta=index($indhold,description,0);
$begynda=$starta+22;
$sluta=index($indhold,'"',$begynda);
$laengdea=$sluta - $starta;
$laengdea=$laengdea-22;
$besk=substr($indholdb,$begynda,$laengdea);
$fundene.= "<a href=\"/mappe/@filer[$y].html\"> $title </a> $besk<br><br>";
}
}
$antalo = length($fundene);
$ordo='';
if ($antalo==0)
{
$ordo = "$ord";
}
{
print<<STOPZ;
Content-type: text/html
<html>
<head>
<title>Søgeside</title>
</head>
<body>
Resultat af søgning på <strong>$ord</strong><br>
<strong>$mange</strong> sider passer på søgning af <strong>$ord</strong><br>
<HR>
$fundene
<HR>
<strong>Ny søgning</strong>
<form method="POST" action="/cgi-bin/soeg1.pl">
Indtast søgeord <input type="text" name="soegeord" size="20" value="$ordo"><input type="submit" value="Søg"><input type="reset" value="Reset"></p>
</form>
ord -- $ord in -- $in ---$indhold --- $starta -- $sluta -- $sti -- $fil --<br>
</body>
</html>
STOPZ
}
}