@docs~Here we specify a couple of directives, and load a few modules. ~~This script is for Win32 machines, so we're assuming that you are going to use the perl distribution from http://www.ActiveState.com.~~You may need to install the SMTP, AdminMisc and NetAdmin modules. See the subsection "Installing modules necessary for running this script".~~@code~~<< Docs: Installing modules necessary for running this script >>~use strict;   # variables must be declared ~use English;  # use English names for Perl special variables (like '$_')~~use Net::SMTP;         # this module allows you to send email~use Win32::AdminMisc;  # this module allows you get drive space and other info~use MiscUtil;          # a small package containing miscellaneous functions~use FileHandle;        # this module allows you to use object-oriented syntax for file functions~

@docs~Here we read the ini file. The ini file contains info needed for sending an email (like smtp server) and a list of email addresses~for people we will notify about drive space on this machine.~~@code~# declare a list of the variable names that will be read in from the ini file~use vars qw($server $ini_file $log_file $smtp_server $smtp_user $reply_to $domain );~~<< Get the filename of the ini file and put in the $ini_file variable >>~ ~# now we have the filename, open the file~my $fh;~($fh = new FileHandle $ini_file) or die "can't open $ini_file"; ~~no strict 'refs'; #because we are pulling vars directly from ini file~~#go thru the ini file processing one line at a time.~my %notify_flags;~while ($_ = $fh->getline){~  ~  chomp;~  ~  #skip lines with no letters~  unless (/\w/) {next}~  #skip comments~  next if (/^#/);~~  #split the line into the variable name and its value~  my ($name, $value) = split (/: /);~  $$name = &trim($value);~~  #keep a hash of addresses to send notification email to~  if ($name eq 'notify') {~    $notify_flags{$$name} = '1';~  }~~}~

@docs~~This part of the program gets a list of drives, and~then gets the free space for each drive.~~@code~~my $hostname;~$hostname = Win32::AdminMisc::GetComputerName;~~my (@Drives, $Drive, $Total, $Free);~ @Drives = Win32::AdminMisc::GetDrives(DRIVE_FIXED);~my ($msg, $Time);~~$msg .= "\nDrive info for $hostname ";~$msg .= &english_date . "  " . &english_time . "\n\n";~~foreach $Drive (sort(@Drives)){~    ($Total, $Free) = Win32::AdminMisc::GetDriveSpace($Drive);~    $Total = commify($Total);~    $Free = commify($Free);~    $msg .= "Drive $Drive $Total bytes with $Free bytes available.\n";~}~print "$msg\n";~~exit;

@code~~my $name;~foreach $name (keys %notify_flags) {~   &notify($name, $msg)~}~

@code~~<< Notify function - for sending an email message >>~

@code~~package MiscUtil;~~use strict;~use Time::localtime;~use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);~~require Exporter;~~ @ISA = qw(Exporter AutoLoader);~# Items to export into callers namespace by default. Note: do not export~# names by default without a very good reason. Use EXPORT_OK instead.~# Do not simply export all your public functions/methods/constants.~ @EXPORT = qw(~  grab_file ~  trim~  join_hashes~  english_date~  english_time~  total_size~  commify~);~$VERSION = '0.03';~~# Preloaded methods go here.~~<< English Date >>~<< English Time >>~<< Get total size of a list of files >>~<< Load a text file into a scalar variable >>~<< Strip spaces off beginning and end of a string variable >>~<< Join together two hashes >>~<< Add commas to a number >>~~# Autoload methods go after =cut, and are processed by the autosplit program.~~1;~__END__~~=head1 NAME~~misc - Perl extension for misc utilities, used by JSL~~=head1 SYNOPSIS~~  use misc;~~=head1 DESCRIPTION~~Misc utilities~~=head1 AUTHOR~~Joe Orr JSL http://www.jserv.com~~=head1 SEE ALSO~~perl(1).~~=cut~