WWW::Battrick

Check-in [7e55dbaf10]
Login

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

Overview
Comment:login skeleton
Timelines: family | ancestors | descendants | both | develop
Files: files | file ages | folders
SHA1:7e55dbaf1018e33df144a5b2f5595863d4d78041
User & Date: erezs@teleweb.co.il 2011-09-07 15:51:08
Context
2011-09-07
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
15:40
create schema check-in: 26473481a3 user: erezs@teleweb.co.il tags: develop
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to bin/battrick.

1
2
3
4
5
6
7




8
#!/usr/bin/perl

use strict;
use warnings;

use WWW::Battrick;





WWW::Battrick::run();







>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

use strict;
use warnings;

use WWW::Battrick;

print "Username: ";
chomp (my $user = <STDIN>);
print "Password: ";
chomp (my $pass = <STDIN>);
WWW::Battrick::run($user, $pass);

Changes to lib/WWW/Battrick.pm.

1
2
3
4
5
6
7
8
9
10
11
12
13
..
29
30
31
32
33
34
35


36
37
use strict;
use warnings;
package WWW::Battrick;

use WWW::Battrick::Schema;

use Moose;

has schema => (
    is => 'ro',
    isa => 'DBIx::Class::Schema',
    lazy_build => 1,
);
................................................................................
    $schema->deploy if $@;

    return $schema;
}


sub run {


}
1;





|







 







>
>


1
2
3
4
5
6
7
8
9
10
11
12
13
..
29
30
31
32
33
34
35
36
37
38
39
use strict;
use warnings;
package WWW::Battrick;

use WWW::Battrick::Schema;
use WWW::Battrick::Site;
use Moose;

has schema => (
    is => 'ro',
    isa => 'DBIx::Class::Schema',
    lazy_build => 1,
);
................................................................................
    $schema->deploy if $@;

    return $schema;
}


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

Added lib/WWW/Battrick/Site.pm.



















>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
use strict;
use warnings;
package WWW::Battrick::Site;

use WWW::Mechanize;

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

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