source: trollforge/dsp-trollforge/Xanga/Addpost.pl @ 41 Tweet

#!/usr/bin/perl
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;
$|++;

print "addpost.pl <accounts> <content> <proxies> [picture.jpg]\n"
  if (@ARGV != 3 && @ARGV != 4);
exit
  if (@ARGV != 3 && @ARGV != 4);

if (@ARGV == 4)
{
    open(JPEGFILE, $ARGV[3]) or die "Cannot open $ARGV[3]";
    close JPEGFILE;
}

open(CONTENT, $ARGV[1]) or die "Cannot open $ARGV[1]";
my @content = <CONTENT>;
my $content = join('<br>', @content);

open(PROXIES, $ARGV[2])
  or die "Cannot open $ARGV[2]";

open(ACCOUNTS, $ARGV[0])
  or die "Cannot open $ARGV[0]";

my $ua = LWP::UserAgent->new;
$ua->timeout(3);
push @{$ua->requests_redirectable}, 'POST';

sub GetViewState($)
{
    foreach my $l (split /\n/, $_[0]->content)
    {
        if ($l =~ /name=\"__VIEWSTATE\" value=\"([^\"]+)\"/i)
        {
            return $1;
        }
    }
}

ACCOUNTS:
{
    while (<ACCOUNTS>)
    {
        chomp;
        my $account = $_;
        while (<PROXIES>)
        {
            my $vs;
            $ua->cookie_jar(HTTP::Cookies->new);
            $ua->proxy('http', "http://$_/");
            my $username;
            my $password;
            ($username, $password) = split(/ /, $account);
            print "Trying $username";
            my $request = $ua->request(GET 'http://www.xanga.com/');
            chomp;

            unless ($request->is_success && $request->content =~ /Xanga News/)
            {
                print " || Failed to load xanga.com: $_\n";
                next;
            }
            $vs = GetViewState($request);
            if (not defined $vs)
            {
                print " || Unable to get VIEWSTATE: $_\n";
                next;
            }

            $request =
              $ua->request(
                           POST 'http://www.xanga.com/Default.aspx',
                           [
                            __VIEWSTATE                      => $vs,
                            "SigninModule:txtSigninUsername" => $username,
                            "SigninModule:txtSigninPassword" => $password,
                            "SigninModule:btnSignin"         => "Go%21",
                           ]
                          );
            undef($vs);
            if ($request->is_success && $request->content =~ /PLEASE SIGN IN/)
            {
                print
                  "Error with $username: Invalid username and/or password\n";
                goto ACCOUNTS;
            }
            elsif (   $request->is_success
                   && $request->content =~ /Welcome back!/)
            {
                print " || Logged in...";
            }
            else
            {
                print " || Unable to log in: $_\n";
                next;
            }
            $request =
              $ua->request(GET
                'http://www.xanga.com/private/xtools/xtoolsclassic.aspx?plain=1'
              );
            unless (   $request->is_success
                    && $request->content =~ /Weblog Entry/)
            {
                print " || Error trying to open new post page\n";
                next;
            }
            $vs = GetViewState($request);
            if (not defined $vs)
            {
                print " || Unable to get VIEWSTATE: $_\n";
                next;
            }

            my $userid;
            foreach my $l (split /\n/, $request->content)
            {
                if ($l =~
                    /<input name=\"txtUserId\" type=\"text\" value=\"([0-9]+)\"/
                   )
                {
                    $userid = $1;
                }
            }
            if (not defined $userid)
            {
                print " || Unable to get txtUserId: $_\n";
                next;
            }
            $request =
              $ua->request(
                POST
                  'http://www.xanga.com/private/xtools/xtoolsclassic.aspx?plain=1',
                [
                    __VIEWSTATE      => $vs,
                    txtPlainText     => $content,
                    txtProfImageName => "",
                    proftitle1       => "",
                    proftitle2       => "",
                    proftitle3       => "",
                    xztitle1         => "",
                    xztitle2         => "",
                    xzasin1          => "",
                    radAccess        => "1",
                    chkComments      => "on",
                    btnSubmit        => "Submit",
                    txtUserId        => $userid,
                    xbgcolor         => "",
                    xbordercolor     => "",
                    xcontent         => "",
                    xcopypost        => "",
                ]
              );
            if (!$request->is_success)
            {
                print " || some sort of failure during posting\n";
                next;
            }
            else
            {
                print " || Posted (probably)\n";
            }
            if (@ARGV == 4)
            {
                $request =
                  $ua->request(
                    GET 'http://premium.xanga.com/private/wizardpicture.aspx?');
                $vs = GetViewState($request);
                if (not defined $vs)
                {
                    print " || Unable to get VIEWSTATE: $_\n";
                    next;
                }
                $request =
                  $ua->request(
                     POST 'http://premium.xanga.com/private/wizardpicture.aspx',
                     Content_Type => 'form-data',
                     Content      => [
                         __VIEWSTATE                           => $vs,
                         txtFile                               => [$ARGV[3]],
                         "ProfileUploadControl1_btnWizardBack" => "   Back   ",
                         "ProfileUploadControl1:btnWizardNext" => "  Upload   ",
                     ]
                  );
                if ($request->is_success)
                {
                    print " || Avatar uploaded";

                }
                else
                {
                    print " || Error uploading avatar\n";
                    next;
                }
            }
            print "\n";
            goto ACCOUNTS;

        }
    }
}