#!/usr/bin/perl

use DB_File; 
require 'paresdata.pl';
require 'dbaccess.pl';

$dbmfile = "database/riverweb.dbm";

$datatype = '4';
			
$linkid = 'n';
			
$formdata = "Directions on where to go next";

$formkeys[0] = "topstation=1";
$formkeys[1] = "topindicator=nitrogen";
$formkeys[2] = "bmptop=0";
$formkeys[3] = "bottomstation=1";
$formkeys[4] = "bottomindicator=precip";
$formkeys[5] = "bmpbottom=0";

$call{user} = "keny";

&openDBhash;
&incrementDBcount;
&assembleString;			# parsedata.pl
&addEntryToDatabase;
&closeDBhash;

print "oui, Oui Mon seiour\n";