PasteShr

New Paste Browse

save picture fromm fetlife
#!/usr/bin/env perl
# Download all FetLife pictures from a profile.
# 
# Usage instructions:
# * Fill in the constants.
# * Make a folder named "images".
# * Run the script.

use strict;
use warnings;
use WWW::Mechanize;
save picture fromm fetlife How to dowload it? save picture fromm fetlife

use constant {
    USERNAME => 'username',
    PASSWORD => 'password',
    USERID   => 'fetlife-userid'
};

my $mech = WWW::Mechanize->new();

main($mech);
save picture fromm fetlife How to dowload it? save picture fromm fetlife

sub login {
    my $mech = shift;

$mech->get('https://fetlife.com/login');

$mech->submit_form(
        with_fields => {
            'nickname_or_email' => USERNAME,
            'password' => PASSWORD
save picture fromm fetlife How to use it? save picture fromm fetlife
        }
    );
}

sub getPicturesOf {
    my $mech = shift;
    my $uid = shift;

$mech->get("https://fetlife.com/users/$uid/pictures");

save picture fromm fetlife How to dowload it? save picture fromm fetlife
    my $next = $mech->find_link(text_regex => qr/Next /);
    while (defined($next)) {
        $next = $next->url;
        downloadPictures($mech, $uid);
        $mech->get("https://fetlife.com/$next");
        $next = $mech->find_link(text_regex => qr/Next /);
    }
    downloadPictures($mech, $uid);
}

save picture fromm fetlife How to get it for free? save picture fromm fetlife
sub downloadPictures {
    my $mech = shift;
    my $uid = shift;

my @images = $mech->find_all_images(url_regex => qr{https://flpics\d.a.ssl.fastly.net/\d+/$uid/});

map {
        my $imgurl = $_->url;
        $imgurl =~ s/\d+\.jpg$/720.jpg/;
        if ($imgurl =~ m{/([^/]+)$}) {
save picture fromm fetlife PasteShr save picture fromm fetlife
            print "Downloading $1\n";
            $mech->get($imgurl, ":content_file" => "images/$1");
        } else {
            print "No go.\n";
        }
    } @images;

}

sub main {
save picture fromm fetlife How to dowload it? save picture fromm fetlife
    my $mech = shift;

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

fe2 button teleport hack script
Plaintext | 0 | 35 seconds ago
krunkerio kr genorater no human verification
Plaintext | 0 | 36 seconds ago
ninja legfends dupe script
Plaintext | 0 | 37 seconds ago
octgn mlp
Plaintext | 0 | 38 seconds ago
pulchra256x
Plaintext | 0 | 38 seconds ago
inf jump exploit
Plaintext | 0 | 5 minutes ago
sharkbite titanic script
Plaintext | 0 | 5 minutes ago

Paste Settings

Site Languages