[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" . "# \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?>