Автологин для Wi-Fi в Москосвком метро

Написал скрипт для автоматического логина в Wi-Fi в москоском метро. Делюсь, ибо пользователи линукса должны иметь преимущество перед остальными ;-)

Скрипт расчитан на применение как в сочетании с wicd так и для ручного запуска. Для автоконекта с помощью wicd положите скрипт в директорию /etc/wicd/scripts/postconnect (верно как минимум для debian).

Для network-manager – модифицируйте его сами.

#!/usr/bin/perl

use strict;
use WWW::Mechanize;


if (! $ARGV[1])
{
  print "Working in console mode";
} elsif ($ARGV[1] ne 'MosMetro_Free')
{
  exit(0); # wrong network
}

my $mech = WWW::Mechanize->new(autocheck => 0);

my $url = 'http://8.8.8.8';

$mech->get($url );

my $content = $mech->content();

$content=~/URL=(.*)\"/;

$url = $1;

$mech->get($url);

$mech->submit_form( form_number => 0 );
$mech->submit_form( form_number => 0 );

Для работы скрипта понадобиться установить перловый модуль WWW::Mechanize. Думаю, если вы пользуетесь wicd то вы знаете как это сделать ;-)

PS: Следите за обновлениями на http://dhyannataraj.github.io/blog/2015/08/11/vmetro-auto-login/ именно туда я буду выкладывать новую версию скрипта, когда vmet.ro изменит схему авторизации