500

2 files changed, 14 insertions, 10 deletions

diff --git a/cgi-bin/bury b/cgi-bin/bury
index 9aa43b8..07fcd43 100755
--- a/cgi-bin/bury
+++ b/cgi-bin/bury
@@ -7,16 +7,20 @@ use localbucky;
 
 $dbh = DBI->connect ($dsn);
 
-our ($USER, $lastlog) = checkin();
-logout() unless ($USER != -1);
+#our ($USER, $lastlog) = checkin();
+#logout() unless ($USER != -1);
+
+$input->{id} ||= $input->{object_from_uri} if defined($input->{object_from_uri});
+if (exists($input->{id}) && $input->{id} > 0)
+        { $id = $input->{id}; }
+else
+        { error("No post specified."); }
+$id = $input->{id};
 
-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");
diff --git a/cgi-bin/login b/cgi-bin/login
index 0335549..86fc4b1 100755
--- a/cgi-bin/login
+++ b/cgi-bin/login
@@ -12,11 +12,11 @@ if (-e "/var/www/vhosts/carbonpictures.com/bucky/lock")
   exit(0);
   }
 
-if (! exists $ENV{'HTTPS'} || $ENV{'HTTPS'} ne "on")
-	{
-	print "Location: https://www.carbonpictures.com/cgi-bin/bucky/index\n\n";
-	exit;
-	}
+#if (! exists $ENV{'HTTPS'} || $ENV{'HTTPS'} ne "on")
+#	{
+#	print "Location: https://www.carbonpictures.com/cgi-bin/bucky/index\n\n";
+#	exit;
+#	}
 use localbucky;
 
 $dbh = DBI->connect ($dsn);