cgi-bin/bury


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

#!/usr/bin/perl
#########################################
# not bless
#########################################

use localbucky;

$dbh = DBI->connect ($dsn);

our ($USER, $lastlog) = checkin();
logout() unless ($USER != -1);

my $id = $input->{id};
if (get_thread($id) == -1)
        { error("no such thread"); }
my $changed_date = get_most_recent_change($id);
if ($changed_date > 0) {
  print $id . "\n";
  print $changed_date . "\n";
  update_thread_lastmodified($id, $changed_date);
}
redirect("$BUCKY/index");

$dbh->disconnect ();

sub get_most_recent_change {
  my ($id) = @_;
  my $files = get_recent_files($id);
  my $comments_date = get_thread_comment_modified($id);
  my $date = 0;
  if ($files != -1) {
    my $d = $files->[-1]->{'date'};
    $date = $d >= $date ? $d : $date;
  }
  if ($comments != -1) {
    my $d = $comments_date;
    $date = $d >= $date ? $d : $date;
  }
}