=crl Answer

=login

=url http://www.asdf.com/login.pl

=jar /tmp/cr.jar

=param user

qwer

=param passwd

asdf


=logout

=url http://www.asdf.com/logout.pl

=param action

logout


=fetch

=url http://www.answer168.com/

=method PLAIN

=param encoding

Big5

=param action

query

=key product


=case m/./

answer


=case m/./

$answer


=case m/./

my_callback

=case m/./

&callback

=next m/./

m,(http:.+?),m

=next m/./

my_callback

=next m/./

nexturl

=policy product

match=m,<!---m (.+) --->,sg
text=$item[1]
match(text)=m,<b>(.+?)</b><b>(.+?)</b>,mg
name=$item[1]
desc=$item[2]

export name desc

=policy nexturl

match=m,<a href="(.+?)">(.+?)</a>
_DTLURL=$item[1]

=callback my_callback

{
  my($textref, $thisurl) = @_;

}

=LRC



