Form som indsætter oplysninger i tabel

Prøv at kigge på http://www.cgi-respurces.com efter et sådant script. Et let tilpasset gæstebogsscript skulle nok kunne klare det.

Ups. Det var http://www.cgi-resources.com ikke "respurces" :-)

Du har Perl på din server, ik' os' ?

JO selvfølgelig ! Jeg har plads ved Wiktor, hvis du kender dem!

Hov, ingen der har svaret. Det må vi have gjort noget ved!!!

Ja TAKKER!

Jeg har lavet et par scripts, men vil lige have dem afprøvet
(til 200 points skal det jo virke...)

Meeen, det sted hvor jeg kan køre Perl kan jeg ikke "få lov"
til at skrive på filer. Øv. Nå, jeg ringer til dem i løvet af ugen.

(Eller osse får du bare scriptsene)

Bare giv mig scriptsene så prøver jeg dem bare.

Ja, ok, det er nok det hurtigste. Der er 3 filer. Perl-programmet har
2 funktioner. Kaldes det fra formen tilføjer det til tabellen. Kaldes
det fra alm. URL viser det indholdet af tabellen.

God førnøjelse.

--- nummer 1: indtastningsform ----

<HTML>
<HEAD>
<TITLE>Indtastningsform</TITLE>
<BODY>
<FORM ACTION="/cgi-bin/opdater.pl" METHOD="post">
Navn: <INPUT TYPE="text" NAME="vnavn"><BR>
Adresse: <INPUT TYPE="text" NAME="vadresse"><BR>
<INPUT TYPE="submit">
<INPUT TYPE="hidden" NAME="vhidden" VALUE="ok">
</FORM>
</BODY>
</HTML>

--- nummer 2: Perl-programmet: opdater.pl. Bemærk, filen table.dat skal ligge
et sted hvor du må skrive på den  ---

use CGI;

$query = CGI::new();
print $query->header();


if ($query->param("vhidden") eq "ok") {

  if (open(F,">>table.dat")) {

    print F "<TR>";
    print F "<TD>".$query->param("vnavn")."</TD>";
    print F "<TD>".$query->param("vadresse")."</TD>";
    print F "</TR>\n";

    close(F);

  } else {

  print "Ku 'ik åbnes!!!!";
  }
}


print "<HTML><HEAD><TITLE>Folk p&aring; listen</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H1>Folk p&aring; listen</H1>\n";
print "<TABLE>\n";


open(F,"table.dat");
while ($x=<F>) { print $x; }
close(F);

print "</TABLE>\n";
print "</BODY></HTML>\n";

---- nummer 3: et eksempel på table.dat ---

<TR> <TD>Hans Hansen</TD> <TD>Hansensvej 1</TD> </TR>

Kunne du ikke lave det sådan at det passer ind på min side med 5 variabler og en fast tabel som de 5 variabler bliver sat ind i ?

Øh, jo, hvis jeg forstår dig rigtigt, så er det nemt nok.
Du skal tage linierne:

      print F "<TD>".$query->param("vnavn")."</TD>";
      print F "<TD>".$query->param("vadresse")."</TD>";

og udvide til 5 linier i stedet for - brug de navne, der står i din form.

Og hvis du vil have fast bredde på kan du skrive:

      print F "<TD WIDTH=50>".$query->param("vnavn")."</TD>";

for en bredde på 50 pixels. Du skal så gøre det i hver af de 5 linier,
og du kan følgelig have forskellig bredde på søjlerne.

MAnge takker for svaret, jeg er på efterksole nu så jeg kan ikke chekke om det virker, men det gør det nok. MANGE TAK!