#!/usr/bin/perl -w
# $Id: session.pl 17 2009-03-02 01:58:09Z jabra $ 
#  
# get_all_nodes example script
#
# Example: 
# 
#  $ ./get_all_nodes.pl yahoo-google.xml 
#  yahoo.com
#  google.com
#
#
use strict;
use Fierce::Parser;
my $fp = new Fierce::Parser;

if (defined($ARGV[0])){
    my $file = $ARGV[0];
    my $parser = $fp->parse_file($file);
    my @nodes    = $parser->get_all_nodes();

    foreach my $n (@nodes){
        print $n->domain . "\n";
    }
}
else {
    print "Usage: $0 [fierce-xml]\n";
}