path: root/lib/forms.pm

#############################################
# FORMS
#############################################

sub sticky_button
  {
  my ($keyword) = @_;
  my $checked = '';
  if (check_key($USER->{stickies}, $keyword))
    { $checked = " checked"; }
  print qq(<table border=0 height=10 cellpadding=0 cellspacing=0><tr><td valign=top>);
  print "<small>sticky?&nbsp;</small>";
  print qq(</td><td valign=top>);
  print qq!<form action="$BUCKY/profile" method="post" enctype="multipart/form-data" name="stickiness">!;
  print qq{<input type=hidden name="debug" value="1">} if ($DEBUG);
  print qq{<input type=hidden name="c" value="sticky">};
  print qq{<input type=hidden name="keyword" value="$keyword">};
  print qq{<input type="checkbox" name="chexor" value="keyword"$checked onclick="this.form.submit();" style="padding: 0px; margin: 0px">};
  print qq{</form>};
  print qq(</td></tr></table>\n);
  }

# short upload form for sidebar
sub upload_form
  {
  my ($keyword) = @_;
print <<MID;
<!-- upload form -->
<div class="message">
make a <b>new post</b>
<hr noshade color="$BUCKY_COLOR_HR">
<small>
<form action="$BUCKY/post" method="post" enctype="multipart/form-data">
MID

  print qq{<input type=hidden name="debug" value=1">\n} if ($DEBUG);
  if ($keyword)
    {
    print "category:&nbsp;";
    keyword_pulldown($keyword);
    print "<br>\n";
    }

  print <<MID2;

<input type=hidden name="c" value="new">

subject:<input name="title" value="" size=20 maxlength=50 style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
        color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 5px 5px 0px 5px;"><br>

<input type="file" name="file1" size="12" maxlength="192" style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
        color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 5px;"><br>

description:<br>
<textarea name="comment" value="" rows="4" style="width: 100%; padding: 0px 1px 1px 1px; font-family: trebuchet ms, sans serif; font-size: 11px;">
</textarea>
<br>

<table width="100%" border=0><tr>
<td align=right valign=middle><small><a href="$BUCKY/post">big&nbsp;post&nbsp;form</a>&nbsp;|</small></td>
<td align=left valign=middle><input type="submit" value="CREATE POST" class="clicky"></td>
</tr></table>
</form>
</small>
</div>
MID2
  }

#############################################

sub reply_form
  {
  my ($id, $t) = @_;
  my $submittag;
  return unless ($USER != -1 );  
  if ($t->{comments} == 0)
    { $submittag = "POST"; }
  else
    { $submittag = "REPLY"; }

  print qq{<form action="$BUCKY/comment" method="post" enctype="multipart/form-data">\n};

  if ($DEBUG) { print qq!<input type="hidden" name="debug" value="$DEBUG">\n\n!; }

  print <<FORMEND;
<div align="left" style="padding: 5px 0px 5px 10px;"><small>POST A COMMENT . . .</small></div>
<input type="hidden" name="id" value="$id">
<table border=0 width="100%" cellpadding=0 cellspacing=0 style="padding: 0px; margin: 0px">
<tr>
<td align="center" valign="middle" colspan=2>
<textarea id="comment" name="comment" rows="8" style="width: 96%; font-family: trebuchet ms, sans serif; font-size: 12px;">
</textarea>
</td>
</tr>
<tr>
FORMEND

  if (! check_key($t->{display}, "no-upload"))
    {
    print <<FORMEND;
<td align="left" valign="middle" style="padding-left: 10px;">
<!--<small>enter a comment in the box above OR add some files below OR <i>both!</i>&nbsp;</small><br>-->
<input type="file" name="file1" size="12" maxlength="192" style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;" />
<input type="file" name="file2" size="12" maxlength="192" style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;" /><br>
<input type="file" name="file3" size="12" maxlength="192" style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;" />
<input type="file" name="file4" size="12" maxlength="192" style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;" />
</td>
<td align="center" valign="middle" style="padding-right: 10px;">
FORMEND
    }
  else
    {
    print qq(<td align="right" valign="middle" style="padding-right: 10px;">);
    }
  print <<FORMEND;
<div style="text-align: center; width: 50px;">
<input type="submit" class="clicky" value="$submittag">
<br>
<small><a href="$BUCKY/post?thread=$t->{id}">big&nbsp;form</a></small>
</div>
</form>
</td></tr></table>
FORMEND
  }

#############################################

sub curt_post_form
  {
  my ($c) = @_;
  my $pid = ($c->{parent_id} > 0) ? $c->{parent_id} : -1;

  print qq{<form action="$BUCKY/comment" method="post" enctype="multipart/form-data">\n};

  if ($DEBUG) { print qq!<input type="hidden" name="debug" value="$DEBUG">\n\n!; }

  my $date = plaindate($c->{date});
  my $comment = $c->{comment};
  $comment =~ s/&/&amp;/g;
  $comment =~ s/>/&gt;/g;
  $comment =~ s/</&lt;/g;

  print <<FORMEND;
<div align="left" style="padding: 5px;">$c->{username} posted this comment on $date:</div>
<input type="hidden" name="c" value="update">
<input type="hidden" name="id" value="$c->{id}">
<textarea name="comment" rows="21" style="width: 100%; font-family: trebuchet ms, sans serif; font-size: 12px;">
$comment</textarea>
<table border=0 width="100%" cellpadding=0 cellspacing=0 style="padding: 0px; margin: 0px">
<tr>
<td align="right" valign="middle" style="padding: 10px;">
<input type="submit" class="clicky" value="EDIT COMMENT">
</form>
</td></tr></table>
FORMEND
  }

#############################################

sub curt_reply_form
  {
  my ($c, $t, $k) = @_;

  print qq{<form action="$BUCKY/comment" method="post" enctype="multipart/form-data">\n};

  if ($DEBUG) { print qq!<input type="hidden" name="debug" value="$DEBUG">\n\n!; }
  if ($c != -1)
    {
    my $date = plaindate($c->{date});
    print <<FORMEND;
<div align="left" style="padding: 5px;">$c->{username} posted this comment on $date:
<blockquote>$c->{comment}</blockquote></div>
<input type="hidden" name="id" value="$t->{id}">
<input type="hidden" name="parent_id" value="$c->{id}">
FORMEND
    }
  else
    {
    print qq!<input type="hidden" name="id" value="$t->{id}">\n!;
    }
  print <<FORMEND;
<textarea name="comment" rows="21" style="width: 100%; font-family: trebuchet ms, sans serif; font-size: 12px;">
</textarea>
<table border=0 width="100%" cellpadding=0 cellspacing=0 style="padding: 0px; margin: 0px">
<tr>
<td align="right" valign="middle" style="padding: 10px;">
<input type="submit" class="clicky" value="REPLY">
</form>
</td></tr></table>
FORMEND
  }

#############################################

sub hoot_form
  {
  my ($id, $t) = @_;
  print qq{<form action="$BUCKY/comment" method="post" enctype="multipart/form-data">\n};
  if ($DEBUG) { print qq!<input type="hidden" name="debug" value="$DEBUG">\n\n!; } 
  print <<FORMEND;
<input type="hidden" name="id" value="$id">
<td style="text-align: center; vertical-align: middle; padding: 5px 10px 5px 10px;">
<textarea name="comment" rows="2" style="width: 95%; font-family: trebuchet ms, sans serif; font-size: 11px;">
</textarea>
</td>
<td style="text-align: center; vertical-align: middle; padding-right: 20px;">
<input type="submit" class="clicky" value="CHAT">
<br>
<small><a href="$BUCKY/post?thread=$t->{id}">big&nbsp;form</a></small>
</td></tr>
FORMEND
  print "</form>";
  }

#############################################

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!;
  }

