abgeändertes cgi-gästebuch:Wie krieg ich die ersten Einträge nach oben?

jojodangle · 11.09.2006, 06:45

Hi,

ich habe das script für ein abgeändertes Gästebuch. Funzt prima, aber ich hätte gerne die ersten Einträge oben und die letzten unten und nicht umgekehrt.
hat jemand ne Ahnung?
Hier ist das script:

Code:

# Get the form variables
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
	$querystring = $ENV{'QUERY_STRING'};
}
else
{
	read(STDIN, $querystring, $ENV{'CONTENT_LENGTH'});
}
@arrnameval = split(/&/, $querystring);
foreach $namval (@arrnameval) 
{
    ($nam, $val) = split(/=/, $namval);
    # replace + with space
    $val =~ tr/+/ /;
    # translate hex values
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORMDATA{$nam} = $val;
}

$title = $FORMDATA{'yourtitle'};
$title =~ s/<[^>]*>//g;
$url = $FORMDATA{'yoururl'};
$url =~ s/<[^>]*>//g;
$category = $FORMDATA{'category'};
$category =~ s/<[^>]*>//g;

# Read guestbook content
open(FREELINKS,"$freelinks");
@arrfreelinks = <FREELINKS>;
close(FREELINKS); 

#Save back new content
open(FREELINKS,">$freelinks");
foreach $line (@arrfreelinks)
{
	print FREELINKS "$line";
	if ($line =~ "--newentries$category--")
	{
		print FREELINKS "\n<font face=arial size=2> &nbsp; - <a href=$url target=new>$title</a></font><br>\n";
	}
}
close(FREELINKS); 

print "Content-type: text/html\n";
$flinks = "$freelinksurl\n\n";
print qq(Location: $flinks);
return;

gruß jojo

BenniG. · 12.09.2006, 08:00

Wieso bist du eigentlich so heiß auf cgi?
Mit php kann man sowas schöner und einfacher machen.. noch eine MySQL-Datenbank dahinter und du kannst problemlos beliebige Einträge löschen, editieren, nach irgendwas suchen, editieren etc.. Statt dich mit cgi rumzuschlagen lieber mal ein php-tutorial durcharbeiten

Soweit ich dein Script oben verstehe müsst es irgendwo in der datei eine Zeile geben, die --newentries[KATEGORIE]-- lautet, verschieb die mal dahin wo neue einträge erscheinen sollen, also ans dateiende, danach die zeilen in der for-schleife so umdrehen:

Code:

	if ($line =~ "--newentries$category--")
	{
		print FREELINKS "\n<font face=arial size=2> &nbsp; - <a href=$url target=new>$title</a></font><br>\n";
	}
	print FREELINKS "$line";

jojodangle · 12.09.2006, 20:28

Hi BenniG,

das "--newentries....--" stand schon richtig am Ende der jeweiligen Kategorie (ein verschieben an den jeweiligen Anfang setzte die Einträge prompt in die vorherige Kategorie)

Aber Dein Tip mit dem Umstellen der zeilen im cgi brachte den gewünschten Erfolg.
Danke!!!!

was php anbelangt - wie heisst es doch? der Wille will schon - doch die Zeit, sie fehlt (oder so ähnlich).
Also nochmals vielen Dank, auch und besonders dafür, dass Du es nicht einfach bei einem "netten" Rat wie "Beschäftige dich gefälligst mit PHP, da haste mehr von" belassen hast (von solchen Konsorten gibt es mehr, als man glaubt). Also ein dickes Lob an Dich.

BenniG. · 14.09.2006, 08:28

*sichübereineBewertung(Waage-Symbol)freuenwürde* *gg*

Eigentlich wollt ichs bei meinem php-rat belassen, aber dann hab ich doch mal versucht das perl-script zu verstehen

Zum Glück hats geklappt.. ist ca. das 5perl-script dass ich sehe