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 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) = @_;
[download]

 

______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;"