#############################################

sub onebutton
  {
  my ($id, $key, $button) = @_;

  print qq(<form action="$BUCKY/maintain" method="post" enctype="multipart/form-data">\n);
  print qq(<input type=hidden name="id" value="$id">\n);
  print qq(<input type=hidden name="c" value="$key">\n);
  print qq(<input type="submit" value="$button" class="clicky" align="center">\n</form>\n);
  }

sub onecheckbox
  {
  my ($key, $gloss, $tokens) = @_;

  print qq(<td valign=top align="right">\n);
  print qq(<input type="checkbox" name="$key" value="1" style="padding: 0px; margin: 0px");
  print qq( checked) if (check_key($tokens, $key));
  print qq(></td>) .
  qq(<td valign=top align="left">&nbsp;$gloss&nbsp;</td>);
  }

sub oneradiobutton
  {
  my ($key, $value, $gloss, $check) = @_;

  print qq(<td valign=top align="right">\n);
  print qq(<input type="radio" name="$key" value="$value" style="padding: 0px; margin: 0px");
  print qq( checked) if ($check == $value);
  print qq(></td>) .
  qq(<td valign=top align="left">&nbsp;$gloss&nbsp;</td>);
  }

#############################################

sub privacy_select
  {
  my ($key, $level) = @_;
  print "<table cellpadding=0 cellspacing=2 border=0>";
  print "<tr>";
  oneradiobutton($key, 0, $BUCKY_CONFIG->{PRIVACY_WORLD}, $level) if $BUCKY_CONFIG->{PRIVACY_WORLD};
  oneradiobutton($key, 1, $BUCKY_CONFIG->{PRIVACY_BBS}, $level) if $BUCKY_CONFIG->{PRIVACY_BBS};
  oneradiobutton($key, 1.5, $BUCKY_CONFIG->{PRIVACY_KEYWORD}, $level) if $BUCKY_CONFIG->{PRIVACY_KEYWORD};
  oneradiobutton($key, 2, $BUCKY_CONFIG->{PRIVACY_OWNER}, $level) if $BUCKY_CONFIG->{PRIVACY_OWNER};
  print "</tr>";
  print "</table>";
  }

