Here is a quick Perl Script we have created to automatically reboot a Virgin Superhub 1 and Superhub 2 Router.
You require Mechanize to run this script successfully.
Steps
1: Make sure you have the Perl WWW::Mechanize Module installed.
For Debian distributions you can use the following command to install Mechanize
sudo apt-get install libwww-mechanize-perl
2: Open a text editor such as vim or nano and copy the following script into it.
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 0);
#login
$url="http://@ARGV[0]";
$mech->get( $url );
$mech->form_name('VmLogin');
$mech->field("VmLoginUsername","@ARGV[1]");
$mech->field("VmLoginPassword","@ARGV[2]");
$mech->submit_form(); #get settings page and reboot $url = "http://@ARGV[0]/VmRgRebootRestoreDevice.asp";
$mech->get( $url );
$mech->form_id("VmRgRebootRestoreDevice");
$mech->field("VmDeviceRestore",'0');
$mech->field("VmDeviceReboot",'1');
$mech->submit_form(); exit;
3: Save the script in the perl format using the name "scriptname".pl
4: To call the script in the command line use the following command
perl "scriptname" "ip of router" "username" "password"