#!/usr/bin/env perl -w ### ### Node batch touch ### use WWW::Mechanize; my $user = "admin"; my $password = "testing"; my $base_url = "http://example.com/"; my $start_nid = 1; my $end_nid = 100; my $browser = WWW::Mechanize->new( autocheck => 1); # Log into drupal. $browser->get($base_url ."user"); $browser->form_id('user-login') or die "Couldn't find user login form!"; $browser->field('name', $user); $browser->field('pass', $password); $browser->click_button( value => 'Log in'); # Lop through nids. for ($nid = $start_nid; $nid <= $end_nid; $nid++) { $browser->get($base_url ."node/$nid/edit"); $browser->form_id('node-form') or die "Couldn't find node form!"; $browser->click_button( value => 'Save'); # Change to 'Submit' for D5. }