#############################################

sub admin_form
  {
  my ($id, $t, $f, $k) = @_;
  print <<adminhead;
<table width=100% border=0 cellpadding=0 cellspacing=5>
<tr>
<td colspan=2 align=left style="padding-left: 10px;">
<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);
  print q{ </td>};
  print q{</tr>};
  print q{<tr><td align="left" valign="top">};
  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: center; 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("no-upload", "disable file upload", $t->{display});
  print qq!</tr>!;
  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>!;
  print qq!<tr>!;
  onecheckbox("no-zip-button", "no zip button", $t->{display});
  print qq!</tr>!;

  if ($t->{keyword} ne undef)
    {
    print qq!<tr>!;
    onecheckbox("hidekws", "hide keyword list", $t->{display});
    print qq!</tr>!;
    }
  print qq!</table>!;

  if ($t->{files} > 5)
    {
    my $filelist = 1;
    print qq!<table border=0 cellpadding=0 cellspacing=0>!;
    print qq!<tr>!;
    if (check_key($t->{display}, "ffl"))
      { $filelist = 2; }
    elsif (check_key($t->{display}, "nfl"))
      { $filelist = 0; }
    oneradiobutton("filelist", 2, "full file list", $filelist);
    print qq!</tr><tr>!;
    oneradiobutton("filelist", 1, "trim if many images", $filelist);
    print qq!</tr><tr>!;
    oneradiobutton("filelist", 0, "no file list", $filelist);
    print qq!</tr>!;
    print qq!</table>!;
    }
  else
    {
    print qq(<input type="hidden" name="filelist" value="1">);
    }

  print qq(<input type="submit" value="UPDATE DISPLAY" class="clicky" align="center">\n</form>\n);
  print qq!</td>!;
  print qq!</tr>!;
  print qq!</table>!;
  print qq!</form>!;

  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!</center>!;
  print qq!</div>!;

  print qq!</td>!;
  print qq!</tr>!;
  }

