#!/usr/bin/perl
################################################################################
#
# File:         $RCSfile: domains,v $
# Revision:	$Revision: 1.1 $
# Description:  Display entries from the list table where there is at least one
#		entry with a null pattern (nuke the domain) and yet still other
#		entries with the same domain name but having a pattern. We may
#		want to eliminate the other entries since we're nuking the
#		whole domain anyway.
# Author:       Andrew@DeFaria.com
# Created:      Sat Oct 20 23:28:19 MST 2007
# Modified:     $Date: 2013/06/12 14:05:47 $
# Language:     Perl
#
# (c) Copyright 2007, Andrew@DeFaria.com, all rights reserved.
#
################################################################################
use strict;
use warnings;

use FindBin;
use Getopt::Long;

use lib $FindBin::Bin, '/opt/clearscm/lib';

use MAPS;
use MAPSDB;

use Display;

sub Usage () {
  display <<END;
$FindBin::Script { -verbose } { -debug } { -usage }
END

  exit 1;
} # Usage

GetOptions (
  "verbose"	=> sub { set_verbose },
  "debug"	=> sub { set_debug },
  "usage"	=> sub { Usage },
) || Usage;

my $userid = $ENV{MAPS_USERNAME} ? $ENV{MAPS_USERNAME} : $ENV{USER};

# Main
SetContext $userid;

my $statement = "select domain from list where userid=\"$userid\" and type=\"null\" and pattern is null";

my $need_requence = 0;

foreach my $domain (sort (&MAPSDB::GetRows ($statement))) {
  verbose "Processing domain $domain";
  $statement = "select sequence from list where userid = \"$userid\" and domain = \"$domain\" and type = \"null\" and pattern is not null";

  foreach my $sequence (MAPSDB::GetRows $statement) {
    display "Deleting $domain ($sequence)";
    $need_requence = 1;
    DeleteList "null", $sequence;
  } # foreach
} # foreach

if ($need_requence) {
  verbose "Resequencing null list...";
  ResequenceList $userid, "null";
  verbose "done";
} # if

exit;