http://www.perlmonks.org?node_id=171949


in reply to I want site documentation updates and I want them now.

I hope you'll become a pmdev soon.

The Everything Bible

Here is some code that's sure to help you write this up yourself (since you already wrote initial code and such, and what vroom said)

perlfaq nodes
        521..820
        838
perlman nodes
        376..431
        780
        781
        782
        797
        798
        821
        822
        826
        828
        1279..1314
type perlman is 116 perlman

type perlfaq is 834 perlfaq nodetype you can find info on the functions at http://www.everydevel.com/ (and the bible coverst most stuff)

Anyways, all you should need to pull this off is knowledge of the following two methods.

sub selectNodeWhere and sqlUpdate are both in Everything::NodeBase my $totalRows; my $type =; my $limit; my $offset; my $ref = selectNodeWhere( {type_nodetype => $type}, undef, undef, $limit, $offset, \$totalRows); sub sqlUpdate { my($this, $table, $data, $where) = @_;

 
______crazyinsomniac_____________________________
Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"