view release on metacpan or  search on metacpan

MailPeek.pm  view on Meta::CPAN

  MAXLOGINTRIALS => 1,
);

sub handler {
  my $r      = shift;
  my @msgnos = ();
  my %params = $r->method eq 'POST' ? $r->content : $r->args;

  Mail::Cclient::set_callback
        login    => sub {
            return $params{'username'}, $params{'password'}
        },
        searched   => sub {
            push (@msgnos, $_[1]);
        },
        log => sub { print @_ }, dlog => sub { print @_};

  my $mail = Mail::Cclient->new("{$mail_server/imap}") or die $!;

  $r->content_type('text/vnd.wap.wml');
  $r->send_http_header;

login.wml  view on Meta::CPAN

<!DOCTYPE wml PUBLIC
    "-//WAPFORUM//DTD WML 1.1//EN"
    "http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>
    <card title="Login">
        <!-- Reset fields when entered backwards. -->
        <onevent type="onenterbackward">
            <refresh>
                <setvar name="username" value=""/>
                <setvar name="password" value=""/>
            </refresh>
        </onevent>

        <!-- Read login and password from user. -->
        <p>Username: <input name="username"/></p>
        <p>Password: <input type="password" name="password"/></p>

        <!-- Submit button sends data to server. -->
        <do type="accept" label="Submit">
            <go href="/wmlmail/" method="post">
                <postfield name="username" value="$(username)"/>
                <postfield name="password" value="$(password)"/>
            </go>
        </do>
    </card>
</wml>