#############################################
# 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;