sub keyword_display_settings
  {
  my ($id, $t, $k) = @_;

  print <<keywordhead;
<div style="width: 350px;">
<center>
<big><b>category &amp; tag</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 qq(<br>);
  print qq!<form action="$BUCKY/maintain" name="tags" method="post" enctype="multipart/form-data">\n!;
  print qq{<input type=hidden name="debug" value="1">\n} if ($DEBUG);
  my $tags_string = tags_stringify( $t->{tags} );
  print qq{<input type=hidden name="tags_saved" value="$tags_string">\n};
  print qq{<input type=hidden name="id" value="$id">\n};
  print qq{<input type=hidden name="c" value="t">\n};

  print qq(Tags: );
  print qq!<input type=text name="tags" value="$tags_string" size=30 maxlength=48>!;

  print <<kwform;
<input type="submit" value="UPDATE TAGS" class="clicky">
</form>
<br>
<br>
<big><b>privacy</b> settings</big>
<hr noshade color="$BUCKY_COLOR_HR">
kwform

  print qq!<form action="$BUCKY/maintain" name="privacy" 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="p">\n};

  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 PRIVACY" 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 profile_form
  {
  my ($uname) = @_;
  my $profile = get_user_profile($uname);

  print qq!<form action="$BUCKY/profile" method="post" enctype="multipart/form-data">\n!;
  print qq!<input type="hidden" name="debug" value="$DEBUG">! if ($DEBUG);
  print qq!<input type="hidden" name="c" value="update">!;

  print <<profileform;
<br><br>
<center>
<table border=0 cellpadding=0 cellspacing=5>
<tr><td colspan=2><hr noshade color="$BUCKY_COLOR_HR" size=1></td></tr>
<tr><td align="left" colspan=2><b><big>profile settings</big></b></td></tr>
<tr><td colspan=2><hr noshade color="$BUCKY_COLOR_HR" size=1></td></tr>
<tr>
<td align="right"><b>Real name:</b></td>
<td align="left"><input type="text" name="realname" value="$$profile{realname}" size=20></td>
</tr>
<tr>
<td align="right"><b>Email address:</b></td>
<td align="left"><input type="text" name="email" value="$$profile{email}" size=30></td>
</tr>
<tr>
<td align="right"><b>AIM:</b></td>
<td align="left"><input type="text" name="aim" value="$$profile{aim}" size=15></td>
</tr>
<tr>
<td align="right"><b>Phone:</b></td>
<td align="left"><input type="text" name="phone" value="$$profile{phone}" size=15></td>
</tr>
<tr>
<td align="right"><b>Location:</b></td>
<td align="left"><input type="text" name="location" value="$$profile{location}" size=30></td>
</tr>
<tr>
<td align="right"><b>Timezone:</b></td>
profileform

  print qq!<td align="left">!;
  print qq!<select name="timezone">!;
  my %tzs = ( eastern => -5, central => -6, pacific => -8, englandish => 0 );
  foreach $tzk (sort keys %tzs)
    {
    print qq!<option value="$tzs{$tzk}"!;
    print " selected" if ($tzs{$tzk} == $$USER{timezone});
    print qq!>$tzk</option>!;
    }
  print qq!</select>!;
  print qq!</td>\n!;

  print <<profileform;
</tr>
<tr>
<td align="right"><b>Profile picture:</b></td>
<td align="left"><input type="file" name="userpic" size="12" maxlength="192" style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;" /></td>
</tr>
profileform

  if (-e $data_path."/profile/.thumb/pro.".$uname.".jpg")
    { print qq!<tr><td valign="top" align="right"><i>current profile picture:</i></td><td align="left"><img src="$live_path/profile/$uname.jpg" style="padding: 2px; height: 101px;"> <input type="checkbox" name="rmpic" value="1"> tick to delete picture</td></tr>\n!; }

  $stick = $profile->{stickies};
  $sink = $profile->{sink};
  $stick =~ s/^ (.*)/$1/;
  $stick =~ s/(.*) $/$1/;
  $sink =~ s/^ (.*)/$1/;
  $sink =~ s/(.*) $/$1/;
  print <<profileform;
<tr><td colspan=2><hr noshade color="$BUCKY_COLOR_HR" size=1></td></tr>
<tr><td align="left" colspan=2><b><big>home page</big></b></td></tr>
<tr><td colspan=2><hr noshade color="$BUCKY_COLOR_HR" size=1></td></tr>
profileform
  print "<tr>";
  onecheckbox("welcome", "welcome box", $USER->{boxes});
  print "</tr><tr>";
  onecheckbox("bPod", "bPod", $USER->{boxes});
  print "</tr><tr>";
#  onecheckbox("radio", "radio free chompy <small>(when broadcasting)</small>", $USER->{boxes});
#  print "</tr><tr>";
  onecheckbox("postform", "quick-post form", $USER->{boxes});
  print "</tr><tr>";
  onecheckbox("hootbox", "chat", $USER->{boxes});
  print "</tr><tr>";
  onecheckbox("photostream", "photostream", $USER->{boxes});
  print "</tr>";
  print <<profileform;
<tr>
<td align="right"><b>Sticky keywords:</b></td>
<td align="left"><input type="text" name="stickies" value="$stick" size=30></td>
</tr>
<!--
<tr>
<td align="right"><b>Sunken posts:</b></td>
<td align="left"><input type="text" name="sink" value="$sink" size=30></td>
</tr>
-->
<tr><td colspan=2><hr noshade color="$BUCKY_COLOR_HR" size=1></td></tr>
profileform
  print "<tr>";
  onecheckbox("autoplay", "autoplay mp3s", $USER->{boxes});
	if ($USER->{'ulevel'} == 3)
		{
		print "</tr><tr>";
		onecheckbox("showhidden", "show hidden posts", $USER->{boxes});
		}
  print "</tr><tr>";
  onecheckbox("nologout", "never log out (your cookie will not expire)", $USER->{boxes});
  print "</tr>";
  print <<profileform;
<tr><td colspan=2><hr noshade color="$BUCKY_COLOR_HR" size=1></td></tr>
<tr>
<td align="right"><b>Change password?</b><br><small>please verify:</small></td>
<td align="left">
<input type="password" name="pw1" value="" size=13 maxlength=20><br>
<input type="password" name="pw2" value="" size=13 maxlength=20>
</td>
</tr>
</table>
<p>

<input type="submit" class="clicky" value="UPDATE PROFILE">
</center>
</form>
profileform
  return;
  }

