WWW::Battrick

Check-in [448af9be0a]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:basic login method call
Timelines: family | ancestors | descendants | both | develop
Files: files | file ages | folders
SHA1:448af9be0a60a8c0bae412103aa8520150954583
User & Date: erezs@teleweb.co.il 2011-09-07 15:55:31
Context
2011-09-07
15:56
Merge branch 'feature/initial-code' into develop check-in: 9917b0435d user: erezs@teleweb.co.il tags: develop
15:55
basic login method call check-in: 448af9be0a user: erezs@teleweb.co.il tags: develop
15:51
login skeleton check-in: 7e55dbaf10 user: erezs@teleweb.co.il tags: develop
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/WWW/Battrick.pm.

30
31
32
33
34
35
36
37
38
39

    return $schema;
}


sub run {
    my ($user, $pass) = @_;
    WWW::Battrick::Login();
}
1;







|


30
31
32
33
34
35
36
37
38
39

    return $schema;
}


sub run {
    my ($user, $pass) = @_;
    WWW::Battrick::login();
}
1;

Changes to lib/WWW/Battrick/Site.pm.

2
3
4
5
6
7
8


9




use warnings;
package WWW::Battrick::Site;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new;



$mech->get( 'http://battrick.org/nl/public.asp?sid=new' );











>
>
|
>
>
>
>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use warnings;
package WWW::Battrick::Site;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new;

sub login {
    my ($user, $password) = @_;
    $mech->get( 'http://battrick.org/nl/public.asp?sid=new' );

}