This perl script simply checks the date in certificates and determines if we are within 1 month of the certificate expiring. If the certificate is about to exire then the people specified in $USERS are sent an email. This script is from the days before we had tools to automatically request and install certificates.

This perl script emulates the Pr1mos command ld, list directory

This perl script determines if today is the last day of the month and if so executes some SQL code to take a month end snapshot and load Splat (Sorry I cannot remember what Splat is/was).

This Perl script reads an XML file generated by a photo image competition site. The XML file is generated for Excel to read. The Perl script reads the file, extracts the competition category (e.g. Nature), the image maker's name, and any awards won by this image. Each awad has a point value associated with it, plus users get one point for each image submitted. The script generates the total points awarded to each image maker over the period covered by the files read. Finally, the script generates an Excel file with separate worksheets for each category and sorts the uses' within their competition level.

Sample imput file 2017-02_Nature.xls

A perl script to emulate the Primos interface. Primos was the operating system for the Prime Computer Systems 50 series computers. I am not emulating all of the Primos interface, what I am really interested in showing is the abbreviation functionality of Primos. Under Primos there are thee types of command line abbreviations; commands, arguments and anywhere. Command abbreviations would only expand if found in the command portion of a command line. Argument abbreviations would only expand if found in the argument portion of a command lines. While anywhere abbreviations would be expanded in both the command and argument portions of a command line.

A perl script to show handling Traps.

A perl "library" to manipulate WAV files. Really quite crude, but it reads, writes and updates labels and text. It can compare two wav files and create a new wav file from an existing file.

A Perl library for manipulating WAV files. This library uses Perl objects, but it has limited functionality. Currently this library can only read labels and text. No writing, no updating and no comparison.