diff options
Diffstat (limited to 'cgi-bin')
| -rwxr-xr-x | cgi-bin/bury | 14 | ||||
| -rwxr-xr-x | cgi-bin/login | 10 |
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); |