| Program |
Description |
Output |
| sync_server.pl |
I was in charge of identical pairs of sytsems tha tneeded files synchronized across them in case of failure. To do this, I wrote a quick little perl program to copy the files and execute both local and remote commands when the files had been changed. |
Configuration File |
| relay_denied.pl |
One of the tasks I had was to monitor our secure email relay. I would constantly see messages being denied because they weren't in the ACL. We were controlling access via /etc/mail/access. So, I wrote a little perl program to parse the weekly maillog once it had been rotated. |
Sample Output |
| guimon.pl |
A graphical system monitor written with Perl/Tk and the GTop module off of CPAN. This utility just givs an overview of your system. Here is a sample screenshot It displays such items as CPU usage, memory and swap usage, network interface statistics. It also maintains historical data via histograms so you can look back and see past performance. Also, you can get capacity data on file systems. Just a quick and dirty program I threw together to learn Tk. |
Screenshot |
| check_security.pl |
This program was written to perform some basic security audit functions for Solaris, AIX, HP-UX and Linux. The requirement was for a single program to be able to verify the same security checks on any platform at the site. It is in no means a complete check, but it will verify some basic security risks. |
N/A |
| ckls.pl |
Some days my eyes don't want to parse an ls -l listing very easily. I wrote this command to comma delimit the size of the files in a long directory listing. |
ckls.txt |
| tabl2xls.pl |
This utility will take a flat file, such as an extract from the HP MeasureWare database and convert it to an Excel Spreadsheet. It requires the perl module Spreadsheet::WriteExcel in order to function. I pull lots of statistical data and use this one almost daily. |
N/A |
| Program |
Description |
Output |
| check_security.pl |
This program was written to perform some basic security audit functions for Solaris, AIX, HP-UX and Linux. The requirement was for a single program to be able to verify the same security checks on any platform at the site. It is in no means a complete check, but it will verify some basic security risks. |
N/A |
| MAILFILE |
This program takes an email address as the first argument and then a list of files(including wildcards) as additional arguments. It will then uuencode and email the files to the address specified so they show up as attachments in the email. Note that this was a very quick and dirty. While useful, I'm sure there are better ways to handle this. |
N/A |
| spec |
This utility is a quick and dirty ripoff of the CMS spec command. It isn't near as functional, but provides some quick and easy column formatting for those making the transition from the CMS world to UNIX. |
N/A |
| rmi |
I finally put this command into a script because I would occasionally forget its syntax. This command takes an inode number and removes the file associated with that number. This is for deleting files with bogus filenames. |
N/A |
| killem |
This command will scan the process list for any matches of the specified parameter and will kill any processes that contain the text. For example, "killem xterm" will kill any xterm session on the system. |
N/A |
| Program |
Description |
Output |
| WHO.EXEC |
This exec will display a listing of both the connected and disconnected service machines and CMS users. |
Screenshot |
| LOOKTERM.EXEC |
A few years back, we thought we had a security breach on our mainframe. Turns out we didn't, but this utility came in useful for tracking down who was logged in to each machine. The LOOKTERM utility will scan for a specific guest machine and device number(optional) and print the IP Address of the person logged on. Then, you can look up the IP address and track down the user. |
Screenshot |
| QT.EXEC |
When our physical tape drive count grew larger than the CA-DYNAM/T tape status screen, our operations staff wanted a way to quickly display the status of all tape drives and Bustech Datablaster devices. To accommodate them, the QT exec was put together. It would allow them to display all tape devices. Also, they could specify a machine name and display all of the tape drives assigned to a specific machine. |
Screenshot |
| CKDSKUSE.EXEC |
This exec was created to automatically monitor some of the critical service machine minidisks in our z/VM environment. We would have disks that would fill and prevent critical systems jobs from running. This utility is executed once per day via AUDITOR's NEWDAY process. It provides us email alert notification when a minidisk is approaching critical usage limits. |
Control File |
| INCACHE.EXEC |
This exec will look at the current CP QUERY NAMES output and strip out the addresses of the devices that are currently being cached by SDI's CacheMagic product. |
N/A |
| ZORK.VMARC |
This is a copy of the classic Zork game, only it works under CMS. I don't remember where I ran across this, but thought I would preserve it for posterities sake. |
N/A |
