sub AFXMLtoEM {
    print "Slurping $AFXML....";
    my $TWIG = new XML::Twig ( twig_handlers => {'appDeploymentFile' => \&parseURL} );
    #my $TWIG = new XML::Twig ( twig_handlers => {'appDeploymentFile/application' => \&parseURL} );
    $TWIG -> parsefile ($AFXML) or die "Can't open $AFXML\n" ;
    $TWIG->flush;
    # Now we want to change every value from the XML name to an EM instance identifier
    #print Dumper(\%AFURLS); exit 1;
    while ((my $K, my $ITEM) =  each %AFURLS) {
        my ($G1,$G2,$APP,$INST) = split /\./,$ITEM,4;
        unless ($APP eq "") {
            $ITEM = "prd:" . $APP . ":web:" . $INST;
        }  #Cheesy kludge - fiox when Durai confirms 
        $AFURLS{$K} = $ITEM;
    }
    print scalar keys %AFURLS, " records slurped in.\n";
}

sub parseURL {
    my ($T, $ADEP) = @_;
    my $NAME = $ADEP->att('name');
    for my $URLI ($ADEP->first_child('application')->children('urlInfo')) {
    #for my $URLI ($ADEP->children('urlInfo')) {
# leading slash added for matching SM filters
        $AFURLS{ "/" . $URLI->first_child('url')->text() } = $NAME;
    }
    #$ADEP->flush;
}