sub DumpOldAds
    { my ($twig,$nisNISJob)=@_;

        my $date = UnixDate("today", "%Y-%m-%d".'T00:00:00');
        chomp $date;
        
        my $adate = $nisNISJob->findvalue('.//JobActiveDate');

        print "\n$adate -|- $date\n";

        if( $adate  ne  $date) { $nisNISJob->delete; }
        else { print $nisNISJob; };
        
            }