bury a thread

1 files changed, 39 insertions, 0 deletions

diff --git a/cgi-bin/bury b/cgi-bin/bury
new file mode 100755
index 0000000..9aa43b8
--- /dev/null
+++ b/cgi-bin/bury
@@ -0,0 +1,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;
+  }
+}