10 $Gruta::VERSION
= '2.0.1-dev';
12 sub sources
{ return @
{$_[0]->{sources
}}; }
13 sub template
{ return $_[0]->{template
}; }
14 sub cgi
{ return $_[0]->{cgi
}; }
16 sub version
{ return $Gruta::VERSION
; }
22 print STDERR
$self->{id
}, ' ', scalar(localtime), ': ', $msg, "\n";
33 if (!exists($self->{calls
}->{$method})) {
35 # cache all calls in the sources
38 foreach my $s ($self->sources()) {
39 if (my $m = $s->can($method)) {
40 push(@c, sub { return $m->($s, @_) });
44 $self->{calls
}->{$method} = [ @c ];
47 foreach my $m (@
{ $self->{calls
}->{$method}}) {
57 return wantarray ?
@r : $r[0];
60 sub topic
{ my $self = shift; return $self->_call('topic', 1, @_); }
61 sub topics
{ my $self = shift; return $self->_call('topics', 0); }
63 sub user
{ my $self = shift; return $self->_call('user', 1, @_); }
64 sub users
{ my $self = shift; return $self->_call('users', 0); }
71 if (! $topic_id || ! $id) {
76 my $ck = $topic_id . '/' . $id;
78 if ($story = $self->{story_cache
}->{$ck}) {
82 if (not $story = $self->_call('story', 1, $topic_id, $id)) {
86 my $format = $story->get('format') || 'grutatxt';
88 if (my $rndr = $self->{renderers_h
}->{$format}) {
92 return $self->{story_cache
}->{$ck} = $story;
96 sub stories
{ my $self = shift; return $self->_call('stories', 0, @_); }
103 my @r = sort { $b->[2] cmp $a->[2] } $self->_call('stories_by_date', 0, $topics, %opts);
105 if ($opts{num
} && scalar(@r) > $opts{num
}) {
106 @r = @r[0 .. $opts{num
} - 1];
114 my $topic_id = shift;
116 my @l = $self->_call('search_stories', 1, $topic_id, @_);
118 return sort { $self->story($topic_id, $a)->get('title') cmp
119 $self->story($topic_id, $b)->get('title') } @l;
122 sub stories_top_ten
{
125 my @l = $self->_call('stories_top_ten', 0, @_);
127 return sort { $b->[0] <=> $a->[0] } @l;
133 my @l = $self->_call('stories_by_tag', 0, @_);
135 return sort { $self->story($a->[0], $a->[1])->get('title') cmp
136 $self->story($b->[0], $b->[1])->get('title') } @l;
142 my @l = $self->_call('tags', 0, @_);
144 return sort { $a->[0] cmp $b->[0] } @l;
147 sub insert_topic
{ my $self = shift; return $self->_call('insert_topic', 1, @_); }
148 sub insert_user
{ my $self = shift; return $self->_call('insert_user', 1, @_); }
149 sub insert_story
{ my $self = shift; return $self->_call('insert_story', 1, @_); }
155 if (@_) { $self->{auth
} = shift; } # Gruta::Data::User
157 return $self->{auth
};
168 $self->_call('purge_old_sessions', 0);
170 if (my $session = $self->_call('session', 1, $sid)) {
171 $u = $session->source->user( $session->get('user_id') );
174 $u->set('sid', $sid);
191 if (my $u = $self->user( $user_id )) {
193 # account expired? go!
194 if (my $xdate = $u->get('xdate')) {
195 if (Gruta
::Data
::today
() > $xdate) {
200 my $p = $u->get('password');
202 if (Gruta
::Data
::crypt($passwd, $p) eq $p) {
204 my $session = Gruta
::Data
::Session
->new(user_id
=> $user_id);
206 $u->source->insert_session( $session );
208 $sid = $session->get('id');
209 $u->set('sid', $sid);
221 if (my $auth = $self->auth()) {
222 if( my $sid = $auth->get('sid')) {
223 if (my $session = $auth->source->session( $sid )) {
224 $session->delete() if $session->can('delete');
229 $self->auth( undef );
234 sub base_url
{ $_[0]->{base_url
} || '' };
236 sub _topic_special_uri
{
238 my $topic_id = shift;
242 if (my $t = $self->topic($topic_id)) {
243 $ret = sprintf('<a href="%s?t=TOPIC;topic=%s">%s</a>',
244 $self->base_url(), $topic_id, $t->get('name')
248 $ret = "Bad topic $topic_id";
255 sub _story_special_uri
{
257 my $topic_id = shift;
258 my $story_id = shift;
262 if (my $s = $self->story($topic_id, $story_id)) {
263 $ret = sprintf('<a href="%s?t=STORY;topic=%s;id=%s">%s</a>',
264 $self->base_url(), $topic_id, $story_id, $s->get('title')
268 $ret = "Bad story '$topic_id/$story_id'";
275 sub _img_special_uri
{
280 my $r = sprintf('<img src = "%simg/%s" />',
281 $self->base_url(), $src
285 $r = "<span class = '$class'>" . $r . '</span>';
295 $string =~ s!topic://([\w\d_]+)!$self->_topic_special_uri($1)!ge;
296 $string =~ s!story://([\w\d_]+)/([\w\d_]+)!$self->_story_special_uri($1,$2)!ge;
297 $string =~ s!img://([\w\d_\.-]+)/?([\w\d_]*)!$self->_img_special_uri($1,$2)!ge;
303 sub transfer_to_source
{
307 foreach my $id ($self->users()) {
308 my $u = $self->user($id);
309 $dst->insert_user($u);
312 foreach my $topic_id (sort $self->topics()) {
313 my $t = $self->topic($topic_id);
318 if ($nti =~ /-arch$/) {
319 # don't insert topic, just rename
323 $dst->insert_topic($t);
326 foreach my $id ($self->stories($topic_id)) {
328 # get story and its tags
329 my $s = $self->story($topic_id, $id);
330 my @tags = $s->tags();
333 $s->set('topic_id', $nti);
335 my $ns = $dst->insert_story($s);
347 sub flush_story_cache
{
350 $self->{story_cache
} = {};
357 my $g = bless( { @_ } , $class);
359 $g->{id
} ||= 'Gruta';
361 $g->{story_cache
} = {};
362 $g->{renderers_h
} = {};
365 if (ref($g->{sources
}) ne 'ARRAY') {
366 $g->{sources
} = [ $g->{sources
} ];
369 if ($g->{renderers
}) {
370 if (ref($g->{renderers
}) ne 'ARRAY') {
371 $g->{renderers
} = [ $g->{renderers
} ];
374 foreach my $r (@
{$g->{renderers
}}) {
375 $g->{renderers_h
}->{$r->{renderer_id
}} = $r;
379 if ($g->{template
}) {
380 $g->template->data($g);