#!/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";
	}
}


##</code><code>##

491054  monkdiscuss             Free Nodelet Hack: No more scrolling to find the "comment on this node" link
442602  user            planetscape
454613  perlquestion            Help with a Regex
471590  perltutorial            Not Exactly a Hash Tutorial
475126  monkdiscuss             Free Nodelet Hack: Check or Clear all "Delete" Message Checkboxes in Your Message Inbox