cgi-bin & lib

1 files changed, 315 insertions, 0 deletions

diff --git a/lib/settings.pm b/lib/settings.pm
new file mode 100644
index 0000000..2767cac
--- /dev/null
+++ b/lib/settings.pm
@@ -0,0 +1,315 @@
+#############################################
+# SETTINGS - thread maintain forms
+
+sub admin_form
+	{
+	my ($id, $t, $f, $k) = @_;
+	print <<adminhead;
+<table width=100% border=0 cellpadding=0 cellspacing=5>
+<tr>
+adminhead
+	if ($t->{files} > 0)
+		{
+		print qq(<td colspan=2 align=left style="padding-left: 10px;">\n);
+		}
+	else
+		{
+		print qq(<td align=left style="padding-left: 10px;">\n);
+		}
+	print <<adminhead;
+<div style="float: right; text-align: center;">
+<br>
+<a href="$BUCKY/details/$id"><u><big><b>exit</b> settings screen</big></u></a><br><br><br>
+adminhead
+	($many, $flagged) = find_jpeg($files, $t->{flagged});
+	print qq!</div>!;
+
+	thread_display_settings($id, $t, $k);
+	keyword_display_settings($id, $t, $k);
+	print q{ </td>};
+
+	if ($t->{files} > 0)
+		{
+		print q{ <td align=center valign=top>};
+		file_display_settings($id, $t);
+		print q{ </td>};
+		}
+	print q{</tr>};
+	print q{<tr><td colspan=2 align=right>};
+	thread_delete_box($id);
+	print q{</td></tr>};
+	print q{</table>};
+	}
+
+sub thread_display_settings
+	{
+	my ($id, $t, $k) = @_;
+
+	my $rcolor = get_color($t, $k);
+
+	print qq!<div style="text-align: center; width: 350px;">!;
+	print qq!<center>!;
+	print <<keywordhead;
+<big><b>display</b> settings</big>
+<hr noshade color="$BUCKY_COLOR_HR">
+keywordhead
+	print qq!<div style="text-align: left; width: 250px;">!;
+	print qq!<form action="$BUCKY/maintain" name="display" 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="$id">\n};
+	print qq{<input type=hidden name="c" value="display">\n};
+
+	print qq!<table border=0 cellpadding=0 cellspacing=0>!;
+	print qq!<tr>!;
+	print qq!<td align="right">!;
+	print qq(title:&nbsp;);
+	print qq!</td>!;
+	print qq!<td align="left">!;
+	print qq(<input type=text name="title" value="$t->{title}" size=30 maxlength=48> );
+	print qq!</td>!;
+	print qq!</tr>!;
+	print qq!<tr>!;
+	print qq!<td align="right">!;
+	print qq(color:&nbsp;);
+	print qq!</td>!;
+	print qq!<td align="left">!;
+	color_dropdown($rcolor, 0);
+	print qq!</td>!;
+	print qq!</tr>!;
+
+	print qq!<tr>!;
+	print qq!<td>&nbsp;</td>!;
+	print qq!<td align="left">!;
+
+	print qq!<table border=0 cellpadding=0 cellspacing=0>!;
+	print qq!<tr>!;
+	onecheckbox("shorturl", "shorten urls", $t->{display});
+	print qq!</tr>!;
+	print qq!<tr>!;
+	onecheckbox("editable", "comments editable by ops", $t->{display});
+	print qq!</tr>!;
+	print qq!<tr>!;
+	onecheckbox("opset", "post settings available to ops", $t->{display});
+	print qq!</tr><tr>!;
+	onecheckbox("no-zip-button", "no zip button", $t->{display});
+	print qq!</tr>!;
+
+	if ($t->{keyword} ne undef)
+		{
+		onecheckbox("hidekws", "hide keyword list", $t->{display});
+		}
+
+	if ($t->{files} > 5)
+		{
+		print qq!<table border=0 cellpadding=0 cellspacing=0>!;
+		print qq!<tr>!;
+		my $ffl = check_key($t->{display}, "ffl");
+		my $nfl = check_key($t->{display}, "nfl");
+		oneradiobutton("filelist", 2, "full file list", $ffl);
+		print qq!</tr><tr>!;
+		oneradiobutton("filelist", 1, "trim if many images", (!$nfl && !$ffl));
+		print qq!</tr><tr>!;
+		oneradiobutton("filelist", 0, "no file list", $nfl);
+		print qq!</tr>!;
+		print qq!</table>!;
+		}
+	print qq!</table>!;
+	print qq!</td>!;
+	print qq!</tr>!;
+	print qq!</table>!;
+
+	print qq!<hr noshade color="$BUCKY_COLOR_HR" size=1>!;
+	print qq!<table cellpadding=0 cellspacing=0 border=0>!;
+	print_garrow("date posted",	(verbosedate($t->{createdate})));
+	print_garrow("last changed",	(verbosedate($t->{lastmodified})));
+	print_garrow("total comments",	(hushnull($t->{comments})));
+	print_garrow("total files",	(hushnull($t->{files})));
+	my $par = get_participation($t->{id});
+	my $ps = $par != 1 ? 's' : '';
+	print_garrow("participating",(hushnull($par).qq! <span class="older">duder$ps</span>!));
+	if ($t->{zipped} == -1)
+		{
+		my $zipfile = retrieve_zip_mechanism($t);
+		if ($zipfile == 1)
+			{ print_garrow("zipfile?",	qq(<b>in progress</b>)); }
+		}
+	if ($t->{zipped} == 0)
+		{
+		print_garrow("zipfile?",	qq(none));
+		}
+	if ($t->{zipped} == 1)
+		{
+		my $zip = get_file_from_filename(generate_zip_filename($t));
+		print_garrow("zipfile?",	qq(exists,&nbsp;<small>complete&nbsp;as&nbsp;of&nbsp;).(verbosedatetime($zip->{date}))[0].qq(<br><u>freshen</u> | <u>flush</u></small>));
+		}
+	print qq!</table>!;
+
+	print qq!</div>!;
+	print qq!</center>!;
+	print qq!</div>!;
+
+	print qq!</td>!;
+	print qq!</tr>!;
+
+	print <<keywordhead;
+<div style="width: 350px;">
+<center>
+<big><b>category</b> settings</big>
+<hr noshade color="$BUCKY_COLOR_HR">
+keywordhead
+
+# no keyword set
+	if ($t->{keyword} eq undef)
+		{
+		print qq!<form action="$BUCKY/index" method="post" name="keyword" enctype="multipart/form-data">\n!;
+		print qq{<input type=hidden name="debug" value="1">\n} if ($DEBUG);
+		print qq{<input type=hidden name="thread" value="$id">\n};
+		print qq{<input type=hidden name="c" value="assign">\n};
+		print qq!<table border=0 cellpadding=0 cellspacing=0>!;
+		print qq!<tr><td align="center" valign="middle">SELECT ONE:&nbsp; !;
+		keyword_pulldown($t->{keyword});
+		print <<kwform;
+<input type="submit" value="SET CATEGORY" class="clicky">
+</form>
+</td>
+</tr>
+<tr>
+<td align="center" valign="middle">
+or<br><a href="$BUCKY/index?thread=$t->{id}&keyword=new"><big>make <b>new</b> category</big></a>
+</td>
+</tr>
+</table>
+kwform
+		}
+	else
+		{
+		print qq{current category: <b>$k->{keyword}</b>};
+
+		print qq!&nbsp;&middot;&nbsp;<a href="$BUCKY/index?c=detach&thread=$t->{id}!;
+		print qq!&debug=1! if ($DEBUG);
+		print qq!"><small>detach</small></a>!;
+
+		if ($k->{owner} eq $USER->{username} || check_op($k) || $USER->{ulevel} == 3)
+			{
+			print qq!&nbsp;&middot;&nbsp;<a href="$BUCKY/index?c=edit&keyword=$t->{keyword}!;
+			print qq!&debug=1! if ($DEBUG);
+			print qq!"><small>settings</small></a>!;
+			}
+		}
+	print <<kwform;
+<br>
+<br>
+<big><b>privacy</b> settings</big>
+<hr noshade color="$BUCKY_COLOR_HR">
+kwform
+
+	print qq!<table border=0 cellpadding=0 cellspacing=0>!;
+	print qq!<tr>!;
+	print qq!<td valign="middle" align=right>viewable by &nbsp;&middot;</td>!;
+	print qq!<td valign="middle" align=left>!;
+	privacy_select("private", $t->{private});
+	print qq!</td></tr></table>!;
+	if ($t->{private} > 1)
+		{
+		print qq!<span style="font-family: georgia, garamond, serif; font-size: 12px;">\n!;
+		print qq!<nobr><small>users checked off below will be able to <b>read</b> and <b>update</b> this post!;
+		if ($k != -1 && $k->{public} != 1)
+			{
+			print qq!,<br>but cannot see the rest of the keyword!;
+			}
+		print qq!.</small></nobr>\n!;
+		print qq!</span>!;
+		user_checkerboard($t->{allowed}, undef, $t->{username});
+		}
+	print <<privend;
+<input type="submit" value="UPDATE PRPOST SETTINGS" class="clicky">
+</form>
+</small>
+</center>
+</div>
+privend
+	}
+
+sub file_display_settings
+	{
+	my ($id, $t) = @_;
+	print <<dirtop;
+<div style="width: 500px; text-align: center;">
+<big><b>file</b> settings</big><br>
+<hr noshade color="$BUCKY_COLOR_HR">
+dirtop
+
+	print qq!<form name="filez" 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="$id">\n};
+	print qq{<input type=hidden name="debug" value="1">\n} if ($DEBUG);
+	print <<actionform;
+<script type="text/javascript">
+<!--
+function toggle() 
+  {
+  var e = document.filez.elements.length;
+  for (var i = 0; i < e; i++)
+    {
+    var y = "document.filez[i].type";
+    type = eval(y);
+
+    var n = "document.filez[i]";
+    box = eval(n);
+
+    if (type == "checkbox")
+      {
+      if (box.checked == false)
+        { box.checked = true; }
+      else
+        { box.checked = false; }
+      }
+    }
+  }
+-->
+</script>
+
+	<input type=button value="toggle checked" onClick="JavaScript:toggle()"> &middot;
+          <select name="verb">
+            <option value="flag" selected>Check off main image...</option>
+            <option value="rm">Delete checked files (no undo)</option>
+<!--         <option value="move">Move checked files...</option>	-->
+          </select>
+	<input type="submit" value="UPDATE FILES" class="clicky">
+actionform
+	file_list($files, -1, 1);
+	print <<end;
+</form>
+</div>
+end
+	}
+
+sub thread_delete_box
+	{
+	my ($id) = @_;
+	print <<formend;
+<tr>
+<td align="right" colspan=2 nowrap>
+<form action="$BUCKY/maintain" name="delete" method="post" enctype="multipart/form-data">
+<input type=hidden name="id" value="$id">
+<input type=hidden name="c" value="clobber">
+<input type="submit" value="EMERGENCY DELETE BUTTON" class="clicky" style="margin-right: 15px;">
+</form>
+</span>
+</td>
+</tr>
+</table>
+formend
+	}
+
+#############################################
+
+sub print_garrow
+	{
+	my ($a, $b) = @_;
+	$a =~ s/\s/&nbsp;/g;
+	print qq!<tr><td style="text-align: right; vertical-align: middle;"><big>$a:</big></td><td style="text-align: left; vertical-align: middle; padding: 5px;">$b</a></td></tr>\n!;
+	}
+
+1;
+