#!/usr/local/bin/perl -w # do_quick_status_update.pl # Update the status (level 2) entry in the inventory given the necessary # parameters via the Web form. # Robert C. Groman # February 4, 1998 # Assumptions: # Only updates to existing projects in the inventory are allowed. $version = "V1.00 2/4/1998"; $debug = "no"; #set to no if you want this to update the #real thing. $comment_break = 50; print STDOUT <Perform Quick Status Update

Perform Quick Status Update

HEADING if ( $debug eq "no" ) { $datadir = "/data/rgroman/Inventory/"; $dataobj = "/globec/gb/inventory"; $bindir = "/data/rgroman/Inventory/bin"; $scriptsdir = "/data/rgroman/Inventory/scripts"; } elsif ( $debug eq "yes" ) { $datadir = "/data/rgroman/Inventory/debug"; $dataobj = "/globec/gb/inventory_test"; $bindir = "/data/rgroman/Inventory/bin/debug"; $scriptsdir = "/data/rgroman/Inventory/scripts/debug"; print STDOUT ("

DEBUG VERSION ONLY

\n"); } else { print STDOUT <Perform Quick Update of Inventory Status

I am sorry but the degub flag ($debug) is not set correctly. I cannot continue. Contact the DMO for help.

TROUBLE exit 1; } print STDOUT <

No action taken - this routine has not been implemented yet.

INTRO print STDOUT ("

Last modified: $version\n"); print STDOUT ("\n \n \n");