Ik ben bezig op het moment met een vriendin van me helpen met een script voor een huiswerk opdracht. We moeten een frame pagina bouwen en daar een invul formulier in bouwen. Nu is dit gelukt.
Nu hebben we van de docent het CGI script gekregen, maar we krijgen het niet werkende. Ik draai een windows xp prof, SP2 met IIS 5 met PHP. (dat laatste kan verkeerd opgezet zijn... heb er weinig verstand van)
hieronder het script van de docent:
#!/usr/bin/perl
#
# naam file:
# formulier.pl
# functie:
# retourneert een samenvatting van ingevoerde gegevens van
# het PLEK-invoerformulier
# Opdracht 4, HTML practicum MIK
#
require("CGI.pm");
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
&ReadParse;
### GET THE CURRENT DATE/TIME
(undef,$min,$hour,$mday,$mon,$year,$wday) =localtime(time);
# arrays for months and days by name
@months = qw(January February March April May June July August
September October November December);
@days = qw(Sun Mon Tue Wed Thu Fri Sat);
#convert year
$year = $year + 1900;
# pad with 0s
$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
#construct the final date string for later use
$date_str = "$days[$wday], $months[$mon] $mday, $year at $hour:$min $ampm";
print header;
#
########### hier wordt de HTML pagina samengesteld #######################
## let op relatie met je eigen <FORM ...> ########
#
print <<"end_html";
<HTML>
<HEAD>
<TITLE>PLEK invulformulier</TITLE>
</HEAD>
<BODY bgcolor=#EEEEEE>
<CENTER><H1>Samenvatting van het PLEK-invulformulier</H1></CENTER>
<H4>Datum vandaag: $date_str</H4>
<H4>Bedankt voor uw gegevens over patiënt $in{'voornaam'} $in{'achternaam'}</H4>
<H2> </H2>
<TABLE WIDTH="600" HEIGHT="40" border=1 cellpadding=4 cellspacing=1>
<TR>
<TD align="left" colspan="2"><H2>Patiëntgegevens</H2></TD>
</TR>
<TR>
<TD align="right"><B>Patiëntnummer:</B></TD>
<TD>$in{'patientnummer'}</TD>
<TR>
<TD align="right"><B>geslacht</B></TD>
<TD>$in{'geslacht'}</TD>
</TR>
<TR>
<TD align="right"><B>Achternaam</B></TD>
<TD>$in{'achternaam'}</TD>
</TR>
<TR>
<TD align="right"><B>Voornaam</B></TD>
<TD>$in{'voornaam'}</TD>
</TR>
<TR>
<TD align="right"><B>Voorletters</B></TD>
<TD>$in{'voorletters'}</TD>
</TR>
<TR>
<TD align="right"><B>Geboortedatum</B></TD>
<TD>$in{'geboortedag'}-$in{'geboortemaand'}-$in{'geboortejaar'}</TD>
</TR>
<!--
<INPUT TYPE="text" NAME="geboortedag" SIZE="2" VALUE="DD">
<INPUT TYPE="text" NAME="geboortemaand" SIZE="2" VALUE="MM">
<INPUT TYPE="text" NAME="geboortejaar" SIZE="2" VALUE="JJ"
-->
<TR>
<TD align="right"><B>Adres</B></TD>
<TD>$in{'adres'}</TD>
</TR>
<TD align="right"><B>Woonplaats</B></TD>
<TD>$in{'woonplaats'}</TD>
</TR>
<TD align="right"><B>Postcode</B></TD>
<TD>$in{'postcode'}</TD>
</TR>
<TR>
<TD align="right"><B>Familiaire aandoeningen</B></TD>
<TD>$in{'familiaire_aandoeningen'}</TD>
</TR>
<TR>
<TD colspan="2" align="left"><H2>Tumorgegevens</H2></TD>
</TR>
<TR>
<TD align="right"><B>Diagnose</B></TD>
<TD>$in{'diagnose'}</TD>
</TR>
<TR>
<TD align="right"><B>Tumorsoort</TD>
<TD>$in{'tumorsoort'}</TD>
</TR>
<TR>
<TD align="right"><B>Tumorlocatie</B></TD>
<TD>$in{'tumorlocatie'}</TD>
</TR>
</TABLE>
</BODY>
</HTML>
end_html
exit;
Nu is dit het hele script, hoe moet ik dit nu netjes aansturen zodat ik het juiste resultaat krijg? Moet ik mijn IIS aanpassen? waar ben ik de mist in gegaan.
Nu hebben we van de docent het CGI script gekregen, maar we krijgen het niet werkende. Ik draai een windows xp prof, SP2 met IIS 5 met PHP. (dat laatste kan verkeerd opgezet zijn... heb er weinig verstand van)
hieronder het script van de docent:
#!/usr/bin/perl
#
# naam file:
# formulier.pl
# functie:
# retourneert een samenvatting van ingevoerde gegevens van
# het PLEK-invoerformulier
# Opdracht 4, HTML practicum MIK
#
require("CGI.pm");
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
&ReadParse;
### GET THE CURRENT DATE/TIME
(undef,$min,$hour,$mday,$mon,$year,$wday) =localtime(time);
# arrays for months and days by name
@months = qw(January February March April May June July August
September October November December);
@days = qw(Sun Mon Tue Wed Thu Fri Sat);
#convert year
$year = $year + 1900;
# pad with 0s
$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
#construct the final date string for later use
$date_str = "$days[$wday], $months[$mon] $mday, $year at $hour:$min $ampm";
print header;
#
########### hier wordt de HTML pagina samengesteld #######################
## let op relatie met je eigen <FORM ...> ########
#
print <<"end_html";
<HTML>
<HEAD>
<TITLE>PLEK invulformulier</TITLE>
</HEAD>
<BODY bgcolor=#EEEEEE>
<CENTER><H1>Samenvatting van het PLEK-invulformulier</H1></CENTER>
<H4>Datum vandaag: $date_str</H4>
<H4>Bedankt voor uw gegevens over patiënt $in{'voornaam'} $in{'achternaam'}</H4>
<H2> </H2>
<TABLE WIDTH="600" HEIGHT="40" border=1 cellpadding=4 cellspacing=1>
<TR>
<TD align="left" colspan="2"><H2>Patiëntgegevens</H2></TD>
</TR>
<TR>
<TD align="right"><B>Patiëntnummer:</B></TD>
<TD>$in{'patientnummer'}</TD>
<TR>
<TD align="right"><B>geslacht</B></TD>
<TD>$in{'geslacht'}</TD>
</TR>
<TR>
<TD align="right"><B>Achternaam</B></TD>
<TD>$in{'achternaam'}</TD>
</TR>
<TR>
<TD align="right"><B>Voornaam</B></TD>
<TD>$in{'voornaam'}</TD>
</TR>
<TR>
<TD align="right"><B>Voorletters</B></TD>
<TD>$in{'voorletters'}</TD>
</TR>
<TR>
<TD align="right"><B>Geboortedatum</B></TD>
<TD>$in{'geboortedag'}-$in{'geboortemaand'}-$in{'geboortejaar'}</TD>
</TR>
<!--
<INPUT TYPE="text" NAME="geboortedag" SIZE="2" VALUE="DD">
<INPUT TYPE="text" NAME="geboortemaand" SIZE="2" VALUE="MM">
<INPUT TYPE="text" NAME="geboortejaar" SIZE="2" VALUE="JJ"
-->
<TR>
<TD align="right"><B>Adres</B></TD>
<TD>$in{'adres'}</TD>
</TR>
<TD align="right"><B>Woonplaats</B></TD>
<TD>$in{'woonplaats'}</TD>
</TR>
<TD align="right"><B>Postcode</B></TD>
<TD>$in{'postcode'}</TD>
</TR>
<TR>
<TD align="right"><B>Familiaire aandoeningen</B></TD>
<TD>$in{'familiaire_aandoeningen'}</TD>
</TR>
<TR>
<TD colspan="2" align="left"><H2>Tumorgegevens</H2></TD>
</TR>
<TR>
<TD align="right"><B>Diagnose</B></TD>
<TD>$in{'diagnose'}</TD>
</TR>
<TR>
<TD align="right"><B>Tumorsoort</TD>
<TD>$in{'tumorsoort'}</TD>
</TR>
<TR>
<TD align="right"><B>Tumorlocatie</B></TD>
<TD>$in{'tumorlocatie'}</TD>
</TR>
</TABLE>
</BODY>
</HTML>
end_html
exit;
Nu is dit het hele script, hoe moet ik dit nu netjes aansturen zodat ik het juiste resultaat krijg? Moet ik mijn IIS aanpassen? waar ben ik de mist in gegaan.