head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	96.09.29.11.12.02;	author alexis;	state Exp;
branches;
next	;


desc
@	TEMP FILE REGISTRATION SERVICES
@


1.1
log
@Initial revision
@
text
@($modvers{'tmpreg.pl'} = '$Id$') =~ s/^.*,v (\S+) .*$/$1/;

sub sighandler
{
    ($sigactions{'IGNORE'}) && return;

    foreach $key (keys(%sigactions)) {
        unlink($key);
    }

    exit 3;
}

sub tmpreg
{
    local($file);

    foreach $file (@@_) {
        $sigactions{$file} = 1;
    }
}

sub tmpdereg
{
    local($file);

    foreach $file (@@_) {
        delete $sigactions{$file};
    }
}

1;
@