Meet me at HOT or NOT

[junyer]

straight, women, of any age
#! /usr/bin/perl -w

use strict;

use Curl::easy;

sub curl
{
my ($d) = @_;

my @d = ();
foreach (keys %$d) {
push @d, "$_=$d->{$_}";
}

my $res = '';
my $curl = Curl::easy::init();
Curl::easy::setopt($curl, CURLOPT_COOKIEFILE, $$);
Curl::easy::setopt($curl, CURLOPT_COOKIEJAR, $$);
Curl::easy::setopt($curl, CURLOPT_POSTFIELDS, join '&', (@d));
Curl::easy::setopt($curl, CURLOPT_MUTE, 1);
Curl::easy::setopt($curl, CURLOPT_URL, 'http://www.hotornot.com/m/');
Curl::easy::setopt($curl, CURLOPT_FILE, \$res);
Curl::easy::setopt($curl, CURLOPT_WRITEFUNCTION, sub{ ${$_[1]} .= $_[0]; return length $_[0]; });
Curl::easy::perform($curl);
Curl::easy::cleanup($curl);
undef $curl;

return $res;
}

sub parse
{
my ($buf, $def) = @_;

my $res = {};
while ($buf =~ /\G.*?<input (.*?)>/sog) {
my %tmp = ();
foreach (split / +/o, $1) {
my ($a, $v) = split /=/o;
$a =~ tr/"//d;
$v =~ tr/"//d;
$tmp{$a} = $v;
}
$res->{$tmp{'name'}} = exists $def->{$tmp{'name'}} ? $def->{$tmp{'name'}} : $tmp{'value'};
}

return $res;
}

$| = 1;

unlink $$;
print 'init, ';
my $buf = curl({});

$buf =~ /<b>User Login<\/b>.*?<form .*?>(.*?)<\/form>/so;
print 'login, ';
$buf = curl(parse($1, { 'username' => $ARGV[0], 'password' => $ARGV[1] }));

for (;;) {
$buf =~ /<form .*?>(.*?)<b>Do you want to meet me\?<\/b>(.*?)<\/form>.*?<b>http:\/\/www\.hotornot\.com\/r\/\?emid=(.*?)<\/b>/so;
print "$3, ";
$buf = curl(parse($1.$2, {}));
}
TODO:
track emids seen
support "Show me" criteria
filter on keywords and introduction

[MisterBishi]

The lack of coherent prose in your post shits me, I don't think you'll get a date like that, sorry J.

[Jen]

::whips out the "REJECTED" stamp::

:D

[junyer]

Originally posted by MisterBishi
The lack of coherent prose in your post shits me,You wanted a user manual for it?

[geggle]

Mmm... Perl....

[Farbs]

I don't speak perl.
I feel so... inadequate.

Lemme guess... it takes hoternot username & password as args, logs in & loops through all (straight women?) printing something (?!) out as it goes.

[junyer]

Yes, that's pretty much it. (The form handling is just a little on the crude side, 'in't it?)

[soulman]

i heard that jmello person is looking for a guy...

[scathing]

Originally posted by Farbs
I don't speak perl.
I feel so... inadequate.

Just like 99.9% (http://www.bbspot.com/News/2001/03/perl_test.html) of American high school students.... :(

[Scythe]

Isn't Perl something you find in oysters? :D


Sorry. Sometimes my sense of humour overcomes my sense.

:fart:

[junyer]

#! /usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTML::Form;

(my $u = new LWP::UserAgent)->cookie_jar({ 'file' => "cookies.$$", 'autosave' => 1, });
my ($r, $f);

$r = $u->get('http://meetme.hotornot.com/');

$f = (HTML::Form->parse($r->content(), $r->base()))[0];
$f->value('username' => $ARGV[0]);
$f->value('password' => $ARGV[1]);
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[1];
$f->value('sel_orient' => $ARGV[2]);
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[2];
$f->value('sel_sex' => $ARGV[3]);
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[3];
$f->value('sel_age' => $ARGV[4]);
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[3];
$f->value('sel_geoMode' => 'on');
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[4];
$f->value('sel_geo' => $ARGV[5]);
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[3];
$f->value('sel_kwMode' => 'on');
$r = $u->request($f->click());

$f = (HTML::Form->parse($r->content(), $r->base()))[4];
$f->value('sel_keyword' => $ARGV[6]);
$r = $u->request($f->click());

$| = 1;
for (;;) {
${$r->content_ref()} =~ /<b>http:\/\/meetme\.hotornot\.com\/r\/\?emid=(.*?)<\/b>/o;
print "$1, ";

$f = (HTML::Form->parse($r->content(), $r->base()))[0];
$f->value('vote' => 'yes');
$r = $u->request($f->click());
}

[junyer]

usage:

botornot.pl <username> <password> <sel_orient> <sel_sex> <sel_age> <sel_geo> <sel_keyword>

sel_orient:
"s" straight
"g" gay

sel_sex:
"female" women
"male" men

sel_age:
"x" of any age
"1" ages 18-25
"2" ages 26-32
"3" ages 33-40
"4" over 40

sel_geo:
"x" anywhere
"au" Australia
..

[mrwest]

Methinks zgeek is losing it's geeky edge. Someone posts perl code for getting pics of chicks and cops shit. There seems to be more posts about cars and bikes and bitches and rants than anything truly 'geeky'. Is this becoming zpetrolhead? zwhinge? zredneck? :grr:

[That Bloke]

Didn't the latest incarnation of Sunol(or someone faking) have a meet me @ hotornot link?

Edit: Here it is (http://forums.zgeek.com/showthread.php?s=&threadid=18300)

[balaamsdonkey]

this is possible the most mind numbing thread ever divised
I expect juyner's dick to leave his body because of how nerdy he is. And not only that but it will go to someone with more balls then he. That being--rosie o'donnel.

[Aardvark]

That's why it was dead. What kind of mind numbing waste of oxygen goes around digging up long deceased threads and announces how nerdy the guy who started them was?

[dozer]

ok lets get back to zwow and zrepme

[Afro88]

Or how about the gayest thread on the internet (http://forums.zgeek.com/showthread.php?t=34089) :fag:

[junyer]

this is possible the most mind numbing thread ever divised
I expect juyner's dick to leave his body because of how nerdy he is. And not only that but it will go to someone with more balls then he. That being--rosie o'donnel.I cannot believe how incredibly stupid you are. I mean rock-hard stupid. Dehydrated-rock-hard stupid. Stupid so stupid that it goes way beyond the stupid we know into a whole different dimension of stupid. You are trans-stupid stupid. Meta-stupid. Stupid collapsed on itself so far that even the neutrons have collapsed. Stupid gotten so dense that no intellect can escape. Singularity stupid. Blazing hot mid-day sun on Mercury stupid. You emit more stupid in one second than our entire galaxy emits in a year. Quasar stupid. Your writing has to be a troll. Nothing in our universe can really be this stupid. Perhaps this is some primordial fragment from the original big bang of stupid. Some pure essence of a stupid so uncontaminated by anything else as to be beyond the laws of physics that we know. I'm sorry. I can't go on. This is an epiphany of stupid for me. After this, you may not hear from me again for a while. I don't have enough strength left to deride your ignorant questions and half baked comments about unimportant trivia, or any of the rest of this drivel. Duh.

(Thank you, Guy Macon.)

[Boobmeister]

Just because of the title to this fucked up thread, thought i might show you guys the rest of my girlfriend after the boobie comp .... so click the link n rate away

http://www.hotornot.com/r/?eid=BZHZRRK&key=TWP