Secret Crushes
Feb. 6th, 2004 07:32 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
bryantThe LJ Secret Crush meme is fairly vile, since they collected a bunch of information and are now selling it and maybe you didn't want to let that person know you had a crush on them? Too late now.
![[livejournal.com profile]](https://www.dreamwidth.org/img/external/lj-userinfo.gif)
rowyn passed on a great idea from peganthyrus. She suggested that we pick random users and fill out crush info for them, poisoning the database. That's not bad.
This works on my system. Maybe it'll work on yours. At the moment it spews the HTML for the return page to standard output, because I couldn't be bothered to parse through it and summarize results. There is no error-checking. The code is low-quality. You will need the CPAN modules HTML::TokeParser and WWW::Mechanize.
rowyn passed on a great idea from peganthyrus. She suggested that we pick random users and fill out crush info for them, poisoning the database. That's not bad.This works on my system. Maybe it'll work on yours. At the moment it spews the HTML for the return page to standard output, because I couldn't be bothered to parse through it and summarize results. There is no error-checking. The code is low-quality. You will need the CPAN modules HTML::TokeParser and WWW::Mechanize.
#!/usr/bin/perl
use HTML::TokeParser;
use LWP::UserAgent;
use WWW::Mechanize;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)");
$ua->requests_redirectable([ ]);
$random = HTTP::Request->new(HEAD => 'http://www.livejournal.com/random.bml');
my $res = $ua->request($random);
($user = $res->headers->header('Location')) =~ s#^.*/(.*)/#$1#;
if (! $user) {
die "Couldn't get random LJ user.\n";
}
print STDERR "Crushing ", $user, "\n";
my $agent = WWW::Mechanize->new();
$agent->get("http://euthanize.us/memes/secret-crush-meme/");
$agent->form(1);
$agent->field("username", $user);
$agent->click;
@types = ("Never Crushed", "Secret Crush", "Public Crush", "Ex-Crush");
$agent->form(1);
$crushform = $agent->current_form;
@friends = split(/,/, $crushform->value("friends"));
for ($i = 0; $i <= $#friends; $i++) {
$crushtype = $types[int(rand(4))];
$friendfield = "friend" . $i;
$agent->field($friendfield, $crushtype);
}
$gender = (rand(2) > 1 ? "Male" : "Female");
$agent->field("gender", $gender);
$agent->click;
print $agent->content;
![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
no subject
Date: 2004-02-07 01:32 am (UTC)Re:
Date: 2004-02-07 02:31 am (UTC)Re:
Date: 2004-02-07 02:37 am (UTC)Re:
Date: 2004-02-07 02:42 am (UTC)Re:
Date: 2004-02-08 03:49 pm (UTC)"I just took the thing offline after I noticed your script running, because the thing just had to die. It's easy for me to filter out your additions (via ip or browser checking), but since you published the script, it would just become a war of attrition for me to keep it running."
My work here is done.
Re:
Date: 2004-02-08 04:30 pm (UTC)Re:
Date: 2004-02-08 04:38 pm (UTC)Re:
Date: 2004-02-08 07:01 pm (UTC)Well done!
Re:
Date: 2004-07-24 10:47 pm (UTC)