ClueBot Monitoring Scripts - Wikimedia API compatibility

gistfile1.txt

+sub edit_page {
+    my $logger = shift;
+    my $wiki = shift;
+    my $title = shift;
+    my $text = shift;
+    my $summary = shift;
+
+    my $ref = $wiki->api({action => 'query', meta => 'tokens', type => 'csrf'});
+    if(!$ref) {
+        $logger->error("Could not retrieve CSRF token");
+        return 0;
+    }
+    my $csrftoken = $ref->{'query'}->{'tokens'}->{'csrftoken'};
+    return $wiki->api({action => 'edit', title => $title, text => $text, summary => $summary, token => $csrftoken});
+}

-                       if(!$wiki->edit({
-                               action => 'edit',
-                               title => 'User:' . $config->{'check_user'} . '/running',
-                               text => $message,
-                               summary => 'Bot not running',
-                       })) {
+                       if(!edit_page($logger, $wiki, 'User:' . $config->{'check_user'} . '/running', $message, 'Bot not running')) {