zlax/ljr
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

init

Browse Source
This commit is contained in:
ivan
2019-02-06 00:49:12 +03:00
commit 8dbb1bb605
4796 changed files with 506072 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

155
ljcom/htdocs/suggestions/generator.bml Executable file
View File

@@ -0,0 +1,155 @@
<?page
title=>Suggestion Proposal Generator
body<=
<?_code
LJ::set_active_crumb('suggestions');
return "<?badinput?>" unless LJ::text_in(\%FORM);
my $remote = LJ::get_remote();
my $post_comm = 'suggestions';
unless ($remote) {
return "<?h1 Login first h1?><?p To submit a suggestion, you must first <a href=\"/login.bml?ret=1\">login</a>. p?>";
}
if ($FORM{'completed'}) {
my $ret = "";
my @errors = ();
my @fields = ("title","description","fulldescription","benefits","issues","sugglist");
my $CRLF = "\x0D\x0A";
unless (LJ::did_post()) {
return "<?h1 Error h1?><?p Requires post. p?>";
}
foreach $field (@fields) {
if (! $FORM{$field} ) {
push(@errors,"You forgot to fill out the $field field.");
}
}
return LJ::bad_input(@errors) if @errors;
my $out = "";
$out .= "<p><span style='font-weight: bold; font-style: italic;'>Title</span>\n";
$out .= "$FORM{'title'}</p>";
$out .= "<p><span style='font-weight: bold; font-style: italic;'>Short, concise description of the idea</span>\n";
$out .= "$FORM{'description'}</p>";
$out .= "<p><span style='font-weight: bold; font-style: italic;'>Full description of the idea</span>\n";
$out .= "$FORM{'fulldescription'}</p>";
$out .= "<span style='font-weight: bold; font-style: italic;'>An ordered list of benefits</span>";
my @benefits = split(/$CRLF$CRLF/, $FORM{'benefits'});
$out .= "<lj-raw><ul>\n";
foreach my $benefit (@benefits) {
$benefit =~ s!$CRLF!<br />!g;
$out .= "<li>$benefit</li>\n";
}
$out .= "</ul></lj-raw>";
$out .= "<br /><span style='font-weight: bold; font-style: italic;'>An ordered list of problems/issues involved</span>";
my @issues = split(/$CRLF$CRLF/, $FORM{'issues'});
$out .= "<lj-raw><ul>\n";
foreach my $issue (@issues) {
$issue =~ s!$CRLF!<br />\n!g;
$out .= "<li>$issue</li>\n";
}
$out .= "</ul></lj-raw>";
$out .= "<br /><span style='font-weight: bold; font-style: italic;'>An organized list, or a few short paragraphs detailing suggestions for implementation</span>";
my @suggs = split(/$CRLF$CRLF/, $FORM{'sugglist'});
$out .= "<lj-raw><ul>\n";
foreach my $sugg (@suggs) {
$sugg =~ s!$CRLF!<br />\n!g;
$out .= "<li>$sugg</li>\n";
}
$out .= "</ul></lj-raw>";
# post it
{
my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time());
$year = $year + 1900;
$mon=sprintf("%02d", $mon+1);
$mday=sprintf("%02d", $mday);
my $rs = LJ::Protocol::do_request("postevent", {
'ver' => $LJ::PROTOCOL_VER,
'year' => $year,
'mon' => $mon,
'day' => $mday,
'hour' => $hour,
'min' => $min,
'username' => $remote->{'user'},
'event' => $out,
'usejournal' => $post_comm,
'props' => { 'opt_preformatted' => 0 },
'subject' => $FORM{'title'},
}, \$err, {
'noauth' => 1,
'usejournal_okay' => 1,
});
if ($err) {
my $errstr = LJ::Protocol::error_message($err);
$ret .= "<?h1 Error h1?><?p $errstr p?>";
} else {
$ret .= "<?h1 Success! h1?>\n";
my $user = LJ::ljuser($post_comm);
if ($rs->{'itemid'}) {
my $u = LJ::load_user($post_comm);
my $link = LJ::item_link($u, $rs->{'itemid'}, $rs->{'anum'});
$ret .= "<?p Your suggestion has been sucessfully posted to $user and you may now <a href='$link'>view your suggestion</a>. p?>";
} else {
$ret .= "<?p Your suggestion has been submitted to the maintainers of $user for approval. If approved, your suggestion will then appear in the community. p?>";
}
}
}
return $ret;
} else {
return <<__EOF__
<?h1 The Generator h1?>
<?p
Use this form enter all the details of your suggestion that you would like to submit, and it will then post the suggestion to the suggestion community.
p?>
<?hr?>
<form method='post'>
<?h2 Title h2?>
<?p <blockquote><input type='text' name='title' value="" size='60'></blockquote> p?>
<?h2 Short, concise description of the idea h2?>
<?p Briefly explain your idea, being as clear and concise as possible, and using terminology that the average person can understand. <br /><blockquote><textarea name='description' rows='2' cols='58' wrap='virtual'></textarea></blockquote> p?>
<?h2 Full description of the idea h2?>
<?p If the space above isn't enough to describe your suggestion, you may write a more thorough and detailed explanation here. <br /><blockquote><textarea name='fulldescription' rows='7' cols='58' wrap='virtual'></textarea></blockquote> p?>
<?h2 An ordered list of benefits h2?>
<?p Create a list of the benefits of your suggestion in the box below. This may be used by a reader as a reference. <b>List each item, pressing &lt;Enter&gt; twice after each one</b> <br /><blockquote><textarea name='benefits' rows='7' cols='58' wrap='virtual'></textarea></blockquote> p?>
<?h2 An ordered list of problems/issues involved h2?>
<?p Almost all suggestions will have some drawbacks. In the box below, list all possible drawbacks to your suggestion in the same manner that you have listed the benefits above. <b>List each item, pressing &lt;Enter&gt; twice after each one.</b> <br /><blockquote><textarea name='issues' rows='7' cols='58' wrap='virtual'></textarea></blockquote> p?>
<?h2 An organized list, or a few short paragraphs detailing suggestions for implementation h2?>
<?p List some helpful hints or clarifications on your idea as to how to get it going. What might need to be changed or fixed to make this implementation/feature? Try not to get too technical, just enough detail to direct readers is good. <b>List each item, pressing &lt;Enter&gt; twice after each one.</b> <br /><blockquote><textarea name='sugglist' rows='7' cols='58' wrap='virtual'></textarea></blockquote> p?>
<?p Click the "Post Suggestion" button and your suggestion will be sent off to the <?ljuser $post_comm ljuser?> community. p?>
<?hr?>
<?standout
<table>
<tr><td colspan='2' align='center'>
<input type='hidden' name="completed" value="1">
<input type='submit' value="Post Suggestion">
</td></tr>
</table>
standout?>
</form>
__EOF__
}
_code?>
<=body
page?><?_c <LJDEP>
post: htdocs/suggestions/generator.bml
link: htdocs/talkread.bml
</LJDEP> _c?>