#############################################

sub message_form
  {
  my ($recipient, $oldmsg) = @_;
  my $subject = '';
  $recipient = '' if ($recipient == -1);

  print qq{<form action="$BUCKY/message" method="post" enctype="multipart/form-data">\n};
  if ($DEBUG) { print qq!<input type="hidden" name="debug" value="$DEBUG">\n!; }
  print qq!<input type="hidden" name="c" value="s">\n!;
  if ($$oldmsg{mbox} =~ /drafts/)
    {
    print qq!<input type="hidden" name="oldid" value="$$oldmsg{id}">\n!;
    }

  print <<FORMmid;
<center>
<table cellpadding=0 cellspacing=0 border=0>
<tr><td class="bluebox">
<div align="left" style="padding-right: 20px;">
FORMmid

  print qq!<table cellpadding=0 cellspacing=2 border=0>!;
  print qq!<tr><td style="text-align: right; vertical-align: center;">!;
  print qq[<b>to:</b> ];
  print qq!</td><td style="text-align: left; vertical-align: center;">!;
  print <<FORMrecip;
  <input name="recipient" value="$recipient" size=20 maxlength=50 style="font-size: 11px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
        color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 0px 5px 0px 5px;">
<small><a href="$BUCKY/users">need to find someone?</a></small>
FORMrecip
  print qq!</td></tr>!;

  if ($oldmsg == -1)
    {
    $subject = get_random_line("subjects");
    }
  elsif ($$oldmsg{subject} =~ /^Re: / || $$oldmsg{mbox} =~ /drafts/)
    { $subject = $$oldmsg{subject}; }
  else
    { $subject = "Re: ".$$oldmsg{subject}; }

  print qq!<tr><td style="text-align: right; vertical-align: center;">!;
  print <<FORMsubj;
<b>subject:</b>
</td><td style="text-align: left; vertical-align: center;">
<input name="subject" value="$subject" size=50 maxlength=64 style="font-size: 11px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
        color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 0px 5px 0px 5px;"><br>
</td></tr>
</table>
</div>
FORMsubj

  print qq[<textarea name="body" cols="80" rows="20" style="font-family: trebuchet ms, sans serif; font-size: 12px;">\n];
  if ($$oldmsg{mbox} =~ /drafts/)
    {
    print $$oldmsg{body};
    }
  elsif ($oldmsg != -1)
    {
    my $verb = get_random_line("mail-verbs");
    print "\n\n\n\n_______________\n";
    print "on ".(plaindate($$oldmsg{date})).", ".$$oldmsg{sender}." $verb:\n\n";
    print $$oldmsg{body};
    print "\n";
    }
  print qq[</textarea><br>\n];

  print <<FORMEND
<input type="submit" name="send" value="SEND" class="clicky">
<input type="submit" name="later" value="SAVE FOR LATER" class="clicky">
</form>
</td></tr></table>
FORMEND
  }

sub login_form
  {
  my $uri = '';
  print qq{<form action="https://$BUCKY_HOST$BUCKY/login" method="post" enctype="multipart/form-data" name="lf">\n}; 

  if ($input->{redir} =~ /\?/)
    {
    my ($duh, $qs) = split /redir=/, $ENV{QUERY_STRING}, 2;
    $uri .= "$qs";
    }
  else
    {
    $uri .= $input->{redir};
    }

  if (defined($uri) && $uri !~ /logout/)
    { print qq{<input type=hidden name="redir" value="$uri">\n}; }

  if ($DEBUG)
    { print qq{<input type=hidden name="debug" value="1">\n}; }
  print <<loginform;

<center><table cellpadding=0 cellspacing=0 border=0>
<tr><td valign="middle" align="right">username:</td><td valign="middle"><input type=text name="username" value="" size=9 maxlength=9 style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
        color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 5px 5px 0px 5px;"></td></tr>

<tr><td valign="middle" align="right">password:</td><td valign="middle"><input type=password name="password" size=9 maxlength=20
style="font-size: 10px; font-family: Trebuchet MS, Helvetica, Arial, sans-serif;
        color: #140A0A; border: 1px #140A0A solid; padding: 1px; margin: 5px 5px 0px 5px;"></td></tr>

<tr><td>&nbsp;</td>
<td valign="middle" align="center"><input type="submit" value="LOGIN" class="clicky"></td></tr></table></center>
</form>

loginform
  }

1;