Crypt::License::Notice 2.04

Crypt::License::Notice is a Perl extension for License.

Crypt::License::Notice->check($input_data_ptr)

      $input_hash_ptr = {   # optional parameters
            'ACTION'        => 'default /usr/lib/sendmail -t -oi',
            'TMPDIR'        => 'default /tmp',
            'INTERVALS'     => 'default 5d,30d,60d',
            'TO'            => 'default license@bizsysetms.com',
      # mandatory parameters
            'path'          => 'path to LICENSE',
            'expires'       => 'seconds until expiration',
      };

The check routine will send a notice message at the requested or default intervals IF the temporary directory exists and is writeable AND if the expires parameter exists and is positive AND the LICENSE file exists and is readable. Substitutes can be made for the default values for ACTION, TMPDIR, TO, and INTERVALS. Valid suffixes for INTERVALS are w=weeks, d=days, h=hours, m=minutes, s=seconds (default if no suffix).

check returns an empty array on any error or if expires does not exist. It returns an array of the INTERVALS values in in seconds, highest to lowest, if a check is performed.

Note that the Notice.pm hash can be combined with the hash used for the License.pm module and that they share common variables path and expires. All other License.pm hash keys are lower while Notice.pm hash keys are upper case.

Requirements:

· Perl