1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#!/usr/bin/perl
use lib "../lib";
use Bucky;
use Data::Dumper;
my $bucky = new Bucky(); # "carbon");
my $keywords = $bucky->db->select("keyword");
my $threads = $bucky->db->select("thread");
my $files = $bucky->db->select("file");
my $comments = $bucky->db->select("comment");
event_loop();
my $commands;
sub event_loop
{
my $command = "index";
my $index_i = 0;
while (1)
{
if ($command =~ /^\d+$/)
{
do_this($commands->{$command})
or print "bad index!" . "\n";
}
elsif ($command eq "index")
{ $index_i = show_index(0) }
else
{ $index_i = show_index($index_i) }
print "> ";
$command = line_in();
last if $command eq "exit";
}
}
#[keyword,thread,file,comment]
#select * from family where keyword=id
#select thread from family where keyword=id
sub do_this
{
my ($command) = @_;
return unless $command;
my ($sub, @object) = @$command;
return &$sub(@object);
}
sub show_index
{
my ($min) = @_;
my $max = $min + 24;
my $i = 0;
foreach my $thread (@$threads)
{
next if $min > $i++;
last if $max == $i;
$commands->{$i} = [ \&show_thread, $thread ];
printf " T%02d %-70s\n", $i, $thread->{"title"};
}
return $max - 1;
}
sub show_thread
{
my ($thread) = @_;
print $thread->{'title'} . "\n";
print $thread->{'username'} . " // " . show_date($thread->{createdate}) . "\n";
my $i = 0;
foreach my $comment (@$comments)
{
next if ($comment->{'thread'} != $thread->{'id'});
$commands->{++$i} = [ \&show_comment, $comment ];
printf " c%02d %-10s %-60s\n", $i, $comment->{"username"}, first_line($comment->{"comment"});
}
foreach my $file (@$files)
{
next if ($file->{'thread'} != $thread->{'id'});
printf " f%02d %-10s %-60s\n", ++$i, $file->{'username'}, $file->{'filename'};
}
return 1;
}
sub show_comment
{
my ($comment) = @_;
print $comment->{'username'} . " // " . show_date($comment->{date}) . "\n";
my @lines = split "\n", $comment->{'comment'};
for (my $i = 0; $i < scalar(@lines); $i++)
{
print $lines[$i] . "\n";
last if $i == 24;
}
return 1;
}
sub show_date
{
return scalar localtime(shift);
}
sub line_in
{
return trim(scalar <STDIN>);
}
sub trim
{
my $s = shift;
$s =~ s/^\s+//;
$s =~ s/\s+$//;
return $s;
}
sub first_line
{
my $s = shift;
$s =~ s/^\s+//;
$s =~ s/\n//g;
return substr($s,0,70);
}
|
