Frage zu WWW::Mechanize (Perl/CGI)

[thread]10885[/thread]

Frage zu WWW::Mechanize

Leser: 3

schobmich

2007-11-23 21:46

User since
2007-11-23
1 Artikel
BenutzerIn
[default_avatar]

hallo,

ich möchte gerne eine onlinefax application automatisieren.

Die Webseite besteht aus 2 Formularen:
* Empfängernummer
* Datei die ich verschicken will

Das erste ist auch kein Problem.
Diese Felder kann ich ausfüllen und mit submit() abschicken.
Spreche die Formulare mit der Formnummer an:

Code: (dl )

#Nummer eingeben
	$agent->form(1) if $agent->forms and scalar @{$agent->forms};
	$agent->form_number(1);
	$formfiller->add_filler( 'AreaCode' => Fixed => '06245' );
	$formfiller->add_filler( 'Number' => Fixed => '231001' );
	$formfiller->fill_form($agent->current_form);
	$agent->submit();

Das zweite Formual hat zwei Buttons:
* Hinzufügen -> Lädt die Datei zum verschicken hoch
* Weiter -> Schickt Daten zur Bestätigugsseite wo man das Fax wegschickt.

'Die Dateiauswahl funktioniert:

Code: (dl )

	$agent->form(2) if $agent->forms and scalar @{$agent->forms};
	$agent->form_number(2);
	$formfiller->add_filler( 'NewFile' => Fixed => 'C:\testfax.pdf' );
	$formfiller->fill_form($agent->current_form);
	$agent->submit();

Jetzt meine Frage: Wie bestätige ich den Weiter Button. Hier der HTML Source:

Code: (dl )

1
2
3

<input type="submit" name="action" class="button" value="Hinzuf&uuml;gen" onClick="return fileCheck()">
		
<input class="button" type="submit" name="formaction" value="Weiter &gt;" onClick="return fileCheck2();">

Vielen Dank im Vorraus!!

michi

renee

2007-11-24 12:06

User since
2003-08-04
14371 Artikel
ModeratorIn

Es gibt die Funktion click_button...

So etwa:

Code (perl): (dl )

$mech->click_button( name => 'formaction' );

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2007-11-23 21:46.