#!/usr/bin/perl -w
# GetUserRootNodes.pl
# usage: perl GetUserRootNodes.pl username password 

use strict;
use warnings;

use PerlMonks::Mechanized;

my $user = shift(@ARGV);
my $passwd = shift(@ARGV);

my $pm_obj = PerlMonks::Mechanized->new($user,$passwd);

my $data = $pm_obj->user_nodes;
my $nodeids = $data->{NODE};
while (my($nodeid)=each(%$nodeids)) {
	my $info = $pm_obj->node_info( $nodeid );
	if (not (exists( $info->[0]{root_node} ))) {
		print $info->[0]{node_id} . "\t";
		print $info->[0]{nodetype} . "\t\t";
		print $info->[0]{content} . "\n";
	}
}