Log in Rakuten

Discussion in 'Perl Misc' started by noone, Apr 8, 2005.

  1. noone

    noone Guest

    Hi,

    Anyone know how a Perl script can log onto Rakuten?

    Here is what I do in my script:


    $ua = LWP::UserAgent->new(
    'agent' => $agent,
    'cookie_jar' => {file => "cookies.txt", autosave => 1, ignore_discard => 1},
    'requests_redirectable' => ['GET', 'HEAD', 'POST']
    );

    $request = HTTP::Request->new(POST => 'https://grp02.id.rakuten.co.jp/rms/nid/login');
    $request->content_type('application/x-www-form-urlencoded');
    $request->content('service_id=59&return_url=index.phtml%3F&u=mylogin&p=mypassword&auto_logout=true');
    $response = $ua->request($request);
    if (!$response->is_success) {
    die $response->status_line;
    }


    After the $response->content indicates I am logged in, and the cookies
    seems to be well set. But then when I access another url in Rakuten, it
    has forgotten I am logged in! It is of course not the expected behaviour.
    And it is not what happen with Mozilla or Internet Explorer.

    Thanks for any help,

    David.
     
    noone, Apr 8, 2005
    #1
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Henrik_the_boss
    Replies:
    0
    Views:
    2,656
    Henrik_the_boss
    Nov 5, 2003
  2. Amratash
    Replies:
    0
    Views:
    528
    Amratash
    Apr 13, 2004
  3. =?Utf-8?B?VG9tIFdpbmdlcnQ=?=

    My.Log.Writeexception not writing to Application Event Log.

    =?Utf-8?B?VG9tIFdpbmdlcnQ=?=, Jan 20, 2006, in forum: ASP .Net
    Replies:
    0
    Views:
    2,380
    =?Utf-8?B?VG9tIFdpbmdlcnQ=?=
    Jan 20, 2006
  4. unomystEz
    Replies:
    0
    Views:
    554
    unomystEz
    Nov 19, 2006
  5. vj
    Replies:
    0
    Views:
    681
Loading...

Share This Page