#!/usr/local/bin/perl -- -*- C -*- # $Header: /cys/people/brenner/http/docs/web/RCS/simple-form.cgi,v 1.2 1995/04/07 21:36:57 brenner Exp $ # Copyright (C) 1994 Steven E. Brenner # This is a small demonstration script to demonstrate the use of # the cgi-lib.pl library require "cgi-lib.pl"; MAIN: { # Read in all the variables set by the form &ReadParse(*input); open(ratefile, "ratefile") || die "cant open file"; $cnt=0; $none=0; while(){ chop; ($names[$cnt],$convert[$cnt]) =split(/:/); $cnt++; } $numcurrencies=$cnt; for($i = 0; $i < $numcurrencies; $i++){ if($input{'currency'} eq $names[$i]){ $constant=$i; $none=1; $checked[$constant]="checked"; } } if($none == 0){ $checked[$i]=" "; $constant=0; $input{'currency'}="dollar"; $input{'amount'}=1.00; $checked[$constant]="checked"; } $currency[0]=($convert[0]/$convert[$constant])*$input{'amount'}; $printout[0]="$input{'amount'} $input{'currency'} = $currency[0] $names[0]
"; for($i = 0; $i < $numcurrencies; $i++){ $radio[$i]=" $names[$i]
"; if($i != $constant) { $currency[$i]=($currency[0]*$convert[$i]); $printout[$i]="$input{'amount'} $input{'currency'} = $currency[$i] $names[$i]
"; } else { $printout[$i]=""; } } } print "Content-type: text/html\n\n"; print <<"ending_print_tag"; exchange rates

Calcuate foriegn exchange rates

which base curency
@radio

enter amount no more the 7 numbers

current values based on input

@printout
back home
ending_print_tag