/wiki/get_last.wiki

http://perlwikipedia.googlecode.com/ · Unknown · 9 lines · 7 code · 2 blank · 0 comment · 0 complexity · e45dd7ed520f21013242caab4a927a2e MD5 · raw file 

    

  1. ==get_last($page, $user)==
    2. 

  2. 

  3. Returns the revid of the last revision to $page not made by $user. undef is returned if no result was found, as would be the case if the page is deleted.
    4. 

  4. 

  5. {{{
    6. 

  6. my $revid = $bot->get_last("User:Mike.lifeguard/sandbox", "Mike.lifeguard");
    7. 

  7. print "Reverting to $revid\n" if defined($revid);
    8. 

  8. $bot->revert('User:Mike.lifeguard', $revid, 'rvv');
    9. 

  9. }}}
    10.