diff options
Diffstat (limited to 'lib/forms.pm')
| -rw-r--r-- | lib/forms.pm | 854 |
1 files changed, 854 insertions, 0 deletions
diff --git a/lib/forms.pm b/lib/forms.pm new file mode 100644 index 0000000..5f31368 --- /dev/null +++ b/lib/forms.pm @@ -0,0 +1,854 @@ + +############################################# +# 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? </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: "; + 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 post form</a> |</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> </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 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/&/&/g; + $comment =~ s/>/>/g; + $comment =~ s/</</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 form</a></small> +</td></tr> +FORMEND + print "</form>"; + } + +############################################# + +sub print_garrow + { + my ($a, $b) = @_; + $a =~ s/\s/ /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"> $gloss </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"> $gloss </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: ); + 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: ); + print qq!</td>!; + print qq!<td align="left">!; + color_dropdown($rcolor, 0); + print qq!</td>!; + print qq!</tr>!; + + print qq!<tr>!; + print qq!<td> </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, <small>complete as of ).(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 & 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: !; + 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! · <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! · <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 ·</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()"> · + <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> </td> +<td valign="middle" align="center"><input type="submit" value="LOGIN" class="clicky"></td></tr></table></center> +</form> + +loginform + } + +1; |