41 lines
1.1 KiB
Plaintext
41 lines
1.1 KiB
Plaintext
|
<?_code
|
||
|
|
{
|
||
|
|
use strict;
|
||
|
|
use vars qw(%GET);
|
||
|
|
|
||
|
|
BML::set_content_type("text/plain; charset=utf-8");
|
||
|
|
if ($GET{'user'}) {
|
||
|
|
my $user = LJ::canonical_username($GET{'user'});
|
||
|
|
return "! bogus username\n" unless $user;
|
||
|
|
my $u = LJ::load_user($user);
|
||
|
|
return "! invalid user, or no interests\n" unless $u;
|
||
|
|
|
||
|
|
my $ret;
|
||
|
|
|
||
|
|
my $ints = LJ::get_interests($u) || [];
|
||
|
|
foreach my $int (@$ints) {
|
||
|
|
$ret .= "$int->[0] $int->[2] $int->[1]\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
return "! invalid user, or no interests\n" unless $ret;
|
||
|
|
$ret = "# Note: Polite data miners cache on their end. Impolite ones get banned.\n" .
|
||
|
|
"# <intid> <intcount> <interest ...>\n" .
|
||
|
|
$ret;
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($GET{'int'}) {
|
||
|
|
my $dbr = LJ::get_db_reader();
|
||
|
|
my $sth = $dbr->prepare("SELECT * FROM interests WHERE interest=?");
|
||
|
|
$sth->execute($GET{'int'});
|
||
|
|
my $h = $sth->fetchrow_hashref;
|
||
|
|
return "! invalid interest\n" unless $h;
|
||
|
|
my $ret;
|
||
|
|
$ret = "# Note: Polite data miners cache on their end. Impolite ones get banned.\n" .
|
||
|
|
"= intcount=$h->{intcount}\n";
|
||
|
|
return $ret;
|
||
|
|
}
|
||
|
|
return "! invalid parameters\n";
|
||
|
|
}
|
||
|
|
_code?>
|