summaryrefslogtreecommitdiff
path: root/cgi-bin/maintain
diff options
context:
space:
mode:
Diffstat (limited to 'cgi-bin/maintain')
-rwxr-xr-xcgi-bin/maintain289
1 files changed, 289 insertions, 0 deletions
diff --git a/cgi-bin/maintain b/cgi-bin/maintain
new file mode 100755
index 0000000..007e1e3
--- /dev/null
+++ b/cgi-bin/maintain
@@ -0,0 +1,289 @@
+#!/usr/bin/perl
+#########################################
+# maintain
+# - thread administration
+#########################################
+
+use localbucky;
+
+our $id;
+our $files;
+
+$dbh = DBI->connect ($dsn);
+
+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}; }
+elsif (exists($input->{keyword}) )
+ { $keyword = $input->{keyword}; }
+else
+ { error("No post specified."); }
+
+my $t = get_thread($id);
+my $k = get_keyword($t->{keyword});
+
+if ($t == -1)
+ { error("No such post."); }
+
+$files = get_files($t->{id});
+$comments = get_comments($t->{id});
+
+#my ($participation) = check_participation($files, $comments);
+my ($participation) = 0;
+
+if (exists($input->{c}) && $input->{c} eq "zip")
+ {
+ if ($t->{zipped} == 0)
+ {
+ my $cleantitle = generate_zip_filename($t);
+ update_thread_zipped($t->{id}, -1);
+ $t->{zipped} = -1;
+ system(qq!$NOHUP_PATH $ZIP_PATH -jr "$data_path/$t->{id}/$cleantitle" $data_path/$t->{id}/* >$temp_path/.zip.out -x "$cleantitle" 2>&1 &!);
+ redirect("$BUCKY/".details_link($t)."/$t->{id}");
+ }
+ elsif ($t->{zipped} == 1)
+ {
+ my $cleantitle = generate_zip_filename($t);
+ update_thread_zipped($t->{id}, -1);
+ $t->{zipped} = -1;
+ system(qq!$NOHUP_PATH $ZIP_PATH -jr "$data_path/$t->{id}/$cleantitle" $data_path/$t->{id}/* >$temp_path/.zip.out -x "$cleantitle" 2>&1 &!);
+ redirect("$BUCKY/".details_link($t)."/$t->{id}");
+ }
+ }
+elsif ($t->{username} eq $USER->{username} || check_op($k) || $participation == 2 || (check_key($t->{display}, "opset") && check_privacy($t, $k)) || $USER->{ulevel} == 3)
+ {
+ header( {
+ title => "settings for \"$t->{title}\"",
+ subtitle => qq!posted by <a href="$BUCKY/profile/$t->{username}">$t->{username}</a> on ! .
+ (verbosedate($t->{createdate})) .
+ qq! &middot; <span class="lite"><a href="$BUCKY/!.details_link($t).qq!/$t->{id}">view post</a></span>!,
+ color => get_color($t, $k)
+ } );
+ menu();
+ if (exists($input->{c}))
+ {
+ if ($input->{c} eq "display")
+ {
+ if ($t->{title} ne $input->{title})
+ {
+ update_thread_title($t->{id}, $input->{title});
+ $t->{title} = $input->{title};
+ print "Changed title to: <b>$t->{title}</b><br>\n";
+ }
+
+ if (($t->{color} ne $input->{color}) && is_color($input->{color}))
+ {
+ update_thread_color($t->{id}, $input->{color});
+ $t->{color} = $input->{color};
+ print "Set color to: <b>$t->{color}</b><br>\n";
+ print qq(<link rel="stylesheet" href="/css/bogart/$t->{color}.css">);
+ }
+
+ my (@display) = qw[hoot ren "no-upload" shorturl editable opset "no-zip-button" hidekws];
+ my $newdisplay = ' ';
+ foreach my $key (@display)
+ {
+ if (exists($input->{$key}) && $input->{$key} == 1)
+ { $newdisplay = add_key($newdisplay, $key); }
+ }
+ if ($input->{filelist} == 2)
+ { $newdisplay = add_key($newdisplay, "ffl"); }
+ if ($input->{filelist} == 0)
+ { $newdisplay = add_key($newdisplay, "nfl"); }
+
+ if ($t->{display} ne $newdisplay)
+ {
+ update_thread_display($t->{id}, $newdisplay);
+ $t->{display} = $newdisplay;
+ print "New display settings: <b>$t->{display}</b><br>\n";
+ }
+
+ # touch_thread($t);
+ admin_form($t->{id}, $t, $files, $k);
+ }
+ elsif ($input->{c} eq "p")
+ {
+ if ($input->{private} == 2)
+ {
+ print "Thread is now <b>" . $BUCKY_CONFIG->{PRIVACY_OWNER} . "</b>.<br>";
+ switch_thread_privacy($t->{id}, 2);
+ $t->{allowed} = update_whitelist();
+ $t->{private} = 2;
+ }
+ elsif ($input->{private} == 1)
+ {
+ print "Thread is now viewable by <b>" . $BUCKY_CONFIG->{PRIVACY_BBS} || "other users" . "</b>.<br>";
+ switch_thread_privacy($t->{id}, 1);
+ $t->{allowed} = update_whitelist();
+ $t->{private} = 1;
+ }
+ else
+ {
+ print "Thread is now viewable by <b>" . $BUCKY_CONFIG->{PRIVACY_WORLD} . "</b>.<br>";
+ switch_thread_privacy($t->{id}, 0);
+ $t->{private} = 0;
+ }
+ admin_form($t->{id}, $t, $files, $k);
+ }
+ # change tags
+ elsif ($input->{c} eq "t")
+ {
+ my $new_tags = 0;
+ if ($input->{tags} ne $input->{tags_saved})
+ {
+ print "Changed Tag to " . $input->{tags} . "<br>" if ($DEBUG);
+ # First: add new tags
+ my $tags = get_tags_from_string( $input->{tags} );
+ foreach my $tag (@$tags)
+ {
+ print "Assigning tag $tag<br>\n" if ($DEBUG);
+ print tag_assign_mechanism( $tag, $t ) || "";
+ $new_tags++;
+ }
+
+ # Second: remove deleted tags
+ my $old_tags = get_tags_from_string( $input->{tags_saved} );
+ foreach my $old_tag (@$old_tags)
+ {
+ # If the new tags list does not contain this old tag, remove it
+ if ( ! grep ( /^$old_tag$/, @$tags ) )
+ {
+ print tag_remove_mechanism( $old_tag, $t ) || "";
+ $new_tags++;
+ }
+ }
+ }
+ # touch_thread($t);
+ $t = get_thread( $t->{id} ) if $new_tags;
+ admin_form($t->{id}, $t, $files, $k);
+ }
+ elsif ($input->{c} eq "f")
+ {
+ my @flagged = corral($input, "file");
+ if ($DEBUG)
+ {
+ print "<br>\nfiles flagged: ";
+ foreach (@flagged)
+ { print; print " "; }
+ print "<br>\n";
+ }
+ if ($input->{verb} eq "flag")
+ {
+ print "Flagged file $flagged[0]<br>";
+ update_flagged($t->{id}, $flagged[0]);
+ $t->{flagged} = $flagged[0];
+ touch_thread($t);
+ admin_form($t->{id}, $t, $files, $k);
+ }
+ elsif ($input->{verb} eq "move")
+ {
+ print "When this works it will be like this:!<br>\n";
+ print "Where do you want to move these files here<br>\n";
+ print "Moving files...<br>\n";
+ # system("mv", $data_path/$oldpid/$filenamea ..., "$data_path/$newpid/");
+ print "Moving ids...<br>\n";
+ print "Recalculating post sizes...<br>\n";
+ }
+ elsif ($input->{verb} eq "rm")
+ {
+ if (!$input->{ok})
+ {
+ print qq(<center><p><div class="bluebox" style="width: 320px; padding: 10px;"><big><b>Are you sure you want to delete these files?</b></big><hr noshade color="$BUCKY_COLOR_HR"><p>\n);
+ print qq(<form action="$BUCKY/maintain" method="post" enctype="multipart/form-data">);
+ print qq(<input type=hidden name="c" value="f">\n);
+ print qq(<input type=hidden name="id" value="$t->{id}">\n);
+ print qq(<input type=hidden name="debug" value="1">\n) if ($DEBUG);
+ print qq(<input type=hidden name="verb" value="rm">\n);
+ print qq(<input type=hidden name="ok" value="1">\n);
+
+ my $i = 0;
+ my $fid = shift(@flagged);
+ foreach my $fh (sort_by_id(@$files))
+ {
+ next if ($fid != $fh->{id});
+ $i++;
+
+ print qq{<input type=hidden name="file$fid" value="$fid">\n};
+ print $fh->{id}.": " if ($DEBUG);
+ print $fh->{filename}."<br>\n";
+
+ $fid = shift(@flagged);
+ }
+
+ print qq{<br><input type="submit" value="YES YES DELETE THE FILES" class="clicky"></form></div></center>};
+ }
+ else
+ {
+ my $i = 0;
+ my $fid = shift(@flagged);
+ foreach my $fh (sort_by_id(@$files))
+ {
+ next if ($fid != $fh->{id});
+ $i++;
+
+ next if -d qq!$data_path/$t->{id}/$$fh{filename}!;
+ delete_file_record($fid);
+ system($RM_PATH, "-f", qq!$data_path/$t->{id}/$$fh{filename}!);
+ system($RM_PATH, "-f", qq!$data_path/$t->{id}/.thumb/s.$$fh{filename}!);
+ system($RM_PATH, "-f", qq!$data_path/$t->{id}/.thumb/t.$$fh{filename}!);
+ system($RM_PATH, "-f", qq!$data_path/$t->{id}/.thumb/b.$$fh{filename}!);
+ print qq!deleted $$fh{filename}<br>\n!;
+
+ $fid = shift(@flagged);
+ }
+
+ print "Recalculating post size...<br>\n";
+ update_thread_size($t->{id});
+ $files = get_files($t->{id});
+ touch_thread($t);
+ admin_form($t->{id}, $t, $files, $k);
+ }
+ }
+ }
+ elsif ($input->{c} eq "clobber")
+ {
+ if ($input->{okay})
+ {
+ delete_thread($t->{id});
+ print qq!<br><br><center><table width=400 border=0 cellpadding=0 cellspacing=0><tr><td class="bluebox" style="padding: 20px;"><big><b>POST DELETED\!</b></big></td></tr></table></center>\n!;
+ }
+ else
+ {
+ my $fs = $t->{files} != 1 ? "s" : "";
+ my $cs = $t->{comments} != 1 ? "s" : "";
+ my $par = get_participation($t->{id});
+ my $ps = $par != 1 ? "s" : "";
+ print qq(<br><br><center><table width=350 border=0 cellpadding=0 cellspacing=0><tr><td class="bluebox" style="padding: 10px;">);
+ print qq(<big>Are you <b>sure</b> you want to delete:<br>$t->{title}</big><br><br>);
+ print qq(Doing so will delete <b>$t->{files} file$fs</b> and <b>$t->{comments} comment$cs</b>,<br>);
+ print qq(<b>destroying</b> the hard work of $par duder$ps\!<br>);
+ print qq(<br>);
+ print qq(<form action="$BUCKY/maintain" method="post" enctype="multipart/form-data">\n);
+ print qq(<input type=hidden name="debug" value="1">\n) if ($DEBUG);
+ print qq(<input type=hidden name="id" value="$t->{id}">\n);
+ print qq(<input type=hidden name="c" value="clobber">\n);
+ print qq(<input type=hidden name="okay" value="1">\n);
+ print qq(<center><table cellpadding=0 cellspacing=10 border=0><tr><td><input type="submit" value="OKAY" class="clicky"></form></td><td><input type="button" value="ABORT" class="clicky" onclick=")."javascript: history.go(-1)".qq("></td></tr></table></center>);
+
+ print qq!</td></tr></table></center>!;
+ }
+ }
+ }
+ else
+ {
+ admin_form($t->{id}, $t, $files, $k);
+ }
+ footer();
+ }
+else
+ {
+ error("Unable to access $id!");
+ }
+
+sub sort_by_username { sort { lc($a->{username}) cmp lc($b->{username}) } @_; }
+sub sort_by_id { sort { $a->{id} <=> $b->{id} } @_; }
+
+print "Maintain: " . &report_time() . "\n" if $timer;
generated by cgit v1.2.3-70-g09d2 (git 2.51.0) at 2025-12-10 16:53:00 +0000