Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Suggestion for User Search Page

by liverpole (Monsignor)
on Sep 22, 2005 at 13:39 UTC ( [id://494107]=monkdiscuss: print w/replies, xml ) Need Help??

I have a suggestion for the "Perl Monks User Search" page:  How about having a checkbutton for "show only original articles"?

Alternatively (or additionally), a "highlight original articles" checkbutton could be useful.  I wouldn't even mind if it were the default; it would be nice to quickly be able to spot which writeups a particular monk had personally created, as opposed to merely responded to.

Replies are listed 'Best First'.
Re: Suggestion for User Search Page
by kutsu (Priest) on Sep 22, 2005 at 13:43 UTC

    Super Search then "Match authors" then "don't include replies"

    "Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

      Thanks -- I hadn't seen that before.  I still wonder -- would there be any value in allowing a highlighting feature?

        Actually, I thought by highlight you meant root nodes which is why I suggested Super Search (if you just want all nodes create by a user try Perl Monks User Search), if it's something else I don't know what your talking about as I've "personally created" everything I've written on PM.

        "Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

Re: Suggestion for User Search Page
by planetscape (Chancellor) on Sep 23, 2005 at 03:40 UTC

    OK, I realize this is not exactly what you asked for.

    However, davido has written a very cool module called PerlMonks::Mechanized (beta), which IMHO, deserves more "press". bobf has extended it with a method called user_nodes. The code below assumes that you have added bobf's user_nodes method to davido's module, and will print the node ID, document type, and node title for each "original" user node (in the sense of "original" which you have elucidated in your OP and its replies).

    Please be kind with any comments on my code; I am still learning. :-)

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

    Sample Output:

    491054 monkdiscuss Free Nodelet Hack: No more scrolling t +o 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
    planetscape

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: monkdiscuss [id://494107]
Approved by Limbic~Region
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (2)
As of 2024-04-26 07:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found