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)Re: Fixing the output
Date: 2004-02-09 07:25 pm (UTC)I was gonna rewrite the whole thing to divest myself of excess modules completely -- wouldn't have been hard -- but events progressed without me.
Re: Fixing the output
Date: 2004-02-12 09:21 am (UTC)This is probably a bug that should be reported - livejournal does some checking so that early close tags in entries can't completely mess up a friends view (to completely mess up a friends view, I think you'd need a close-div, close-table, close-div combination, and they seem to strip close tags after an extraneous close-div) An extraneous close-div or close-tr in an entry still produces interesting effects, but they don't bleed onto the rest of the page.
It would seem that they could do similar checking in the comments to prevent the extraneous close-tr from wreaking havoc.
no subject
Date: 2004-02-07 10:48 pm (UTC)Re:
Date: 2004-02-09 07:24 pm (UTC)But now they took it down, so it's moot. :)
no subject
Date: 2004-02-10 03:16 pm (UTC)no subject
Date: 2004-02-18 03:38 pm (UTC)I can't say I've used the secret crush meme simply because....well.....I don't give a shit. I mean honestly, who really cares who has a crush on you? But as far as crashing it, what's the point?
Re:
Date: 2004-02-18 03:41 pm (UTC)Re:
Date: 2004-02-18 07:07 pm (UTC)Re:
Date: 2004-02-18 07:11 pm (UTC)Hey -- it's OK for me to poison the database; the Secret Meme folks should have assumed that I might do something they dislike!
And no, the original Secret Meme did not warn anyone that they would be selling your answers.
Re:
Date: 2004-02-19 12:51 pm (UTC)confused
Date: 2004-02-19 07:18 pm (UTC)Re: confused
Date: 2004-04-09 11:34 am (UTC)Re: confused
Date: 2004-04-09 12:53 pm (UTC)So, apparently, you win.
Date: 2004-12-25 03:10 am (UTC)You are given the credit for having slain the Crush Meme. Please report to your DM to get your XP.