21
ljcom/htdocs/suggestions/index.bml Normal file
View File

@@ -0,0 +1,21 @@
<?page
title=><?_ml .title _ml?>
body<=
<?_code
return LJ::set_active_crumb('suggview');
_code?>
<?h1 <?_ml .welcome.title _ml?> h1?>
<?p <?_ml .welcome.text _ml?> p?>
<?p <?_ml .rules _ml?> p?>
<?h1 <?_ml .howto.title _ml?> h1?>
<?p <?_ml .howto.text _ml?> p?>
<?h1 <?_ml .info.title _ml?> h1?>
<?p <?_ml .info.text _ml?> p?>
<=body
page?><?_c <LJDEP
link: htdocs/users, htdocs/userinfo.bml, htdocs/todo/index.bml, htdocs/tools/memory.bml,
link: htdocs/suggestions/generator.bml, htdocs/friends/add.bml
</LJDEP> _c?>

13
ljcom/htdocs/suggestions/prior.bml Normal file
View File

@@ -0,0 +1,13 @@
<?page
title=>Prior Suggestions
body<=
<?h1 Not here, yet. h1?>
<?p
We're still in the process of finding all the old suggestions from our inboxes, old lj_biz posts, etc. This will be up shortly.
p?>
<=body
page?><?_c <LJDEP>
</LJDEP> _c?>

30
ljcom/htdocs/suggestions/template.bml Normal file
View File

@@ -0,0 +1,30 @@
<?page
title=>Proposal Template
body<=
<?h1 The Proposal Form h1?>
<?p
Write this out in a text or html file, proofread it, then submit it to the suggestions community, as described on the <a href="/suggestions/">suggestions page</a>.
p?>
<?hr?>
<?h2 Title h2?>
<?p Supply a brief title of the idea, help get the thing rolling. p?>
<?h2 Short, concise description of the idea h2?>
<?p Run a short pitch for your idea, as though you were selling to a multi-billion dollar investor with only two minutes of time to do it in. Keep it clear of marketese, please. p?>
<?h2 Full description of the idea h2?>
<?p If the idea isn't short enough to be crammed above, detail it entirely, and thoroughly here. If someone has to ask a question here, you should make a note where to be clearer in the future. p?>
<?h2 An ordered list of benefits h2?>
<?p If someone is reading or has read the full description, they will probably use this as a reference. Detail, shortly, each benefit this idea has toward LiveJournal. A quick list of good points, essentially. p?>
<?h2 An ordered list of problems/issues involved h2?>
<?p Unless your idea is perfect, absolutely flawless (which it is probably not), you will be able to list some problems created. List them here in the same short, ordered manner you used above. Everything that could be detrimental to LiveJournal or its inhabitants. p?>
<?h2 An organized list, or a few short paragraphs detailing suggestions for implementation h2?>
<?p State some helpful hints, or clarifications on your idea as to how to get it going. What might need to be changed or fixed to make this implementation/feature. Try to not ramble on and on about technical details, just enough to help find a direction is good. p?>
<?h2 Send it in for reviewing h2?>
<?p Post the proposal to the <?ljuser suggestions ljuser?> community. p?>
<=body
page?><?_c <LJDEP>
link: htdocs/suggestions/index.bml
</LJDEP> _c?>