Sie sind nicht angemeldet.
20.02.2007, 13:18
).Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »gnuke« (24.02.2008, 14:57)
21.02.2007, 00:46
|
Quellcode |
1 |
WWW-Mechanize - automate interaction with websites |
|
|
Quellcode |
1 |
httpunit - http://httpunit.sourceforge.net/ |
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 |
#! /usr/bin/perl -w
use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();
$agent->agent_alias( 'Windows IE 6' );
$agent->get("login.uni-mainz.de");
$agent->form(2); # Form Nummer von login form. musst du herausfinden
$agent->field( "user_name", "otto" ); # ändere fieldname
$agent->field( "password", "ottospassword"); #ändere fieldname
$agent->click_button( 'name' => 'login' ); #änder submitname
|
|
|
Quellcode |
1 |
emerge dev-perl/WWW-Mechanize |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »herrlado« (21.02.2007, 00:52)
22.02.2007, 22:01
Zitat
Quellcode
.... $agent->get("login.uni-mainz.de"); $agent->form(2); # Form Nummer von login form. musst du herausfinden ...
|
|
Quellcode |
1 2 |
date ; unzip | port ; touch | head ; strip | top ; finger socket ; grep ; mount | tail ; gasp < yes & yes ; umount ; sleep |
23.02.2007, 00:20
|
|
Quellcode |
1 2 |
$agent->form_number($number) # Selects the numberth form on the page, The first form is number 1, not zero. $agent->form_name($name) # Selects a form by name. If there is more than one form on the page with that name, then the first one is used, and a warning is generated. |
|
|
Quellcode |
1 |
$agent->form($number) |
|
|
Quellcode |
1 |
$agent->form_number($number) |
24.02.2007, 12:27
), aber schon mal ins System eingebaut und zwar folgende Funktion einfach an das Ende von /etc/conf.d/wireless geschrieben:|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
postup() {
# Wenn das hier das WINULUM ist, dann mit Benutznamen und Passwort einloggen
# Variable ESSID auf leeren String setzen, falls nicht existiert
if [ ${ESSID=""} != "winulum" ]; then
einfo "Found WINULUM wlan, logging in ..."
# Perl-Skript erstellen und damit einloggen
# Beachte: '(', cat, etc ... müssen am Anfang der Zeile stehen!
# Option '-' unterdrückt Tabs
(
cat <<-'END'
use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();
$agent->agent_alias("Linux Konqueror");
$agent->get("login.uni-mainz.de");
$agent->form(1);
$agent->field("benutzername", "cschwan");
$agent->field("benutzerpasswort", "passwort");
$agent->submit();
END
) | perl
fi
return 0
}
|
