#! /usr/local/bin/perl # written by: John Lewis Muir, May 14, 1998 # this script generates the list of patterns in the datebase # Note that this script requires the script "recordviewer.cgi" to # exist in the same directory as this. # set where the root of the Pattern Manager is relative to where # this script is # Note: this is all you should have to change if you move this. # everything else should work. $PMRoot = "PatternManager/"; require "${PMRoot}functions.pl"; print STDOUT "Content-type: text/html\n\n"; $! = ""; open(DATA, "<${PMRoot}data.db") || &Error("Can't open ${PMRoot}data.db.", $!); if (eof(DATA)) { print <

There are currently no patterns in the database.

EOP exit; } print STDOUT <

Pattern List

EOP while(!eof(DATA)) { # read in 10 lines at a time = 1 record $id = ; $patternName = ; $author = ; $notUsed = ; $notUsed = ; $notUsed = ; $notUsed = ; $notUsed = ; $notUsed = ; $date = ; chop($id); chop($patternName); chop($author); chop($date); guiFilter(*patternName); guiFilter(*author); # don't have to filter date since it is a controlled input ($year, $month, $day) = &getDateElements($date); print STDOUT "\n"; print STDOUT "\n"; print STDOUT "\n"; print STDOUT "\n"; print STDOUT "\n"; } print STDOUT < EOP exit;

Pattern Name	Author	Date
$patternName	$author	${monthsIntToWord{$month}}${dateDelimiter}${day}${dateDelimiter}${year}