view release on metacpan or  search on metacpan

MailBot/UI/Spool.pm  view on Meta::CPAN

    {
	my $spoolNew = "$spool.new";
	open(SPOOL_NEW,">$spoolNew") or die "could not create $spoolNew: $!";
	print SPOOL_NEW $line;
	while ($line = <SPOOL>)
	{
	    print SPOOL_NEW $line;
	}
	close(SPOOL_NEW) or die "could not write to $spoolNew: $!";
	# chmod($mode,$spoolNew) or die "could not chmod $spoolNew: $!";
	# chown($uid,$gid,$spoolNew) or die "could not chown $spoolNew: $!";
	rename($spoolNew,$spool) or
	    die "could not rename $spool to $spoolNew: $!";
    }
    else
    {
	unlink($spool) or die "could not delete $spool: $!";
    }

    my $message = new Mail::Internet(@message);