++ed by:

1 PAUSE user

Michael Robinton


  Crypt::License::Notice -- perl extension for License


  require Crypt::License::Notice;



  $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 b<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.



  Copyright 2002 Michael Robinton, BizSystems.

This module is free software; you can redistribute it and/or modify it under the terms of either:

  a) the GNU General Public License as published by the Free Software
  Foundation; either version 1, or (at your option) any later version,


  b) the "Artistic License" which comes with this module.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details.

You should have received a copy of the Artistic License with this module, in the file ARTISTIC. If not, I'll be glad to provide one.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA


Michael Robinton, BizSystems <michael@bizsystems.com>