blob: 81fb163b7f98e1b8ccaf6238541a8ce10aac9652 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl
use lib "../lib";
use Bucky;
use Data::Dumper;
my $id = $ARGV[0] || 624;
my $bucky = new Bucky;
my $thread = $bucky->thread($id);
print "Got a thread: " . $thread->_title . "\n";
#print Dumper($thread);
my $keyword = $thread->keyword;
print "Got a keyword: " . $thread->_keyword . " / " . $keyword->_keyword . "\n";
#print Dumper($keyword);
# 1. get threads for keyword
# 2.
# print "This many comments: " . scalar @{ $thread->comments } . "\n";
# print "This many files: " . scalar @{ $thread->files } . "\n";
# print "First comment: " . scalar @{ $thread->comments->[0] } . "\n";
|
