Commit 798e7ef11e9e59ccaa083f3f12c2b13c50235bc0

Intranet logon via apache


10	10	use Config::IniFiles;
11	11	use utf8;
12	12
	13	use constant SCRIPTURL => 'http://intranet.colivre.coop.br';
	14
13	15	my $mech = WWW::Mechanize::TWiki->new(agent => 'colivre-robot', autocheck => 1 ) or die $!;
14		$mech->cgibin('http://www.colivre.coop.br/bin', { scriptSuffix => '' });
	16	$mech->cgibin(SCRIPTURL, { scriptSuffix => '' });
15	17
16		sub logon {
	18	sub twiki_logon {
17	19	my ($username, $password) = @_;
18		print STDERR "logon... ";
19	20	$mech->get('https://www.colivre.coop.br/bin/login/');
20	21	$mech->form_name('loginform');
21	22	$mech->field('username', $username);
22	23	$mech->field('password', $password);
23	24	$mech->submit();
	25	}
	26	sub apache_logon {
	27	my ($username, $password) = @_;
	28	$mech->get("https://$username:$password\@intranet.colivre.coop.br");
	29	}
	30
	31	sub logon {
	32	my ($username, $password) = @_;
	33	print STDERR "logon... ";
	34	apache_logon($username, $password);
24	35	say STDERR "ok";
25	36	}
26	37