#!/usr/bin/perl # -*- Mode: cperl; mode: folding; -*- ############################################################################## # Nigel Hamilton # # Copyright Nigel Hamilton 2004 # All Rights Reserved # # Author: Nigel Hamilton # Filename: addtask.pl # Description: Add a new task to the goo database # # Date Change # ----------------------------------------------------------------------------- # ############################################################################### use strict; use lib "$ENV{GOOBASE}/shared/bin"; use CGIScript; use GooDatabase; my $cgi = CGIScript->new(); my $query = GooDatabase::prepareSQL(<{title}); GooDatabase::bindParam($query, 2, $cgi->{description}); GooDatabase::bindParam($query, 3, $cgi->{requestedby}); GooDatabase::bindParam($query, 4, $cgi->{importance}); GooDatabase::bindParam($query, 5, $cgi->{company}); # what is the pain associated with this task??? GooDatabase::execute($query); print <

New Task Added

$cgi->{title}

Enter another task? OUT