SoylentNews - User contributions [en]

Historic:CssWork

2014-03-04T21:23:19Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[MySql]]
** [[SqlSchema]] - tables used in the database
** [[SqlDefaults]] - defaults for those tables
* [[PageScriptList]] - scripts (= 'pages') in /slash/site/slashcott.org/htdocs with routines listed
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] - this is what handles the users home page and similar user functions.
* [[SlashJavaScript]] - javascript used on site.
* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users. Once an edit is made, you are in /users.pl without /my/
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

Historic:CssWork

2014-03-04T21:22:23Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[MySql]]
** [[SqlSchema]] - tables used in the database
** [[SqlDefaults]] - defaults for those tables
* [[PageScriptList]] - scripts (= 'pages') in /slash/site/slashcott.org/htdocs with routines listed
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] - this is what handles the users home page and similar user functions.
* [[SlashJavasScript]] - javascript used on site.
* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users. Once an edit is made, you are in /users.pl without /my/
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

WhosWho

2014-03-03T23:08:18Z

50.45.173.59:

In the interest of getting questions to the right people on IRC and general organization, this is a summary of who is involved in SoylentNews. '''Please add yourself''' (or others) if you are actively working on the project. Also you can skip to the [[#Overlords|Overlord Contacts]].

See also: [[http://wiki.soylentnews.org/wiki/index.php/Staff_list]Staff List]

==The Man Behind The Curtain==

* Barrabas

==Administration==

* mattie_p - Overlord/General Manager
* mrcoolbp

==Code==
* NCommander
* robinld
* zford
* mechanicjay

==Style==

<ul>
<li>MrBluze - Overlord</li>
<li>shogun - HTML</li>
<li>moo_kuh - Testing</li>
<li>PrestonL - CSS / Bug Testing</li>
<li>mtrycz - User Interface</li>
<li>CynicGalahad - Website Design</li>
<li>FrogBlast - Art</li>
</ul>
Correspondence: [mailto:style@soylentnews.org style@soylentnews.org]

==Frontend: CSS\HTML issues that pertain to look and feel==

* paulej72 - (working on mods to comments.css)
* AudioGuy - documentation of system and cleanup of css to get things into a ste that new templates and Themes can be made
* martyb

==Content==
* Dopefish - Overlord

Editors include:

* LaminatorX
* mattie_p
* janrinok
* girlwhowaspluggedout

Misc:

* Cactus
* [[User:Mrcoolbp|mrcoolbp]] ([[User talk:Mrcoolbp|talk]]) 13:17, 26 February 2014 (MST) - only rewriting about.shtml, moderation.shtml, FAQ.shtml <- the FAQ is in to be done: what should this look like??

==Forums==
* applesmasher - Overlord
* Dopefish
* LaminatorX
* mattie_p - I'm just an active user and in the Editor Group. I'm nobody official on the forums, though.

==Wiki==
* FunPika - Overlord
* Cactus
* sfm
* cosurgi
* [[User:Mrcoolbp|mrcoolbp]] ([[User talk:Mrcoolbp|talk]]) 13:16, 26 February 2014 (MST) - working on re-organization and clean up

==IRC==
* Landon - Overlord
* Xlefay - Technical lead
* MrBluze

==Bugs==
* paulej72 - currently scraping SoylentNews comments for bug reports and posting them to the bug tracker
* martyb - QA and testing

==Overlords==

We're have overlords that manage various features. An overlord is responsible for granting access - it's '''intended''' to be a ''no work'' position, so that it can be held for long periods without requiring much time.

So for example, Applesmasher is the overlord of forums. He grants access to people and recovers access when people leave, but he doesn't ''have'' to do any work himself (although he can if he wants). He ensures that the people with access are reliable.

If you need a forum for your group, ask the overlord of forums. If you want a set of wiki pages, ask the overlord of the wiki, and so on.

The current overlords originally agreed to hold the position until Mar 1, that date has already passed. Going forward we can choose overlords via some formal process. (And the current overlords might ask to continue.)

The current overlords can be contacted here:

art@SoylentNews.org

editors@SoylentNews.org

forums@SoylentNews.org

wiki@SoylentNews.org

chat@SoylentNews.org

style@soylentnews.org

There will be more to come. This is temporary to get us going - the community can change the structure later, but for now things seem to naturally separate into these areas of interest.

WhosWho

2014-03-03T23:07:27Z

50.45.173.59:

In the interest of getting questions to the right people on IRC and general organization, this is a summary of who is involved in SoylentNews. '''Please add yourself''' (or others) if you are actively working on the project. Also you can skip to the [[#Overlords|Overlord Contacts]].

See also: [[http://wiki.soylentnews.org/wiki/index.php/Staff_list]]

==The Man Behind The Curtain==

* Barrabas

==Administration==

* mattie_p - Overlord/General Manager
* mrcoolbp

==Code==
* NCommander
* robinld
* zford
* mechanicjay

==Style==

<ul>
<li>MrBluze - Overlord</li>
<li>shogun - HTML</li>
<li>moo_kuh - Testing</li>
<li>PrestonL - CSS / Bug Testing</li>
<li>mtrycz - User Interface</li>
<li>CynicGalahad - Website Design</li>
<li>FrogBlast - Art</li>
</ul>
Correspondence: [mailto:style@soylentnews.org style@soylentnews.org]

==Frontend: CSS\HTML issues that pertain to look and feel==

* paulej72 - (working on mods to comments.css)
* AudioGuy - documentation of system and cleanup of css to get things into a ste that new templates and Themes can be made
* martyb

==Content==
* Dopefish - Overlord

Editors include:

* LaminatorX
* mattie_p
* janrinok
* girlwhowaspluggedout

Misc:

* Cactus
* [[User:Mrcoolbp|mrcoolbp]] ([[User talk:Mrcoolbp|talk]]) 13:17, 26 February 2014 (MST) - only rewriting about.shtml, moderation.shtml, FAQ.shtml <- the FAQ is in to be done: what should this look like??

==Forums==
* applesmasher - Overlord
* Dopefish
* LaminatorX
* mattie_p - I'm just an active user and in the Editor Group. I'm nobody official on the forums, though.

==Wiki==
* FunPika - Overlord
* Cactus
* sfm
* cosurgi
* [[User:Mrcoolbp|mrcoolbp]] ([[User talk:Mrcoolbp|talk]]) 13:16, 26 February 2014 (MST) - working on re-organization and clean up

==IRC==
* Landon - Overlord
* Xlefay - Technical lead
* MrBluze

==Bugs==
* paulej72 - currently scraping SoylentNews comments for bug reports and posting them to the bug tracker
* martyb - QA and testing

==Overlords==

We're have overlords that manage various features. An overlord is responsible for granting access - it's '''intended''' to be a ''no work'' position, so that it can be held for long periods without requiring much time.

So for example, Applesmasher is the overlord of forums. He grants access to people and recovers access when people leave, but he doesn't ''have'' to do any work himself (although he can if he wants). He ensures that the people with access are reliable.

If you need a forum for your group, ask the overlord of forums. If you want a set of wiki pages, ask the overlord of the wiki, and so on.

The current overlords originally agreed to hold the position until Mar 1, that date has already passed. Going forward we can choose overlords via some formal process. (And the current overlords might ask to continue.)

The current overlords can be contacted here:

art@SoylentNews.org

editors@SoylentNews.org

forums@SoylentNews.org

wiki@SoylentNews.org

chat@SoylentNews.org

style@soylentnews.org

There will be more to come. This is temporary to get us going - the community can change the structure later, but for now things seem to naturally separate into these areas of interest.

WhosWho

2014-03-03T23:05:42Z

50.45.173.59:

In the interest of getting questions to the right people on IRC and general organization, this is a summary of who is involved in SoylentNews. '''Please add yourself''' (or others) if you are actively working on the project. Also you can skip to the [[#Overlords|Overlord Contacts]].

See also: [[Staff_list]]

==The Man Behind The Curtain==

* Barrabas

==Administration==

* mattie_p - Overlord/General Manager
* mrcoolbp

==Code==
* NCommander
* robinld
* zford
* mechanicjay

==Style==

<ul>
<li>MrBluze - Overlord</li>
<li>shogun - HTML</li>
<li>moo_kuh - Testing</li>
<li>PrestonL - CSS / Bug Testing</li>
<li>mtrycz - User Interface</li>
<li>CynicGalahad - Website Design</li>
<li>FrogBlast - Art</li>
</ul>
Correspondence: [mailto:style@soylentnews.org style@soylentnews.org]

==Frontend: CSS\HTML issues that pertain to look and feel==

* paulej72 - (working on mods to comments.css)
* AudioGuy - documentation of system and cleanup of css to get things into a ste that new templates and Themes can be made
* martyb

==Content==
* Dopefish - Overlord

Editors include:

* LaminatorX
* mattie_p
* janrinok
* girlwhowaspluggedout

Misc:

* Cactus
* [[User:Mrcoolbp|mrcoolbp]] ([[User talk:Mrcoolbp|talk]]) 13:17, 26 February 2014 (MST) - only rewriting about.shtml, moderation.shtml, FAQ.shtml <- the FAQ is in to be done: what should this look like??

==Forums==
* applesmasher - Overlord
* Dopefish
* LaminatorX
* mattie_p - I'm just an active user and in the Editor Group. I'm nobody official on the forums, though.

==Wiki==
* FunPika - Overlord
* Cactus
* sfm
* cosurgi
* [[User:Mrcoolbp|mrcoolbp]] ([[User talk:Mrcoolbp|talk]]) 13:16, 26 February 2014 (MST) - working on re-organization and clean up

==IRC==
* Landon - Overlord
* Xlefay - Technical lead
* MrBluze

==Bugs==
* paulej72 - currently scraping SoylentNews comments for bug reports and posting them to the bug tracker
* martyb - QA and testing

==Overlords==

We're have overlords that manage various features. An overlord is responsible for granting access - it's '''intended''' to be a ''no work'' position, so that it can be held for long periods without requiring much time.

So for example, Applesmasher is the overlord of forums. He grants access to people and recovers access when people leave, but he doesn't ''have'' to do any work himself (although he can if he wants). He ensures that the people with access are reliable.

If you need a forum for your group, ask the overlord of forums. If you want a set of wiki pages, ask the overlord of the wiki, and so on.

The current overlords originally agreed to hold the position until Mar 1, that date has already passed. Going forward we can choose overlords via some formal process. (And the current overlords might ask to continue.)

The current overlords can be contacted here:

art@SoylentNews.org

editors@SoylentNews.org

forums@SoylentNews.org

wiki@SoylentNews.org

chat@SoylentNews.org

style@soylentnews.org

There will be more to come. This is temporary to get us going - the community can change the structure later, but for now things seem to naturally separate into these areas of interest.

MySql

2014-03-03T19:35:08Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

as root: mysqldump altslashdot css > zz.txt

mysqldump -T '/var/lib/mysql/test' altslashdot css

Information about mysql as used for slash
<pre>
Database Name: altslashdot
Database user: mysql
</pre>

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.
<pre>
Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases
</pre>
To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>table dump for size deletemelater</h2>
<pre>
[root@slashcode test]# ls -l | cut -b 28- | grep -v '\.sql' | sort -g

0 Mar 2 20:56 accesslog_artcom.txt
0 Mar 2 20:56 accesslog_temp_subscriber.txt
0 Mar 2 20:56 al2_log_comments.txt
0 Mar 2 20:56 al2_log.txt
0 Mar 2 20:56 auto_poll.txt
0 Mar 2 20:56 backup_blocks.txt
0 Mar 2 20:56 blobs.txt
0 Mar 2 20:56 bookmark_feeds.txt
0 Mar 2 20:56 bookmarks.txt
0 Mar 2 20:56 classes.txt
0 Mar 2 20:56 comment_log.txt
0 Mar 2 20:56 comment_promote_log.txt
0 Mar 2 20:56 comment_vote.txt
0 Mar 2 20:56 dbs_readerstatus_queries.txt
0 Mar 2 20:56 dbs_readerstatus.txt
0 Mar 2 20:56 dbs.txt
0 Mar 2 20:56 discussion_rating.txt
0 Mar 2 20:56 email_optout.txt
0 Mar 2 20:56 file_queue.txt
0 Mar 2 20:56 firehose_history.txt
0 Mar 2 20:56 firehose_section_settings.txt
0 Mar 2 20:56 firehose_section.txt
0 Mar 2 20:56 firehose_setting_log.txt
0 Mar 2 20:56 firehose_skin_volume.txt
0 Mar 2 20:56 firehose_view_settings.txt
0 Mar 2 20:56 globj_adminnotes.txt
0 Mar 2 20:56 globjs_viewed_archived.txt
0 Mar 2 20:56 globjs_viewed.txt
0 Mar 2 20:56 globj_urls.txt
0 Mar 2 20:56 humanconf_pool.txt
0 Mar 2 20:56 humanconf.txt
0 Mar 2 20:56 journal_transfer.txt
0 Mar 2 20:56 message_drop.txt
0 Mar 2 20:56 metamodlog.txt
0 Mar 2 20:56 misc_user_opts.txt
0 Mar 2 20:56 newsvac_keywords.txt
0 Mar 2 20:56 nugget_sub.txt
0 Mar 2 20:56 pagemark.txt
0 Mar 2 20:56 preview.txt
0 Mar 2 20:56 projects.txt
0 Mar 2 20:56 querylog.txt
0 Mar 2 20:56 related_stories.txt
0 Mar 2 20:56 rel.txt
0 Mar 2 20:56 remarks.txt
0 Mar 2 20:56 reskey_failures.txt
0 Mar 2 20:56 reskey_sessions.txt
0 Mar 2 20:56 robosubmitlock.txt
0 Mar 2 20:56 rss_raw.txt
0 Mar 2 20:56 sphinx_counter_archived.txt
0 Mar 2 20:56 sphinx_counter.txt
0 Mar 2 20:56 sphinx_search.txt
0 Mar 2 20:56 spiderlock.txt
0 Mar 2 20:56 spider_timespec.txt
0 Mar 2 20:56 static_files.txt
0 Mar 2 20:56 stats_graphs_index.txt
0 Mar 2 20:56 story_dirty.txt
0 Mar 2 20:56 story_files.txt
0 Mar 2 20:56 story_render_dirty.txt
0 Mar 2 20:56 submissions_notes.txt
0 Mar 2 20:56 subscribe_payments.txt
0 Mar 2 20:56 tagboxes.txt
0 Mar 2 20:56 tagboxlog_feeder.txt
0 Mar 2 20:56 tagcommand_adminlog_sfnet.txt
0 Mar 2 20:56 tagcommand_adminlog.txt
0 Mar 2 20:56 tagname_cache.txt
0 Mar 2 20:56 tagname_params.txt
0 Mar 2 20:56 tagnames_similarity_rendered.txt
0 Mar 2 20:56 tagnames_synonyms_chosen.txt
0 Mar 2 20:56 tag_params.txt
0 Mar 2 20:56 tags_dayofweek.txt
0 Mar 2 20:56 tags_deactivated.txt
0 Mar 2 20:56 tags_hourofday.txt
0 Mar 2 20:56 tags_peerweight.txt
0 Mar 2 20:56 tags_searched.txt
0 Mar 2 20:56 tags.txt
0 Mar 2 20:56 tags_userchange.txt
0 Mar 2 20:56 topic_nexus_dirty.txt
0 Mar 2 20:56 topic_nexus_extras.txt
0 Mar 2 20:56 topic_param.txt
0 Mar 2 20:56 url_content.txt
0 Mar 2 20:56 url_message_body.txt
0 Mar 2 20:56 url_plaintext.txt
0 Mar 2 20:56 urls.txt
0 Mar 2 20:56 users_acl.txt
0 Mar 2 20:56 users_clout.txt
0 Mar 2 20:56 users_comments_read_log.txt
0 Mar 2 20:56 users_openid_reskeys.txt
0 Mar 2 20:56 users_openid.txt
0 Mar 2 20:56 wow_char_armorylog.txt
0 Mar 2 20:56 wow_char_data.txt
0 Mar 2 20:56 wow_chars.txt
0 Mar 2 20:56 wow_guilds.txt
0 Mar 2 20:56 xsite_auth_log.txt
12 Mar 2 20:56 tagnames.txt
14 Mar 2 20:56 topic_nexus.txt
20 Mar 2 20:56 shill_ids.txt
22 Mar 2 20:56 accesslog_build_unique_uid.txt
36 Mar 2 20:56 message_deliverymodes.txt
41 Mar 2 20:56 al2.txt
42 Mar 2 20:56 journal_themes.txt
49 Mar 2 20:56 topic_parents.txt
66 Mar 2 20:56 commentmodes.txt
69 Mar 2 20:56 dynamic_blocks.txt
69 Mar 2 20:56 wow_char_types.txt
73 Mar 2 20:56 accesslog_temp_host_addr.txt
74 Mar 2 20:56 globj_types.txt
75 Mar 2 20:56 css_type.txt
81 Mar 2 20:56 open_proxies.txt
83 Mar 2 20:56 people.txt
86 Mar 2 20:56 discussion_kinds.txt
94 Mar 2 20:56 clout_types.txt
103 Mar 2 20:56 sphinx_index.txt
111 Mar 2 20:56 sessions.txt
114 Mar 2 20:56 dst.txt
116 Mar 2 20:56 pollvoters.txt
121 Mar 2 20:56 hooks.txt
136 Mar 2 20:56 authors_cache.txt
138 Mar 2 20:56 globjs.txt
144 Mar 2 20:56 story_topics_rendered.txt
163 Mar 2 20:56 humanconf_questions.txt
176 Mar 2 20:56 tags_udc.txt
187 Mar 2 20:56 story_topics_chosen.txt
198 Mar 2 20:56 url_info.txt
230 Mar 2 20:56 spamarmors.txt
272 Mar 2 20:56 al2_types.txt
280 Mar 2 20:56 modreasons.txt
311 Mar 2 20:56 bpn_sources.txt
333 Mar 2 20:56 skins.txt
344 Mar 2 20:56 moderatorlog.txt
353 Mar 2 20:56 submission_param.txt
371 Mar 2 20:56 pollquestions.txt
422 Mar 2 20:56 topics.txt
435 Mar 2 20:56 soap_methods.txt
468 Mar 2 20:56 reskey_resources.txt
488 Mar 2 20:56 journals.txt
489 Mar 2 20:56 preview_param.txt
495 Mar 2 20:56 accesslog_build_uidip.txt
540 Mar 2 20:56 skin_colors.txt
607 Mar 2 20:56 pollanswers.txt
616 Mar 2 20:56 badpasswords.txt
638 Mar 2 20:56 story_param.txt
658 Mar 2 20:56 message_codes.txt
706 Mar 2 20:56 related_links.txt
743 Mar 2 20:56 dateformats.txt
859 Mar 2 20:56 reskeys.txt
890 Mar 2 20:56 achievements.txt
972 Mar 2 20:56 signoff.txt
1018 Mar 2 20:56 users_prefs.txt
1122 Mar 2 20:56 css.txt
1294 Mar 2 20:56 ajax_ops.txt
1303 Mar 2 20:56 tzcodes.txt
1312 Mar 2 20:56 users_index.txt
1316 Mar 2 20:56 users_hits.txt
1529 Mar 2 20:56 message_web.txt
1543 Mar 2 20:56 user_achievement_streaks.txt
1778 Mar 2 20:56 code_param.txt
2047 Mar 2 20:56 content_filters.txt
2132 Mar 2 20:56 reskey_hourlysalt.txt
2163 Mar 2 20:56 stories.txt
2430 Mar 2 20:56 users_comments.txt
2951 Mar 2 20:56 site_info.txt
3180 Mar 2 20:56 users_messages.txt
3385 Mar 2 20:56 slashd_status.txt
3595 Mar 2 20:56 menus.txt
3784 Mar 2 20:56 discussions.txt
4048 Mar 2 20:56 abusers.txt
4087 Mar 2 20:56 user_achievements.txt
4507 Mar 2 20:56 uncommonstorywords.txt
5099 Mar 2 20:56 accesslog_temp_rss.txt
5330 Mar 2 20:56 users.txt
6469 Mar 2 20:56 reskey_vars.txt
6619 Mar 2 20:56 blocks.txt
7016 Mar 2 20:56 reskey_resource_checks.txt
7373 Mar 2 20:56 journals_text.txt
7613 Mar 2 20:56 users_logtokens.txt
9144 Mar 2 20:56 formkeys.txt
10087 Mar 2 20:56 users_param.txt
10099 Mar 2 20:56 message_web_text.txt
10570 Mar 2 20:56 string_param.txt
10691 Mar 2 20:56 users_info.txt
10809 Mar 2 20:56 wow_realms.txt
11398 Mar 2 20:56 comments.txt
13957 Mar 2 20:56 message_log.txt
14980 Mar 2 20:56 comment_text.txt
018561 Mar 2 20:56 accesslog_admin.txt
24852 Mar 2 20:56 accesslog_temp_other.txt
50104 Mar 2 20:56 vars.txt
57261 Mar 2 20:56 submissions.txt
68640 Mar 2 20:56 dynamic_user_blocks.txt
84260 Mar 2 20:56 story_text.txt
256371 Mar 2 20:56 slashd_errnotes.txt
283635 Mar 2 20:56 accesslog_temp_errors.txt
431983 Mar 2 20:56 accesslog_temp.txt
579455 Mar 2 20:56 accesslog.txt
869491 Mar 2 20:56 stats_daily.txt
917375 Mar 2 20:56 templates.txt
</pre>

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T05:00:14Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

as root: mysqldump altslashdot css > zz.txt

mysqldump -T '/var/lib/mysql/test' altslashdot css

Information about mysql as used for slash
<pre>
Database Name: altslashdot
Database user: mysql
</pre>

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.
<pre>
Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases
</pre>
To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>tabl;e dump for size deletemelater</h2>
<pre>
[root@slashcode test]# ls -l | cut -b 28- | grep -v '\.sql' | sort -g

0 Mar 2 20:56 accesslog_artcom.txt
0 Mar 2 20:56 accesslog_temp_subscriber.txt
0 Mar 2 20:56 al2_log_comments.txt
0 Mar 2 20:56 al2_log.txt
0 Mar 2 20:56 auto_poll.txt
0 Mar 2 20:56 backup_blocks.txt
0 Mar 2 20:56 blobs.txt
0 Mar 2 20:56 bookmark_feeds.txt
0 Mar 2 20:56 bookmarks.txt
0 Mar 2 20:56 classes.txt
0 Mar 2 20:56 comment_log.txt
0 Mar 2 20:56 comment_promote_log.txt
0 Mar 2 20:56 comment_vote.txt
0 Mar 2 20:56 dbs_readerstatus_queries.txt
0 Mar 2 20:56 dbs_readerstatus.txt
0 Mar 2 20:56 dbs.txt
0 Mar 2 20:56 discussion_rating.txt
0 Mar 2 20:56 email_optout.txt
0 Mar 2 20:56 file_queue.txt
0 Mar 2 20:56 firehose_history.txt
0 Mar 2 20:56 firehose_section_settings.txt
0 Mar 2 20:56 firehose_section.txt
0 Mar 2 20:56 firehose_setting_log.txt
0 Mar 2 20:56 firehose_skin_volume.txt
0 Mar 2 20:56 firehose_view_settings.txt
0 Mar 2 20:56 globj_adminnotes.txt
0 Mar 2 20:56 globjs_viewed_archived.txt
0 Mar 2 20:56 globjs_viewed.txt
0 Mar 2 20:56 globj_urls.txt
0 Mar 2 20:56 humanconf_pool.txt
0 Mar 2 20:56 humanconf.txt
0 Mar 2 20:56 journal_transfer.txt
0 Mar 2 20:56 message_drop.txt
0 Mar 2 20:56 metamodlog.txt
0 Mar 2 20:56 misc_user_opts.txt
0 Mar 2 20:56 newsvac_keywords.txt
0 Mar 2 20:56 nugget_sub.txt
0 Mar 2 20:56 pagemark.txt
0 Mar 2 20:56 preview.txt
0 Mar 2 20:56 projects.txt
0 Mar 2 20:56 querylog.txt
0 Mar 2 20:56 related_stories.txt
0 Mar 2 20:56 rel.txt
0 Mar 2 20:56 remarks.txt
0 Mar 2 20:56 reskey_failures.txt
0 Mar 2 20:56 reskey_sessions.txt
0 Mar 2 20:56 robosubmitlock.txt
0 Mar 2 20:56 rss_raw.txt
0 Mar 2 20:56 sphinx_counter_archived.txt
0 Mar 2 20:56 sphinx_counter.txt
0 Mar 2 20:56 sphinx_search.txt
0 Mar 2 20:56 spiderlock.txt
0 Mar 2 20:56 spider_timespec.txt
0 Mar 2 20:56 static_files.txt
0 Mar 2 20:56 stats_graphs_index.txt
0 Mar 2 20:56 story_dirty.txt
0 Mar 2 20:56 story_files.txt
0 Mar 2 20:56 story_render_dirty.txt
0 Mar 2 20:56 submissions_notes.txt
0 Mar 2 20:56 subscribe_payments.txt
0 Mar 2 20:56 tagboxes.txt
0 Mar 2 20:56 tagboxlog_feeder.txt
0 Mar 2 20:56 tagcommand_adminlog_sfnet.txt
0 Mar 2 20:56 tagcommand_adminlog.txt
0 Mar 2 20:56 tagname_cache.txt
0 Mar 2 20:56 tagname_params.txt
0 Mar 2 20:56 tagnames_similarity_rendered.txt
0 Mar 2 20:56 tagnames_synonyms_chosen.txt
0 Mar 2 20:56 tag_params.txt
0 Mar 2 20:56 tags_dayofweek.txt
0 Mar 2 20:56 tags_deactivated.txt
0 Mar 2 20:56 tags_hourofday.txt
0 Mar 2 20:56 tags_peerweight.txt
0 Mar 2 20:56 tags_searched.txt
0 Mar 2 20:56 tags.txt
0 Mar 2 20:56 tags_userchange.txt
0 Mar 2 20:56 topic_nexus_dirty.txt
0 Mar 2 20:56 topic_nexus_extras.txt
0 Mar 2 20:56 topic_param.txt
0 Mar 2 20:56 url_content.txt
0 Mar 2 20:56 url_message_body.txt
0 Mar 2 20:56 url_plaintext.txt
0 Mar 2 20:56 urls.txt
0 Mar 2 20:56 users_acl.txt
0 Mar 2 20:56 users_clout.txt
0 Mar 2 20:56 users_comments_read_log.txt
0 Mar 2 20:56 users_openid_reskeys.txt
0 Mar 2 20:56 users_openid.txt
0 Mar 2 20:56 wow_char_armorylog.txt
0 Mar 2 20:56 wow_char_data.txt
0 Mar 2 20:56 wow_chars.txt
0 Mar 2 20:56 wow_guilds.txt
0 Mar 2 20:56 xsite_auth_log.txt
12 Mar 2 20:56 tagnames.txt
14 Mar 2 20:56 topic_nexus.txt
20 Mar 2 20:56 shill_ids.txt
22 Mar 2 20:56 accesslog_build_unique_uid.txt
36 Mar 2 20:56 message_deliverymodes.txt
41 Mar 2 20:56 al2.txt
42 Mar 2 20:56 journal_themes.txt
49 Mar 2 20:56 topic_parents.txt
66 Mar 2 20:56 commentmodes.txt
69 Mar 2 20:56 dynamic_blocks.txt
69 Mar 2 20:56 wow_char_types.txt
73 Mar 2 20:56 accesslog_temp_host_addr.txt
74 Mar 2 20:56 globj_types.txt
75 Mar 2 20:56 css_type.txt
81 Mar 2 20:56 open_proxies.txt
83 Mar 2 20:56 people.txt
86 Mar 2 20:56 discussion_kinds.txt
94 Mar 2 20:56 clout_types.txt
103 Mar 2 20:56 sphinx_index.txt
111 Mar 2 20:56 sessions.txt
114 Mar 2 20:56 dst.txt
116 Mar 2 20:56 pollvoters.txt
121 Mar 2 20:56 hooks.txt
136 Mar 2 20:56 authors_cache.txt
138 Mar 2 20:56 globjs.txt
144 Mar 2 20:56 story_topics_rendered.txt
163 Mar 2 20:56 humanconf_questions.txt
176 Mar 2 20:56 tags_udc.txt
187 Mar 2 20:56 story_topics_chosen.txt
198 Mar 2 20:56 url_info.txt
230 Mar 2 20:56 spamarmors.txt
272 Mar 2 20:56 al2_types.txt
280 Mar 2 20:56 modreasons.txt
311 Mar 2 20:56 bpn_sources.txt
333 Mar 2 20:56 skins.txt
344 Mar 2 20:56 moderatorlog.txt
353 Mar 2 20:56 submission_param.txt
371 Mar 2 20:56 pollquestions.txt
422 Mar 2 20:56 topics.txt
435 Mar 2 20:56 soap_methods.txt
468 Mar 2 20:56 reskey_resources.txt
488 Mar 2 20:56 journals.txt
489 Mar 2 20:56 preview_param.txt
495 Mar 2 20:56 accesslog_build_uidip.txt
540 Mar 2 20:56 skin_colors.txt
607 Mar 2 20:56 pollanswers.txt
616 Mar 2 20:56 badpasswords.txt
638 Mar 2 20:56 story_param.txt
658 Mar 2 20:56 message_codes.txt
706 Mar 2 20:56 related_links.txt
743 Mar 2 20:56 dateformats.txt
859 Mar 2 20:56 reskeys.txt
890 Mar 2 20:56 achievements.txt
972 Mar 2 20:56 signoff.txt
1018 Mar 2 20:56 users_prefs.txt
1122 Mar 2 20:56 css.txt
1294 Mar 2 20:56 ajax_ops.txt
1303 Mar 2 20:56 tzcodes.txt
1312 Mar 2 20:56 users_index.txt
1316 Mar 2 20:56 users_hits.txt
1529 Mar 2 20:56 message_web.txt
1543 Mar 2 20:56 user_achievement_streaks.txt
1778 Mar 2 20:56 code_param.txt
2047 Mar 2 20:56 content_filters.txt
2132 Mar 2 20:56 reskey_hourlysalt.txt
2163 Mar 2 20:56 stories.txt
2430 Mar 2 20:56 users_comments.txt
2951 Mar 2 20:56 site_info.txt
3180 Mar 2 20:56 users_messages.txt
3385 Mar 2 20:56 slashd_status.txt
3595 Mar 2 20:56 menus.txt
3784 Mar 2 20:56 discussions.txt
4048 Mar 2 20:56 abusers.txt
4087 Mar 2 20:56 user_achievements.txt
4507 Mar 2 20:56 uncommonstorywords.txt
5099 Mar 2 20:56 accesslog_temp_rss.txt
5330 Mar 2 20:56 users.txt
6469 Mar 2 20:56 reskey_vars.txt
6619 Mar 2 20:56 blocks.txt
7016 Mar 2 20:56 reskey_resource_checks.txt
7373 Mar 2 20:56 journals_text.txt
7613 Mar 2 20:56 users_logtokens.txt
9144 Mar 2 20:56 formkeys.txt
10087 Mar 2 20:56 users_param.txt
10099 Mar 2 20:56 message_web_text.txt
10570 Mar 2 20:56 string_param.txt
10691 Mar 2 20:56 users_info.txt
10809 Mar 2 20:56 wow_realms.txt
11398 Mar 2 20:56 comments.txt
13957 Mar 2 20:56 message_log.txt
14980 Mar 2 20:56 comment_text.txt
018561 Mar 2 20:56 accesslog_admin.txt
24852 Mar 2 20:56 accesslog_temp_other.txt
50104 Mar 2 20:56 vars.txt
57261 Mar 2 20:56 submissions.txt
68640 Mar 2 20:56 dynamic_user_blocks.txt
84260 Mar 2 20:56 story_text.txt
256371 Mar 2 20:56 slashd_errnotes.txt
283635 Mar 2 20:56 accesslog_temp_errors.txt
431983 Mar 2 20:56 accesslog_temp.txt
579455 Mar 2 20:56 accesslog.txt
869491 Mar 2 20:56 stats_daily.txt
917375 Mar 2 20:56 templates.txt
</pre>

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T04:55:38Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

as root: mysqldump altslashdot css > zz.txt

mysqldump -T '/var/lib/mysql/test' altslashdot css

Information about mysql as used for slash
<pre>
Database Name: altslashdot
Database user: mysql
</pre>

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.
<pre>
Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases
</pre>
To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T04:26:29Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

as root: mysqldump altslashdot css > zz.txt

Information about mysql as used for slash
<pre>
Database Name: altslashdot
Database user: mysql
</pre>

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.
<pre>
Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases
</pre>
To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T03:46:20Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

Information about mysql as used for slash
<pre>
Database Name: ibdata1 ??
Database user: mysql
</pre>

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.
<pre>
Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases
</pre>
To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T03:41:05Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

Information about mysql as used for slash

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.
<pre>
Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases
</pre>
To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T03:38:18Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

Information about mysql as used for slash

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>mysqldump</h2>

mysqldump http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

A client that dumps a MySQL database into a file as SQL, text, or XML.

The mysqldump client is a utility that performs logical backups, producing a set of SQL statements that can be run to reproduce the original schema objects, table data, or both. It dumps one or more MySQL database for backup or transfer to another SQL server. The mysqldump command can also generate output in CSV, other delimited text, or XML format.

Syntax

There are in general three ways to use mysqldump—in order to dump a set of one or more tables, a set of one or more complete databases, or an entire MySQL server—as shown here:
shell> mysqldump [options] db_name [tbl_name ...]
shell> mysqldump [options] --databases db_name ...
shell> mysqldump [options] --all-databases

To dump entire databases, do not name any tables following db_name, or use the --databases or --all-databases option.

mysqldump does not dump the INFORMATION_SCHEMA database by default. mysqldump dumps INFORMATION_SCHEMA only if you name it explicitly on the command line, although currently you must also use the --skip-lock-tables option. Before MySQL 5.5 mysqldump silently ignores INFORMATION_SCHEMA even if you name it explicitly on the command line.

mysqldump does not dump the performance_schema database.

Before MySQL 5.5.25, mysqldump does not dump the general_log or slow_query_log tables for dumps of the mysql database. As of 5.5.25, the dump includes statements to recreate those tables so that they are not missing after reloading the dump file. Log table contents are not dumped.

mysqldump also does not dump the MySQL Cluster ndbinfo information database.

To see a list of the options your version of mysqldump supports, execute mysqldump --help.

<h2>Mysql programs</h2>

All these try PROGNAME --help for details

also http://dev.mysql.com/doc/refman/5.5/en/programs-overview.html

<pre>
The MySQL server, mysqld, is the main program that does most of the work in a MySQL installation. The server is accompanied by several related scripts that assist you in starting and stopping the server:

mysqld

The SQL daemon (that is, the MySQL server). To use client programs, mysqld must be running, because clients gain access to databases by connecting to the server. See Section 4.3.1, “mysqld — The MySQL Server”.

mysqld_safe

A server startup script. mysqld_safe attempts to start mysqld. See Section 4.3.2, “mysqld_safe — MySQL Server Startup Script”.

mysql.server

A server startup script. This script is used on systems that use System V-style run directories containing scripts that start system services for particular run levels. It invokes mysqld_safe to start the MySQL server. See Section 4.3.3, “mysql.server — MySQL Server Startup Script”.

mysqld_multi

A server startup script that can start or stop multiple servers installed on the system. See Section 4.3.4, “mysqld_multi — Manage Multiple MySQL Servers”.

Several programs perform setup operations during MySQL installation or upgrading:

comp_err

This program is used during the MySQL build/installation process. It compiles error message files from the error source files. See Section 4.4.1, “comp_err — Compile MySQL Error Message File”.

mysql_install_db

This script creates the MySQL database and initializes the grant tables with default privileges. It is usually executed only once, when first installing MySQL on a system. See Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”, Section 2.10.1, “Postinstallation Procedures for Unix-like Systems”, and Section 4.4.3, “mysql_install_db — Initialize MySQL Data Directory”.

mysql_plugin

This program configures MySQL server plugins. See Section 4.4.4, “mysql_plugin — Configure MySQL Server Plugins”.

mysql_secure_installation

This program enables you to improve the security of your MySQL installation. SQL. See Section 4.4.5, “mysql_secure_installation — Improve MySQL Installation Security”.

mysql_tzinfo_to_sql

This program loads the time zone tables in the mysql database using the contents of the host system zoneinfo database (the set of files describing time zones). SQL. See Section 4.4.6, “mysql_tzinfo_to_sql — Load the Time Zone Tables”.

mysql_upgrade

This program is used after a MySQL upgrade operation. It checks tables for incompatibilities and repairs them if necessary, and updates the grant tables with any changes that have been made in newer versions of MySQL. See Section 4.4.7, “mysql_upgrade — Check and Upgrade MySQL Tables”.

MySQL client programs that connect to the MySQL server:

mysql

The command-line tool for interactively entering SQL statements or executing them from a file in batch mode. See Section 4.5.1, “mysql — The MySQL Command-Line Tool”.

mysqladmin

A client that performs administrative operations, such as creating or dropping databases, reloading the grant tables, flushing tables to disk, and reopening log files. mysqladmin can also be used to retrieve version, process, and status information from the server. See Section 4.5.2, “mysqladmin — Client for Administering a MySQL Server”.

mysqlcheck

A table-maintenance client that checks, repairs, analyzes, and optimizes tables. See Section 4.5.3, “mysqlcheck — A Table Maintenance Program”.

mysqldump

A client that dumps a MySQL database into a file as SQL, text, or XML. See Section 4.5.4, “mysqldump — A Database Backup Program”.

mysqlimport

A client that imports text files into their respective tables using LOAD DATA INFILE. See Section 4.5.5, “mysqlimport — A Data Import Program”.

mysqlshow

A client that displays information about databases, tables, columns, and indexes. See Section 4.5.6, “mysqlshow — Display Database, Table, and Column Information”.

mysqlslap

A client that is designed to emulate client load for a MySQL server and report the timing of each stage. It works as if multiple clients are accessing the server. See Section 4.5.7, “mysqlslap — Load Emulation Client”.

MySQL administrative and utility programs:

innochecksum

An offline InnoDB offline file checksum utility. See Section 4.6.1, “innochecksum — Offline InnoDB File Checksum Utility”.

myisam_ftdump

A utility that displays information about full-text indexes in MyISAM tables. See Section 4.6.2, “myisam_ftdump — Display Full-Text Index information”.

myisamchk

A utility to describe, check, optimize, and repair MyISAM tables. See Section 4.6.3, “myisamchk — MyISAM Table-Maintenance Utility”.

myisamlog

A utility that processes the contents of a MyISAM log file. See Section 4.6.4, “myisamlog — Display MyISAM Log File Contents”.

myisampack

A utility that compresses MyISAM tables to produce smaller read-only tables. See Section 4.6.5, “myisampack — Generate Compressed, Read-Only MyISAM Tables”.

mysqlaccess

A script that checks the access privileges for a host name, user name, and database combination. See Section 4.6.6, “mysqlaccess — Client for Checking Access Privileges”.

mysqlbinlog

A utility for reading statements from a binary log. The log of executed statements contained in the binary log files can be used to help recover from a crash. See Section 4.6.7, “mysqlbinlog — Utility for Processing Binary Log Files”.

mysqldumpslow

A utility to read and summarize the contents of a slow query log. See Section 4.6.8, “mysqldumpslow — Summarize Slow Query Log Files”.

mysqlhotcopy

A utility that quickly makes backups of MyISAM tables while the server is running. See Section 4.6.9, “mysqlhotcopy — A Database Backup Program”.

mysql_convert_table_format

A utility that converts tables in a database to use a given storage engine. See Section 4.6.10, “mysql_convert_table_format — Convert Tables to Use a Given Storage Engine”.

mysql_find_rows

A utility that reads files containing SQL statements (such as update logs) and extracts statements that match a given regular expression. See Section 4.6.11, “mysql_find_rows — Extract SQL Statements from Files”.

mysql_fix_extensions

A utility that converts the extensions for MyISAM table files to lowercase. This can be useful after transferring the files from a system with case-insensitive file names to a system with case-sensitive file names. See Section 4.6.12, “mysql_fix_extensions — Normalize Table File Name Extensions”.

mysql_setpermission

A utility for interactively setting permissions in the MySQL grant tables. See Section 4.6.13, “mysql_setpermission — Interactively Set Permissions in Grant Tables”.

mysql_waitpid

A utility that kills the process with a given process ID. See Section 4.6.14, “mysql_waitpid — Kill Process and Wait for Its Termination”.

mysql_zap

A utility that kills processes that match a pattern. See Section 4.6.15, “mysql_zap — Kill Processes That Match a Pattern”.

MySQL program-development utilities:

msql2mysql

A shell script that converts mSQL programs to MySQL. It doesn't handle every case, but it gives a good start when converting. See Section 4.7.1, “msql2mysql — Convert mSQL Programs for Use with MySQL”.

mysql_config

A shell script that produces the option values needed when compiling MySQL programs. See Section 4.7.2, “mysql_config — Display Options for Compiling Clients”.

my_print_defaults

A utility that shows which options are present in option groups of option files. See Section 4.7.3, “my_print_defaults — Display Options from Option Files”.

resolve_stack_dump

A utility program that resolves a numeric stack trace dump to symbols. See Section 4.7.4, “resolve_stack_dump — Resolve Numeric Stack Trace Dump to Symbols”.

Miscellaneous utilities:

perror

A utility that displays the meaning of system or MySQL error codes. See Section 4.8.1, “perror — Explain Error Codes”.

replace

A utility program that performs string replacement in the input text. See Section 4.8.2, “replace — A String-Replacement Utility”.

resolveip

A utility program that resolves a host name to an IP address or vice versa. See Section 4.8.3, “resolveip — Resolve Host name to IP Address or Vice Versa”.

Oracle Corporation also provides the MySQL Workbench GUI tool, which is used to administer MySQL servers and databases, to create, execute, and evaluate queries, and to migrate schemas and data from other relational database management systems for use with MySQL. Additional GUI tools include MySQL Notifier for Microsoft Windows MySQL for Excel.

MySQL client programs that communicate with the server using the MySQL client/server library use the following environment variables.
Environment Variable Meaning
MYSQL_UNIX_PORT The default Unix socket file; used for connections to localhost
MYSQL_TCP_PORT The default port number; used for TCP/IP connections
MYSQL_PWD The default password
MYSQL_DEBUG Debug trace options when debugging
TMPDIR The directory where temporary tables and files are created

For a full list of environment variables used by MySQL programs, see Section 2.12, “Environment Variables”.
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T03:14:57Z

50.45.173.59:

* [[CssWork]] - parent
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables

* http://dev.mysql.com/doc/refman/5.5/en/index.html
* http://dev.mysql.com/doc/refman/5.5/en/tutorial.html

Information about mysql as used for slash

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T03:08:26Z

50.45.173.59:

[[CssWork]] - parent
<br>[[SqlSchema]] - tables used in the database
<br>[[SqlDefaults]] - defaults for those tables
<br>
Information about mysql as used for slash

<h2>Version</h2>
<pre>
mysql-5.5.36
db4-devel-4.7.25 mysql-libs-5.5.36
db4-utils-4.7.25 mysql-server-5.5.36
</pre>

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T00:06:02Z

50.45.173.59:

[[CssWork]] - parent
<br>[[SqlSchema]] - tables used in the database
<br>[[SqlDefaults]] - defaults for those tables
<br>
Information about mysql as used for slash

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T00:05:27Z

50.45.173.59:

[[CssWork]] - parent
[[SqlSchema]] - tables used in the database
[[SqlDefaults]] - defaults for those tables

Information about mysql as used for slash

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T00:03:21Z

50.45.173.59:

[[CssWork]] - parent

Information about mysql as used for slash

<h2>Mysql configuration file in /etc/my.cnf</h2>

<pre>
[mysqld]
datadir=/var/lib/mysql
socket=/var/lib/mysql/mysql.sock

# Disabling symbolic-links is recommended to prevent assorted security risks
symbolic-links=0

# Settings user and group are ignored when systemd is used (fedora >= 15).
# If you need to run mysqld under a different user or group,
# customize your systemd unit file for mysqld according to the
# instructions in http://fedoraproject.org/wiki/Systemd
user=mysql

# Semisynchronous Replication
# http://dev.mysql.com/doc/refman/5.5/en/replication-semisync.html
# uncomment next line on MASTER
;plugin-load=rpl_semi_sync_master=semisync_master.so
# uncomment next line on SLAVE
;plugin-load=rpl_semi_sync_slave=semisync_slave.so

# Others options for Semisynchronous Replication
;rpl_semi_sync_master_enabled=1
;rpl_semi_sync_master_timeout=10
;rpl_semi_sync_slave_enabled=1

# http://dev.mysql.com/doc/refman/5.5/en/performance-schema.html
;performance_schema

[mysqld_safe]
log-error=/var/log/mysqld.log
pid-file=/var/run/mysqld/mysqld.pid
</pre>

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-03T00:00:24Z

50.45.173.59:

[[CssWork]] - parent

Information about mysql as used for slash

<h2>mysql --help</h2>

<pre>
mysql Ver 14.14 Distrib 5.5.36, for Linux (x86_64) using readline 5.1
Copyright (c) 2000, 2014, Oracle and/or its affiliates. All rights reserved.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Usage: mysql [OPTIONS] [database]
-?, --help Display this help and exit.
-I, --help Synonym for -?
--auto-rehash Enable automatic rehashing. One doesn't need to use
'rehash' to get table and field completion, but startup
and reconnecting may take a longer time. Disable with
--disable-auto-rehash.
(Defaults to on; use --skip-auto-rehash to disable.)
-A, --no-auto-rehash
No automatic rehashing. One has to use 'rehash' to get
table and field completion. This gives a quicker start of
mysql and disables rehashing on reconnect.
--auto-vertical-output
Automatically switch to vertical output mode if the
result is wider than the terminal width.
-B, --batch Don't use history file. Disable interactive behavior.
(Enables --silent.)
--character-sets-dir=name
Directory for character set files.
--column-type-info Display column type information.
-c, --comments Preserve comments. Send comments to the server. The
default is --skip-comments (discard comments), enable
with --comments.
-C, --compress Use compression in server/client protocol.
-#, --debug[=#] This is a non-debug version. Catch this and exit.
--debug-check Check memory and open file usage at exit.
-T, --debug-info Print some debug info at exit.
-D, --database=name Database to use.
--default-character-set=name
Set the default character set.
--delimiter=name Delimiter to be used.
--enable-cleartext-plugin
Enable/disable the clear text authentication plugin.
-e, --execute=name Execute command and quit. (Disables --force and history
file.)
-E, --vertical Print the output of a query (rows) vertically.
-f, --force Continue even if we get an SQL error.
-G, --named-commands
Enable named commands. Named commands mean this program's
internal commands; see mysql> help . When enabled, the
named commands can be used from any line of the query,
otherwise only from the first line, before an enter.
Disable with --disable-named-commands. This option is
disabled by default.
-i, --ignore-spaces Ignore space after function names.
--init-command=name SQL Command to execute when connecting to MySQL server.
Will automatically be re-executed when reconnecting.
--local-infile Enable/disable LOAD DATA LOCAL INFILE.
-b, --no-beep Turn off beep on error.
-h, --host=name Connect to host.
-H, --html Produce HTML output.
-X, --xml Produce XML output.
--line-numbers Write line numbers for errors.
(Defaults to on; use --skip-line-numbers to disable.)
-L, --skip-line-numbers
Don't write line number for errors.
-n, --unbuffered Flush buffer after each query.
--column-names Write column names in results.
(Defaults to on; use --skip-column-names to disable.)
-N, --skip-column-names
Don't write column names in results.
--sigint-ignore Ignore SIGINT (CTRL-C).
-o, --one-database Ignore statements except those that occur while the
default database is the one named at the command line.
--pager[=name] Pager to use to display results. If you don't supply an
option, the default pager is taken from your ENV variable
PAGER. Valid pagers are less, more, cat [> filename],
etc. See interactive help (\h) also. This option does not
work in batch mode. Disable with --disable-pager. This
option is disabled by default.
-p, --password[=name]
Password to use when connecting to server. If password is
not given it's asked from the tty.
-P, --port=# Port number to use for connection or 0 for default to, in
order of preference, my.cnf, $MYSQL_TCP_PORT,
/etc/services, built-in default (3306).
--prompt=name Set the mysql prompt to this value.
--protocol=name The protocol to use for connection (tcp, socket, pipe,
memory).
-q, --quick Don't cache result, print it row by row. This may slow
down the server if the output is suspended. Doesn't use
history file.
-r, --raw Write fields without conversion. Used with --batch.
--reconnect Reconnect if the connection is lost. Disable with
--disable-reconnect. This option is enabled by default.
(Defaults to on; use --skip-reconnect to disable.)
-s, --silent Be more silent. Print results with a tab as separator,
each row on new line.
-S, --socket=name The socket file to use for connection.
--ssl Enable SSL for connection (automatically enabled with
other flags).
--ssl-ca=name CA file in PEM format (check OpenSSL docs, implies
--ssl).
--ssl-capath=name CA directory (check OpenSSL docs, implies --ssl).
--ssl-cert=name X509 cert in PEM format (implies --ssl).
--ssl-cipher=name SSL cipher to use (implies --ssl).
--ssl-key=name X509 key in PEM format (implies --ssl).
--ssl-verify-server-cert
Verify server's "Common Name" in its cert against
hostname used when connecting. This option is disabled by
default.
-t, --table Output in table format.
--tee=name Append everything into outfile. See interactive help (\h)
also. Does not work in batch mode. Disable with
--disable-tee. This option is disabled by default.
-u, --user=name User for login if not current user.
-U, --safe-updates Only allow UPDATE and DELETE that uses keys.
-U, --i-am-a-dummy Synonym for option --safe-updates, -U.
-v, --verbose Write more. (-v -v -v gives the table output format).
-V, --version Output version information and exit.
-w, --wait Wait and retry if connection is down.
--connect-timeout=# Number of seconds before connection timeout.
--max-allowed-packet=#
The maximum packet length to send to or receive from
server.
--net-buffer-length=#
The buffer size for TCP/IP and socket communication.
--select-limit=# Automatic limit for SELECT when using --safe-updates.
--max-join-size=# Automatic limit for rows in a join when using
--safe-updates.
--secure-auth Refuse client connecting to server if it uses old
(pre-4.1.1) protocol.
--server-arg=name Send embedded server this as a parameter.
--show-warnings Show warnings after every statement.
--plugin-dir=name Directory for client-side plugins.
--default-auth=name Default authentication client-side plugin to use.

Default options are read from the following files in the given order:
/etc/my.cnf /etc/mysql/my.cnf /usr/etc/my.cnf ~/.my.cnf
The following groups are read: mysql client
The following options may be given as the first argument:
--print-defaults Print the program argument list and exit.
--no-defaults Don't read default options from any option file.
--defaults-file=# Only read default options from the given file #.
--defaults-extra-file=# Read this file after the global files are read.

Variables (--variable-name=value)
and boolean options {FALSE|TRUE} Value (after reading options)
--------------------------------- ----------------------------------------
auto-rehash TRUE
auto-vertical-output FALSE
character-sets-dir (No default value)
column-type-info FALSE
comments FALSE
compress FALSE
debug-check FALSE
debug-info FALSE
database (No default value)
default-character-set auto
delimiter ;
enable-cleartext-plugin FALSE
vertical FALSE
force FALSE
named-commands FALSE
ignore-spaces FALSE
init-command (No default value)
local-infile FALSE
no-beep FALSE
host (No default value)
html FALSE
xml FALSE
line-numbers TRUE
unbuffered FALSE
column-names TRUE
sigint-ignore FALSE
port 0
prompt mysql>
quick FALSE
raw FALSE
reconnect TRUE
socket (No default value)
ssl FALSE
ssl-ca (No default value)
ssl-capath (No default value)
ssl-cert (No default value)
ssl-cipher (No default value)
ssl-key (No default value)
ssl-verify-server-cert FALSE
table FALSE
user (No default value)
safe-updates FALSE
i-am-a-dummy FALSE
connect-timeout 0
max-allowed-packet 16777216
net-buffer-length 16384
select-limit 1000
max-join-size 1000000
secure-auth FALSE
show-warnings FALSE
plugin-dir (No default value)
default-auth (No default value)
</pre>

MySql

2014-03-02T23:58:59Z

50.45.173.59: Created page with "CssWork - parent Information about mysql as used for slash <h2>mysql --help</h2> <pre> </pre>"

[[CssWork]] - parent

Information about mysql as used for slash

<h2>mysql --help</h2>
<pre>

</pre>

Historic:CssWork

2014-03-02T23:57:40Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[MySql]]
** [[SqlSchema]] - tables used in the database
** [[SqlDefaults]] - defaults for those tables
* [[PageScriptList]] - scripts (= 'pages') in /slash/site/slashcott.org/htdocs with routines listed
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] - this is what handles the users home page and similar user functions.

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users. Once an edit is made, you are in /users.pl without /my/
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

PageScriptList

2014-03-01T20:40:38Z

50.45.173.59:

<h2>Scripts ('pages') in /slash/site/slashcott.org/htdocs </h2>
[[CssWork]] parent

404.pl:
<pre>
main, </pre>

admin.pl:
<pre>
aclEdit, aclSave, blockDelete, blockEdit,
blockSave, colorEdit, colorSave, commentLog,
deleteKeyword, displayMcdStats, displayPeerWeights, displayRecent,
displayRecentMods, displayRecentRequests, displayRecentSubs, displayRecentWebheads,
displaySignoffStats, displaySlashd, editFilter, editKeyword,
editStory, extractChosenFromForm, getDescForTopicsRendered, getsiddir,
getTitle, handleMediaFileForStory, importFile, importImage,
importText, listFilters, listStories, main,
moderate, pageEdit, rmStory, saveKeyword,
saveStory, showStaticFiles, siteInfo, templateDelete,
templateEdit, templateSave, topicDelete, topicEdit,
topicExtrasEdit, topicSave, topicTree, updateStory,
updateTopicNexusExtras, varEdit, varSave, </pre>

ajax.pl:
<pre>
default, editPreview, editReset, editSave,
fetchComments, getModalPrefs, getModalPrefsAnon, getModalPrefsAnonHC,
getOps, getSectionPrefsHTML, main, previewReply,
readRest, replyForm, saveModalPrefs, saveModalPrefsAnon,
saveModalPrefsAnonHC, setModalUpdates, setSectionNexusPrefs, submitReply,
updateD2prefs, </pre>

article.pl:
<pre>
main, </pre>

authors.pl:
<pre>
main, </pre>

badge.pl:
<pre>
display, forward, main, vote,
</pre>

blob.pl:
<pre>
main, </pre>

comments.pl:
<pre>
_buildargs, delete, deleteThread, displayComments,
editComment, main, metamod_elig, metamod_if_necessary,
moderate, previewForm, submitComment, </pre>

edit.pl:
<pre>
cancel, edit, main, preview,
save, start, </pre>

fileadmin.pl:
<pre>
addFileForStory, editBySid, editFile, listAll,
listFilesForStories, main, </pre>

help.pl:
<pre>
display_help, main, </pre>

hof.pl:
<pre>
main, </pre>

imgupload.pl:
<pre>
main, receive_upload, </pre>

index.pl:
<pre>
displayStories, dnBid, do_rss, getDispModeForStory,
getDispModesForStories, getSidFromRemark, main, redirect_home_if_necessary,
rmBid, saveUserBoxes, upBid, </pre>

journal.pl:
<pre>
add_entry, articleMeta, _checkTheme, delete_entry,
displayArticle, displayArticleFriends, displayFriends, displayRSS,
displayTop, displayTopRSS, doEditArticle, doSaveArticle,
editArticle, editPrefs, get_entries, get_entry,
get_uid_from_nickname, listArticle, main, modify_entry,
_printHead, removeArticle, saveArticle, _save_params,
searchUsers, setPrefs, </pre>

login.pl:
<pre>
allowOpenID, changePrefs, claimOpenID, deleteOpenID,
getOtherUserParams, loginForm, mailPasswd, mailPasswdForm,
main, newUser, newUserForm, printOpenID,
savePrefs, _sendMailPasswd, _validFormkey, verifyOpenID,
</pre>

messages.pl:
<pre>
delete_message, delete_messages, display_message, display_prefs,
edit_message, list_messages, list_messages_rss, main,
save_prefs, send_message, </pre>

metamod.pl:
<pre>
displayTheComments, main, </pre>

pollBooth.pl:
<pre>
default, deletepolls, detachpoll, editpoll,
link_story_to_poll, listpolls, main, poll_booth,
savepoll, vote, </pre>

preferences.pl:
<pre>
display_prefs, main, </pre>

print.pl:
<pre>
get_content, main, </pre>

pubkey.pl:
<pre>
main, </pre>

search.pl:
<pre>
_authors, _buildargs, commentSearch, commentSearchRSS,
journalSearch, journalSearchRSS, main, pollSearch,
pollSearchRSS, rssSearch, rssSearchRSS, _shorten,
_skins, _sort, storySearch, storySearchRSS,
submissionSearch, submissionSearchRSS, _topics, userSearch,
userSearchRSS, </pre>

shtml.pl:
<pre>
getFileText, getRequestedFileAndType, main, parse,
replace_footer, replace_header, </pre>

stats.pl:
<pre>
csv, _get_graph_data, _get_graph_id, _get_skins,
graph, list, main, report,
_set_legend, table, topics, </pre>

submit.pl:
<pre>
blankForm, changeSubmission, deleteSubmissions, displayForm,
displayRSS, genChosenHashrefForTopics, getSubmissionSelections, main,
mergeSubmissions, previewForm, previewStory, saveSub,
submissionEd, updateSubmissions, yourPendingSubmissions, </pre>

topics.pl:
<pre>
hierarchy, listTopics, main, </pre>

users2.pl: see [[PerlModuleUsers]]
<pre>
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,
</pre>

users.pl: see [[PerlModuleUsers]] - this is what handles the users home page and similar user functions.
<pre>
adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,
</pre>

zoo.pl:
<pre>
action, check, main, people,
_printHead, _rss, testSocialized, </pre>

PageScriptList

2014-03-01T20:36:42Z

50.45.173.59:

<h2>Scripts ('pages') in /slash/site/slashcott.org/htdocs </h2>
[[CssWork]] parent

index.pl:
<pre>
displayStories, dnBid, do_rss, getDispModeForStory,
getDispModesForStories, getSidFromRemark, main, redirect_home_if_necessary,
rmBid, saveUserBoxes, upBid, </pre>

journal.pl:
<pre>
add_entry, articleMeta, _checkTheme, delete_entry,
displayArticle, displayArticleFriends, displayFriends, displayRSS,
displayTop, displayTopRSS, doEditArticle, doSaveArticle,
editArticle, editPrefs, get_entries, get_entry,
get_uid_from_nickname, listArticle, main, modify_entry,
_printHead, removeArticle, saveArticle, _save_params,
searchUsers, setPrefs, </pre>

login.pl:
<pre>
allowOpenID, changePrefs, claimOpenID, deleteOpenID,
getOtherUserParams, loginForm, mailPasswd, mailPasswdForm,
main, newUser, newUserForm, printOpenID,
savePrefs, _sendMailPasswd, _validFormkey, verifyOpenID,
</pre>

messages.pl:
<pre>
delete_message, delete_messages, display_message, display_prefs,
edit_message, list_messages, list_messages_rss, main,
save_prefs, send_message, </pre>

<pre>
404.pl:
main,

admin.pl:
aclEdit, aclSave, blockDelete, blockEdit,
blockSave, colorEdit, colorSave, commentLog,
deleteKeyword, displayMcdStats, displayPeerWeights, displayRecent,
displayRecentMods, displayRecentRequests, displayRecentSubs, displayRecentWebheads,
displaySignoffStats, displaySlashd, editFilter, editKeyword,
editStory, extractChosenFromForm, getDescForTopicsRendered, getsiddir,
getTitle, handleMediaFileForStory, importFile, importImage,
importText, listFilters, listStories, main,
moderate, pageEdit, rmStory, saveKeyword,
saveStory, showStaticFiles, siteInfo, templateDelete,
templateEdit, templateSave, topicDelete, topicEdit,
topicExtrasEdit, topicSave, topicTree, updateStory,
updateTopicNexusExtras, varEdit, varSave,

ajax.pl:
default, editPreview, editReset, editSave,
fetchComments, getModalPrefs, getModalPrefsAnon, getModalPrefsAnonHC,
getOps, getSectionPrefsHTML, main, previewReply,
readRest, replyForm, saveModalPrefs, saveModalPrefsAnon,
saveModalPrefsAnonHC, setModalUpdates, setSectionNexusPrefs, submitReply,
updateD2prefs,

article.pl:
main,

authors.pl:
main,

badge.pl:
display, forward, main, vote,

blob.pl:
main,

comments.pl:
_buildargs, delete, deleteThread, displayComments,
editComment, main, metamod_elig, metamod_if_necessary,
moderate, previewForm, submitComment,

edit.pl:
cancel, edit, main, preview,
save, start,

fileadmin.pl:
addFileForStory, editBySid, editFile, listAll,
listFilesForStories, main,

help.pl:
display_help, main,

hof.pl:
main,

imgupload.pl:
main, receive_upload,

index.pl:
displayStories, dnBid, do_rss, getDispModeForStory,
getDispModesForStories, getSidFromRemark, main, redirect_home_if_necessary,
rmBid, saveUserBoxes, upBid,

journal.pl:
add_entry, articleMeta, _checkTheme, delete_entry,
displayArticle, displayArticleFriends, displayFriends, displayRSS,
displayTop, displayTopRSS, doEditArticle, doSaveArticle,
editArticle, editPrefs, get_entries, get_entry,
get_uid_from_nickname, listArticle, main, modify_entry,
_printHead, removeArticle, saveArticle, _save_params,
searchUsers, setPrefs,

login.pl:
allowOpenID, changePrefs, claimOpenID, deleteOpenID,
getOtherUserParams, loginForm, mailPasswd, mailPasswdForm,
main, newUser, newUserForm, printOpenID,
savePrefs, _sendMailPasswd, _validFormkey, verifyOpenID,

messages.pl:
delete_message, delete_messages, display_message, display_prefs,
edit_message, list_messages, list_messages_rss, main,
save_prefs, send_message,

metamod.pl:
displayTheComments, main,

pollBooth.pl:
default, deletepolls, detachpoll, editpoll,
link_story_to_poll, listpolls, main, poll_booth,
savepoll, vote,

preferences.pl:
display_prefs, main,

print.pl:
get_content, main,

pubkey.pl:
main,

search.pl:
_authors, _buildargs, commentSearch, commentSearchRSS,
journalSearch, journalSearchRSS, main, pollSearch,
pollSearchRSS, rssSearch, rssSearchRSS, _shorten,
_skins, _sort, storySearch, storySearchRSS,
submissionSearch, submissionSearchRSS, _topics, userSearch,
userSearchRSS,

shtml.pl:
getFileText, getRequestedFileAndType, main, parse,
replace_footer, replace_header,

stats.pl:
csv, _get_graph_data, _get_graph_id, _get_skins,
graph, list, main, report,
_set_legend, table, topics,

submit.pl:
blankForm, changeSubmission, deleteSubmissions, displayForm,
displayRSS, genChosenHashrefForTopics, getSubmissionSelections, main,
mergeSubmissions, previewForm, previewStory, saveSub,
submissionEd, updateSubmissions, yourPendingSubmissions,

topics.pl:
hierarchy, listTopics, main,
</pre>see [[PerlModuleUsers]]<pre>
users2.pl:
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,

</pre>see [[PerlModuleUsers]]<pre>
users.pl: - this is what handles the users home page and similar user functions.

adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,

zoo.pl:
action, check, main, people,
_printHead, _rss, testSocialized,
</pre>

PageScriptList

2014-03-01T20:31:40Z

50.45.173.59:

<h2>Scripts ('pages') in /slash/site/slashcott.org/htdocs </h2>
[[CssWork]] parent

<pre>
404.pl:
main,

admin.pl:
aclEdit, aclSave, blockDelete, blockEdit,
blockSave, colorEdit, colorSave, commentLog,
deleteKeyword, displayMcdStats, displayPeerWeights, displayRecent,
displayRecentMods, displayRecentRequests, displayRecentSubs, displayRecentWebheads,
displaySignoffStats, displaySlashd, editFilter, editKeyword,
editStory, extractChosenFromForm, getDescForTopicsRendered, getsiddir,
getTitle, handleMediaFileForStory, importFile, importImage,
importText, listFilters, listStories, main,
moderate, pageEdit, rmStory, saveKeyword,
saveStory, showStaticFiles, siteInfo, templateDelete,
templateEdit, templateSave, topicDelete, topicEdit,
topicExtrasEdit, topicSave, topicTree, updateStory,
updateTopicNexusExtras, varEdit, varSave,

ajax.pl:
default, editPreview, editReset, editSave,
fetchComments, getModalPrefs, getModalPrefsAnon, getModalPrefsAnonHC,
getOps, getSectionPrefsHTML, main, previewReply,
readRest, replyForm, saveModalPrefs, saveModalPrefsAnon,
saveModalPrefsAnonHC, setModalUpdates, setSectionNexusPrefs, submitReply,
updateD2prefs,

article.pl:
main,

authors.pl:
main,

badge.pl:
display, forward, main, vote,

blob.pl:
main,

comments.pl:
_buildargs, delete, deleteThread, displayComments,
editComment, main, metamod_elig, metamod_if_necessary,
moderate, previewForm, submitComment,

edit.pl:
cancel, edit, main, preview,
save, start,

fileadmin.pl:
addFileForStory, editBySid, editFile, listAll,
listFilesForStories, main,

help.pl:
display_help, main,

hof.pl:
main,

imgupload.pl:
main, receive_upload,

index.pl:
displayStories, dnBid, do_rss, getDispModeForStory,
getDispModesForStories, getSidFromRemark, main, redirect_home_if_necessary,
rmBid, saveUserBoxes, upBid,

journal.pl:
add_entry, articleMeta, _checkTheme, delete_entry,
displayArticle, displayArticleFriends, displayFriends, displayRSS,
displayTop, displayTopRSS, doEditArticle, doSaveArticle,
editArticle, editPrefs, get_entries, get_entry,
get_uid_from_nickname, listArticle, main, modify_entry,
_printHead, removeArticle, saveArticle, _save_params,
searchUsers, setPrefs,

login.pl:
allowOpenID, changePrefs, claimOpenID, deleteOpenID,
getOtherUserParams, loginForm, mailPasswd, mailPasswdForm,
main, newUser, newUserForm, printOpenID,
savePrefs, _sendMailPasswd, _validFormkey, verifyOpenID,

messages.pl:
delete_message, delete_messages, display_message, display_prefs,
edit_message, list_messages, list_messages_rss, main,
save_prefs, send_message,

metamod.pl:
displayTheComments, main,

pollBooth.pl:
default, deletepolls, detachpoll, editpoll,
link_story_to_poll, listpolls, main, poll_booth,
savepoll, vote,

preferences.pl:
display_prefs, main,

print.pl:
get_content, main,

pubkey.pl:
main,

search.pl:
_authors, _buildargs, commentSearch, commentSearchRSS,
journalSearch, journalSearchRSS, main, pollSearch,
pollSearchRSS, rssSearch, rssSearchRSS, _shorten,
_skins, _sort, storySearch, storySearchRSS,
submissionSearch, submissionSearchRSS, _topics, userSearch,
userSearchRSS,

shtml.pl:
getFileText, getRequestedFileAndType, main, parse,
replace_footer, replace_header,

stats.pl:
csv, _get_graph_data, _get_graph_id, _get_skins,
graph, list, main, report,
_set_legend, table, topics,

submit.pl:
blankForm, changeSubmission, deleteSubmissions, displayForm,
displayRSS, genChosenHashrefForTopics, getSubmissionSelections, main,
mergeSubmissions, previewForm, previewStory, saveSub,
submissionEd, updateSubmissions, yourPendingSubmissions,

topics.pl:
hierarchy, listTopics, main,
</pre>see [[PerlModuleUsers]]<pre>
users2.pl:
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,

</pre>see [[PerlModuleUsers]]<pre>
users.pl: - this is what handles the users home page and similar user functions.

adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,

zoo.pl:
action, check, main, people,
_printHead, _rss, testSocialized,
</pre>

PageScriptList

2014-03-01T20:27:08Z

50.45.173.59:

<h2>Scripts ('pages') in /slash/site/slashcott.org/htdocs </h2>
[[CssWork]] parent

<pre>
404.pl:
main,

admin.pl:
aclEdit, aclSave, blockDelete, blockEdit,
blockSave, colorEdit, colorSave, commentLog,
deleteKeyword, displayMcdStats, displayPeerWeights, displayRecent,
displayRecentMods, displayRecentRequests, displayRecentSubs, displayRecentWebheads,
displaySignoffStats, displaySlashd, editFilter, editKeyword,
editStory, extractChosenFromForm, getDescForTopicsRendered, getsiddir,
getTitle, handleMediaFileForStory, importFile, importImage,
importText, listFilters, listStories, main,
moderate, pageEdit, rmStory, saveKeyword,
saveStory, showStaticFiles, siteInfo, templateDelete,
templateEdit, templateSave, topicDelete, topicEdit,
topicExtrasEdit, topicSave, topicTree, updateStory,
updateTopicNexusExtras, varEdit, varSave,

ajax.pl:
default, editPreview, editReset, editSave,
fetchComments, getModalPrefs, getModalPrefsAnon, getModalPrefsAnonHC,
getOps, getSectionPrefsHTML, main, previewReply,
readRest, replyForm, saveModalPrefs, saveModalPrefsAnon,
saveModalPrefsAnonHC, setModalUpdates, setSectionNexusPrefs, submitReply,
updateD2prefs,

article.pl:
main,

authors.pl:
main,

badge.pl:
display, forward, main, vote,

blob.pl:
main,

comments.pl:
_buildargs, delete, deleteThread, displayComments,
editComment, main, metamod_elig, metamod_if_necessary,
moderate, previewForm, submitComment,

edit.pl:
cancel, edit, main, preview,
save, start,

fileadmin.pl:
addFileForStory, editBySid, editFile, listAll,
listFilesForStories, main,

help.pl:
display_help, main,

hof.pl:
main,

imgupload.pl:
main, receive_upload,

index.pl:
displayStories, dnBid, do_rss, getDispModeForStory,
getDispModesForStories, getSidFromRemark, main, redirect_home_if_necessary,
rmBid, saveUserBoxes, upBid,

journal.pl:
add_entry, articleMeta, _checkTheme, delete_entry,
displayArticle, displayArticleFriends, displayFriends, displayRSS,
displayTop, displayTopRSS, doEditArticle, doSaveArticle,
editArticle, editPrefs, get_entries, get_entry,
get_uid_from_nickname, listArticle, main, modify_entry,
_printHead, removeArticle, saveArticle, _save_params,
searchUsers, setPrefs,

login.pl:
allowOpenID, changePrefs, claimOpenID, deleteOpenID,
getOtherUserParams, loginForm, mailPasswd, mailPasswdForm,
main, newUser, newUserForm, printOpenID,
savePrefs, _sendMailPasswd, _validFormkey, verifyOpenID,

messages.pl:
delete_message, delete_messages, display_message, display_prefs,
edit_message, list_messages, list_messages_rss, main,
save_prefs, send_message,

metamod.pl:
displayTheComments, main,

pollBooth.pl:
default, deletepolls, detachpoll, editpoll,
link_story_to_poll, listpolls, main, poll_booth,
savepoll, vote,

preferences.pl:
display_prefs, main,

print.pl:
get_content, main,

pubkey.pl:
main,

search.pl:
_authors, _buildargs, commentSearch, commentSearchRSS,
journalSearch, journalSearchRSS, main, pollSearch,
pollSearchRSS, rssSearch, rssSearchRSS, _shorten,
_skins, _sort, storySearch, storySearchRSS,
submissionSearch, submissionSearchRSS, _topics, userSearch,
userSearchRSS,

shtml.pl:
getFileText, getRequestedFileAndType, main, parse,
replace_footer, replace_header,

stats.pl:
csv, _get_graph_data, _get_graph_id, _get_skins,
graph, list, main, report,
_set_legend, table, topics,

submit.pl:
blankForm, changeSubmission, deleteSubmissions, displayForm,
displayRSS, genChosenHashrefForTopics, getSubmissionSelections, main,
mergeSubmissions, previewForm, previewStory, saveSub,
submissionEd, updateSubmissions, yourPendingSubmissions,

topics.pl:
hierarchy, listTopics, main,

users2.pl:
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,

users.pl:
adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,

zoo.pl:
action, check, main, people,
_printHead, _rss, testSocialized,
</pre>

PageScriptList

2014-03-01T20:19:43Z

50.45.173.59: Created page with "<h2>Scripts ('pages') in /slash/site/slashcott.org/htdocs </h2> <pre> 404.pl: main, admin.pl: aclEdit, aclSave, blockDelete, blockEdit, blockSave, colorEdit, c..."

<h2>Scripts ('pages') in /slash/site/slashcott.org/htdocs </h2>

<pre>
404.pl:
main,

admin.pl:
aclEdit, aclSave, blockDelete, blockEdit,
blockSave, colorEdit, colorSave, commentLog,
deleteKeyword, displayMcdStats, displayPeerWeights, displayRecent,
displayRecentMods, displayRecentRequests, displayRecentSubs, displayRecentWebheads,
displaySignoffStats, displaySlashd, editFilter, editKeyword,
editStory, extractChosenFromForm, getDescForTopicsRendered, getsiddir,
getTitle, handleMediaFileForStory, importFile, importImage,
importText, listFilters, listStories, main,
moderate, pageEdit, rmStory, saveKeyword,
saveStory, showStaticFiles, siteInfo, templateDelete,
templateEdit, templateSave, topicDelete, topicEdit,
topicExtrasEdit, topicSave, topicTree, updateStory,
updateTopicNexusExtras, varEdit, varSave,

ajax.pl:
default, editPreview, editReset, editSave,
fetchComments, getModalPrefs, getModalPrefsAnon, getModalPrefsAnonHC,
getOps, getSectionPrefsHTML, main, previewReply,
readRest, replyForm, saveModalPrefs, saveModalPrefsAnon,
saveModalPrefsAnonHC, setModalUpdates, setSectionNexusPrefs, submitReply,
updateD2prefs,

article.pl:
main,

authors.pl:
main,

badge.pl:
display, forward, main, vote,

blob.pl:
main,

comments.pl:
_buildargs, delete, deleteThread, displayComments,
editComment, main, metamod_elig, metamod_if_necessary,
moderate, previewForm, submitComment,

edit.pl:
cancel, edit, main, preview,
save, start,

fileadmin.pl:
addFileForStory, editBySid, editFile, listAll,
listFilesForStories, main,

help.pl:
display_help, main,

hof.pl:
main,

imgupload.pl:
main, receive_upload,

index.pl:
displayStories, dnBid, do_rss, getDispModeForStory,
getDispModesForStories, getSidFromRemark, main, redirect_home_if_necessary,
rmBid, saveUserBoxes, upBid,

journal.pl:
add_entry, articleMeta, _checkTheme, delete_entry,
displayArticle, displayArticleFriends, displayFriends, displayRSS,
displayTop, displayTopRSS, doEditArticle, doSaveArticle,
editArticle, editPrefs, get_entries, get_entry,
get_uid_from_nickname, listArticle, main, modify_entry,
_printHead, removeArticle, saveArticle, _save_params,
searchUsers, setPrefs,

login.pl:
allowOpenID, changePrefs, claimOpenID, deleteOpenID,
getOtherUserParams, loginForm, mailPasswd, mailPasswdForm,
main, newUser, newUserForm, printOpenID,
savePrefs, _sendMailPasswd, _validFormkey, verifyOpenID,

messages.pl:
delete_message, delete_messages, display_message, display_prefs,
edit_message, list_messages, list_messages_rss, main,
save_prefs, send_message,

metamod.pl:
displayTheComments, main,

pollBooth.pl:
default, deletepolls, detachpoll, editpoll,
link_story_to_poll, listpolls, main, poll_booth,
savepoll, vote,

preferences.pl:
display_prefs, main,

print.pl:
get_content, main,

pubkey.pl:
main,

search.pl:
_authors, _buildargs, commentSearch, commentSearchRSS,
journalSearch, journalSearchRSS, main, pollSearch,
pollSearchRSS, rssSearch, rssSearchRSS, _shorten,
_skins, _sort, storySearch, storySearchRSS,
submissionSearch, submissionSearchRSS, _topics, userSearch,
userSearchRSS,

shtml.pl:
getFileText, getRequestedFileAndType, main, parse,
replace_footer, replace_header,

stats.pl:
csv, _get_graph_data, _get_graph_id, _get_skins,
graph, list, main, report,
_set_legend, table, topics,

submit.pl:
blankForm, changeSubmission, deleteSubmissions, displayForm,
displayRSS, genChosenHashrefForTopics, getSubmissionSelections, main,
mergeSubmissions, previewForm, previewStory, saveSub,
submissionEd, updateSubmissions, yourPendingSubmissions,

topics.pl:
hierarchy, listTopics, main,

users2.pl:
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,

users.pl:
adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,

zoo.pl:
action, check, main, people,
_printHead, _rss, testSocialized,
</pre>

Historic:CssWork

2014-03-01T20:13:20Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PageScriptList]] - scripts (= 'pages') in /slash/site/slashcott.org/htdocs with routines listed
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] - this is what handles the users home page and similar user functions.

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users. Once an edit is made, you are in /users.pl without /my/
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

PerlModuleUsers

2014-03-01T19:43:57Z

50.45.173.59:

[[CssWork]] parent

<h2>Functions in users</h2>
<pre>
users.pl:
adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,

</pre>
<pre>
users2.pl:
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,
</pre>
<h3>Comparison, users vs users2</h3>
<pre>
users users2
-----------------------------
adminDispatch adminDispatch
changePasswd
checkList checkList
displayForm displayForm
editComm
editHome
editKey editKey
editMiscOpts editMiscOpts
editTags
editUser editUser
forceAccountVerify forceAccountVerify
getCommentListing getCommentListing
getError getError
_get_lastjournal _get_lastjournal
getMessage getMessage
getOtherUserParams getOtherUserParams
getTitle getTitle
getUserAdmin getUserAdmin
listAbuses listAbuses
listBanned listBanned
listReadOnly listReadOnly
mailPasswd mailPasswd
main main
newUser newUser
newUserForm newUserForm
noUser noUser
previewSlashbox previewSlashbox
saveComm
saveHome
saveMiscOpts saveMiscOpts
savePasswd
saveTags
saveUser saveUser
saveUserAdmin saveUserAdmin
setToDefaults setToDefaults
showBookmarks
showComments
showFireHose showFireHose
showInfo showInfo
showSubmissions
showTags
tildeEd tildeEd
topAbusers topAbusers
validateUser validateUser
</pre>

<h2>Man page for users</h2>
Don't waste your time...

<pre>
# man Slash::Users
No manual entry for Slash::Users
[root@slashcode htdocs]# man Slash::Users2
Users2(3) User Contributed Perl Documentation Users2(3)

NAME
Slash::Users2

SYNOPSIS
use Slash::Users2;

DESCRIPTION
Provides homepages for users.

AUTHOR
Christopher Brown, cbrown@corp.sourcefore.com

SEE ALSO
perl(1).

perl v5.10.1 2014-02-20 Users2(3)

</pre>

<h2>Source of users.pl</h2>
<pre>
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2005 by Open Source Technology Group. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id$

use strict;
use Digest::MD5 'md5_hex';
use Slash;
use Slash::Display;
use Slash::Utility;
use Slash::Constants qw(:messages);

#################################################################
sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();
my $formname = $0;
$formname =~ s/.*\/(\w+)\.pl/$1/;

my $error_flag = 0;
my $formkey = $form->{formkey};

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0 ;
my $postflag = $user->{state}{post};
my $op = lc($form->{op});

# savepasswd is a special case, because once it's called, you
# have to reload the form, and you don't want to do any checks if
# you've just saved.
my $savepass_flag = $op eq 'savepasswd' ? 1 : 0 ;

my $ops = {
admin => {
function => \&adminDispatch,
seclev => 10000, # if this should be lower,
# then something else is
# broken, because it allows
# anyone with this seclev
# to change their own seclev
formname => $formname,
# just in case we need it for something else, we have it ...
checks => [ qw (generate_formkey) ],
},
# userlogin => {
# function => \&showInfo,
# seclev => 1,
# formname => $formname,
# checks => [],
# tab_selected_1 => 'me',
# },
no_user => {
function => \&noUser,
seclev => 0,
formname => $formname,
checks => [],
},
userinfo => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
userfirehose => {
function => \&showFireHose,
seclev => 0,
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'firehose'
},
usersubmissions => {
function => \&showSubmissions,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
usercomments => {
function => \&showComments,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
display => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
# savepasswd => {
# function => \&savePasswd,
# seclev => 1,
# post => 1,
# formname => $formname,
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
saveuseradmin => {
function => \&saveUserAdmin,
seclev => 10000,
post => 1,
formname => $formname,
checks => [],
},
savehome => {
function => \&saveHome,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
savecomm => {
function => \&saveComm,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
saveuser => {
function => \&saveUser,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
# changepasswd => {
# function => \&changePasswd,
# seclev => 1,
# formname => $formname,
# checks => $savepass_flag ? [] :
# [ qw (generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
editmiscopts => {
function => \&editMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
savemiscopts => {
function => \&saveMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
edituser => {
function => \&editUser,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
authoredit => {
function => \&editUser,
seclev => 10000,
formname => $formname,
checks => [],
},
edithome => {
function => \&editHome,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
editcomm => {
function => \&editComm,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
# newuser => {
# function => \&newUser,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# },
newuseradmin => {
function => \&newUserForm,
seclev => 10000,
formname => "${formname}/nu",
checks => [],
},
previewbox => {
function => \&previewSlashbox,
seclev => 0,
formname => $formname,
checks => [],
},
# mailpasswd => {
# function => \&mailPasswd,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check valid_check
# interval_check formkey_check ) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
validateuser => {
function => \&validateUser,
seclev => 1,
formname => $formname,
checks => ['regen_formkey'],
},
showtags => {
function => \&showTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
showbookmarks => {
function => \&showBookmarks,
seclev => 0,
formname => $formname,
checks => [],
tab_selected => 'bookmarks',
},
edittags => {
function => \&editTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
savetags => {
function => \&saveTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
# userclose => {
# function => \&displayForm,
# seclev => 0,
# formname => $formname,
# checks => [],
# },
# newuserform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check
# generate_formkey) ],
# },
# mailpasswdform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check
# generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
displayform => {
function => \&displayForm,
seclev => 0,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'me',
},
listreadonly => {
function => \&listReadOnly,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'readonly',
},
listbanned => {
function => \&listBanned,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'banned',
},
topabusers => {
function => \&topAbusers,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'abusers',
},
listabuses => {
function => \&listAbuses,
seclev => 100,
formname => $formname,
checks => [],
},
force_acct_verify => {
function => \&forceAccountVerify,
seclev => 100,
post => 1,
formname => $formname,
checks => []
}

} ;

# Note this is NOT the default op. "userlogin" or "userinfo" is
# the default op, and it's set either 5 lines down or about 100
# lines down, depending. Yes, that's dumb. Yes, we should
# change it. It would require tracing through a fair bit of logic
# though and I don't have the time right now. - Jamie
$ops->{default} = $ops->{displayform};
for (qw(newuser newuserform mailpasswd mailpasswdform changepasswd savepasswd userlogin userclose)) {
$ops->{$_} = $ops->{default};
}

my $errornote = "";
if ($form->{op} && ! defined $ops->{$op}) {
$errornote .= getError('bad_op', { op => $form->{op}}, 0, 1);
$op = $user->{is_anon} ? 'userlogin' : 'userinfo';
}

if ($op eq 'userlogin' && ! $user->{is_anon}) {
redirect(cleanRedirectUrl($form->{returnto} || ''));
return;

# this will only redirect if it is a section-based rootdir with
# its rootdir different from real_rootdir
} elsif ($op eq 'userclose' && $gSkin->{rootdir} ne $constants->{real_rootdir}) {
redirect($constants->{real_rootdir} . '/login.pl?op=userclose');
return;

} elsif ($op =~ /^(?:newuser|newuserform|mailpasswd|mailpasswdform|changepasswd|savepasswd|userlogin|userclose|displayform)$/) {
my $op = $form->{op};
$op = 'changeprefs' if $op eq 'changepasswd';
$op = 'saveprefs' if $op eq 'savepasswd';
redirect($constants->{real_rootdir} . '/login.pl?op=' . $op);
return;

# never get here now
} elsif ($op eq 'savepasswd') {
my $error_flag = 0;
if ($user->{seclev} < 100) {
for my $check (@{$ops->{savepasswd}{checks}}) {
# the only way to save the error message is to pass by ref
# $errornote and add the message to note (you can't print
# it out before header is called)
$error_flag = formkeyHandler($check, $formname, $formkey, \$errornote);
last if $error_flag;
}
}

if (! $error_flag) {
$error_flag = savePasswd({ noteref => \$errornote }) ;
}
# change op to edituser and let fall through;
# we need to have savePasswd set the cookie before
# header() is called -- pudge
if ($user->{seclev} < 100 && ! $error_flag) {
$slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
$op = $error_flag ? 'changepasswd' : 'userinfo';
$form->{userfield} = $user->{uid};
}

# Figure out what the op really is.
$op = 'userinfo' if (! $form->{op} && ($form->{uid} || $form->{nick}));
$op ||= $user->{is_anon} ? 'userlogin' : 'userinfo';
if ($user->{is_anon} && ( ($ops->{$op}{seclev} > 0) || ($op =~ /^newuserform|mailpasswdform|displayform$/) )) {
redirect($constants->{real_rootdir} . '/login.pl');
return;
} elsif ($user->{seclev} < $ops->{$op}{seclev}) {
$op = 'userinfo';
}
if ($ops->{$op}{post} && !$postflag) {
$op = $user->{is_anon} ? 'default' : 'userinfo';
}

# Print the header and very top stuff on the page. We have
# three ops that (may) end up routing into showInfo(), which
# needs to do some stuff before it calls header(), so for
# those three, don't bother.
my $header;
if ($op !~ /^(userinfo|display|saveuseradmin|admin|userfirehose$)/) {
my $data = {
adminmenu => $ops->{$op}{adminmenu} || 'admin',
tab_selected => $ops->{$op}{tab_selected},
};
header(getMessage('user_header'), '', $data) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $errornote }) if defined $errornote;
$header = 1;
}

if ($constants->{admin_formkeys} || $user->{seclev} < 100) {

my $done = 0;
$done = 1 if $op eq 'savepasswd'; # special case
$formname = $ops->{$op}{formname};

# No need for HumanConf if the constant for it is not
# switched on, or if the user's karma is high enough
# to get out of it. (But for "newuserform," the current
# user's karma doesn't get them out of having to prove
# they're a human for creating a *new* user.)
my $options = {};
if ( !$constants->{plugin}{HumanConf}
|| !$constants->{hc}
|| !$constants->{hc_sw_newuser}
&& ($formname eq 'users/nu' || $op eq 'newuserform')
|| !$constants->{hc_sw_mailpasswd}
&& ($formname eq 'users/mp' || $op eq 'mailpasswdform')
|| $user->{karma} > $constants->{hc_maxkarma}
&& !$user->{is_anon}
&& !($op eq 'newuser' || $op eq 'newuserform')
) {
$options->{no_hc} = 1;
}

DO_CHECKS: while (!$done) {
for my $check (@{$ops->{$op}{checks}}) {
$ops->{$op}{update_formkey} = 1 if $check eq 'formkey_check';
$error_flag = formkeyHandler($check, $formname, $formkey,
undef, $options);
if ($error_flag == -1) {
# Special error: HumanConf failed. Go
# back to the previous op, start over.
if ($op =~ /^(newuser|mailpasswd)$/) {
$op .= "form";
$error_flag = 0;
next DO_CHECKS;
}
} elsif ($error_flag) {
$done = 1;
last;
}
}
$done = 1;
}

if (!$error_flag && !$options->{no_hc}) {
my $hc = getObject("Slash::HumanConf");
$hc->reloadFormkeyHC($formname) if $hc;
}

}

errorLog("users.pl error_flag '$error_flag'") if $error_flag;

# call the method
my $retval;
$retval = $ops->{$op}{function}->({
op => $op,
tab_selected_1 => $ops->{$op}{tab_selected_1} || "",
note => $errornote,
}) if !$error_flag;

return if !$retval;

if ($op eq 'mailpasswd' && $retval) {
$ops->{$op}{update_formkey} = 0;
}

if ($ops->{$op}{update_formkey} && $user->{seclev} < 100 && ! $error_flag) {
# successful save action, no formkey errors, update existing formkey
# why assign to an unused variable? -- pudge
my $updated = $slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
# if there were legit error levels returned from the save methods
# I would have it clear the formkey in case of an error, but that
# needs to be sorted out later
# else { resetFormkey($formkey); }

writeLog($user->{nickname});
footer();
}

#################################################################
sub checkList {
my($string, $len) = @_;
my $constants = getCurrentStatic();

$string =~ s/[^\w,-]//g;
my @items = grep { $_ } split /,/, $string;
$string = join ",", @items;

$len ||= $constants->{checklist_length} || 255;
if (length($string) > $len) {
print getError('checklist_err');
$string = substr($string, 0, $len);
$string =~ s/,?\w*$//g;
} elsif (length($string) < 1) {
$string = '';
}

return $string;
}

#################################################################
sub previewSlashbox {
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();

my $block = $reader->getBlock($form->{bid}, ['title', 'block', 'url']);
my $is_editable = $user->{seclev} >= 1000;

my $title = getTitle('previewslashbox_title', { blocktitle => $block->{title} });
slashDisplay('previewSlashbox', {
width => '100%',
title => $title,
block => $block,
is_editable => $is_editable,
});

print portalbox($constants->{fancyboxwidth}, $block->{title},
$block->{block}, '', $block->{url});
}

#################################################################
sub newUserForm {
my $user = getCurrentUser();
my $suadmin_flag = $user->{seclev} >= 10000;
my $title = getTitle('newUserForm_title');

slashDisplay('newUserForm', {
title => $title,
suadmin_flag => $suadmin_flag,
});
}

#################################################################
sub newUser {
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $plugins = $slashdb->getDescriptions('plugins');
my $title;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

# Check if User Exists
$form->{newusernick} = nickFix($form->{newusernick});
my $matchname = nick2matchname($form->{newusernick});

if (!$form->{email} || $form->{email} !~ /\@/) {
print getError('email_invalid', 0, 1);
return;
} elsif ($form->{email} ne $form->{email2}) {
print getError('email_do_not_match', 0, 1);
return;
} elsif ($slashdb->existsEmail($form->{email})) {
print getError('emailexists_err', 0, 1);
return;
} elsif ($matchname ne '' && $form->{newusernick} ne '') {
if ($constants->{newuser_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
print getError('new user open proxy', {
unencoded_ip => $ENV{REMOTE_ADDR},
port => $is_proxy,
});
return;
}
}
}
my $uid;
my $rootdir = getCurrentSkin('rootdir');

$uid = $slashdb->createUser(
$matchname, $form->{email}, $form->{newusernick}
);
if ($uid) {
my $data = {};
getOtherUserParams($data);

for (qw(tzcode)) {
$data->{$_} = $form->{$_} if defined $form->{$_};
}
$data->{creation_ipid} = $user->{ipid};

$slashdb->setUser($uid, $data) if keys %$data;
$title = getTitle('newUser_title');

$form->{pubkey} = $plugins->{'Pubkey'} ?
strip_nohtml($form->{pubkey}, 1) : '';
print getMessage('newuser_msg', {
suadmin_flag => $suadmin_flag,
title => $title,
uid => $uid
});

if ($form->{newsletter} || $form->{comment_reply} || $form->{headlines}) {
my $messages = getObject('Slash::Messages');
my %params;
$params{MSG_CODE_COMMENT_REPLY()} = MSG_MODE_EMAIL()
if $form->{comment_reply};
$params{MSG_CODE_NEWSLETTER()} = MSG_MODE_EMAIL()
if $form->{newsletter};
$params{MSG_CODE_HEADLINES()} = MSG_MODE_EMAIL()
if $form->{headlines};
$messages->setPrefs($uid, \%params);
}

mailPasswd({ uid => $uid });

return;
} else {
$slashdb->resetFormkey($form->{formkey});
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}

} else {
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}
}

#################################################################
sub mailPasswd {
my($hr) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $uid = $hr->{uid} || 0;

my $slashdb = getCurrentDB();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if (! $uid) {
if ($form->{unickname} =~ /\@/) {
$uid = $slashdb->getUserEmail($form->{unickname});

} elsif ($form->{unickname} =~ /^\d+$/) {
my $tmpuser = $slashdb->getUser($form->{unickname}, ['uid']);
$uid = $tmpuser->{uid};

} else {
$uid = $slashdb->getUserUID($form->{unickname});
}
}

my $user_edit;
my $err_name = '';
my $err_opts = {};
if (!$uid || isAnon($uid)) {
$err_name = 'mailpasswd_notmailed_err';
}
if (!$err_name) {
# Check permissions of _this_ user, not the target
# user, to determine whether this IP is OK'd to
# send the mail to the target user.
# XXXSRCID This should check a separate field like
# 'openproxy' instead of piggybacking off of the
# existing nopost and spammer
my $srcids_to_check = $user->{srcids};
$err_name = 'mailpasswd_readonly_err'
if $reader->checkAL2($srcids_to_check, 'nopost');
}
if (!$err_name) {
$err_name = 'mailpasswd_toooften_err'
if $slashdb->checkMaxMailPasswords($user_edit);
}

if (!$err_name) {
if ($constants->{mailpasswd_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
$err_name = 'mailpasswd open proxy';
$err_opts = { unencoded_ip => $ENV{REMOTE_ADDR}, port => $is_proxy };
}
}

}
}

if ($err_name) {
print getError($err_name, $err_opts);
$slashdb->resetFormkey($form->{formkey});
$form->{op} = 'mailpasswdform';
displayForm();
return(1);
}

my $newpasswd = $slashdb->getNewPasswd($uid);
my $tempnick = $user_edit->{nickname};

my $emailtitle = getTitle('mailPassword_email_title', {
nickname => $user_edit->{nickname}
}, 1);

# Pull out some data passed in with the request. Only the IP
# number is actually trustworthy, the others could be forged.
# Note that we strip the forgeable ones to make sure there
# aren't any "<>" chars which could fool a stupid mail client
# into parsing a plaintext email as HTML.
my $r = Apache->request;
my $remote_ip = $r->connection->remote_ip;
my $xff = $r->header_in('X-Forwarded-For') || '';
$xff =~ s/\s+/ /g;
$xff = substr(strip_notags($xff), 0, 20);
my $ua = $r->header_in('User-Agent') || '';
$ua =~ s/\s+/ /g;
$ua = substr(strip_attribute($ua), 0, 60);

my $msg = getMessage('mailpasswd_msg', {
newpasswd => $newpasswd,
tempnick => $tempnick,
remote_ip => $remote_ip,
x_forwarded_for => $xff,
user_agent => $ua,
}, 1);

doEmail($uid, $emailtitle, $msg) if $user_edit->{nickname};
print getMessage('mailpasswd_mailed_msg', { name => $user_edit->{nickname} });
$slashdb->setUserMailPasswd($user_edit);
}

#################################################################
sub showSubmissions {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my($uid, $nickname);

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if ($form->{uid} or $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$nickname = $reader->getUser($uid, 'nickname');
} else {
$nickname = $user->{nickname};
$uid = $user->{uid};
}

my $storycount = $reader->countStoriesBySubmitter($uid);
my $stories = $reader->getStoriesBySubmitter(
$uid,
$constants->{user_submitter_display_default}
) unless !$storycount;

slashDisplay('userSub', {
nick => $nickname,
uid => $uid,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
stories => $stories,
storycount => $storycount,
});
}

#################################################################
sub showComments {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $commentstruct = [];
my($uid, $nickname);

my $user_edit;
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$user_edit = $reader->getUser($uid);
} else {
$uid = $user->{uid};
$user_edit = $user;
}
$nickname = $user_edit->{nickname};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};
my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $commentcount = $reader->countCommentsByUID($uid);
my $comments = $reader->getCommentsByUID(
$uid, $comments_wanted, $min_comment
) if $commentcount;

if (ref($comments) eq 'ARRAY') {
my $kinds = $reader->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
# This works since $sid is numeric.
$comment->{replies} = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is ok, since with all luck we will not be hitting the DB
# ...however, the "sid" parameter here must be the string
# based SID from either the "stories" table or from
# pollquestions.
my $discussion = $reader->getDiscussion($comment->{sid});

if ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$comment->{type} = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$comment->{type} = 'poll';
} else {
$comment->{type} = 'story';
}
$comment->{disc_title} = $discussion->{title};
$comment->{url} = $discussion->{url};
}
}

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
slashDisplay('userCom', {
nick => $nickname,
useredit => $user_edit,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
commentstruct => $comments,
commentcount => $commentcount,
min_comment => $min_comment,
reasons => $mod_reader->getReasons(),
karma_flag => 0,
admin_flag => $user->{is_admin},
});
}

sub noUser {
print getData("no_user");
}

sub showFireHose {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $uid = $form->{uid} || $user->{uid};
my $user_edit = $reader->getUser($uid);

$user->{state}{firehose_page} = "user";
$user->{state}{firehose_user_uid} = $uid;

my $firehose = getObject("Slash::FireHose");
header(getMessage('userfirehose_header', { useredit => $user_edit })) or return;
print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

$form->{mode} = "full";
$form->{color} = "black";
$form->{orderby} = "createtime";
$form->{orderdir} = "DESC";
$form->{skipmenu} = 1;
$form->{duration} = -1;
$form->{fhfilter} = "\"user:$user_edit->{nickname}\"";
$form->{pause} = 1;
$form->{listonly} = 1;
$form->{legacy} = 1;

my $fhbox = $firehose->listView({ fh_page => 'users.pl', tab => 'userfirehose', user_view => $user_edit });
slashDisplay("userFireHose", { firehosebox => $fhbox, uid => $uid, useredit => $user_edit });
}

#################################################################
# arhgghgh. I love torture. I love pain. This subroutine satisfies
# these needs of mine
sub showInfo {
my($hr) = @_;
my $id = $hr->{uid} || 0;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;
my($title, $admin_block, $fieldkey) = ('', '', '');
my $comments = undef;
my $commentcount = 0;
my $commentcount_time = 0;
my $commentstruct = [];
my $requested_user = {};
my $time_period = $constants->{admin_comment_display_days} || 30;
my $cid_for_time_period = $reader->getVar("min_cid_last_$time_period\_days",'value', 1) || 0;
my $admin_time_period_limit = $constants->{admin_daysback_commentlimit} || 100;
my $admin_non_time_limit = $constants->{admin_comment_subsequent_pagesize} || 24;

my($points, $nickmatch_flag, $uid, $nick);
my($mod_flag, $karma_flag, $n) = (0, 0, 0);

if ($admin_flag
&& (defined($form->{show_m2s}) || defined($form->{show_m1s}) || defined($form->{m2_listing})))
{
my $update_hr = {};
$update_hr->{mod_with_comm} = $form->{show_m1s}
if defined $form->{show_m1s};
$update_hr->{m2_with_mod} = ($constants->{m2} ? $form->{show_m2s} : undef)
if defined $form->{show_m2s};
$update_hr->{show_m2_listing} = ($constants->{m2} ? $form->{m2_listing} : undef)
if defined $form->{m2_listing};
$slashdb->setUser($user->{uid}, $update_hr);
}

if (!$id && !$form->{userfield}) {
if ($form->{uid} && ! $id) {
$fieldkey = 'uid';
($uid, $id) = ($form->{uid}, $form->{uid});
$requested_user = isAnon($uid) ? $user : $reader->getUser($id);
$nick = $requested_user->{nickname};
$form->{userfield} = $nick if $admin_flag;

} elsif ($form->{nick} && ! $id) {
$fieldkey = 'nickname';
($nick, $id) = ($form->{nick}, $form->{nick});
$uid = $reader->getUserUID($id);
if (isAnon($uid)) {
$requested_user = $user;
($nick, $uid, $id) = @{$user}{qw(nickname uid nickname)};
} else {
$requested_user = $reader->getUser($uid);
}
$form->{userfield} = $uid if $admin_flag;

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
$form->{userfield} = $uid if $admin_flag;
}

} elsif ($user->{is_admin}) {
$id ||= $form->{userfield} || $user->{uid};
if ($id =~ /^[0-9a-f]{16}$/) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^\d+$/) {
# If it's longer than a uid could possibly be, it
# must be a srcid. The uid column right now is a
# MEDIUMINT (max 16M) but at most might someday
# be an INT (max 4G).
if (length($id) > 11) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} else {
$fieldkey = 'uid';
$requested_user = $reader->getUser($id);
$uid = $requested_user->{uid};
$nick = $requested_user->{nickname};
if ((my $conflict_id = $reader->getUserUID($id)) && $form->{userinfo}) {
slashDisplay('showInfoConflict', {
op => 'userinfo',
id => $uid,
nick => $nick,
conflict_id => $conflict_id
});
return 1;
}
}

} elsif (length($id) == 32) {
$requested_user->{nonuid} = 1;
if ($form->{fieldname}
&& $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$fieldkey = $form->{fieldname};
} else {
$fieldkey = 'md5id';
}
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^(\d{1,3}\.\d{1,3}.\d{1,3}\.0)$/
|| $id =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3})\.?$/) {
$fieldkey = 'subnetid';
$requested_user->{subnetid} = $1;
$requested_user->{subnetid} .= '.0' if $requested_user->{subnetid} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}$/;
$requested_user->{nonuid} = 1;
$requested_user->{subnetid} = md5_hex($requested_user->{subnetid});

} elsif ($id =~ /^([\d+\.]+)$/) {
$fieldkey = 'ipid';
$requested_user->{nonuid} = 1;
$id ||= $1;
$requested_user->{ipid} = md5_hex($1);

} elsif ($id =~ /^(.*@.*\..*?)$/) {
# check for email addy, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserEmail($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};

} else { # go by nickname, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserUID($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};
}

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
}

# Can't get user data for the anonymous user.
if ($fieldkey eq 'uid' && isAnon($uid)) {
header(getMessage('user_header')) or return;
return displayForm();
}

my $user_change = { };
if ($fieldkey eq 'uid' && !$user->{is_anon}
&& $uid != $user->{uid} && !isAnon($uid)) {
# Store the fact that this user last looked at that user.
# For maximal convenience in stalking.
$user_change->{lastlookuid} = $uid;
$user_change->{lastlooktime} = time;
$user->{lastlookuid} = $uid;
$user->{lastlooktime} = time;
$hr->{tab_selected_1} = 'otheruser';
}

# showInfo's header information is delayed until here, because
# the target user's info is not available until here.
vislenify($requested_user);
header(getMessage('user_header', { useredit => $requested_user, fieldkey => $fieldkey })) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $hr->{note} }) if defined $hr->{note};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};

my($netid, $netid_vis) = ('', '');

my $comment_time;
my $non_admin_limit = $comments_wanted;

if ($requested_user->{nonuid}) {
$requested_user->{fg} = $user->{fg};
$requested_user->{bg} = $user->{bg};

if ($requested_user->{ipid}) {
$netid = $requested_user->{ipid} ;

} elsif ($requested_user->{md5id}) {
$netid = $requested_user->{md5id} ;

} elsif ($requested_user->{srcid}) {
$netid = $requested_user->{srcid} ;
} else {
$netid = $requested_user->{subnetid} ;
}

my $data = {
id => $id,
md5id => $netid,
};
vislenify($data); # add $data->{md5id_vis}
$netid_vis = $data->{md5id_vis};

$title = getTitle('user_netID_user_title', $data);

$admin_block = getUserAdmin($netid, $fieldkey, 0) if $admin_flag;

if ($form->{fieldname}) {
if ($form->{fieldname} eq 'ipid') {
$commentcount = $reader->countCommentsByIPID($netid);
$commentcount_time = $reader->countCommentsByIPID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($form->{fieldname} eq 'subnetid') {
$commentcount = $reader->countCommentsBySubnetID($netid);
$commentcount_time = $reader->countCommentsBySubnetID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;

} else {
delete $form->{fieldname};
}
}
if (!defined($comments)) {
# Last resort; here for backwards compatibility mostly.
my $type;
($commentcount,$type) = $reader->countCommentsByIPIDOrSubnetID($netid);
$commentcount_time = $reader->countCommentsByIPIDOrSubnetID($netid, { cid_at_or_after => $cid_for_time_period });
if ($type eq "ipid") {
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($type eq "subnetid") {
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
}
}
} else {
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$commentcount = $reader->countCommentsByUID($requested_user->{uid});
$commentcount_time = $reader->countCommentsByUID($requested_user->{uid}, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("uid", $requested_user->{uid},
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit,
{ use_uid_cid_cutoff => 1 })
if $commentcount;
$netid = $requested_user->{uid};
}

# Grab the nicks of the uids we have, we're going to be adding them
# into the struct.
my @users_extra_cols_wanted = qw( nickname );
my @discussions_extra_cols_wanted = qw( type );
my $uid_hr = { };
my $sid_hr = { };
if ($comments && @$comments) {
my %uids = ();
my %sids = ();
for my $c (@$comments) {
$uids{$c->{uid}}++;
$sids{$c->{sid}}++;
}
my $uids = join(", ", sort { $a <=> $b } keys %uids);
my $sids = join(", ", sort { $a <=> $b } keys %sids);
$uid_hr = $reader->sqlSelectAllHashref(
"uid",
"uid, " . join(", ", @users_extra_cols_wanted),
"users",
"uid IN ($uids)"
);

$sid_hr = $reader->sqlSelectAllHashref(
"id",
"id, " . join(", ", @discussions_extra_cols_wanted),
"discussions",
"id IN ($sids)"
);

}

my $cids_seen = {};
my $kinds = $slashdb->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
$cids_seen->{$comment->{cid}}++;
my $type;
# This works since $sid is numeric.
my $replies = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is cached.
my $discussion = $reader->getDiscussion($comment->{sid});
#use Data::Dumper; if ($discussion && !$discussion->{dkid}) { print STDERR scalar(gmtime) . " users.pl discussion but no dkid: " . Dumper($discussion) }
if (!$discussion || !$discussion->{dkid}) {
# A comment with no accompanying discussion;
# basically we pretend it doesn't exist.
next;
} elsif ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$type = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$type = 'poll';
} else {
$type = 'story';
}

$comment->{points} += $user->{karma_bonus}
if $user->{karma_bonus} && $comment->{karma_bonus} eq 'yes';
$comment->{points} += $user->{subscriber_bonus}
if $user->{subscriber_bonus} && $comment->{subscriber_bonus} eq 'yes';

# fix points in case they are out of bounds
$comment->{points} = $constants->{comment_minscore} if $comment->{points} < $constants->{comment_minscore};
$comment->{points} = $constants->{comment_maxscore} if $comment->{points} > $constants->{comment_maxscore};
vislenify($comment);
my $data = {
pid => $comment->{pid},
url => $discussion->{url},
disc_type => $type,
disc_title => $discussion->{title},
disc_time => $discussion->{ts},
sid => $comment->{sid},
cid => $comment->{cid},
subj => $comment->{subject},
cdate => $comment->{date},
pts => $comment->{points},
reason => $comment->{reason},
uid => $comment->{uid},
replies => $replies,
ipid => $comment->{ipid},
ipid_vis => $comment->{ipid_vis},
karma => $comment->{karma},
tweak => $comment->{tweak},
tweak_orig => $comment->{tweak_orig},

};
#Karma bonus time

for my $col (@users_extra_cols_wanted) {
$data->{$col} = $uid_hr->{$comment->{uid}}{$col} if defined $uid_hr->{$comment->{uid}}{$col};
}
for my $col(@discussions_extra_cols_wanted) {
$data->{$col} = $sid_hr->{$comment->{sid}}{$col} if defined $sid_hr->{$comment->{sid}}{$col};
}
push @$commentstruct, $data;
}
# if (grep { !defined($_->{disc_time}) || !defined($_->{sid}) } @$commentstruct) { use Data::Dumper; print STDERR "showInfo undef in commentstruct for id=$id: " . Dumper($commentstruct) }
# Sort so the chosen group of comments is sorted by discussion
@$commentstruct = sort {
$b->{disc_time} cmp $a->{disc_time} || $b->{sid} <=> $a->{sid}
} @$commentstruct
unless $user->{user_comment_sort_type} && $user->{user_comment_sort_type} == 1;

my $cid_list = [ keys %$cids_seen ];
my $cids_to_mods = {};
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
if ($constants->{m1} && $admin_flag && $constants->{show_mods_with_comments}) {
my $comment_mods = $mod_reader->getModeratorCommentLog("DESC",
$constants->{mod_limit_with_comments}, "cidin", $cid_list);

# Loop through mods and group them by the sid they're attached to
while (my $mod = shift @$comment_mods) {
push @{$cids_to_mods->{$mod->{cid}}}, $mod;
}
}

my $sub_limit = ((($admin_flag || $user->{uid} == $requested_user->{uid}) ? $constants->{submissions_all_page_size} : $constants->{submissions_accepted_only_page_size}) || "");

my $sub_options = { limit_days => 365 };
$sub_options->{accepted_only} = 1 if !$admin_flag && $user->{uid} != $requested_user->{uid};

my $sub_field = $form->{fieldname};

my ($subcount, $ret_field) = $reader->countSubmissionsByNetID($netid, $sub_field)
if $requested_user->{nonuid};
my $submissions = $reader->getSubmissionsByNetID($netid, $ret_field, $sub_limit, $sub_options)
if $requested_user->{nonuid};

my $ipid_hoursback = $constants->{istroll_ipid_hours} || 72;
my $uid_hoursback = $constants->{istroll_uid_hours} || 72;

if ($requested_user->{nonuid}) {
slashDisplay('netIDInfo', {
title => $title,
id => $id,
useredit => $requested_user,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
admin_flag => $admin_flag,
admin_block => $admin_block,
netid => $netid,
netid_vis => $netid_vis,
reasons => $mod_reader->getReasons(),
subcount => $subcount,
submissions => $submissions,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time
});

} else {
if (! $requested_user->{uid}) {
print getError('userinfo_idnf_err', { id => $id, fieldkey => $fieldkey});
return 1;
}

$karma_flag = 1 if $admin_flag;
$requested_user->{nick_plain} = $nick ||= $requested_user->{nickname};
$nick = strip_literal($nick);

if ($requested_user->{uid} == $user->{uid}) {
$karma_flag = 1;
$nickmatch_flag = 1;
$points = $requested_user->{points};

$mod_flag = 1 if $points > 0;

$title = getTitle('userInfo_main_title', { nick => $nick, uid => $uid });

} else {
$title = getTitle('userInfo_user_title', { nick => $nick, uid => $uid });
}

my $lastjournal = _get_lastjournal($uid);

my $subcount = $reader->countSubmissionsByUID($uid);

my $submissions = $reader->getSubmissionsByUID($uid, $sub_limit, $sub_options);
my $metamods;
if ($constants->{m2} && $admin_flag) {
my $metamod_reader = getObject('Slash::Metamod', { db_type => 'reader' });
$metamods = $metamod_reader->getMetamodlogForUser($uid, 30);
}

my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });
my $tagshist = [];
if ($tags_reader && $user->{is_admin}) {
$tagshist = $tags_reader->getAllTagsFromUser($requested_user->{uid}, { orderby => 'created_at', orderdir => 'DESC', limit => 30, include_private => 1 });
}

slashDisplay('userInfo', {
title => $title,
uid => $uid,
useredit => $requested_user,
points => $points,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
nickmatch_flag => $nickmatch_flag,
mod_flag => $mod_flag,
karma_flag => $karma_flag,
admin_block => $admin_block,
admin_flag => $admin_flag,
suadmin_flag => $suadmin_flag,
reasons => $mod_reader->getReasons(),
lastjournal => $lastjournal,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time,
submissions => $submissions,
subcount => $subcount,
metamods => $metamods,
tagshist => $tagshist
});
}

if ($user_change && %$user_change) {
$slashdb->setUser($user->{uid}, $user_change);
}

return 1;
}

sub _get_lastjournal {
my($uid) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $lastjournal = undef;
if (my $journal = getObject('Slash::Journal', { db_type => 'reader' })) {
my $j = $journal->getsByUid($uid, 0, 1);
if ($j && @$j) {
# Yep, there are 1 or more journals... get the first.
$j = $j->[0];
}
if ($j && @$j) {
# Yep, that first journal exists and has entries...
# convert from stupid numeric array to a hashref.
my @field = qw( date article description id
posttype tid discussion );
$lastjournal = { };
for my $i (0..$#field) {
$lastjournal->{$field[$i]} = $j->[$i];
}
}
}

if ($lastjournal) {

# Strip the article field for display.
$lastjournal->{article} = strip_mode($lastjournal->{article},
$lastjournal->{posttype});

# For display, include a reduced-size version, where the
# size is based on the user's maxcomment size (which
# defaults to 4K) and can't have too many line-breaking
# tags.
my $art_shrunk = $lastjournal->{article};
my $maxsize = int($constants->{default_maxcommentsize} / 25);
$maxsize = 80 if $maxsize < 80;
$maxsize = 600 if $maxsize > 600;
$art_shrunk = chopEntity($art_shrunk, $maxsize);

my $approvedtags_break = $constants->{approvedtags_break} || [];
my $break_tag = join '|', @$approvedtags_break;
if (scalar(() = $art_shrunk =~ /<(?:$break_tag)>/gi) > 2) {
$art_shrunk =~ s/\A
(
(?: <(?:$break_tag)> )?
.*? <(?:$break_tag)>
.*?
) <(?:$break_tag)>.*
/$1/six;
if (length($art_shrunk) < 15) {
# This journal entry has too much whitespace
# in its first few chars; scrap it.
undef $art_shrunk;
}
$art_shrunk = chopEntity($art_shrunk) if defined($art_shrunk);
}

if (defined $art_shrunk) {
if (length($art_shrunk) < length($lastjournal->{article})) {
$art_shrunk .= " ...";
}
$art_shrunk = strip_html($art_shrunk);
$art_shrunk = balanceTags($art_shrunk);
}

$lastjournal->{article_shrunk} = $art_shrunk;

if ($lastjournal->{discussion}) {
$lastjournal->{commentcount} = $reader->getDiscussion(
$lastjournal->{discussion}, 'commentcount');
}
}
return $lastjournal;
}

#####################################################################
sub validateUser {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

# If we aren't expiring accounts in some way, we don't belong here.
if (! allowExpiry()) {
displayForm();
return;
}

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

# Since we are here, if the minimum values for the comment trigger and
# the day trigger are -1, then they should be reset to 1.
$constants->{min_expiry_comm} = $constants->{min_expiry_days} = 1
if $constants->{min_expiry_comm} <= 0 ||
$constants->{min_expiry_days} <= 0;

if ($user->{is_anon} || $user->{registered}) {
if ($user->{is_anon}) {
print getError('anon_validation_attempt');
displayForm();
return;
} else {
print getMessage('no_registration_needed')
if !$user->{reg_id};
showInfo({ uid => $user->{uid} });
return;
}
# Maybe this should be taken care of in a more centralized location?
} elsif ($user->{reg_id} eq $form->{id}) {
# We have a user and the registration IDs match. We are happy!
my($maxComm, $maxDays) = ($constants->{max_expiry_comm},
$constants->{max_expiry_days});
my($userComm, $userDays) =
($user->{user_expiry_comm}, $user->{user_expiry_days});

# Ensure both $userComm and $userDays aren't -1 (expiry has
# just been turned on).
$userComm = $constants->{min_expiry_comm}
if $userComm < $constants->{min_expiry_comm};
$userDays = $constants->{min_expiry_days}
if $userDays < $constants->{min_expiry_days};

my $exp = $constants->{expiry_exponent};

# Increment only the trigger that was used.
my $new_comment_expiry = ($maxComm > 0 && $userComm > $maxComm)
? $maxComm
: $userComm * (($user->{expiry_comm} < 0)
? $exp
: 1
);
my $new_days_expiry = ($maxDays > 0 && $userDays > $maxDays)
? $maxDays
: $userDays * (($user->{expiry_days} < 0)
? $exp
: 1
);

# Reset re-registration triggers for user.
$slashdb->setUser($user->{uid}, {
'expiry_comm' => $new_comment_expiry,
'expiry_days' => $new_days_expiry,
'user_expiry_comm' => $new_comment_expiry,
'user_expiry_days' => $new_days_expiry,
});

# Handles rest of re-registration process.
setUserExpired($user->{uid}, 0);
}

slashDisplay('regResult');
}

#####################################################################
sub editTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = $slashdb->getUser($user->{uid});
my $title = getTitle('editTags_title');

slashDisplay('editTags', {
user_edit => $user_edit,
title => $title,
note => $note,
});
}

sub saveTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

$slashdb->setUser($user->{uid}, {
tags_turnedoff => $form->{showtags} ? '' : 1 });
editTags({ note => getMessage('savetags_msg') });
}

#####################################################################
sub showTags {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

# XXX if $user_edit->{acl}{spammer}, either abort or put ref=nofollow in all links

my $tagname = $form->{tagname} || '';
$tagname = '' if !$tags_reader->tagnameSyntaxOK($tagname);

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tagnameid = $tags_reader->getTagnameidFromNameIfExists($tagname);
if ($tagnameid) {
# Show all user's tags for one particular tagname.
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid},
{ tagnameid => $tagnameid });
my $tags_ar = $tags_hr->{$tagname} || [ ];
slashDisplay('usertagsforname', {
useredit => $user_edit,
tagname => $tagname,
tags => $tags_ar,
});

} else {
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid});
my $num_tags = 0;
for my $tn (keys %$tags_hr) {
$num_tags += scalar @{ $tags_hr->{$tn} };
}
my $cutoff = $constants->{tags_usershow_cutoff} || 200;
if ($num_tags <= $cutoff) {
# Show all user's tags, grouped by tagname.
slashDisplay('usertags', {
useredit => $user_edit,
tags_grouped => $tags_hr,
});
} else {
# Show all user's tagnames, with links to show all
# tags for each particular tagname.
my $tagname_ar = [ sort keys %$tags_hr ];
slashDisplay('usertagnames', {
useredit => $user_edit,
tagnames => $tagname_ar,
});
}
}
}

#################################################################
sub showBookmarks {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tags_ar = $tags_reader->getGroupedTagsFromUser($user_edit->{uid}, { type => "urls", only_bookmarked => 1 });

slashDisplay('userbookmarks', {
useredit => $user_edit,
tags_grouped => $tags_ar,
});
}

#################################################################
sub editKey {
my($uid) = @_;

my $slashdb = getCurrentDB();

my $pubkey = $slashdb->getUser($uid, 'pubkey');
my $editkey = slashDisplay('editKey', { pubkey => $pubkey }, 1);
return $editkey;
}

#################################################################
# We arrive here without header() having been called. Some of the
# functions we dispatch to call it, some do not.
sub adminDispatch {
my($hr) = @_;
my $form = getCurrentForm();
my $op = $hr->{op} || $form->{op};

if ($op eq 'authoredit') {
# editUser() does not call header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
editUser($hr);

} elsif ($form->{saveuseradmin}) {
# saveUserAdmin() tail-calls showInfo(), which calls
# header(), so we need to NOT.
saveUserAdmin($hr);

} elsif ($form->{userinfo}) {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);

} elsif ($form->{userfield}) {
# none of these calls header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
if ($form->{edituser}) {
editUser($hr);

} elsif ($form->{edithome}) {
editHome($hr);

} elsif ($form->{editcomm}) {
editComm($hr);

} elsif ($form->{changepasswd}) {
changePasswd($hr);
}

} else {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);
}
}

#################################################################
sub tildeEd {
my($user_edit) = @_;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my %story023_default = (
author => { },
nexus => { },
topic => { },
);

my %prefs = ( );
for my $field (qw(
story_never_topic story_never_author story_never_nexus
story_always_topic story_always_author story_always_nexus story_brief_always_nexus
story_full_brief_nexus story_full_best_nexus story_brief_best_nexus
)) {
for my $id (
grep /^\d+$/,
split /,/,
($user_edit->{$field} || "")
) {
$prefs{$field}{$id} = 1;
}
}
#print STDERR scalar(localtime) . " prefs: " . Dumper(\%prefs);

# Set up $author_hr, @aid_order, and $story023_default{author}.

my $author_hr = $reader->getDescriptions('authors');
my @aid_order = sort { lc $author_hr->{$a} cmp lc $author_hr->{$b} } keys %$author_hr;
for my $aid (@aid_order) {
if ($prefs{story_never_author}{$aid}) {
$story023_default{author}{$aid} = 0;
} elsif ($prefs{story_always_author}{$aid}) {
$story023_default{author}{$aid} = 3;
} else {
$story023_default{author}{$aid} = 2;
}
}

# Set up $topic_hr, @topictid_order, and $story023_default{topic}.

my $topic_hr = $reader->getDescriptions('non_nexus_topics-storypickable');
my @topictid_order = sort { lc $topic_hr->{$a} cmp lc $topic_hr->{$b} } keys %$topic_hr;
for my $tid (@topictid_order) {
if ($prefs{story_never_topic}{$tid}) {
$story023_default{topic}{$tid} = 0;
} elsif ($prefs{story_always_topic}{$tid}) {
$story023_default{topic}{$tid} = 3;
} else {
$story023_default{topic}{$tid} = 2;
}
}

# Set up $nexus_hr, @nexustid_order, and $story023_default{nexus}.
my $topic_tree = $reader->getTopicTree();
my $nexus_tids_ar = $reader->getStorypickableNexusChildren($constants->{mainpage_nexus_tid}, 1);
my $nexus_hr = { };

for my $tid (@$nexus_tids_ar) {
$nexus_hr->{$tid} = $topic_tree->{$tid}{textname};
}
my @nexustid_order = sort {($b == $constants->{mainpage_nexus_tid}) <=> ($a == $constants->{mainpage_nexus_tid}) ||
lc $nexus_hr->{$a} cmp lc $nexus_hr->{$b} } keys %$nexus_hr;

my $mp_disp_nexuses = $reader->getMainpageDisplayableNexuses();
my %mp_disp_nexus = ( map { ($_, 1) } @$mp_disp_nexuses );
for my $tid (@nexustid_order) {
if ($prefs{story_never_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 0;
} elsif ($prefs{story_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 5;
} elsif ($prefs{story_full_brief_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 4;
} elsif ($prefs{story_brief_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 3;
} elsif ($prefs{story_full_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 2;
} elsif ($prefs{story_brief_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 1;
} else {
# If brief_sectional_mainpage is set, then all
# nexuses in getMainpageDisplayableNexuses are,
# by default, shown as brief on the mainpage.
if ($constants->{brief_sectional_mainpage}
&& $mp_disp_nexus{$tid}
) {
$story023_default{nexus}{$tid} = 4;
} else {
$story023_default{nexus}{$tid} = 2;
}
}
}

# Set up $section_descref and $box_order, used to decide which
# slashboxes appear. Really this doesn't seem to have anything
# to do with sections, so I'm not sure why it's called
# "section"_descref.

my $section_descref = { };
my $box_order;
my $sections_description = $reader->getSectionBlocks();

# the names of all the boxes in @{$skinBoxes->{$constants->{mainpage_skid}}}
# should be unioned into sections_description. whether the
# values are 0 or 1 is calculated correctly, but we're
# missing some 0's that should appear, I think, under
# some circumstances. ah heck, the whole concept of
# sectional slashboxes should be redone (why the heck
# do we have skinname_more instead of just a block
# called olderstories?)

my $slashboxes_hr = { };
my $slashboxes_textlist = $user_edit->{slashboxes};
if (!$slashboxes_textlist) {
# Use the default.
my($boxes, $skinBoxes) = $reader->getPortalsCommon();
$slashboxes_textlist = join ",", @{$skinBoxes->{$constants->{mainpage_skid}}};
}
for my $bid (
map { /^'?([^']+)'?$/; $1 }
split /,/,
$slashboxes_textlist
) {
$slashboxes_hr->{$bid} = 1;
}
for my $ary (sort { lc $a->[1] cmp lc $b->[1]} @$sections_description) {
my($bid, $title, $boldflag) = @$ary;
push @$box_order, $bid;
$section_descref->{$bid}{checked} =
$slashboxes_hr->{$bid}
? $constants->{markup_checked_attribute}
: '';
$title =~ s/<(.*?)>//g;
$section_descref->{$bid}{title} = $title;
}

my $dynamic_blocks = getObject("Slash::DynamicBlocks");
my $extra_blocks = [];
if ($dynamic_blocks) {
my $userblocks = $dynamic_blocks->getUserBlocks("name", $user_edit->{uid}) || {};
my $friendblocks = $dynamic_blocks->getFriendBlocks("name", $user_edit->{uid}) || {};
push(@$extra_blocks, grep { $slashboxes_textlist =~ $_; } (keys(%$userblocks), keys(%$friendblocks)));
}

# Userspace.
my $userspace = $user_edit->{mylinks} || "";

# Titles of stuff.
my $tildeEd_title = getTitle('tildeEd_title');
my $criteria_msg = getMessage('tilded_criteria_msg');
my $customize_title = getTitle('tildeEd_customize_title');
my $tilded_customize_msg = getMessage('tilded_customize_msg',
{ userspace => $userspace });
my $tilded_box_msg = getMessage('tilded_box_msg');

my $tilde_ed = slashDisplay('tildeEd', {
user_edit => $user_edit,
title => $tildeEd_title,
criteria_msg => $criteria_msg,
customize_title => $customize_title,
tilded_customize_msg => $tilded_customize_msg,
tilded_box_msg => $tilded_box_msg,

story023_default => \%story023_default,
authorref => $author_hr,
aid_order => \@aid_order,
topicref => $topic_hr,
topictid_order => \@topictid_order,
nexusref => $nexus_hr,
nexustid_order => \@nexustid_order,

section_descref => $section_descref,
box_order => $box_order,

userspace => $userspace,
extra_blocks => $extra_blocks,
}, 1);

return $tilde_ed;
}

#################################################################
sub changePasswd {
my($hr) = @_;
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = {};
my $title;
my $suadmin_flag = ($user->{seclev} >= 10000) ? 1 : 0;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

my $id = '';
if ($admin_flag) {
if ($form->{userfield}) {
$id ||= $form->{userfield};
if ($id =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$id = $user_edit->{uid};
}
} else {
$id = $user->{uid};
$user_edit = $user;
}

$admin_block = getUserAdmin($id, 'uid', 1) if $admin_flag;

# print getMessage('note', { note => $form->{note}}) if $form->{note};

$title = getTitle('changePasswd_title', { user_edit => $user_edit });

my $session = $slashdb->getDescriptions('session_login');
my $session_select = createSelect('session_login', $session, $user_edit->{session_login}, 1);

my $clocation = $slashdb->getDescriptions('cookie_location');
my @clocation_order = grep { exists $clocation->{$_} } qw(none classbid subnetid ipid);
my $clocation_select = createSelect('cookie_location', $clocation,
$user_edit->{cookie_location}, 1, 0, \@clocation_order
);

my $got_oldpass = 0;
if ($form->{oldpass}) {
my $return_uid = $slashdb->getUserAuthenticate($id, $form->{oldpass}, 1);
$got_oldpass = 1 if $return_uid && $id == $return_uid;
}

slashDisplay('changePasswd', {
useredit => $user_edit,
admin_flag => $suadmin_flag,
title => $title,
session => $session_select,
clocation => $clocation_select,
admin_block => $admin_block,
got_oldpass => $got_oldpass
});
}

#################################################################
sub editUser {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $plugins = $slashdb->getDescriptions('plugins');

my $user_edit = {};
my($admin_block, $title);
my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $fieldkey;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
$id = $user_edit->{uid};
}
return if isAnon($user_edit->{uid}) && ! $admin_flag;

$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;
$user_edit->{homepage} ||= "http://";

# Remove domain tags, they'll be added back in, in saveUser.
for my $dat (@{$user_edit}{qw(sig bio)}) {
$dat = parseDomainTags($dat, 0, 1);
}

$title = getTitle('editUser_title', { user_edit => $user_edit});

my $editkey = "";
$editkey = editKey($user_edit->{uid}) if $fieldkey eq 'uid' && $plugins->{PubKey};

slashDisplay('editUser', {
useredit => $user_edit,
admin_flag => $admin_flag,
title => $title,
editkey => $editkey,
admin_block => $admin_block,
note => $note,
});
}

#################################################################
sub editHome {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my($formats, $title, $tzformat_select);
my $user_edit = {};
my $fieldkey;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " user_edit: " . Dumper($user_edit);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editHome_title');

return if $user->{seclev} < 100 && isAnon($user_edit->{uid});

$formats = $slashdb->getDescriptions('dateformats');
$tzformat_select = createSelect('tzformat', $formats, $user_edit->{dfid}, 1);

my $lb_check = $user_edit->{lowbandwidth} ? $constants->{markup_checked_attribute} : '';
my $sd_check = $user_edit->{simpledesign} ? $constants->{markup_checked_attribute} : '';
my $i_check = $user_edit->{noicons} ? $constants->{markup_checked_attribute} : '';
my $w_check = $user_edit->{willing} ? $constants->{markup_checked_attribute} : '';
my $classic_check = $user_edit->{index_classic} ? $constants->{markup_checked_attribute} : '';

my $tilde_ed = tildeEd($user_edit);

slashDisplay('editHome', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
tzformat_select => $tzformat_select,
i_check => $i_check,
w_check => $w_check,
lb_check => $lb_check,
sd_check => $sd_check,
classic_check => $classic_check,
tilde_ed => $tilde_ed,
note => $note,
});
}

#################################################################
sub editComm {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $user_edit = {};
my($formats, $commentmodes_select, $commentsort_select, $title,
$uthreshold_select, $highlightthresh_select, $posttype_select,
$bytelimit_select);

my $admin_block = '';
my $fieldkey;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $admin_flag = $user->{is_admin} ? 1 : 0;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}

my $hi = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $lo = -$hi;
my @range = map { $_ > 0 ? "+$_" : $_ } ($lo .. $hi);

my @reasons = ( );
my %reason_select = ( );
if ($constants->{m1}) {
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}
# Reason modifiers
for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
$reason_select{$reason_name} = createSelect(
$key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}
}

# Zoo relation modifiers
my %people_select;
my @people = qw(friend foe anonymous fof eof freak fan);
for (@people) {
my $key = "people_bonus_$_";
$people_select{$_} = createSelect($key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}

# New-user modifier
my $new_user_bonus_select = createSelect('new_user_bonus', \@range,
$user_edit->{new_user_bonus} || 0, 1, 1);
my $new_user_percent_select = createSelect('new_user_percent',
[( 1..15, 20, 25, 30, 35, 40, 45, 50, 55,
60, 65, 70, 75, 80, 85, 90, 95 )],
$user_edit->{new_user_percent} || 100, 1, 1);
# Karma modifier
my $karma_bonus = createSelect('karma_bonus', \@range,
$user_edit->{karma_bonus} || 0, 1, 1);
# Subscriber modifier
my $subscriber_bonus = createSelect('subscriber_bonus', \@range,
$user_edit->{subscriber_bonus} || 0, 1, 1);

# Length modifier
my $small_length_bonus_select = createSelect('clsmall_bonus', \@range,
$user_edit->{clsmall_bonus} || 0, 1, 1);
my $long_length_bonus_select = createSelect('clbig_bonus', \@range,
$user_edit->{clbig_bonus} || 0, 1, 1);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editComm_title');

$formats = $slashdb->getDescriptions('commentmodes');
$commentmodes_select=createSelect('umode', $formats, $user_edit->{mode}, 1);

$formats = $slashdb->getDescriptions('sortcodes');
$commentsort_select = createSelect(
'commentsort', $formats, $user_edit->{commentsort}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$uthreshold_select = createSelect(
'uthreshold', $formats, $user_edit->{threshold}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$highlightthresh_select = createSelect(
'highlightthresh', $formats, $user_edit->{highlightthresh}, 1
);

$user_edit->{bytelimit} = $constants->{defaultbytelimit}
if $user_edit->{bytelimit} < 0 || $user_edit->{bytelimit} > 7;
my $bytelimit_desc = $user_edit->{is_subscriber} ? 'bytelimit' : 'bytelimit_sub';
$formats = $slashdb->getDescriptions($bytelimit_desc);
$bytelimit_select = createSelect(
'bytelimit', $formats, $user_edit->{bytelimit}, 1
);

my $h_check = $user_edit->{hardthresh} ? $constants->{markup_checked_attribute} : '';
my $r_check = $user_edit->{reparent} ? $constants->{markup_checked_attribute} : '';
my $n_check = $user_edit->{noscores} ? $constants->{markup_checked_attribute} : '';
my $s_check = $user_edit->{nosigs} ? $constants->{markup_checked_attribute} : '';
my $b_check = $user_edit->{nobonus} ? $constants->{markup_checked_attribute} : '';
my $sb_check = $user_edit->{nosubscriberbonus} ? $constants->{markup_checked_attribute} : '';
my $p_check = $user_edit->{postanon} ? $constants->{markup_checked_attribute} : '';
my $nospell_check = $user_edit->{no_spell} ? $constants->{markup_checked_attribute} : '';
my $s_mod_check = $user_edit->{mod_with_comm} ? $constants->{markup_checked_attribute} : '';
my $s_m2_check = $user_edit->{m2_with_mod} ? $constants->{markup_checked_attribute} : '';
my $s_m2c_check = $user_edit->{m2_with_comm_mod} ? $constants->{markup_checked_attribute} : '';

$formats = $slashdb->getDescriptions('postmodes');
$posttype_select = createSelect(
'posttype', $formats, $user_edit->{posttype}, 1
);

slashDisplay('editComm', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
h_check => $h_check,
r_check => $r_check,
n_check => $n_check,
s_check => $s_check,
b_check => $b_check,
sb_check => $sb_check,
p_check => $p_check,
s_mod_check => $s_mod_check,
s_m2_check => $s_m2_check,
s_m2c_check => $s_m2c_check,
nospell_check => $nospell_check,
commentmodes_select => $commentmodes_select,
commentsort_select => $commentsort_select,
highlightthresh_select => $highlightthresh_select,
uthreshold_select => $uthreshold_select,
posttype_select => $posttype_select,
reasons => \@reasons,
reason_select => \%reason_select,
people => \@people,
people_select => \%people_select,
new_user_percent_select => $new_user_percent_select,
new_user_bonus_select => $new_user_bonus_select,
note => $note,
karma_bonus => $karma_bonus,
subscriber_bonus => $subscriber_bonus,
small_length_bonus_select => $small_length_bonus_select,
long_length_bonus_select => $long_length_bonus_select,
bytelimit_select => $bytelimit_select,
});
}

#################################################################
sub saveUserAdmin {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my($user_edits_table, $user_edit) = ({}, {});
my $author_flag;
my $note = '';
my $srcid;
my $id;
my $user_editfield_flag;
my $banned = 0;
my $banref;
if ($form->{uid}) {
$user_editfield_flag = 'uid';
$id = $form->{uid};
$user_edit = $slashdb->getUser($id);
$srcid = $id;

} elsif ($form->{subnetid}) {
$user_editfield_flag = 'subnetid';
($id, $user_edit->{subnetid}) = ($form->{subnetid}, $form->{subnetid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(subnetid => $id);

} elsif ($form->{ipid}) {
$user_editfield_flag = 'ipid';
($id, $user_edit->{ipid}) = ($form->{ipid}, $form->{ipid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(ipid => $id);

} elsif ($form->{md5id}) {
$user_editfield_flag = 'md5id';
my $fieldname = $form->{fieldname} || 'md5id';
($id, $user_edit->{$fieldname})
= ($form->{md5id}, $form->{md5id});
warn "form field md5id specified, no srcid saving possible";

} elsif ($form->{srcid}) {
$user_editfield_flag = 'srcid';
my $fieldname = $form->{fieldname} || 'srcid';
($id, $user_edit->{$fieldname})
= ($form->{srcid}, $form->{srcid});
$srcid = $id;

} else {
# If we were not fed valid data, don't do anything.
return ;
}

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $all_al2types = $reader->getAL2Types;
my $al2_change = { };

# First, get a hash of what aclams (AL2's and ACLs) this user
# had when the previous admin page was loaded.
# XXXSRCID Right now acl_old is just calculated for debugging
# printing purposes, not actually used.
my @al2_old = ( );
@al2_old =
@{ $form->{al2_old_multiple} } if $form->{al2_old_multiple};
my %al2_old = ( map { ($_, 1) } @al2_old );
my @acl_old = ( );
@acl_old =
@{ $form->{acl_old_multiple} } if $form->{acl_old_multiple};
my %acl_old = ( map { ($_, 1) } @acl_old );

# Next, get the list of the new data submitted. Separate
# it out into AL2's which are legitimate. Anything left
# over is an ACL.
my @al2_new_formfields = ( );
@al2_new_formfields = @{ $form->{aclams_new_multiple} } if $form->{aclams_new_multiple};
my @al2_new_submitted = map { s/^aclam_//; $_ } @al2_new_formfields;
my @al2_new = grep { exists $all_al2types->{$_} } @al2_new_submitted;
my %al2_new = ( map { ($_, 1) } @al2_new );
my @acl_new = grep { !$al2_new{$_} } @al2_new_submitted;
my %acl_new = ( map { ($_, 1) } @acl_new );

# Find out what changed for AL2's.
for my $al2 (@al2_old, @al2_new) {
next if defined($al2_old{$al2}) && defined($al2_new{$al2})
&& $al2_old{$al2} == $al2_new{$al2};
$al2_change->{$al2} = $al2_new{$al2} ? 1 : 0;
}
#print STDERR "al2_change for '$srcid': " . Dumper($al2_change);
# If there's a comment, throw that in.
if ($form->{al2_new_comment}) {
$al2_change->{comment} = $form->{al2_new_comment};
}
$al2_change = undef if !keys %$al2_change;

# Find out what changed for ACL's.
my $acl_change = { };
for my $acl (@acl_old, @acl_new) {
next if $acl_old{$acl} == $acl_new{$acl};
$acl_change->{$acl} = $acl_new{$acl} ? 1 : 0;
}
$acl_change = undef if !keys %$acl_change;

if ($user->{is_admin} && $srcid) {
$slashdb->setAL2($srcid, $al2_change);
}
if ($user->{is_admin} && ($user_editfield_flag eq 'uid' ||
$user_editfield_flag eq 'nickname')) {

# This admin user cannot assign a seclev higher than he/she
# already has.
my $seclev = $form->{seclev};
$seclev = $user->{seclev} if $seclev > $user->{seclev};
$user_edits_table->{seclev} = $seclev;

$user_edits_table->{section} = $form->{section};
$user_edits_table->{author} = $form->{author} ? 1 : 0 ;
$user_edits_table->{defaultpoints} = $form->{defaultpoints};
$user_edits_table->{tokens} = $form->{tokens};
$user_edits_table->{tag_clout} = $form->{tag_clout};
$user_edits_table->{m2info} = $form->{m2info};
$user_edits_table->{acl} = $acl_change if $acl_change;
$user_edits_table->{shill_static_marquee} = $form->{shill_static_marquee} ? 1 : undef;
$user_edits_table->{u2_friends_bios} = $form->{u2_friends_bios} ? 1 : undef;
$user_edits_table->{shill_rss_url} = $form->{shill_rss_url} ? $form->{shill_rss_url} : undef;

my $author = $slashdb->getAuthor($id);
my $was_author = ($author && $author->{author}) ? 1 : 0;

$slashdb->setUser($id, $user_edits_table);

$note .= getMessage('saveuseradmin_saveduser', { field => $user_editfield_flag, id => $id });

if ($was_author xor $user_edits_table->{author}) {
# A frequently-asked question for new Slash admins is
# why their authors aren't showing up immediately.
# Give them some help here with an informative message.
$note .= getMessage('saveuseradmin_authorchg', {
basedir => $slashdb->getDescriptions("site_info")
->{base_install_directory},
virtuser => $slashdb->{virtual_user},
});

}
}

if (!$user_edit->{nonuid}) {
if ($form->{expired} && $form->{expired} eq 'on') {
# $slashdb->setExpired($user_edit->{uid});

} else {
# $slashdb->setUnexpired($user_edit->{uid});
}
}

my $data = { uid => $id };
$data->{note} = $note if defined $note;
showInfo($data);
}

#################################################################
sub savePasswd {
my($hr) = @_;
my $note = $hr->{noteref} || undef;

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $error_flag = 0;
my $user_edit = {};
my $uid;

my $user_edits_table = {};

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ? $form->{uid} : $user->{uid};
}

$user_edit = $slashdb->getUser($uid);

if (!$user_edit->{nickname}) {
$$note .= getError('cookie_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if ($form->{pass1} ne $form->{pass2}) {
$$note .= getError('saveuser_passnomatch_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$form->{pass1} || length $form->{pass1} < 6) {
$$note .= getError('saveuser_passtooshort_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$user->{is_admin}){
# not an admin -- check old password before changing passwd
my $return_uid = $slashdb->getUserAuthenticate($uid, $form->{oldpass}, 1);
if (!$return_uid || $return_uid != $uid) {
$$note .= getError('saveuser_badoldpass_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;

}
}

if (! $error_flag) {
$user_edits_table->{passwd} = $form->{pass1} if $form->{pass1};
$user_edits_table->{session_login} = $form->{session_login};
$user_edits_table->{cookie_location} = $form->{cookie_location};

# changed pass, so delete all logtokens
$slashdb->deleteLogToken($form->{uid}, 1);

if ($user->{admin_clearpass}
&& !$user->{state}{admin_clearpass_thisclick}) {
# User is an admin who sent their password in the clear
# some time ago; now that it's been changed, we'll forget
# about that incident, unless this click was sent in the
# clear as well.
$user_edits_table->{admin_clearpass} = '';
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table) ;
$$note .= getMessage('saveuser_passchanged_msg',
{ nick => $user_edit->{nickname}, uid => $user_edit->{uid} },
0, 1) if $note;

# only set cookie if user is current user
if ($form->{uid} eq $user->{uid}) {
$user->{logtoken} = bakeUserCookie($uid, $slashdb->getLogToken($form->{uid}, 1));
setCookie('user', $user->{logtoken}, $user_edits_table->{session_login});
}
}

return $error_flag;
}

#################################################################
sub saveUser {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $gSkin = getCurrentSkin();
my $plugins = $slashdb->getDescriptions('plugins');
my $uid;
my $user_editfield_flag;

$uid = $user->{is_admin} && $form->{uid} ? $form->{uid} : $user->{uid};
my $user_edit = $slashdb->getUser($uid);

my($note, $formname);

$note .= getMessage('savenickname_msg', {
nickname => $user_edit->{nickname},
}, 1);

if (!$user_edit->{nickname}) {
$note .= getError('cookie_err', 0, 1);
}

# Check to ensure that if a user is changing his email address, that
# it doesn't already exist in the userbase.
if ($user_edit->{realemail} ne $form->{realemail}) {
if ($slashdb->existsEmail($form->{realemail})) {
$note .= getError('emailexists_err', 0, 1);
$form->{realemail} = $user_edit->{realemail}; # can't change!
}
}

my(%extr, $err_message, %limit);
$limit{sig} = 120; # schema is 200, give an extra buffer for domain tags
$limit{bio} = $constants->{users_bio_length} || 1024; # can be up to 2^16

for my $key (keys %limit) {
my $dat = chopEntity($form->{$key}, $limit{$key});
$dat = strip_html($dat);
$dat = balanceTags($dat, { deep_nesting => 2, length => $limit{$key} });
$dat = addDomainTags($dat) if $dat;

# If the sig becomes too long to fit (domain tagging causes
# string expansion and tag balancing can too), warn the user to
# use shorter domain names and don't save their change.
if ($key eq 'sig' && defined($dat) && length($dat) > 200) {
print getError('sig_too_long_err');
$extr{sig} = undef;
}

# really, comment filters should ignore short length IMO ... oh well.
if (length($dat) > 1 && ! filterOk('comments', 'postersubj', $dat, \$err_message)) {
print getError('filter message', {
err_message => $err_message,
item => $key,
});
$extr{$key} = undef;
} elsif (! compressOk('comments', 'postersubj', $dat)) {
print getError('compress filter', {
ratio => 'postersubj',
item => $key,
});
$extr{$key} = undef;
} else {
$extr{$key} = $dat;
}
}

# We should do some conformance checking on a user's pubkey,
# make sure it looks like one of the known types of public
# key. Until then, just make sure it doesn't have HTML.
$form->{pubkey} = $plugins->{'PubKey'} ? strip_nohtml($form->{pubkey}, 1) : '';

my $homepage = $form->{homepage};
$homepage = '' if $homepage eq 'http://';
$homepage = fudgeurl($homepage);
$homepage = URI->new_abs($homepage, $gSkin->{absolutedir})
->canonical
->as_string if $homepage ne '';
$homepage = substr($homepage, 0, 100) if $homepage ne '';

my $calendar_url = $form->{calendar_url};
if (length $calendar_url) {
# fudgeurl() doesn't like webcal; will remove later anyway
$calendar_url =~ s/^webcal/http/i;
$calendar_url = fudgeurl($calendar_url);
$calendar_url = URI->new_abs($calendar_url, $gSkin->{absolutedir})
->canonical
->as_string if $calendar_url ne '';

$calendar_url =~ s|^http://||i;
$calendar_url = substr($calendar_url, 0, 200) if $calendar_url ne '';
}

# for the users table
my $user_edits_table = {
homepage => $homepage,
realname => $form->{realname},
pubkey => $form->{pubkey},
copy => $form->{copy},
quote => $form->{quote},
calendar_url => $calendar_url,
yahoo => $form->{yahoo},
jabber => $form->{jabber},
aim => $form->{aim},
aimdisplay => $form->{aimdisplay},
icq => $form->{icq},
playing => $form->{playing},
mobile_text_address => $form->{mobile_text_address},
};

if ($constants->{wow}) {
my $wowdb = getObject("Slash::WoW");
if ($wowdb) {
$user_edits_table->{wow_main_name} = "\L\u$form->{wow_main_name}";
$user_edits_table->{wow_main_realm} = $form->{wow_main_realm};
my $charid = $wowdb->getCharidCreate($user_edits_table->{wow_main_realm},
$user_edits_table->{wow_main_name});
$wowdb->setChar($charid, { uid => $uid }, { if_unclaimed => 1 }) if $charid;
}
}

for (keys %extr) {
$user_edits_table->{$_} = $extr{$_} if defined $extr{$_};
}

# don't want undef, want to be empty string so they
# will overwrite the existing record
for (keys %$user_edits_table) {
$user_edits_table->{$_} = '' unless defined $user_edits_table->{$_};
}

if ($user_edit->{realemail} ne $form->{realemail}) {
$user_edits_table->{realemail} =
chopEntity($form->{realemail}, 50);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($user->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid, $user_edits_table->{realemail})
if $user->{emaildisplay} == 1;
$new_fakeemail = $user_edits_table->{realemail}
if $user->{emaildisplay} == 2;
}
$user_edits_table->{fakeemail} = $new_fakeemail;

$note .= getMessage('changeemail_msg', {
realemail => $user_edit->{realemail}
}, 1);

my $saveuser_emailtitle = getTitle('saveUser_email_title', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);
my $saveuser_email_msg = getMessage('saveuser_email_msg', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);

sendEmail($form->{realemail}, $saveuser_emailtitle, $saveuser_email_msg);
doEmail($uid, $saveuser_emailtitle, $saveuser_email_msg);
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);

editUser({ uid => $uid, note => $note });
}

#################################################################
sub saveComm {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $user_fakeemail);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}

# Do the right thing with respect to the chosen email display mode
# and the options that can be displayed.
my $user_edit = $slashdb->getUser($uid);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($form->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid) if $form->{emaildisplay} == 1;
$new_fakeemail = $user_edit->{realemail} if $form->{emaildisplay} == 2;
}

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};

my $note = getMessage('savenickname_msg',
{ nickname => $name });

print getError('cookie_err') if isAnon($uid) || !$name;

# Take care of the lists
# Enforce Ranges for variables that need it
$form->{commentlimit} = 0 if $form->{commentlimit} < 1;
my $cl_max = $constants->{comment_commentlimit} || 0;
$form->{commentlimit} = $cl_max if $cl_max > 0 && $form->{commentlimit} > $cl_max;
$form->{commentspill} = 0 if $form->{commentspill} < 1;

# For some of these values, namely the ones that we happen to
# know get stored in users_param, we change them to 'undef'
# if they are the default value. This deletes them from the
# users_param table, which has the same effect as storing the
# default except it's faster all around. If we ever change
# the schema to promote these fields from params into a
# proper users_* table, then this will no longer be correct.
# See prepareUser().
my $max = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $min = -$max;
my $karma_bonus = ($form->{karma_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{karma_bonus};
my $subscriber_bonus = ($form->{subscriber_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{subscriber_bonus};
my $new_user_bonus = ($form->{new_user_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{new_user_bonus};
my $new_user_percent = (($form->{new_user_percent} <= 100 && $form->{new_user_percent} >= 0)
? $form->{new_user_percent}
: 100);
my $clsmall_bonus = ($form->{clsmall_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clsmall_bonus};
my $clbig_bonus = ($form->{clbig_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clbig_bonus};

# plum
$form->{d2_comment_q} = (isSubscriber($user_edit) || $user_edit->{seclev} >= 100)
? $form->{d2_comment_q}
: ($form->{d2_comment_q} eq '0')
? 1
: $form->{d2_comment_q};

my $user_edits_table = {
# MC: More D2 neutring
#discussion2 => $form->{discussion2} || undef,
#d2_comment_q => $form->{d2_comment_q} || undef,
#d2_comment_order => $form->{d2_comment_order} || undef,
clsmall => $form->{clsmall},
clsmall_bonus => ($clsmall_bonus || undef),
clbig => $form->{clbig},
clbig_bonus => ($clbig_bonus || undef),
commentlimit => $form->{commentlimit},
bytelimit => $form->{bytelimit},
commentsort => $form->{commentsort},
commentspill => $form->{commentspill},
domaintags => ($form->{domaintags} != 2 ? $form->{domaintags} : undef),
emaildisplay => $form->{emaildisplay} || undef,
fakeemail => $new_fakeemail,
highlightthresh => $form->{highlightthresh},
mode => $form->{umode},
posttype => $form->{posttype},
threshold => $form->{uthreshold},
nosigs => ($form->{nosigs} ? 1 : 0),
reparent => ($form->{reparent} ? 1 : 0),
noscores => ($form->{noscores} ? 1 : 0),
hardthresh => ($form->{hardthresh} ? 1 : 0),
no_spell => ($form->{no_spell} ? 1 : undef),
nobonus => ($form->{nobonus} ? 1 : undef),
nosubscriberbonus => ($form->{nosubscriberbonus} ? 1 : undef),
postanon => ($form->{postanon} ? 1 : undef),
new_user_percent => ($new_user_percent && $new_user_percent != 100
? $new_user_percent : undef),
new_user_bonus => ($new_user_bonus || undef),
karma_bonus => ($karma_bonus ne '+1' ? $karma_bonus : undef),
subscriber_bonus => ($subscriber_bonus || undef),
textarea_rows => ($form->{textarea_rows} != $constants->{textarea_rows}
? $form->{textarea_rows} : undef),
textarea_cols => ($form->{textarea_cols} != $constants->{textarea_cols}
? $form->{textarea_cols} : undef),
user_comment_sort_type => ($form->{user_comment_sort_type} != 2
? $form->{user_comment_sort_type} : undef ),
mod_with_comm => ($form->{mod_with_comm} ? 1 : undef),
m2_with_mod => ($form->{m2_with_mod} ? 1 : undef),
m2_with_comm_mod => ($form->{m2_with_mod_on_comm} ? 1 : undef),

};

# set our default values for the items where an empty-string won't do
my $defaults = {
posttype => 2,
highlightthresh => 4,
reparent => 1,
commentlimit => 100,
commentspill => 50,
mode => 'thread'
};

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my @reasons = ( );
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}

for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
my $answer = $form->{$key} || 0;
$answer = 0 if !$answer || $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{$key} = ($answer == 0) ? '' : $answer;
}

for (qw| friend foe anonymous fof eof freak fan |) {
my $answer = $form->{"people_bonus_$_"};
$answer = 0 if $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{"people_bonus_$_"} = ($answer == 0) ? '' : $answer;
}
getOtherUserParams($user_edits_table);
setToDefaults($user_edits_table, {}, $defaults) if $form->{restore_defaults};
$slashdb->setUser($uid, $user_edits_table);

editComm({ uid => $uid, note => $note });
}

#################################################################
sub saveHome {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $error);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid} ;
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}
my $edit_user = $slashdb->getUser($uid);

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};
$name = substr($name, 0, 20);

my $note = getMessage('savenickname_msg',
{ nickname => $name });

if (isAnon($uid) || !$name) {
my $cookiemsg = getError('cookie_err');
print $cookiemsg;
}

# Using the existing list of slashboxes and the set of
# what's checked and not, build up the new list.
# (New arrivals go at the end.)
my $slashboxes = $edit_user->{slashboxes};
# Only go through all this if the user clicked save,
# not "Restore Slashbox Defaults"!
my($boxes, $skinBoxes) = $slashdb->getPortalsCommon();
my $default_slashboxes_textlist = join ",",
@{$skinBoxes->{$constants->{mainpage_skid}}};
if (!$form->{restore_slashbox_defaults}) {
$slashboxes = $default_slashboxes_textlist if !$slashboxes;
my @slashboxes = split /,/, $slashboxes;
my %slashboxes = ( );
for my $i (0..$#slashboxes) {
$slashboxes{$slashboxes[$i]} = $i;
}
# Add new boxes in.
for my $key (sort grep /^showbox_/, keys %$form) {
my($bid) = $key =~ /^showbox_(\w+)$/;
next if length($bid) < 1 || length($bid) > 30 || $bid !~ /^\w+$/;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999; # put it at the end
}
}
# Remove any boxes that weren't checked.
for my $bid (@slashboxes) {
delete $slashboxes{$bid} unless $form->{"showbox_$bid"};
}

for my $key (sort grep /^dynamic_/, keys %$form) {
my($bid) = $key =~ /^dynamic_(.+)$/;
next if length($bid) < 1;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999;
}
}

@slashboxes = sort {
$slashboxes{$a} <=> $slashboxes{$b}
||
$a cmp $b
} keys %slashboxes;
# This probably should be a var (and appear in tilded_customize_msg)
$#slashboxes = 19 if $#slashboxes > 19;
$slashboxes = join ",", @slashboxes;
}
# If we're right back to the default, that means the
# empty string.
if ($slashboxes eq $default_slashboxes_textlist) {
$slashboxes = "";
}

# Set the story_never and story_always fields.
my $author_hr = $slashdb->getDescriptions('authors');
my $tree = $slashdb->getTopicTree();
my(@story_never_topic, @story_never_author, @story_never_nexus);
my(@story_always_topic, @story_always_author);
my(@story_always_nexus, @story_full_brief_nexus, @story_brief_always_nexus, @story_full_best_nexus, @story_brief_best_nexus);
my($story_topic_all, $story_author_all, $story_nexus_all) = (0, 0, 0);

# Topics are either present (value=2) or absent (value=0). If absent,
# push them onto the never list. Otherwise, do nothing. (There's no
# way to have an "always" topic, at the moment.) If the hidden
# field topictids_present is false, then there are no topic tids,
# skip this.
if ($form->{topictids_present}) {
for my $tid (
sort { $a <=> $b }
grep { !$tree->{$_}{nexus} }
keys %$tree
) {
my $key = "topictid$tid";
$story_topic_all++;
if (!$form->{$key}) { push @story_never_topic, $tid }
}
}
# Authors are either present (value=2) or absent (value=0). If
# absent, push them onto the never list. Otherwise, do nothing.
# (There's no way to have an "always" author, at the moment.)
for my $aid (sort { $a <=> $b } keys %$author_hr) {
my $key = "aid$aid";
$story_author_all++;
if (!$form->{$key}) { push @story_never_author, $aid }
}
# Nexuses can have value 0, 1, 2, 3, 4, 5.
# 0 means the never list,
# 1 means brief view of mainpage articles only
# 2 means full view of mainpage articles only
# 3 means brief view of all content
# 4 means full view of mainpage content, brief view of sectional
# 5 means full view of all content
for my $tid (
sort { $a <=> $b }
map { /^nexustid(\d+)$/; $1 }
grep { /^nexustid\d+$/ }
keys %$form
) {
my $key = "nexustid$tid";
next unless $tid && $tree->{$tid} && $tree->{$tid}{nexus};
$story_nexus_all++;
if (!$form->{$key}) { push @story_never_nexus, $tid }
elsif ($form->{$key} == 5 ) { push @story_always_nexus, $tid }
elsif ($form->{$key} == 4 ) { push @story_full_brief_nexus, $tid }
elsif ($form->{$key} == 3 ) { push @story_brief_always_nexus, $tid }
elsif ($form->{$key} == 2 ) { push @story_full_best_nexus, $tid }
elsif ($form->{$key} == 1 ) { push @story_brief_best_nexus, $tid }

}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " s_n_t '@story_never_topic' s_n_a '@story_never_author' s_n_n '@story_never_nexus' s_a_n '@story_always_nexus' form: " . Dumper($form);
# Sanity check.
$#story_never_topic = 299 if $#story_never_topic > 299;
$#story_never_author = 299 if $#story_never_author > 299;
$#story_never_nexus = 299 if $#story_never_nexus > 299;
$#story_always_topic = 299 if $#story_always_topic > 299;
$#story_always_author = 299 if $#story_always_author > 299;
$#story_always_nexus = 299 if $#story_always_nexus > 299;
$#story_full_brief_nexus = 299 if $#story_full_brief_nexus > 299;
$#story_brief_always_nexus = 299 if $#story_brief_always_nexus > 299;
$#story_brief_best_nexus = 299 if $#story_brief_best_nexus > 299;
$#story_full_best_nexus = 299 if $#story_full_best_nexus > 299;

my $story_never_topic = join ",", @story_never_topic;
$story_never_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_never_topic, 1024)
: checkList($story_never_topic);
my $story_never_author = checkList(join ",", @story_never_author);
my $story_never_nexus = checkList(join ",", @story_never_nexus);
my $story_always_topic = checkList(join ",", @story_always_topic);
$story_always_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_always_topic, 1024)
: checkList($story_always_topic);
my $story_always_author = checkList(join ",", @story_always_author);

my $story_always_nexus = checkList(join ",", @story_always_nexus);
my $story_full_brief_nexus = checkList(join ",", @story_full_brief_nexus);
my $story_brief_always_nexus = checkList(join ",", @story_brief_always_nexus);
my $story_brief_best_nexus = checkList(join ",", @story_brief_best_nexus);
my $story_full_best_nexus = checkList(join ",", @story_full_best_nexus);

my $user_edits_table = {
story_never_topic => $story_never_topic,
story_never_author => $story_never_author,
story_never_nexus => $story_never_nexus,
story_always_topic => $story_always_topic,
story_always_author => $story_always_author,
story_always_nexus => $story_always_nexus,
story_brief_always_nexus => $story_brief_always_nexus,
story_full_brief_nexus => $story_full_brief_nexus,
story_full_best_nexus => $story_full_best_nexus,
story_brief_best_nexus => $story_brief_best_nexus,

slashboxes => checkList($slashboxes, 1024),

maxstories => 30, # XXXSKIN fix this later
noboxes => ($form->{useslashboxes} ? 0 : 1),
lowbandwidth => ($form->{lowbandwidth} ? 1 : 0),
simpledesign => ($form->{simpledesign} ? 1 : 0),
noicons => ($form->{noicons} ? 1 : 0),
willing => ($form->{willing} ? 1 : 0),
index_classic => ($form->{index_classic} ? 1 : undef),
};

if (defined $form->{tzcode} && defined $form->{tzformat}) {
$user_edits_table->{tzcode} = $form->{tzcode};
$user_edits_table->{dfid} = $form->{tzformat};
$user_edits_table->{dst} = $form->{dst};
}

# Force the User Space area to contain only known-good HTML tags.
# Unfortunately the cookie login model makes it just too risky
# to allow scripts in here; CSS's steal passwords. There are
# no known vulnerabilities at this time, but a combination of the
# social engineering taking place (inviting users to put Javascript
# from websites in here, and making available script URLs for that
# purpose), plus the fact that this could be used to amplify the
# seriousness of any future vulnerabilities, means it's way past
# time to shut this feature down. - Jamie 2002/03/06

# it's a VARCHAR ...
my $mylinks_limit = 255;
$user_edits_table->{mylinks} = balanceTags(strip_html(
chopEntity($form->{mylinks} || '', $mylinks_limit)
), { deep_nesting => 2, length => $mylinks_limit });

$user_edits_table->{mylinks} = '' unless defined $user_edits_table->{mylinks};

$error = 1;
# must select at least 1/4 of nexuses, topics, authors
if ( scalar(@story_never_author) > ($story_author_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_nexus) > ($story_nexus_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_topic) > ($story_topic_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} else {
$error = 0;
}

unless ($error) {
# If a user is unwilling to moderate, we should cancel all points, lest
# they be preserved when they shouldn't be.
if (!isAnon($uid) && !$form->{willing}) {
$slashdb->setUser($uid, { points => 0 });
}

getOtherUserParams($user_edits_table);
if ($form->{restore_defaults}) {
setToDefaults($user_edits_table, {}, {
maxstories => 30,
tzcode => "EST",
# XXX shouldn't this reset ALL the defaults,
# not just these two?
});
}
if ($form->{restore_slashbox_defaults}) {
setToDefaults($user_edits_table, {
'story_never_topic' => 1,
'story_never_author' => 1,
'story_never_nexus' => 1,
'story_always_topic' => 1,
'story_always_author' => 1,
'story_always_nexus' => 1,
'story_full_brief_nexus' => 1,
'story_brief_always_nexus' => 1,
'story_full_best_nexus' => 1,
'story_brief_best_nexus' => 1,
'maxstories' => 1,
'noboxes' => 1,
'light' => 1,
'noicons' => 1,
'willing' => 1
}, { slashboxes => "" });
}

#print scalar(localtime) . " uet: " . Dumper($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);
}

editHome({ uid => $uid, note => $note });
}

#################################################################
# A generic way for a site to allow users to edit data about themselves.
# Most useful when your plugin or theme wants to let the user change
# minor settings but you don't want to write a whole new version
# of users.pl to provide a user interface. The user can save any
# param of the format "opt_foo", as long as "foo" shows up in
# getMiscUserOpts which lists all the misc opts that this user can edit.
# This is *not* protected by formkeys (yet), so assume attackers can make
# users click and accidentally edit their own settings: no really important
# data should be stored in this way.
sub editMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $edit_user = $slashdb->getUser($user->{uid});
my $title = getTitle('editMiscOpts_title');

my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
my $opt_name = "opt_" . $opt->{name};
$opt->{checked} = $edit_user->{$opt_name} ? 1 : 0;
}

slashDisplay('editMiscOpts', {
# useredit => $user_edit,
title => $title,
opts => $opts,
note => $note,
});
}

#################################################################
#
sub saveMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

my $edit_user = $slashdb->getUser($user->{uid});
my %opts_ok_hash = ( );
my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
$opts_ok_hash{"opt_$opt->{name}"} = 1;
}

my $update = { };
for my $opt (grep /^opt_/, keys %$form) {
next unless $opts_ok_hash{$opt};
$update->{$opt} = $form->{$opt} ? 1 : 0;
}

# Make the changes.
$slashdb->setUser($edit_user->{uid}, $update);

# Inform the user the change was made. Since we don't
# require formkeys, we always want to print a message to
# make sure the user sees what s/he did. This is done
# by passing in a note which ends up passed to the
# editMiscOpts template, which displays it.
editMiscOpts({ note => getMessage('savemiscopts_msg') });
}

#################################################################
sub listReadOnly {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $readonlylist = $reader->getAL2List('nopost');

slashDisplay('listReadOnly', {
readonlylist => $readonlylist,
});

}

#################################################################
sub listBanned {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $bannedlist = $reader->getAL2List('ban');

slashDisplay('listBanned', {
bannedlist => $bannedlist,
});

}

#################################################################
sub topAbusers {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $topabusers = $reader->getTopAbusers();

slashDisplay('topAbusers', {
topabusers => $topabusers,
});
}

#################################################################
sub listAbuses {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my $abuses = $reader->getAbuses($form->{key}, $form->{abuseid});

slashDisplay('listAbuses', {
abuseid => $form->{abuseid},
abuses => $abuses,
});
}

#################################################################
sub forceAccountVerify {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $uid = $form->{uid};
my $useredit = $slashdb->getUser($uid);

if ($useredit->{uid}) {
my $newpasswd = $slashdb->resetUserAccount($uid);
$slashdb->deleteLogToken($uid, 1);
my $emailtitle = getTitle('reset_acct_email_title', {
nickname => $useredit->{nickname}
}, 1);

my $msg = getMessage('reset_acct_msg', {
newpasswd => $newpasswd,
tempnick => $useredit->{nickname},
}, 1);

$slashdb->setUser($useredit->{uid}, {
waiting_for_account_verify => 1,
account_verify_request_time => $slashdb->getTime()
});

doEmail($useredit->{uid}, $emailtitle, $msg) if $useredit->{uid};
}

print getMessage("reset_acct_complete", { useredit => $useredit }, 1);
}

#################################################################
sub displayForm {
my($hr) = @_;

my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $op = $hr->{op} || $form->{op} || 'displayform';

my $ops = {
displayform => 'loginForm',
edithome => 'loginForm',
editcomm => 'loginForm',
edituser => 'loginForm',
# mailpasswdform => 'sendPasswdForm',
# newuserform => 'newUserForm',
userclose => 'loginForm',
userlogin => 'loginForm',
editmiscopts => 'loginForm',
savemiscopts => 'loginForm',
default => 'loginForm'
};

$op = 'default' if !defined($ops->{$op});

my($title, $title2, $msg1, $msg2) = ('', '', '', '');

if ($op eq 'userclose') {
$title = getMessage('userclose');

} elsif ($op eq 'displayForm') {
$title = $form->{unickname}
? getTitle('displayForm_err_title')
: getTitle('displayForm_title');
} elsif ($op eq 'mailpasswdform') {
$title = getTitle('mailPasswdForm_title');
} elsif ($op eq 'newuserform') {
$title = getTitle('newUserForm_title');
} else {
$title = getTitle('displayForm_title');
}

$form->{unickname} ||= $form->{newusernick};

if ($form->{newusernick}) {
$title2 = getTitle('displayForm_dup_title');
} else {
$title2 = getTitle('displayForm_new_title');
}

$msg1 = getMessage('dispform_new_msg_1');
if (! $form->{newusernick} && $op eq 'newuserform') {
$msg2 = getMessage('dispform_new_msg_2');
} elsif ($op eq 'displayform' || $op eq 'userlogin') {
$msg2 = getMessage('newuserform_msg');
}

slashDisplay($ops->{$op}, {
newnick => nickFix($form->{newusernick}),
suadmin_flag => $suadmin_flag,
title => $title,
title2 => $title2,
logged_in => $user->{is_anon} ? 0 : 1,
msg1 => $msg1,
msg2 => $msg2
});
}

#################################################################
# this groups all the messages together in
# one template, called "messages;users;default"
sub getMessage {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('messages', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the errors together in
# one template, called "errors;users;default"
sub getError {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('errors', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the titles together in
# one template, called "users-titles"
sub getTitle {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('titles', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# getUserAdmin - returns a block of HTML text that provides
# information and editing capabilities for admin users.
# Most of this data is already in the getUserAdmin template,
# but really, we should try to get more of this logic into
# that template.
sub getUserAdmin {
my($id, $field, $seclev_field) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $logdb = getObject('Slash::DB', { db_type => 'log_slave' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $slashdb = getCurrentDB();
$id ||= $user->{uid};

my($expired, $uidstruct, $readonly);
my($user_edit, $user_editfield, $ipstruct, $ipstruct_order, $authors, $author_flag, $topabusers, $thresh_select,$section_select);
my $srcid;
my $proxy_check = {};
my @accesshits;
my $user_editinfo_flag = (!$form->{op} || $form->{op} eq 'userinfo'
|| $form->{userinfo} || $form->{saveuseradmin}
) ? 1 : 0;
my $authoredit_flag = ($user->{seclev} >= 10000) ? 1 : 0;
my $sectionref = $reader->getDescriptions('skins');
$sectionref->{''} = getData('all_sections');

$field ||= 'uid';
if ($field eq 'uid') {
$user_edit = $slashdb->getUser($id);
$user_editfield = $user_edit->{uid};
$srcid = convert_srcid( uid => $id );
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'nickname') {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$user_editfield = $user_edit->{nickname};
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'md5id') {
$user_edit->{nonuid} = 1;
$user_edit->{md5id} = $id;
if ($form->{fieldname} && $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$uidstruct = $slashdb->getUIDStruct($form->{fieldname}, $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($form->{fieldname}, $user_edit->{md5id}) if defined($logdb);
} else {
$uidstruct = $slashdb->getUIDStruct('md5id', $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{md5id}) if defined($logdb);
}

} elsif ($field eq 'ipid') {
$user_edit->{nonuid} = 1;
$user_edit->{ipid} = $id;
$srcid = convert_srcid( ipid => $id );
$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('ipid', $user_edit->{ipid});
@accesshits = $logdb->countAccessLogHitsInLastX('host_addr', $user_edit->{ipid}) if defined($logdb);

if ($form->{userfield} =~/^\d+\.\d+\.\d+\.(\d+)$/) {
if ($1 ne "0"){
$proxy_check->{available} = 1;
$proxy_check->{results} = $slashdb->checkForOpenProxy($form->{userfield}) if $form->{check_proxy};
}
}

} elsif ($field eq 'subnetid') {
$user_edit->{nonuid} = 1;
$srcid = convert_srcid( ipid => $id );
if ($id =~ /^(\d+\.\d+\.\d+)(?:\.\d)?/) {
$id = $1 . ".0";
$user_edit->{subnetid} = $id;
} else {
$user_edit->{subnetid} = $id;
}

$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('subnetid', $user_edit->{subnetid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{subnetid}) if defined($logdb);

} elsif ($field eq "srcid") {
$user_edit->{nonuid} = 1;
$user_edit->{srcid} = $id;
$srcid = $id;

} else {
$user_edit = $id ? $slashdb->getUser($id) : $user;
$user_editfield = $user_edit->{uid};
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
}

##########
# Put together the array and hashref that the template will need
# to construct the list for display to the admin.
# Note that currently a srcid which is not a uid (i.e. which
# represents an IP address or masked IP network) cannot have
# any ACLs assigned to it. This may change in the future.
# The term "aclam" is used because it has a field set for both
# every ACL and every access modifier (i.e. AL2 bit) that is set
# for this user or srcid.
# For now, ACLs will be listed for IPs as well.
# First get the list of ACLs that can be used.
my $all_acls_ar = $reader->getAllACLNames();
my $all_acls_hr = { map { ( $_, 1 ) } @$all_acls_ar };
# Add in any ACLs selected for this user (just in case
# getAllACLNames is cached and stale).
for my $acl (keys %{$user_edit->{acl}}) {
$all_acls_hr->{$acl} = 1;
}
# Start creating the $all_aclam_hr data, in which the keys are
# the HTML selection names that all begin with aclam_ and the
# the values are their names/descriptions shown to the admin.
# First put all the ACLs into the hash, if we're editing a user.
my $all_aclam_hr = { };
if (!$user_edit->{nonuid}) {
$all_aclam_hr = { map { ( "aclam_$_", "ACL: $_" ) } keys %$all_acls_hr };
}
# Next put in all the al2 types.
my $all_al2types = $reader->getAL2Types;
for my $key (keys %$all_al2types) {
next if $key eq 'comment'; # skip the 'comment' type
$all_aclam_hr->{"aclam_$key"} = $all_al2types->{$key}{title};
}
# Finally, sort the keys of the hash into the order that we
# want them displayed to the admin (ACLs first).
my $all_acls_longkeys_hr = { map { ( "aclam_$_", 1 ) } keys %$all_acls_hr };
my $all_aclam_ar = [
sort {
(exists($all_acls_longkeys_hr->{$a}) ? -1 : 1) <=> (exists($all_acls_longkeys_hr->{$b}) ? -1 : 1)
||
$all_aclam_hr->{$a} cmp $all_aclam_hr->{$b}
} keys %$all_aclam_hr
];
# Now put together the hashref that identifies which of those
# items are selected for this user.
my $user_aclam_hr = { };
for my $acl (keys %{ $user_edit->{acl} }) {
$user_aclam_hr->{"aclam_$acl"} = 1;
}
my $al2_tid_comment = $all_al2types->{comment}{al2tid} || 0;
my $al2_log_ar = [ ];
my $al2_hr = { };
# XXXSRCID Once we get rid of the silly 'md5id' field and all the
# other bizarre backward-compatibility code paths early in this
# function, this won't be necessary, but until then we need this
# sanity check...
if ($srcid) {
# getAL2 works with either a srcids hashref or a single srcid
$al2_hr = $slashdb->getAL2($srcid);
for my $al2 (keys %{ $al2_hr }) {
$user_aclam_hr->{"aclam_$al2"} = 1;
}
$al2_log_ar = $slashdb->getAL2Log($srcid);
}
# Generate al2_nick_hr, which will be populated with keys of all
# the (presumably) admin uids who have logged rows for this al2,
# and values of their nicks.
my $al2_nick_hr = { };
for my $al2_log (@$al2_log_ar) {
my $uid = $al2_log->{adminuid};
next if !$uid; # odd error, might want to flag this
$al2_nick_hr->{$uid} ||= $slashdb->getUser($uid, 'nickname');
}
##########

$user_edit->{author} = ($user_edit->{author} && $user_edit->{author} == 1)
? $constants->{markup_checked_attribute} : '';
if (! $user->{nonuid}) {
my $threshcodes = $reader->getDescriptions('threshcode_values','',1);
$thresh_select = createSelect('defaultpoints', $threshcodes, $user_edit->{defaultpoints}, 1);
}

if (!ref $ipstruct) {
undef $ipstruct;
} else {
@$ipstruct_order = sort { $ipstruct->{$b}{dmin} cmp $ipstruct->{$a}{dmin} } keys %$ipstruct;
}

my $m2total = ($user_edit->{m2fair} || 0) + ($user_edit->{m2unfair} || 0);
if ($m2total) {
$user_edit->{m2unfairpercent} = sprintf("%.2f",
$user_edit->{m2unfair}*100/$m2total);
}
my $mod_total = ($user_edit->{totalmods} || 0) + ($user_edit->{stirred} || 0);
if ($mod_total) {
$user_edit->{stirredpercent} = sprintf("%.2f",
$user_edit->{stirred}*100/$mod_total);
}
if ($constants->{subscribe} and my $subscribe = getObject('Slash::Subscribe')) {
$user_edit->{subscribe_payments} =
$subscribe->getSubscriptionsForUser($user_edit->{uid});
$user_edit->{subscribe_purchases} =
$subscribe->getSubscriptionsPurchasedByUser($user_edit->{uid},{ only_types => [ "grant", "gift" ] });
}
my $ipid = $user_edit->{ipid};
my $subnetid = $user_edit->{subnetid};
my $post_restrictions = {};
my ($subnet_karma, $ipid_karma);

if ($ipid && !$subnetid) {
$ipid = md5_hex($ipid) if length($ipid) != 32;
$proxy_check->{ipid} = $ipid;
$proxy_check->{currently} = $slashdb->getKnownOpenProxy($ipid, "ipid");
# This next call is very slow.
$subnetid = $reader->getSubnetFromIPIDBasedOnComments($ipid);
}

if ($subnetid) {
$subnetid = md5_hex($subnetid) if length($subnetid) != 32;
# These next three calls can be very slow. In fact, getNetIDKarma
# is actually called twice on the same subnetid; if we can cache
# that data somehow that wouldn't be a bad idea.
$post_restrictions = $reader->getNetIDPostingRestrictions("subnetid", $subnetid);
$subnet_karma = $reader->getNetIDKarma("subnetid", $subnetid);
$ipid_karma = $reader->getNetIDKarma("ipid", $ipid) if $ipid;
}

my $clout_types_ar = [ sort grep /\D/, keys %{$slashdb->getCloutTypes} ];

return slashDisplay('getUserAdmin', {
field => $field,
useredit => $user_edit,
srcid => $srcid,
all_aclam_ar => $all_aclam_ar,
all_aclam_hr => $all_aclam_hr,
user_aclam_hr => $user_aclam_hr,
al2_old => $al2_hr,
al2_log => $al2_log_ar,
al2_tid_comment => $al2_tid_comment,
al2_nick => $al2_nick_hr,

userinfo_flag => $user_editinfo_flag,
userfield => $user_editfield,
ipstruct => $ipstruct,
ipstruct_order => $ipstruct_order,
uidstruct => $uidstruct,
accesshits => \@accesshits,
seclev_field => $seclev_field,
expired => $expired,
topabusers => $topabusers,
readonly => $readonly,
thresh_select => $thresh_select,
authoredit_flag => $authoredit_flag,
section_select => $section_select,
all_acls => $all_acls_hr,
proxy_check => $proxy_check,
subnet_karma => $subnet_karma,
ipid_karma => $ipid_karma,
post_restrictions => $post_restrictions,

clout_types_ar => $clout_types_ar,
}, 1);
}

#################################################################
# this is to allow alternate parameters to be specified. pass in
# your hash reference to be passed to setUser(), and this will
# add in those extra parameters. add the parameters to string_param,
# type = otherusersparam, code = name of the param. they will
# be checked for the main user prefs editing screens, and on
# user creation -- pudge
sub getOtherUserParams {
my($data) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $params = $reader->getDescriptions('otherusersparam');

for my $param (keys %$params) {
if (exists $form->{$param}) {
# set user too for output in this request
$data->{$param} = $user->{$param} = $form->{$param} || undef;
}
}
}

###############################################################
# This modifies a hashref to default values -- if nothing
# else we assume the empty string which clears items in the
# user_param table
#
# takes 3 hashrefs currently
# $data - hashref to change to defaults
# $skip - hashref of keys to skip modifying
# $defaults - hashref of defaults to set to something other
# than the empty string
sub setToDefaults {
my($data, $skip, $defaults) = @_;
foreach my $key (keys %$data) {
next if $skip->{$key};
$data->{$key} = exists $defaults->{$key} ? $defaults->{$key} : "";
}
}

#################################################################
sub getCommentListing {
my ($type, $value,
$min_comment, $time_period, $cc_all, $cc_time_period, $cid_for_time_period,
$non_admin_limit, $admin_time_limit, $admin_non_time_limit,
$options) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $store_cutoff = $options->{use_uid_cid_cutoff} ? $constants->{store_com_page1_min_cid_for_user_com_cnt} : 0;

my $s_opt = {};
my $num_wanted = 0;
if ($min_comment) {
if ($user->{is_admin}) {
$num_wanted = $admin_non_time_limit;
} else {
$num_wanted = $non_admin_limit;
}
} else {

if ($user->{is_admin}) {
if ($cc_time_period >= $admin_non_time_limit) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $admin_time_limit;
} else {
$num_wanted = $admin_non_time_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
} else {
if ($cc_time_period >= $non_admin_limit ) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $non_admin_limit;
} else {
$num_wanted = $non_admin_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
}
}
if ($type eq "uid") {

my $comments = $reader->getCommentsByUID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
if ($store_cutoff
&& $comments && $cc_all >= $store_cutoff && $min_comment == 0
&& scalar(@$comments) == $num_wanted) {
my $min_cid = 0;
for my $comment (@$comments) {
$min_cid = $comment->{cid}
if !$min_cid || ($comment->{cid} < $min_cid);
}
if ($min_cid && $min_cid =~/^\d+$/) {
$slashdb->setUser($value, {
"com_num_".$num_wanted."_at_or_after_cid" => $min_cid
});
}

}
return $comments;
} elsif ($type eq "ipid"){
return $reader->getCommentsByIPID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} elsif ($type eq "subnetid"){
return $reader->getCommentsBySubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} else {
return $reader->getCommentsByIPIDOrSubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
}
}
createEnvironment();
main();

1;

</pre>

PerlModuleUsers

2014-03-01T19:19:07Z

50.45.173.59:

[[CssWork]] parent

<h2>Functions in users</h2>
<pre>
users.pl:
adminDispatch, changePasswd, checkList, displayForm,
editComm, editHome, editKey, editMiscOpts,
editTags, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveComm,
saveHome, saveMiscOpts, savePasswd, saveTags,
saveUser, saveUserAdmin, setToDefaults, showBookmarks,
showComments, showFireHose, showInfo, showSubmissions,
showTags, tildeEd, topAbusers, validateUser,

</pre>
<pre>
users2.pl:
adminDispatch, checkList, displayForm, editKey,
editMiscOpts, editUser, forceAccountVerify, getCommentListing,
getError, _get_lastjournal, getMessage, getOtherUserParams,
getTitle, getUserAdmin, listAbuses, listBanned,
listReadOnly, mailPasswd, main, newUser,
newUserForm, noUser, previewSlashbox, saveMiscOpts,
saveUser, saveUserAdmin, setToDefaults, showFireHose,
showInfo, tildeEd, topAbusers, validateUser,
</pre>

<h2>Man page for users</h2>
Don't waste your time...

<pre>
# man Slash::Users
No manual entry for Slash::Users
[root@slashcode htdocs]# man Slash::Users2
Users2(3) User Contributed Perl Documentation Users2(3)

NAME
Slash::Users2

SYNOPSIS
use Slash::Users2;

DESCRIPTION
Provides homepages for users.

AUTHOR
Christopher Brown, cbrown@corp.sourcefore.com

SEE ALSO
perl(1).

perl v5.10.1 2014-02-20 Users2(3)

</pre>

<h2>Source of users.pl</h2>
<pre>
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2005 by Open Source Technology Group. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id$

use strict;
use Digest::MD5 'md5_hex';
use Slash;
use Slash::Display;
use Slash::Utility;
use Slash::Constants qw(:messages);

#################################################################
sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();
my $formname = $0;
$formname =~ s/.*\/(\w+)\.pl/$1/;

my $error_flag = 0;
my $formkey = $form->{formkey};

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0 ;
my $postflag = $user->{state}{post};
my $op = lc($form->{op});

# savepasswd is a special case, because once it's called, you
# have to reload the form, and you don't want to do any checks if
# you've just saved.
my $savepass_flag = $op eq 'savepasswd' ? 1 : 0 ;

my $ops = {
admin => {
function => \&adminDispatch,
seclev => 10000, # if this should be lower,
# then something else is
# broken, because it allows
# anyone with this seclev
# to change their own seclev
formname => $formname,
# just in case we need it for something else, we have it ...
checks => [ qw (generate_formkey) ],
},
# userlogin => {
# function => \&showInfo,
# seclev => 1,
# formname => $formname,
# checks => [],
# tab_selected_1 => 'me',
# },
no_user => {
function => \&noUser,
seclev => 0,
formname => $formname,
checks => [],
},
userinfo => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
userfirehose => {
function => \&showFireHose,
seclev => 0,
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'firehose'
},
usersubmissions => {
function => \&showSubmissions,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
usercomments => {
function => \&showComments,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
display => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
# savepasswd => {
# function => \&savePasswd,
# seclev => 1,
# post => 1,
# formname => $formname,
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
saveuseradmin => {
function => \&saveUserAdmin,
seclev => 10000,
post => 1,
formname => $formname,
checks => [],
},
savehome => {
function => \&saveHome,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
savecomm => {
function => \&saveComm,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
saveuser => {
function => \&saveUser,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
# changepasswd => {
# function => \&changePasswd,
# seclev => 1,
# formname => $formname,
# checks => $savepass_flag ? [] :
# [ qw (generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
editmiscopts => {
function => \&editMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
savemiscopts => {
function => \&saveMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
edituser => {
function => \&editUser,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
authoredit => {
function => \&editUser,
seclev => 10000,
formname => $formname,
checks => [],
},
edithome => {
function => \&editHome,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
editcomm => {
function => \&editComm,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
# newuser => {
# function => \&newUser,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# },
newuseradmin => {
function => \&newUserForm,
seclev => 10000,
formname => "${formname}/nu",
checks => [],
},
previewbox => {
function => \&previewSlashbox,
seclev => 0,
formname => $formname,
checks => [],
},
# mailpasswd => {
# function => \&mailPasswd,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check valid_check
# interval_check formkey_check ) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
validateuser => {
function => \&validateUser,
seclev => 1,
formname => $formname,
checks => ['regen_formkey'],
},
showtags => {
function => \&showTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
showbookmarks => {
function => \&showBookmarks,
seclev => 0,
formname => $formname,
checks => [],
tab_selected => 'bookmarks',
},
edittags => {
function => \&editTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
savetags => {
function => \&saveTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
# userclose => {
# function => \&displayForm,
# seclev => 0,
# formname => $formname,
# checks => [],
# },
# newuserform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check
# generate_formkey) ],
# },
# mailpasswdform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check
# generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
displayform => {
function => \&displayForm,
seclev => 0,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'me',
},
listreadonly => {
function => \&listReadOnly,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'readonly',
},
listbanned => {
function => \&listBanned,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'banned',
},
topabusers => {
function => \&topAbusers,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'abusers',
},
listabuses => {
function => \&listAbuses,
seclev => 100,
formname => $formname,
checks => [],
},
force_acct_verify => {
function => \&forceAccountVerify,
seclev => 100,
post => 1,
formname => $formname,
checks => []
}

} ;

# Note this is NOT the default op. "userlogin" or "userinfo" is
# the default op, and it's set either 5 lines down or about 100
# lines down, depending. Yes, that's dumb. Yes, we should
# change it. It would require tracing through a fair bit of logic
# though and I don't have the time right now. - Jamie
$ops->{default} = $ops->{displayform};
for (qw(newuser newuserform mailpasswd mailpasswdform changepasswd savepasswd userlogin userclose)) {
$ops->{$_} = $ops->{default};
}

my $errornote = "";
if ($form->{op} && ! defined $ops->{$op}) {
$errornote .= getError('bad_op', { op => $form->{op}}, 0, 1);
$op = $user->{is_anon} ? 'userlogin' : 'userinfo';
}

if ($op eq 'userlogin' && ! $user->{is_anon}) {
redirect(cleanRedirectUrl($form->{returnto} || ''));
return;

# this will only redirect if it is a section-based rootdir with
# its rootdir different from real_rootdir
} elsif ($op eq 'userclose' && $gSkin->{rootdir} ne $constants->{real_rootdir}) {
redirect($constants->{real_rootdir} . '/login.pl?op=userclose');
return;

} elsif ($op =~ /^(?:newuser|newuserform|mailpasswd|mailpasswdform|changepasswd|savepasswd|userlogin|userclose|displayform)$/) {
my $op = $form->{op};
$op = 'changeprefs' if $op eq 'changepasswd';
$op = 'saveprefs' if $op eq 'savepasswd';
redirect($constants->{real_rootdir} . '/login.pl?op=' . $op);
return;

# never get here now
} elsif ($op eq 'savepasswd') {
my $error_flag = 0;
if ($user->{seclev} < 100) {
for my $check (@{$ops->{savepasswd}{checks}}) {
# the only way to save the error message is to pass by ref
# $errornote and add the message to note (you can't print
# it out before header is called)
$error_flag = formkeyHandler($check, $formname, $formkey, \$errornote);
last if $error_flag;
}
}

if (! $error_flag) {
$error_flag = savePasswd({ noteref => \$errornote }) ;
}
# change op to edituser and let fall through;
# we need to have savePasswd set the cookie before
# header() is called -- pudge
if ($user->{seclev} < 100 && ! $error_flag) {
$slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
$op = $error_flag ? 'changepasswd' : 'userinfo';
$form->{userfield} = $user->{uid};
}

# Figure out what the op really is.
$op = 'userinfo' if (! $form->{op} && ($form->{uid} || $form->{nick}));
$op ||= $user->{is_anon} ? 'userlogin' : 'userinfo';
if ($user->{is_anon} && ( ($ops->{$op}{seclev} > 0) || ($op =~ /^newuserform|mailpasswdform|displayform$/) )) {
redirect($constants->{real_rootdir} . '/login.pl');
return;
} elsif ($user->{seclev} < $ops->{$op}{seclev}) {
$op = 'userinfo';
}
if ($ops->{$op}{post} && !$postflag) {
$op = $user->{is_anon} ? 'default' : 'userinfo';
}

# Print the header and very top stuff on the page. We have
# three ops that (may) end up routing into showInfo(), which
# needs to do some stuff before it calls header(), so for
# those three, don't bother.
my $header;
if ($op !~ /^(userinfo|display|saveuseradmin|admin|userfirehose$)/) {
my $data = {
adminmenu => $ops->{$op}{adminmenu} || 'admin',
tab_selected => $ops->{$op}{tab_selected},
};
header(getMessage('user_header'), '', $data) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $errornote }) if defined $errornote;
$header = 1;
}

if ($constants->{admin_formkeys} || $user->{seclev} < 100) {

my $done = 0;
$done = 1 if $op eq 'savepasswd'; # special case
$formname = $ops->{$op}{formname};

# No need for HumanConf if the constant for it is not
# switched on, or if the user's karma is high enough
# to get out of it. (But for "newuserform," the current
# user's karma doesn't get them out of having to prove
# they're a human for creating a *new* user.)
my $options = {};
if ( !$constants->{plugin}{HumanConf}
|| !$constants->{hc}
|| !$constants->{hc_sw_newuser}
&& ($formname eq 'users/nu' || $op eq 'newuserform')
|| !$constants->{hc_sw_mailpasswd}
&& ($formname eq 'users/mp' || $op eq 'mailpasswdform')
|| $user->{karma} > $constants->{hc_maxkarma}
&& !$user->{is_anon}
&& !($op eq 'newuser' || $op eq 'newuserform')
) {
$options->{no_hc} = 1;
}

DO_CHECKS: while (!$done) {
for my $check (@{$ops->{$op}{checks}}) {
$ops->{$op}{update_formkey} = 1 if $check eq 'formkey_check';
$error_flag = formkeyHandler($check, $formname, $formkey,
undef, $options);
if ($error_flag == -1) {
# Special error: HumanConf failed. Go
# back to the previous op, start over.
if ($op =~ /^(newuser|mailpasswd)$/) {
$op .= "form";
$error_flag = 0;
next DO_CHECKS;
}
} elsif ($error_flag) {
$done = 1;
last;
}
}
$done = 1;
}

if (!$error_flag && !$options->{no_hc}) {
my $hc = getObject("Slash::HumanConf");
$hc->reloadFormkeyHC($formname) if $hc;
}

}

errorLog("users.pl error_flag '$error_flag'") if $error_flag;

# call the method
my $retval;
$retval = $ops->{$op}{function}->({
op => $op,
tab_selected_1 => $ops->{$op}{tab_selected_1} || "",
note => $errornote,
}) if !$error_flag;

return if !$retval;

if ($op eq 'mailpasswd' && $retval) {
$ops->{$op}{update_formkey} = 0;
}

if ($ops->{$op}{update_formkey} && $user->{seclev} < 100 && ! $error_flag) {
# successful save action, no formkey errors, update existing formkey
# why assign to an unused variable? -- pudge
my $updated = $slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
# if there were legit error levels returned from the save methods
# I would have it clear the formkey in case of an error, but that
# needs to be sorted out later
# else { resetFormkey($formkey); }

writeLog($user->{nickname});
footer();
}

#################################################################
sub checkList {
my($string, $len) = @_;
my $constants = getCurrentStatic();

$string =~ s/[^\w,-]//g;
my @items = grep { $_ } split /,/, $string;
$string = join ",", @items;

$len ||= $constants->{checklist_length} || 255;
if (length($string) > $len) {
print getError('checklist_err');
$string = substr($string, 0, $len);
$string =~ s/,?\w*$//g;
} elsif (length($string) < 1) {
$string = '';
}

return $string;
}

#################################################################
sub previewSlashbox {
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();

my $block = $reader->getBlock($form->{bid}, ['title', 'block', 'url']);
my $is_editable = $user->{seclev} >= 1000;

my $title = getTitle('previewslashbox_title', { blocktitle => $block->{title} });
slashDisplay('previewSlashbox', {
width => '100%',
title => $title,
block => $block,
is_editable => $is_editable,
});

print portalbox($constants->{fancyboxwidth}, $block->{title},
$block->{block}, '', $block->{url});
}

#################################################################
sub newUserForm {
my $user = getCurrentUser();
my $suadmin_flag = $user->{seclev} >= 10000;
my $title = getTitle('newUserForm_title');

slashDisplay('newUserForm', {
title => $title,
suadmin_flag => $suadmin_flag,
});
}

#################################################################
sub newUser {
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $plugins = $slashdb->getDescriptions('plugins');
my $title;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

# Check if User Exists
$form->{newusernick} = nickFix($form->{newusernick});
my $matchname = nick2matchname($form->{newusernick});

if (!$form->{email} || $form->{email} !~ /\@/) {
print getError('email_invalid', 0, 1);
return;
} elsif ($form->{email} ne $form->{email2}) {
print getError('email_do_not_match', 0, 1);
return;
} elsif ($slashdb->existsEmail($form->{email})) {
print getError('emailexists_err', 0, 1);
return;
} elsif ($matchname ne '' && $form->{newusernick} ne '') {
if ($constants->{newuser_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
print getError('new user open proxy', {
unencoded_ip => $ENV{REMOTE_ADDR},
port => $is_proxy,
});
return;
}
}
}
my $uid;
my $rootdir = getCurrentSkin('rootdir');

$uid = $slashdb->createUser(
$matchname, $form->{email}, $form->{newusernick}
);
if ($uid) {
my $data = {};
getOtherUserParams($data);

for (qw(tzcode)) {
$data->{$_} = $form->{$_} if defined $form->{$_};
}
$data->{creation_ipid} = $user->{ipid};

$slashdb->setUser($uid, $data) if keys %$data;
$title = getTitle('newUser_title');

$form->{pubkey} = $plugins->{'Pubkey'} ?
strip_nohtml($form->{pubkey}, 1) : '';
print getMessage('newuser_msg', {
suadmin_flag => $suadmin_flag,
title => $title,
uid => $uid
});

if ($form->{newsletter} || $form->{comment_reply} || $form->{headlines}) {
my $messages = getObject('Slash::Messages');
my %params;
$params{MSG_CODE_COMMENT_REPLY()} = MSG_MODE_EMAIL()
if $form->{comment_reply};
$params{MSG_CODE_NEWSLETTER()} = MSG_MODE_EMAIL()
if $form->{newsletter};
$params{MSG_CODE_HEADLINES()} = MSG_MODE_EMAIL()
if $form->{headlines};
$messages->setPrefs($uid, \%params);
}

mailPasswd({ uid => $uid });

return;
} else {
$slashdb->resetFormkey($form->{formkey});
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}

} else {
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}
}

#################################################################
sub mailPasswd {
my($hr) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $uid = $hr->{uid} || 0;

my $slashdb = getCurrentDB();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if (! $uid) {
if ($form->{unickname} =~ /\@/) {
$uid = $slashdb->getUserEmail($form->{unickname});

} elsif ($form->{unickname} =~ /^\d+$/) {
my $tmpuser = $slashdb->getUser($form->{unickname}, ['uid']);
$uid = $tmpuser->{uid};

} else {
$uid = $slashdb->getUserUID($form->{unickname});
}
}

my $user_edit;
my $err_name = '';
my $err_opts = {};
if (!$uid || isAnon($uid)) {
$err_name = 'mailpasswd_notmailed_err';
}
if (!$err_name) {
# Check permissions of _this_ user, not the target
# user, to determine whether this IP is OK'd to
# send the mail to the target user.
# XXXSRCID This should check a separate field like
# 'openproxy' instead of piggybacking off of the
# existing nopost and spammer
my $srcids_to_check = $user->{srcids};
$err_name = 'mailpasswd_readonly_err'
if $reader->checkAL2($srcids_to_check, 'nopost');
}
if (!$err_name) {
$err_name = 'mailpasswd_toooften_err'
if $slashdb->checkMaxMailPasswords($user_edit);
}

if (!$err_name) {
if ($constants->{mailpasswd_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
$err_name = 'mailpasswd open proxy';
$err_opts = { unencoded_ip => $ENV{REMOTE_ADDR}, port => $is_proxy };
}
}

}
}

if ($err_name) {
print getError($err_name, $err_opts);
$slashdb->resetFormkey($form->{formkey});
$form->{op} = 'mailpasswdform';
displayForm();
return(1);
}

my $newpasswd = $slashdb->getNewPasswd($uid);
my $tempnick = $user_edit->{nickname};

my $emailtitle = getTitle('mailPassword_email_title', {
nickname => $user_edit->{nickname}
}, 1);

# Pull out some data passed in with the request. Only the IP
# number is actually trustworthy, the others could be forged.
# Note that we strip the forgeable ones to make sure there
# aren't any "<>" chars which could fool a stupid mail client
# into parsing a plaintext email as HTML.
my $r = Apache->request;
my $remote_ip = $r->connection->remote_ip;
my $xff = $r->header_in('X-Forwarded-For') || '';
$xff =~ s/\s+/ /g;
$xff = substr(strip_notags($xff), 0, 20);
my $ua = $r->header_in('User-Agent') || '';
$ua =~ s/\s+/ /g;
$ua = substr(strip_attribute($ua), 0, 60);

my $msg = getMessage('mailpasswd_msg', {
newpasswd => $newpasswd,
tempnick => $tempnick,
remote_ip => $remote_ip,
x_forwarded_for => $xff,
user_agent => $ua,
}, 1);

doEmail($uid, $emailtitle, $msg) if $user_edit->{nickname};
print getMessage('mailpasswd_mailed_msg', { name => $user_edit->{nickname} });
$slashdb->setUserMailPasswd($user_edit);
}

#################################################################
sub showSubmissions {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my($uid, $nickname);

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if ($form->{uid} or $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$nickname = $reader->getUser($uid, 'nickname');
} else {
$nickname = $user->{nickname};
$uid = $user->{uid};
}

my $storycount = $reader->countStoriesBySubmitter($uid);
my $stories = $reader->getStoriesBySubmitter(
$uid,
$constants->{user_submitter_display_default}
) unless !$storycount;

slashDisplay('userSub', {
nick => $nickname,
uid => $uid,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
stories => $stories,
storycount => $storycount,
});
}

#################################################################
sub showComments {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $commentstruct = [];
my($uid, $nickname);

my $user_edit;
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$user_edit = $reader->getUser($uid);
} else {
$uid = $user->{uid};
$user_edit = $user;
}
$nickname = $user_edit->{nickname};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};
my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $commentcount = $reader->countCommentsByUID($uid);
my $comments = $reader->getCommentsByUID(
$uid, $comments_wanted, $min_comment
) if $commentcount;

if (ref($comments) eq 'ARRAY') {
my $kinds = $reader->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
# This works since $sid is numeric.
$comment->{replies} = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is ok, since with all luck we will not be hitting the DB
# ...however, the "sid" parameter here must be the string
# based SID from either the "stories" table or from
# pollquestions.
my $discussion = $reader->getDiscussion($comment->{sid});

if ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$comment->{type} = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$comment->{type} = 'poll';
} else {
$comment->{type} = 'story';
}
$comment->{disc_title} = $discussion->{title};
$comment->{url} = $discussion->{url};
}
}

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
slashDisplay('userCom', {
nick => $nickname,
useredit => $user_edit,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
commentstruct => $comments,
commentcount => $commentcount,
min_comment => $min_comment,
reasons => $mod_reader->getReasons(),
karma_flag => 0,
admin_flag => $user->{is_admin},
});
}

sub noUser {
print getData("no_user");
}

sub showFireHose {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $uid = $form->{uid} || $user->{uid};
my $user_edit = $reader->getUser($uid);

$user->{state}{firehose_page} = "user";
$user->{state}{firehose_user_uid} = $uid;

my $firehose = getObject("Slash::FireHose");
header(getMessage('userfirehose_header', { useredit => $user_edit })) or return;
print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

$form->{mode} = "full";
$form->{color} = "black";
$form->{orderby} = "createtime";
$form->{orderdir} = "DESC";
$form->{skipmenu} = 1;
$form->{duration} = -1;
$form->{fhfilter} = "\"user:$user_edit->{nickname}\"";
$form->{pause} = 1;
$form->{listonly} = 1;
$form->{legacy} = 1;

my $fhbox = $firehose->listView({ fh_page => 'users.pl', tab => 'userfirehose', user_view => $user_edit });
slashDisplay("userFireHose", { firehosebox => $fhbox, uid => $uid, useredit => $user_edit });
}

#################################################################
# arhgghgh. I love torture. I love pain. This subroutine satisfies
# these needs of mine
sub showInfo {
my($hr) = @_;
my $id = $hr->{uid} || 0;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;
my($title, $admin_block, $fieldkey) = ('', '', '');
my $comments = undef;
my $commentcount = 0;
my $commentcount_time = 0;
my $commentstruct = [];
my $requested_user = {};
my $time_period = $constants->{admin_comment_display_days} || 30;
my $cid_for_time_period = $reader->getVar("min_cid_last_$time_period\_days",'value', 1) || 0;
my $admin_time_period_limit = $constants->{admin_daysback_commentlimit} || 100;
my $admin_non_time_limit = $constants->{admin_comment_subsequent_pagesize} || 24;

my($points, $nickmatch_flag, $uid, $nick);
my($mod_flag, $karma_flag, $n) = (0, 0, 0);

if ($admin_flag
&& (defined($form->{show_m2s}) || defined($form->{show_m1s}) || defined($form->{m2_listing})))
{
my $update_hr = {};
$update_hr->{mod_with_comm} = $form->{show_m1s}
if defined $form->{show_m1s};
$update_hr->{m2_with_mod} = ($constants->{m2} ? $form->{show_m2s} : undef)
if defined $form->{show_m2s};
$update_hr->{show_m2_listing} = ($constants->{m2} ? $form->{m2_listing} : undef)
if defined $form->{m2_listing};
$slashdb->setUser($user->{uid}, $update_hr);
}

if (!$id && !$form->{userfield}) {
if ($form->{uid} && ! $id) {
$fieldkey = 'uid';
($uid, $id) = ($form->{uid}, $form->{uid});
$requested_user = isAnon($uid) ? $user : $reader->getUser($id);
$nick = $requested_user->{nickname};
$form->{userfield} = $nick if $admin_flag;

} elsif ($form->{nick} && ! $id) {
$fieldkey = 'nickname';
($nick, $id) = ($form->{nick}, $form->{nick});
$uid = $reader->getUserUID($id);
if (isAnon($uid)) {
$requested_user = $user;
($nick, $uid, $id) = @{$user}{qw(nickname uid nickname)};
} else {
$requested_user = $reader->getUser($uid);
}
$form->{userfield} = $uid if $admin_flag;

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
$form->{userfield} = $uid if $admin_flag;
}

} elsif ($user->{is_admin}) {
$id ||= $form->{userfield} || $user->{uid};
if ($id =~ /^[0-9a-f]{16}$/) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^\d+$/) {
# If it's longer than a uid could possibly be, it
# must be a srcid. The uid column right now is a
# MEDIUMINT (max 16M) but at most might someday
# be an INT (max 4G).
if (length($id) > 11) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} else {
$fieldkey = 'uid';
$requested_user = $reader->getUser($id);
$uid = $requested_user->{uid};
$nick = $requested_user->{nickname};
if ((my $conflict_id = $reader->getUserUID($id)) && $form->{userinfo}) {
slashDisplay('showInfoConflict', {
op => 'userinfo',
id => $uid,
nick => $nick,
conflict_id => $conflict_id
});
return 1;
}
}

} elsif (length($id) == 32) {
$requested_user->{nonuid} = 1;
if ($form->{fieldname}
&& $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$fieldkey = $form->{fieldname};
} else {
$fieldkey = 'md5id';
}
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^(\d{1,3}\.\d{1,3}.\d{1,3}\.0)$/
|| $id =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3})\.?$/) {
$fieldkey = 'subnetid';
$requested_user->{subnetid} = $1;
$requested_user->{subnetid} .= '.0' if $requested_user->{subnetid} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}$/;
$requested_user->{nonuid} = 1;
$requested_user->{subnetid} = md5_hex($requested_user->{subnetid});

} elsif ($id =~ /^([\d+\.]+)$/) {
$fieldkey = 'ipid';
$requested_user->{nonuid} = 1;
$id ||= $1;
$requested_user->{ipid} = md5_hex($1);

} elsif ($id =~ /^(.*@.*\..*?)$/) {
# check for email addy, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserEmail($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};

} else { # go by nickname, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserUID($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};
}

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
}

# Can't get user data for the anonymous user.
if ($fieldkey eq 'uid' && isAnon($uid)) {
header(getMessage('user_header')) or return;
return displayForm();
}

my $user_change = { };
if ($fieldkey eq 'uid' && !$user->{is_anon}
&& $uid != $user->{uid} && !isAnon($uid)) {
# Store the fact that this user last looked at that user.
# For maximal convenience in stalking.
$user_change->{lastlookuid} = $uid;
$user_change->{lastlooktime} = time;
$user->{lastlookuid} = $uid;
$user->{lastlooktime} = time;
$hr->{tab_selected_1} = 'otheruser';
}

# showInfo's header information is delayed until here, because
# the target user's info is not available until here.
vislenify($requested_user);
header(getMessage('user_header', { useredit => $requested_user, fieldkey => $fieldkey })) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $hr->{note} }) if defined $hr->{note};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};

my($netid, $netid_vis) = ('', '');

my $comment_time;
my $non_admin_limit = $comments_wanted;

if ($requested_user->{nonuid}) {
$requested_user->{fg} = $user->{fg};
$requested_user->{bg} = $user->{bg};

if ($requested_user->{ipid}) {
$netid = $requested_user->{ipid} ;

} elsif ($requested_user->{md5id}) {
$netid = $requested_user->{md5id} ;

} elsif ($requested_user->{srcid}) {
$netid = $requested_user->{srcid} ;
} else {
$netid = $requested_user->{subnetid} ;
}

my $data = {
id => $id,
md5id => $netid,
};
vislenify($data); # add $data->{md5id_vis}
$netid_vis = $data->{md5id_vis};

$title = getTitle('user_netID_user_title', $data);

$admin_block = getUserAdmin($netid, $fieldkey, 0) if $admin_flag;

if ($form->{fieldname}) {
if ($form->{fieldname} eq 'ipid') {
$commentcount = $reader->countCommentsByIPID($netid);
$commentcount_time = $reader->countCommentsByIPID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($form->{fieldname} eq 'subnetid') {
$commentcount = $reader->countCommentsBySubnetID($netid);
$commentcount_time = $reader->countCommentsBySubnetID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;

} else {
delete $form->{fieldname};
}
}
if (!defined($comments)) {
# Last resort; here for backwards compatibility mostly.
my $type;
($commentcount,$type) = $reader->countCommentsByIPIDOrSubnetID($netid);
$commentcount_time = $reader->countCommentsByIPIDOrSubnetID($netid, { cid_at_or_after => $cid_for_time_period });
if ($type eq "ipid") {
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($type eq "subnetid") {
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
}
}
} else {
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$commentcount = $reader->countCommentsByUID($requested_user->{uid});
$commentcount_time = $reader->countCommentsByUID($requested_user->{uid}, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("uid", $requested_user->{uid},
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit,
{ use_uid_cid_cutoff => 1 })
if $commentcount;
$netid = $requested_user->{uid};
}

# Grab the nicks of the uids we have, we're going to be adding them
# into the struct.
my @users_extra_cols_wanted = qw( nickname );
my @discussions_extra_cols_wanted = qw( type );
my $uid_hr = { };
my $sid_hr = { };
if ($comments && @$comments) {
my %uids = ();
my %sids = ();
for my $c (@$comments) {
$uids{$c->{uid}}++;
$sids{$c->{sid}}++;
}
my $uids = join(", ", sort { $a <=> $b } keys %uids);
my $sids = join(", ", sort { $a <=> $b } keys %sids);
$uid_hr = $reader->sqlSelectAllHashref(
"uid",
"uid, " . join(", ", @users_extra_cols_wanted),
"users",
"uid IN ($uids)"
);

$sid_hr = $reader->sqlSelectAllHashref(
"id",
"id, " . join(", ", @discussions_extra_cols_wanted),
"discussions",
"id IN ($sids)"
);

}

my $cids_seen = {};
my $kinds = $slashdb->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
$cids_seen->{$comment->{cid}}++;
my $type;
# This works since $sid is numeric.
my $replies = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is cached.
my $discussion = $reader->getDiscussion($comment->{sid});
#use Data::Dumper; if ($discussion && !$discussion->{dkid}) { print STDERR scalar(gmtime) . " users.pl discussion but no dkid: " . Dumper($discussion) }
if (!$discussion || !$discussion->{dkid}) {
# A comment with no accompanying discussion;
# basically we pretend it doesn't exist.
next;
} elsif ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$type = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$type = 'poll';
} else {
$type = 'story';
}

$comment->{points} += $user->{karma_bonus}
if $user->{karma_bonus} && $comment->{karma_bonus} eq 'yes';
$comment->{points} += $user->{subscriber_bonus}
if $user->{subscriber_bonus} && $comment->{subscriber_bonus} eq 'yes';

# fix points in case they are out of bounds
$comment->{points} = $constants->{comment_minscore} if $comment->{points} < $constants->{comment_minscore};
$comment->{points} = $constants->{comment_maxscore} if $comment->{points} > $constants->{comment_maxscore};
vislenify($comment);
my $data = {
pid => $comment->{pid},
url => $discussion->{url},
disc_type => $type,
disc_title => $discussion->{title},
disc_time => $discussion->{ts},
sid => $comment->{sid},
cid => $comment->{cid},
subj => $comment->{subject},
cdate => $comment->{date},
pts => $comment->{points},
reason => $comment->{reason},
uid => $comment->{uid},
replies => $replies,
ipid => $comment->{ipid},
ipid_vis => $comment->{ipid_vis},
karma => $comment->{karma},
tweak => $comment->{tweak},
tweak_orig => $comment->{tweak_orig},

};
#Karma bonus time

for my $col (@users_extra_cols_wanted) {
$data->{$col} = $uid_hr->{$comment->{uid}}{$col} if defined $uid_hr->{$comment->{uid}}{$col};
}
for my $col(@discussions_extra_cols_wanted) {
$data->{$col} = $sid_hr->{$comment->{sid}}{$col} if defined $sid_hr->{$comment->{sid}}{$col};
}
push @$commentstruct, $data;
}
# if (grep { !defined($_->{disc_time}) || !defined($_->{sid}) } @$commentstruct) { use Data::Dumper; print STDERR "showInfo undef in commentstruct for id=$id: " . Dumper($commentstruct) }
# Sort so the chosen group of comments is sorted by discussion
@$commentstruct = sort {
$b->{disc_time} cmp $a->{disc_time} || $b->{sid} <=> $a->{sid}
} @$commentstruct
unless $user->{user_comment_sort_type} && $user->{user_comment_sort_type} == 1;

my $cid_list = [ keys %$cids_seen ];
my $cids_to_mods = {};
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
if ($constants->{m1} && $admin_flag && $constants->{show_mods_with_comments}) {
my $comment_mods = $mod_reader->getModeratorCommentLog("DESC",
$constants->{mod_limit_with_comments}, "cidin", $cid_list);

# Loop through mods and group them by the sid they're attached to
while (my $mod = shift @$comment_mods) {
push @{$cids_to_mods->{$mod->{cid}}}, $mod;
}
}

my $sub_limit = ((($admin_flag || $user->{uid} == $requested_user->{uid}) ? $constants->{submissions_all_page_size} : $constants->{submissions_accepted_only_page_size}) || "");

my $sub_options = { limit_days => 365 };
$sub_options->{accepted_only} = 1 if !$admin_flag && $user->{uid} != $requested_user->{uid};

my $sub_field = $form->{fieldname};

my ($subcount, $ret_field) = $reader->countSubmissionsByNetID($netid, $sub_field)
if $requested_user->{nonuid};
my $submissions = $reader->getSubmissionsByNetID($netid, $ret_field, $sub_limit, $sub_options)
if $requested_user->{nonuid};

my $ipid_hoursback = $constants->{istroll_ipid_hours} || 72;
my $uid_hoursback = $constants->{istroll_uid_hours} || 72;

if ($requested_user->{nonuid}) {
slashDisplay('netIDInfo', {
title => $title,
id => $id,
useredit => $requested_user,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
admin_flag => $admin_flag,
admin_block => $admin_block,
netid => $netid,
netid_vis => $netid_vis,
reasons => $mod_reader->getReasons(),
subcount => $subcount,
submissions => $submissions,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time
});

} else {
if (! $requested_user->{uid}) {
print getError('userinfo_idnf_err', { id => $id, fieldkey => $fieldkey});
return 1;
}

$karma_flag = 1 if $admin_flag;
$requested_user->{nick_plain} = $nick ||= $requested_user->{nickname};
$nick = strip_literal($nick);

if ($requested_user->{uid} == $user->{uid}) {
$karma_flag = 1;
$nickmatch_flag = 1;
$points = $requested_user->{points};

$mod_flag = 1 if $points > 0;

$title = getTitle('userInfo_main_title', { nick => $nick, uid => $uid });

} else {
$title = getTitle('userInfo_user_title', { nick => $nick, uid => $uid });
}

my $lastjournal = _get_lastjournal($uid);

my $subcount = $reader->countSubmissionsByUID($uid);

my $submissions = $reader->getSubmissionsByUID($uid, $sub_limit, $sub_options);
my $metamods;
if ($constants->{m2} && $admin_flag) {
my $metamod_reader = getObject('Slash::Metamod', { db_type => 'reader' });
$metamods = $metamod_reader->getMetamodlogForUser($uid, 30);
}

my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });
my $tagshist = [];
if ($tags_reader && $user->{is_admin}) {
$tagshist = $tags_reader->getAllTagsFromUser($requested_user->{uid}, { orderby => 'created_at', orderdir => 'DESC', limit => 30, include_private => 1 });
}

slashDisplay('userInfo', {
title => $title,
uid => $uid,
useredit => $requested_user,
points => $points,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
nickmatch_flag => $nickmatch_flag,
mod_flag => $mod_flag,
karma_flag => $karma_flag,
admin_block => $admin_block,
admin_flag => $admin_flag,
suadmin_flag => $suadmin_flag,
reasons => $mod_reader->getReasons(),
lastjournal => $lastjournal,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time,
submissions => $submissions,
subcount => $subcount,
metamods => $metamods,
tagshist => $tagshist
});
}

if ($user_change && %$user_change) {
$slashdb->setUser($user->{uid}, $user_change);
}

return 1;
}

sub _get_lastjournal {
my($uid) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $lastjournal = undef;
if (my $journal = getObject('Slash::Journal', { db_type => 'reader' })) {
my $j = $journal->getsByUid($uid, 0, 1);
if ($j && @$j) {
# Yep, there are 1 or more journals... get the first.
$j = $j->[0];
}
if ($j && @$j) {
# Yep, that first journal exists and has entries...
# convert from stupid numeric array to a hashref.
my @field = qw( date article description id
posttype tid discussion );
$lastjournal = { };
for my $i (0..$#field) {
$lastjournal->{$field[$i]} = $j->[$i];
}
}
}

if ($lastjournal) {

# Strip the article field for display.
$lastjournal->{article} = strip_mode($lastjournal->{article},
$lastjournal->{posttype});

# For display, include a reduced-size version, where the
# size is based on the user's maxcomment size (which
# defaults to 4K) and can't have too many line-breaking
# tags.
my $art_shrunk = $lastjournal->{article};
my $maxsize = int($constants->{default_maxcommentsize} / 25);
$maxsize = 80 if $maxsize < 80;
$maxsize = 600 if $maxsize > 600;
$art_shrunk = chopEntity($art_shrunk, $maxsize);

my $approvedtags_break = $constants->{approvedtags_break} || [];
my $break_tag = join '|', @$approvedtags_break;
if (scalar(() = $art_shrunk =~ /<(?:$break_tag)>/gi) > 2) {
$art_shrunk =~ s/\A
(
(?: <(?:$break_tag)> )?
.*? <(?:$break_tag)>
.*?
) <(?:$break_tag)>.*
/$1/six;
if (length($art_shrunk) < 15) {
# This journal entry has too much whitespace
# in its first few chars; scrap it.
undef $art_shrunk;
}
$art_shrunk = chopEntity($art_shrunk) if defined($art_shrunk);
}

if (defined $art_shrunk) {
if (length($art_shrunk) < length($lastjournal->{article})) {
$art_shrunk .= " ...";
}
$art_shrunk = strip_html($art_shrunk);
$art_shrunk = balanceTags($art_shrunk);
}

$lastjournal->{article_shrunk} = $art_shrunk;

if ($lastjournal->{discussion}) {
$lastjournal->{commentcount} = $reader->getDiscussion(
$lastjournal->{discussion}, 'commentcount');
}
}
return $lastjournal;
}

#####################################################################
sub validateUser {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

# If we aren't expiring accounts in some way, we don't belong here.
if (! allowExpiry()) {
displayForm();
return;
}

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

# Since we are here, if the minimum values for the comment trigger and
# the day trigger are -1, then they should be reset to 1.
$constants->{min_expiry_comm} = $constants->{min_expiry_days} = 1
if $constants->{min_expiry_comm} <= 0 ||
$constants->{min_expiry_days} <= 0;

if ($user->{is_anon} || $user->{registered}) {
if ($user->{is_anon}) {
print getError('anon_validation_attempt');
displayForm();
return;
} else {
print getMessage('no_registration_needed')
if !$user->{reg_id};
showInfo({ uid => $user->{uid} });
return;
}
# Maybe this should be taken care of in a more centralized location?
} elsif ($user->{reg_id} eq $form->{id}) {
# We have a user and the registration IDs match. We are happy!
my($maxComm, $maxDays) = ($constants->{max_expiry_comm},
$constants->{max_expiry_days});
my($userComm, $userDays) =
($user->{user_expiry_comm}, $user->{user_expiry_days});

# Ensure both $userComm and $userDays aren't -1 (expiry has
# just been turned on).
$userComm = $constants->{min_expiry_comm}
if $userComm < $constants->{min_expiry_comm};
$userDays = $constants->{min_expiry_days}
if $userDays < $constants->{min_expiry_days};

my $exp = $constants->{expiry_exponent};

# Increment only the trigger that was used.
my $new_comment_expiry = ($maxComm > 0 && $userComm > $maxComm)
? $maxComm
: $userComm * (($user->{expiry_comm} < 0)
? $exp
: 1
);
my $new_days_expiry = ($maxDays > 0 && $userDays > $maxDays)
? $maxDays
: $userDays * (($user->{expiry_days} < 0)
? $exp
: 1
);

# Reset re-registration triggers for user.
$slashdb->setUser($user->{uid}, {
'expiry_comm' => $new_comment_expiry,
'expiry_days' => $new_days_expiry,
'user_expiry_comm' => $new_comment_expiry,
'user_expiry_days' => $new_days_expiry,
});

# Handles rest of re-registration process.
setUserExpired($user->{uid}, 0);
}

slashDisplay('regResult');
}

#####################################################################
sub editTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = $slashdb->getUser($user->{uid});
my $title = getTitle('editTags_title');

slashDisplay('editTags', {
user_edit => $user_edit,
title => $title,
note => $note,
});
}

sub saveTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

$slashdb->setUser($user->{uid}, {
tags_turnedoff => $form->{showtags} ? '' : 1 });
editTags({ note => getMessage('savetags_msg') });
}

#####################################################################
sub showTags {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

# XXX if $user_edit->{acl}{spammer}, either abort or put ref=nofollow in all links

my $tagname = $form->{tagname} || '';
$tagname = '' if !$tags_reader->tagnameSyntaxOK($tagname);

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tagnameid = $tags_reader->getTagnameidFromNameIfExists($tagname);
if ($tagnameid) {
# Show all user's tags for one particular tagname.
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid},
{ tagnameid => $tagnameid });
my $tags_ar = $tags_hr->{$tagname} || [ ];
slashDisplay('usertagsforname', {
useredit => $user_edit,
tagname => $tagname,
tags => $tags_ar,
});

} else {
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid});
my $num_tags = 0;
for my $tn (keys %$tags_hr) {
$num_tags += scalar @{ $tags_hr->{$tn} };
}
my $cutoff = $constants->{tags_usershow_cutoff} || 200;
if ($num_tags <= $cutoff) {
# Show all user's tags, grouped by tagname.
slashDisplay('usertags', {
useredit => $user_edit,
tags_grouped => $tags_hr,
});
} else {
# Show all user's tagnames, with links to show all
# tags for each particular tagname.
my $tagname_ar = [ sort keys %$tags_hr ];
slashDisplay('usertagnames', {
useredit => $user_edit,
tagnames => $tagname_ar,
});
}
}
}

#################################################################
sub showBookmarks {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tags_ar = $tags_reader->getGroupedTagsFromUser($user_edit->{uid}, { type => "urls", only_bookmarked => 1 });

slashDisplay('userbookmarks', {
useredit => $user_edit,
tags_grouped => $tags_ar,
});
}

#################################################################
sub editKey {
my($uid) = @_;

my $slashdb = getCurrentDB();

my $pubkey = $slashdb->getUser($uid, 'pubkey');
my $editkey = slashDisplay('editKey', { pubkey => $pubkey }, 1);
return $editkey;
}

#################################################################
# We arrive here without header() having been called. Some of the
# functions we dispatch to call it, some do not.
sub adminDispatch {
my($hr) = @_;
my $form = getCurrentForm();
my $op = $hr->{op} || $form->{op};

if ($op eq 'authoredit') {
# editUser() does not call header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
editUser($hr);

} elsif ($form->{saveuseradmin}) {
# saveUserAdmin() tail-calls showInfo(), which calls
# header(), so we need to NOT.
saveUserAdmin($hr);

} elsif ($form->{userinfo}) {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);

} elsif ($form->{userfield}) {
# none of these calls header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
if ($form->{edituser}) {
editUser($hr);

} elsif ($form->{edithome}) {
editHome($hr);

} elsif ($form->{editcomm}) {
editComm($hr);

} elsif ($form->{changepasswd}) {
changePasswd($hr);
}

} else {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);
}
}

#################################################################
sub tildeEd {
my($user_edit) = @_;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my %story023_default = (
author => { },
nexus => { },
topic => { },
);

my %prefs = ( );
for my $field (qw(
story_never_topic story_never_author story_never_nexus
story_always_topic story_always_author story_always_nexus story_brief_always_nexus
story_full_brief_nexus story_full_best_nexus story_brief_best_nexus
)) {
for my $id (
grep /^\d+$/,
split /,/,
($user_edit->{$field} || "")
) {
$prefs{$field}{$id} = 1;
}
}
#print STDERR scalar(localtime) . " prefs: " . Dumper(\%prefs);

# Set up $author_hr, @aid_order, and $story023_default{author}.

my $author_hr = $reader->getDescriptions('authors');
my @aid_order = sort { lc $author_hr->{$a} cmp lc $author_hr->{$b} } keys %$author_hr;
for my $aid (@aid_order) {
if ($prefs{story_never_author}{$aid}) {
$story023_default{author}{$aid} = 0;
} elsif ($prefs{story_always_author}{$aid}) {
$story023_default{author}{$aid} = 3;
} else {
$story023_default{author}{$aid} = 2;
}
}

# Set up $topic_hr, @topictid_order, and $story023_default{topic}.

my $topic_hr = $reader->getDescriptions('non_nexus_topics-storypickable');
my @topictid_order = sort { lc $topic_hr->{$a} cmp lc $topic_hr->{$b} } keys %$topic_hr;
for my $tid (@topictid_order) {
if ($prefs{story_never_topic}{$tid}) {
$story023_default{topic}{$tid} = 0;
} elsif ($prefs{story_always_topic}{$tid}) {
$story023_default{topic}{$tid} = 3;
} else {
$story023_default{topic}{$tid} = 2;
}
}

# Set up $nexus_hr, @nexustid_order, and $story023_default{nexus}.
my $topic_tree = $reader->getTopicTree();
my $nexus_tids_ar = $reader->getStorypickableNexusChildren($constants->{mainpage_nexus_tid}, 1);
my $nexus_hr = { };

for my $tid (@$nexus_tids_ar) {
$nexus_hr->{$tid} = $topic_tree->{$tid}{textname};
}
my @nexustid_order = sort {($b == $constants->{mainpage_nexus_tid}) <=> ($a == $constants->{mainpage_nexus_tid}) ||
lc $nexus_hr->{$a} cmp lc $nexus_hr->{$b} } keys %$nexus_hr;

my $mp_disp_nexuses = $reader->getMainpageDisplayableNexuses();
my %mp_disp_nexus = ( map { ($_, 1) } @$mp_disp_nexuses );
for my $tid (@nexustid_order) {
if ($prefs{story_never_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 0;
} elsif ($prefs{story_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 5;
} elsif ($prefs{story_full_brief_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 4;
} elsif ($prefs{story_brief_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 3;
} elsif ($prefs{story_full_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 2;
} elsif ($prefs{story_brief_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 1;
} else {
# If brief_sectional_mainpage is set, then all
# nexuses in getMainpageDisplayableNexuses are,
# by default, shown as brief on the mainpage.
if ($constants->{brief_sectional_mainpage}
&& $mp_disp_nexus{$tid}
) {
$story023_default{nexus}{$tid} = 4;
} else {
$story023_default{nexus}{$tid} = 2;
}
}
}

# Set up $section_descref and $box_order, used to decide which
# slashboxes appear. Really this doesn't seem to have anything
# to do with sections, so I'm not sure why it's called
# "section"_descref.

my $section_descref = { };
my $box_order;
my $sections_description = $reader->getSectionBlocks();

# the names of all the boxes in @{$skinBoxes->{$constants->{mainpage_skid}}}
# should be unioned into sections_description. whether the
# values are 0 or 1 is calculated correctly, but we're
# missing some 0's that should appear, I think, under
# some circumstances. ah heck, the whole concept of
# sectional slashboxes should be redone (why the heck
# do we have skinname_more instead of just a block
# called olderstories?)

my $slashboxes_hr = { };
my $slashboxes_textlist = $user_edit->{slashboxes};
if (!$slashboxes_textlist) {
# Use the default.
my($boxes, $skinBoxes) = $reader->getPortalsCommon();
$slashboxes_textlist = join ",", @{$skinBoxes->{$constants->{mainpage_skid}}};
}
for my $bid (
map { /^'?([^']+)'?$/; $1 }
split /,/,
$slashboxes_textlist
) {
$slashboxes_hr->{$bid} = 1;
}
for my $ary (sort { lc $a->[1] cmp lc $b->[1]} @$sections_description) {
my($bid, $title, $boldflag) = @$ary;
push @$box_order, $bid;
$section_descref->{$bid}{checked} =
$slashboxes_hr->{$bid}
? $constants->{markup_checked_attribute}
: '';
$title =~ s/<(.*?)>//g;
$section_descref->{$bid}{title} = $title;
}

my $dynamic_blocks = getObject("Slash::DynamicBlocks");
my $extra_blocks = [];
if ($dynamic_blocks) {
my $userblocks = $dynamic_blocks->getUserBlocks("name", $user_edit->{uid}) || {};
my $friendblocks = $dynamic_blocks->getFriendBlocks("name", $user_edit->{uid}) || {};
push(@$extra_blocks, grep { $slashboxes_textlist =~ $_; } (keys(%$userblocks), keys(%$friendblocks)));
}

# Userspace.
my $userspace = $user_edit->{mylinks} || "";

# Titles of stuff.
my $tildeEd_title = getTitle('tildeEd_title');
my $criteria_msg = getMessage('tilded_criteria_msg');
my $customize_title = getTitle('tildeEd_customize_title');
my $tilded_customize_msg = getMessage('tilded_customize_msg',
{ userspace => $userspace });
my $tilded_box_msg = getMessage('tilded_box_msg');

my $tilde_ed = slashDisplay('tildeEd', {
user_edit => $user_edit,
title => $tildeEd_title,
criteria_msg => $criteria_msg,
customize_title => $customize_title,
tilded_customize_msg => $tilded_customize_msg,
tilded_box_msg => $tilded_box_msg,

story023_default => \%story023_default,
authorref => $author_hr,
aid_order => \@aid_order,
topicref => $topic_hr,
topictid_order => \@topictid_order,
nexusref => $nexus_hr,
nexustid_order => \@nexustid_order,

section_descref => $section_descref,
box_order => $box_order,

userspace => $userspace,
extra_blocks => $extra_blocks,
}, 1);

return $tilde_ed;
}

#################################################################
sub changePasswd {
my($hr) = @_;
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = {};
my $title;
my $suadmin_flag = ($user->{seclev} >= 10000) ? 1 : 0;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

my $id = '';
if ($admin_flag) {
if ($form->{userfield}) {
$id ||= $form->{userfield};
if ($id =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$id = $user_edit->{uid};
}
} else {
$id = $user->{uid};
$user_edit = $user;
}

$admin_block = getUserAdmin($id, 'uid', 1) if $admin_flag;

# print getMessage('note', { note => $form->{note}}) if $form->{note};

$title = getTitle('changePasswd_title', { user_edit => $user_edit });

my $session = $slashdb->getDescriptions('session_login');
my $session_select = createSelect('session_login', $session, $user_edit->{session_login}, 1);

my $clocation = $slashdb->getDescriptions('cookie_location');
my @clocation_order = grep { exists $clocation->{$_} } qw(none classbid subnetid ipid);
my $clocation_select = createSelect('cookie_location', $clocation,
$user_edit->{cookie_location}, 1, 0, \@clocation_order
);

my $got_oldpass = 0;
if ($form->{oldpass}) {
my $return_uid = $slashdb->getUserAuthenticate($id, $form->{oldpass}, 1);
$got_oldpass = 1 if $return_uid && $id == $return_uid;
}

slashDisplay('changePasswd', {
useredit => $user_edit,
admin_flag => $suadmin_flag,
title => $title,
session => $session_select,
clocation => $clocation_select,
admin_block => $admin_block,
got_oldpass => $got_oldpass
});
}

#################################################################
sub editUser {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $plugins = $slashdb->getDescriptions('plugins');

my $user_edit = {};
my($admin_block, $title);
my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $fieldkey;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
$id = $user_edit->{uid};
}
return if isAnon($user_edit->{uid}) && ! $admin_flag;

$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;
$user_edit->{homepage} ||= "http://";

# Remove domain tags, they'll be added back in, in saveUser.
for my $dat (@{$user_edit}{qw(sig bio)}) {
$dat = parseDomainTags($dat, 0, 1);
}

$title = getTitle('editUser_title', { user_edit => $user_edit});

my $editkey = "";
$editkey = editKey($user_edit->{uid}) if $fieldkey eq 'uid' && $plugins->{PubKey};

slashDisplay('editUser', {
useredit => $user_edit,
admin_flag => $admin_flag,
title => $title,
editkey => $editkey,
admin_block => $admin_block,
note => $note,
});
}

#################################################################
sub editHome {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my($formats, $title, $tzformat_select);
my $user_edit = {};
my $fieldkey;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " user_edit: " . Dumper($user_edit);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editHome_title');

return if $user->{seclev} < 100 && isAnon($user_edit->{uid});

$formats = $slashdb->getDescriptions('dateformats');
$tzformat_select = createSelect('tzformat', $formats, $user_edit->{dfid}, 1);

my $lb_check = $user_edit->{lowbandwidth} ? $constants->{markup_checked_attribute} : '';
my $sd_check = $user_edit->{simpledesign} ? $constants->{markup_checked_attribute} : '';
my $i_check = $user_edit->{noicons} ? $constants->{markup_checked_attribute} : '';
my $w_check = $user_edit->{willing} ? $constants->{markup_checked_attribute} : '';
my $classic_check = $user_edit->{index_classic} ? $constants->{markup_checked_attribute} : '';

my $tilde_ed = tildeEd($user_edit);

slashDisplay('editHome', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
tzformat_select => $tzformat_select,
i_check => $i_check,
w_check => $w_check,
lb_check => $lb_check,
sd_check => $sd_check,
classic_check => $classic_check,
tilde_ed => $tilde_ed,
note => $note,
});
}

#################################################################
sub editComm {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $user_edit = {};
my($formats, $commentmodes_select, $commentsort_select, $title,
$uthreshold_select, $highlightthresh_select, $posttype_select,
$bytelimit_select);

my $admin_block = '';
my $fieldkey;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $admin_flag = $user->{is_admin} ? 1 : 0;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}

my $hi = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $lo = -$hi;
my @range = map { $_ > 0 ? "+$_" : $_ } ($lo .. $hi);

my @reasons = ( );
my %reason_select = ( );
if ($constants->{m1}) {
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}
# Reason modifiers
for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
$reason_select{$reason_name} = createSelect(
$key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}
}

# Zoo relation modifiers
my %people_select;
my @people = qw(friend foe anonymous fof eof freak fan);
for (@people) {
my $key = "people_bonus_$_";
$people_select{$_} = createSelect($key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}

# New-user modifier
my $new_user_bonus_select = createSelect('new_user_bonus', \@range,
$user_edit->{new_user_bonus} || 0, 1, 1);
my $new_user_percent_select = createSelect('new_user_percent',
[( 1..15, 20, 25, 30, 35, 40, 45, 50, 55,
60, 65, 70, 75, 80, 85, 90, 95 )],
$user_edit->{new_user_percent} || 100, 1, 1);
# Karma modifier
my $karma_bonus = createSelect('karma_bonus', \@range,
$user_edit->{karma_bonus} || 0, 1, 1);
# Subscriber modifier
my $subscriber_bonus = createSelect('subscriber_bonus', \@range,
$user_edit->{subscriber_bonus} || 0, 1, 1);

# Length modifier
my $small_length_bonus_select = createSelect('clsmall_bonus', \@range,
$user_edit->{clsmall_bonus} || 0, 1, 1);
my $long_length_bonus_select = createSelect('clbig_bonus', \@range,
$user_edit->{clbig_bonus} || 0, 1, 1);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editComm_title');

$formats = $slashdb->getDescriptions('commentmodes');
$commentmodes_select=createSelect('umode', $formats, $user_edit->{mode}, 1);

$formats = $slashdb->getDescriptions('sortcodes');
$commentsort_select = createSelect(
'commentsort', $formats, $user_edit->{commentsort}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$uthreshold_select = createSelect(
'uthreshold', $formats, $user_edit->{threshold}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$highlightthresh_select = createSelect(
'highlightthresh', $formats, $user_edit->{highlightthresh}, 1
);

$user_edit->{bytelimit} = $constants->{defaultbytelimit}
if $user_edit->{bytelimit} < 0 || $user_edit->{bytelimit} > 7;
my $bytelimit_desc = $user_edit->{is_subscriber} ? 'bytelimit' : 'bytelimit_sub';
$formats = $slashdb->getDescriptions($bytelimit_desc);
$bytelimit_select = createSelect(
'bytelimit', $formats, $user_edit->{bytelimit}, 1
);

my $h_check = $user_edit->{hardthresh} ? $constants->{markup_checked_attribute} : '';
my $r_check = $user_edit->{reparent} ? $constants->{markup_checked_attribute} : '';
my $n_check = $user_edit->{noscores} ? $constants->{markup_checked_attribute} : '';
my $s_check = $user_edit->{nosigs} ? $constants->{markup_checked_attribute} : '';
my $b_check = $user_edit->{nobonus} ? $constants->{markup_checked_attribute} : '';
my $sb_check = $user_edit->{nosubscriberbonus} ? $constants->{markup_checked_attribute} : '';
my $p_check = $user_edit->{postanon} ? $constants->{markup_checked_attribute} : '';
my $nospell_check = $user_edit->{no_spell} ? $constants->{markup_checked_attribute} : '';
my $s_mod_check = $user_edit->{mod_with_comm} ? $constants->{markup_checked_attribute} : '';
my $s_m2_check = $user_edit->{m2_with_mod} ? $constants->{markup_checked_attribute} : '';
my $s_m2c_check = $user_edit->{m2_with_comm_mod} ? $constants->{markup_checked_attribute} : '';

$formats = $slashdb->getDescriptions('postmodes');
$posttype_select = createSelect(
'posttype', $formats, $user_edit->{posttype}, 1
);

slashDisplay('editComm', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
h_check => $h_check,
r_check => $r_check,
n_check => $n_check,
s_check => $s_check,
b_check => $b_check,
sb_check => $sb_check,
p_check => $p_check,
s_mod_check => $s_mod_check,
s_m2_check => $s_m2_check,
s_m2c_check => $s_m2c_check,
nospell_check => $nospell_check,
commentmodes_select => $commentmodes_select,
commentsort_select => $commentsort_select,
highlightthresh_select => $highlightthresh_select,
uthreshold_select => $uthreshold_select,
posttype_select => $posttype_select,
reasons => \@reasons,
reason_select => \%reason_select,
people => \@people,
people_select => \%people_select,
new_user_percent_select => $new_user_percent_select,
new_user_bonus_select => $new_user_bonus_select,
note => $note,
karma_bonus => $karma_bonus,
subscriber_bonus => $subscriber_bonus,
small_length_bonus_select => $small_length_bonus_select,
long_length_bonus_select => $long_length_bonus_select,
bytelimit_select => $bytelimit_select,
});
}

#################################################################
sub saveUserAdmin {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my($user_edits_table, $user_edit) = ({}, {});
my $author_flag;
my $note = '';
my $srcid;
my $id;
my $user_editfield_flag;
my $banned = 0;
my $banref;
if ($form->{uid}) {
$user_editfield_flag = 'uid';
$id = $form->{uid};
$user_edit = $slashdb->getUser($id);
$srcid = $id;

} elsif ($form->{subnetid}) {
$user_editfield_flag = 'subnetid';
($id, $user_edit->{subnetid}) = ($form->{subnetid}, $form->{subnetid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(subnetid => $id);

} elsif ($form->{ipid}) {
$user_editfield_flag = 'ipid';
($id, $user_edit->{ipid}) = ($form->{ipid}, $form->{ipid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(ipid => $id);

} elsif ($form->{md5id}) {
$user_editfield_flag = 'md5id';
my $fieldname = $form->{fieldname} || 'md5id';
($id, $user_edit->{$fieldname})
= ($form->{md5id}, $form->{md5id});
warn "form field md5id specified, no srcid saving possible";

} elsif ($form->{srcid}) {
$user_editfield_flag = 'srcid';
my $fieldname = $form->{fieldname} || 'srcid';
($id, $user_edit->{$fieldname})
= ($form->{srcid}, $form->{srcid});
$srcid = $id;

} else {
# If we were not fed valid data, don't do anything.
return ;
}

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $all_al2types = $reader->getAL2Types;
my $al2_change = { };

# First, get a hash of what aclams (AL2's and ACLs) this user
# had when the previous admin page was loaded.
# XXXSRCID Right now acl_old is just calculated for debugging
# printing purposes, not actually used.
my @al2_old = ( );
@al2_old =
@{ $form->{al2_old_multiple} } if $form->{al2_old_multiple};
my %al2_old = ( map { ($_, 1) } @al2_old );
my @acl_old = ( );
@acl_old =
@{ $form->{acl_old_multiple} } if $form->{acl_old_multiple};
my %acl_old = ( map { ($_, 1) } @acl_old );

# Next, get the list of the new data submitted. Separate
# it out into AL2's which are legitimate. Anything left
# over is an ACL.
my @al2_new_formfields = ( );
@al2_new_formfields = @{ $form->{aclams_new_multiple} } if $form->{aclams_new_multiple};
my @al2_new_submitted = map { s/^aclam_//; $_ } @al2_new_formfields;
my @al2_new = grep { exists $all_al2types->{$_} } @al2_new_submitted;
my %al2_new = ( map { ($_, 1) } @al2_new );
my @acl_new = grep { !$al2_new{$_} } @al2_new_submitted;
my %acl_new = ( map { ($_, 1) } @acl_new );

# Find out what changed for AL2's.
for my $al2 (@al2_old, @al2_new) {
next if defined($al2_old{$al2}) && defined($al2_new{$al2})
&& $al2_old{$al2} == $al2_new{$al2};
$al2_change->{$al2} = $al2_new{$al2} ? 1 : 0;
}
#print STDERR "al2_change for '$srcid': " . Dumper($al2_change);
# If there's a comment, throw that in.
if ($form->{al2_new_comment}) {
$al2_change->{comment} = $form->{al2_new_comment};
}
$al2_change = undef if !keys %$al2_change;

# Find out what changed for ACL's.
my $acl_change = { };
for my $acl (@acl_old, @acl_new) {
next if $acl_old{$acl} == $acl_new{$acl};
$acl_change->{$acl} = $acl_new{$acl} ? 1 : 0;
}
$acl_change = undef if !keys %$acl_change;

if ($user->{is_admin} && $srcid) {
$slashdb->setAL2($srcid, $al2_change);
}
if ($user->{is_admin} && ($user_editfield_flag eq 'uid' ||
$user_editfield_flag eq 'nickname')) {

# This admin user cannot assign a seclev higher than he/she
# already has.
my $seclev = $form->{seclev};
$seclev = $user->{seclev} if $seclev > $user->{seclev};
$user_edits_table->{seclev} = $seclev;

$user_edits_table->{section} = $form->{section};
$user_edits_table->{author} = $form->{author} ? 1 : 0 ;
$user_edits_table->{defaultpoints} = $form->{defaultpoints};
$user_edits_table->{tokens} = $form->{tokens};
$user_edits_table->{tag_clout} = $form->{tag_clout};
$user_edits_table->{m2info} = $form->{m2info};
$user_edits_table->{acl} = $acl_change if $acl_change;
$user_edits_table->{shill_static_marquee} = $form->{shill_static_marquee} ? 1 : undef;
$user_edits_table->{u2_friends_bios} = $form->{u2_friends_bios} ? 1 : undef;
$user_edits_table->{shill_rss_url} = $form->{shill_rss_url} ? $form->{shill_rss_url} : undef;

my $author = $slashdb->getAuthor($id);
my $was_author = ($author && $author->{author}) ? 1 : 0;

$slashdb->setUser($id, $user_edits_table);

$note .= getMessage('saveuseradmin_saveduser', { field => $user_editfield_flag, id => $id });

if ($was_author xor $user_edits_table->{author}) {
# A frequently-asked question for new Slash admins is
# why their authors aren't showing up immediately.
# Give them some help here with an informative message.
$note .= getMessage('saveuseradmin_authorchg', {
basedir => $slashdb->getDescriptions("site_info")
->{base_install_directory},
virtuser => $slashdb->{virtual_user},
});

}
}

if (!$user_edit->{nonuid}) {
if ($form->{expired} && $form->{expired} eq 'on') {
# $slashdb->setExpired($user_edit->{uid});

} else {
# $slashdb->setUnexpired($user_edit->{uid});
}
}

my $data = { uid => $id };
$data->{note} = $note if defined $note;
showInfo($data);
}

#################################################################
sub savePasswd {
my($hr) = @_;
my $note = $hr->{noteref} || undef;

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $error_flag = 0;
my $user_edit = {};
my $uid;

my $user_edits_table = {};

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ? $form->{uid} : $user->{uid};
}

$user_edit = $slashdb->getUser($uid);

if (!$user_edit->{nickname}) {
$$note .= getError('cookie_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if ($form->{pass1} ne $form->{pass2}) {
$$note .= getError('saveuser_passnomatch_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$form->{pass1} || length $form->{pass1} < 6) {
$$note .= getError('saveuser_passtooshort_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$user->{is_admin}){
# not an admin -- check old password before changing passwd
my $return_uid = $slashdb->getUserAuthenticate($uid, $form->{oldpass}, 1);
if (!$return_uid || $return_uid != $uid) {
$$note .= getError('saveuser_badoldpass_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;

}
}

if (! $error_flag) {
$user_edits_table->{passwd} = $form->{pass1} if $form->{pass1};
$user_edits_table->{session_login} = $form->{session_login};
$user_edits_table->{cookie_location} = $form->{cookie_location};

# changed pass, so delete all logtokens
$slashdb->deleteLogToken($form->{uid}, 1);

if ($user->{admin_clearpass}
&& !$user->{state}{admin_clearpass_thisclick}) {
# User is an admin who sent their password in the clear
# some time ago; now that it's been changed, we'll forget
# about that incident, unless this click was sent in the
# clear as well.
$user_edits_table->{admin_clearpass} = '';
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table) ;
$$note .= getMessage('saveuser_passchanged_msg',
{ nick => $user_edit->{nickname}, uid => $user_edit->{uid} },
0, 1) if $note;

# only set cookie if user is current user
if ($form->{uid} eq $user->{uid}) {
$user->{logtoken} = bakeUserCookie($uid, $slashdb->getLogToken($form->{uid}, 1));
setCookie('user', $user->{logtoken}, $user_edits_table->{session_login});
}
}

return $error_flag;
}

#################################################################
sub saveUser {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $gSkin = getCurrentSkin();
my $plugins = $slashdb->getDescriptions('plugins');
my $uid;
my $user_editfield_flag;

$uid = $user->{is_admin} && $form->{uid} ? $form->{uid} : $user->{uid};
my $user_edit = $slashdb->getUser($uid);

my($note, $formname);

$note .= getMessage('savenickname_msg', {
nickname => $user_edit->{nickname},
}, 1);

if (!$user_edit->{nickname}) {
$note .= getError('cookie_err', 0, 1);
}

# Check to ensure that if a user is changing his email address, that
# it doesn't already exist in the userbase.
if ($user_edit->{realemail} ne $form->{realemail}) {
if ($slashdb->existsEmail($form->{realemail})) {
$note .= getError('emailexists_err', 0, 1);
$form->{realemail} = $user_edit->{realemail}; # can't change!
}
}

my(%extr, $err_message, %limit);
$limit{sig} = 120; # schema is 200, give an extra buffer for domain tags
$limit{bio} = $constants->{users_bio_length} || 1024; # can be up to 2^16

for my $key (keys %limit) {
my $dat = chopEntity($form->{$key}, $limit{$key});
$dat = strip_html($dat);
$dat = balanceTags($dat, { deep_nesting => 2, length => $limit{$key} });
$dat = addDomainTags($dat) if $dat;

# If the sig becomes too long to fit (domain tagging causes
# string expansion and tag balancing can too), warn the user to
# use shorter domain names and don't save their change.
if ($key eq 'sig' && defined($dat) && length($dat) > 200) {
print getError('sig_too_long_err');
$extr{sig} = undef;
}

# really, comment filters should ignore short length IMO ... oh well.
if (length($dat) > 1 && ! filterOk('comments', 'postersubj', $dat, \$err_message)) {
print getError('filter message', {
err_message => $err_message,
item => $key,
});
$extr{$key} = undef;
} elsif (! compressOk('comments', 'postersubj', $dat)) {
print getError('compress filter', {
ratio => 'postersubj',
item => $key,
});
$extr{$key} = undef;
} else {
$extr{$key} = $dat;
}
}

# We should do some conformance checking on a user's pubkey,
# make sure it looks like one of the known types of public
# key. Until then, just make sure it doesn't have HTML.
$form->{pubkey} = $plugins->{'PubKey'} ? strip_nohtml($form->{pubkey}, 1) : '';

my $homepage = $form->{homepage};
$homepage = '' if $homepage eq 'http://';
$homepage = fudgeurl($homepage);
$homepage = URI->new_abs($homepage, $gSkin->{absolutedir})
->canonical
->as_string if $homepage ne '';
$homepage = substr($homepage, 0, 100) if $homepage ne '';

my $calendar_url = $form->{calendar_url};
if (length $calendar_url) {
# fudgeurl() doesn't like webcal; will remove later anyway
$calendar_url =~ s/^webcal/http/i;
$calendar_url = fudgeurl($calendar_url);
$calendar_url = URI->new_abs($calendar_url, $gSkin->{absolutedir})
->canonical
->as_string if $calendar_url ne '';

$calendar_url =~ s|^http://||i;
$calendar_url = substr($calendar_url, 0, 200) if $calendar_url ne '';
}

# for the users table
my $user_edits_table = {
homepage => $homepage,
realname => $form->{realname},
pubkey => $form->{pubkey},
copy => $form->{copy},
quote => $form->{quote},
calendar_url => $calendar_url,
yahoo => $form->{yahoo},
jabber => $form->{jabber},
aim => $form->{aim},
aimdisplay => $form->{aimdisplay},
icq => $form->{icq},
playing => $form->{playing},
mobile_text_address => $form->{mobile_text_address},
};

if ($constants->{wow}) {
my $wowdb = getObject("Slash::WoW");
if ($wowdb) {
$user_edits_table->{wow_main_name} = "\L\u$form->{wow_main_name}";
$user_edits_table->{wow_main_realm} = $form->{wow_main_realm};
my $charid = $wowdb->getCharidCreate($user_edits_table->{wow_main_realm},
$user_edits_table->{wow_main_name});
$wowdb->setChar($charid, { uid => $uid }, { if_unclaimed => 1 }) if $charid;
}
}

for (keys %extr) {
$user_edits_table->{$_} = $extr{$_} if defined $extr{$_};
}

# don't want undef, want to be empty string so they
# will overwrite the existing record
for (keys %$user_edits_table) {
$user_edits_table->{$_} = '' unless defined $user_edits_table->{$_};
}

if ($user_edit->{realemail} ne $form->{realemail}) {
$user_edits_table->{realemail} =
chopEntity($form->{realemail}, 50);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($user->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid, $user_edits_table->{realemail})
if $user->{emaildisplay} == 1;
$new_fakeemail = $user_edits_table->{realemail}
if $user->{emaildisplay} == 2;
}
$user_edits_table->{fakeemail} = $new_fakeemail;

$note .= getMessage('changeemail_msg', {
realemail => $user_edit->{realemail}
}, 1);

my $saveuser_emailtitle = getTitle('saveUser_email_title', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);
my $saveuser_email_msg = getMessage('saveuser_email_msg', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);

sendEmail($form->{realemail}, $saveuser_emailtitle, $saveuser_email_msg);
doEmail($uid, $saveuser_emailtitle, $saveuser_email_msg);
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);

editUser({ uid => $uid, note => $note });
}

#################################################################
sub saveComm {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $user_fakeemail);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}

# Do the right thing with respect to the chosen email display mode
# and the options that can be displayed.
my $user_edit = $slashdb->getUser($uid);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($form->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid) if $form->{emaildisplay} == 1;
$new_fakeemail = $user_edit->{realemail} if $form->{emaildisplay} == 2;
}

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};

my $note = getMessage('savenickname_msg',
{ nickname => $name });

print getError('cookie_err') if isAnon($uid) || !$name;

# Take care of the lists
# Enforce Ranges for variables that need it
$form->{commentlimit} = 0 if $form->{commentlimit} < 1;
my $cl_max = $constants->{comment_commentlimit} || 0;
$form->{commentlimit} = $cl_max if $cl_max > 0 && $form->{commentlimit} > $cl_max;
$form->{commentspill} = 0 if $form->{commentspill} < 1;

# For some of these values, namely the ones that we happen to
# know get stored in users_param, we change them to 'undef'
# if they are the default value. This deletes them from the
# users_param table, which has the same effect as storing the
# default except it's faster all around. If we ever change
# the schema to promote these fields from params into a
# proper users_* table, then this will no longer be correct.
# See prepareUser().
my $max = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $min = -$max;
my $karma_bonus = ($form->{karma_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{karma_bonus};
my $subscriber_bonus = ($form->{subscriber_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{subscriber_bonus};
my $new_user_bonus = ($form->{new_user_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{new_user_bonus};
my $new_user_percent = (($form->{new_user_percent} <= 100 && $form->{new_user_percent} >= 0)
? $form->{new_user_percent}
: 100);
my $clsmall_bonus = ($form->{clsmall_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clsmall_bonus};
my $clbig_bonus = ($form->{clbig_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clbig_bonus};

# plum
$form->{d2_comment_q} = (isSubscriber($user_edit) || $user_edit->{seclev} >= 100)
? $form->{d2_comment_q}
: ($form->{d2_comment_q} eq '0')
? 1
: $form->{d2_comment_q};

my $user_edits_table = {
# MC: More D2 neutring
#discussion2 => $form->{discussion2} || undef,
#d2_comment_q => $form->{d2_comment_q} || undef,
#d2_comment_order => $form->{d2_comment_order} || undef,
clsmall => $form->{clsmall},
clsmall_bonus => ($clsmall_bonus || undef),
clbig => $form->{clbig},
clbig_bonus => ($clbig_bonus || undef),
commentlimit => $form->{commentlimit},
bytelimit => $form->{bytelimit},
commentsort => $form->{commentsort},
commentspill => $form->{commentspill},
domaintags => ($form->{domaintags} != 2 ? $form->{domaintags} : undef),
emaildisplay => $form->{emaildisplay} || undef,
fakeemail => $new_fakeemail,
highlightthresh => $form->{highlightthresh},
mode => $form->{umode},
posttype => $form->{posttype},
threshold => $form->{uthreshold},
nosigs => ($form->{nosigs} ? 1 : 0),
reparent => ($form->{reparent} ? 1 : 0),
noscores => ($form->{noscores} ? 1 : 0),
hardthresh => ($form->{hardthresh} ? 1 : 0),
no_spell => ($form->{no_spell} ? 1 : undef),
nobonus => ($form->{nobonus} ? 1 : undef),
nosubscriberbonus => ($form->{nosubscriberbonus} ? 1 : undef),
postanon => ($form->{postanon} ? 1 : undef),
new_user_percent => ($new_user_percent && $new_user_percent != 100
? $new_user_percent : undef),
new_user_bonus => ($new_user_bonus || undef),
karma_bonus => ($karma_bonus ne '+1' ? $karma_bonus : undef),
subscriber_bonus => ($subscriber_bonus || undef),
textarea_rows => ($form->{textarea_rows} != $constants->{textarea_rows}
? $form->{textarea_rows} : undef),
textarea_cols => ($form->{textarea_cols} != $constants->{textarea_cols}
? $form->{textarea_cols} : undef),
user_comment_sort_type => ($form->{user_comment_sort_type} != 2
? $form->{user_comment_sort_type} : undef ),
mod_with_comm => ($form->{mod_with_comm} ? 1 : undef),
m2_with_mod => ($form->{m2_with_mod} ? 1 : undef),
m2_with_comm_mod => ($form->{m2_with_mod_on_comm} ? 1 : undef),

};

# set our default values for the items where an empty-string won't do
my $defaults = {
posttype => 2,
highlightthresh => 4,
reparent => 1,
commentlimit => 100,
commentspill => 50,
mode => 'thread'
};

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my @reasons = ( );
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}

for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
my $answer = $form->{$key} || 0;
$answer = 0 if !$answer || $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{$key} = ($answer == 0) ? '' : $answer;
}

for (qw| friend foe anonymous fof eof freak fan |) {
my $answer = $form->{"people_bonus_$_"};
$answer = 0 if $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{"people_bonus_$_"} = ($answer == 0) ? '' : $answer;
}
getOtherUserParams($user_edits_table);
setToDefaults($user_edits_table, {}, $defaults) if $form->{restore_defaults};
$slashdb->setUser($uid, $user_edits_table);

editComm({ uid => $uid, note => $note });
}

#################################################################
sub saveHome {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $error);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid} ;
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}
my $edit_user = $slashdb->getUser($uid);

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};
$name = substr($name, 0, 20);

my $note = getMessage('savenickname_msg',
{ nickname => $name });

if (isAnon($uid) || !$name) {
my $cookiemsg = getError('cookie_err');
print $cookiemsg;
}

# Using the existing list of slashboxes and the set of
# what's checked and not, build up the new list.
# (New arrivals go at the end.)
my $slashboxes = $edit_user->{slashboxes};
# Only go through all this if the user clicked save,
# not "Restore Slashbox Defaults"!
my($boxes, $skinBoxes) = $slashdb->getPortalsCommon();
my $default_slashboxes_textlist = join ",",
@{$skinBoxes->{$constants->{mainpage_skid}}};
if (!$form->{restore_slashbox_defaults}) {
$slashboxes = $default_slashboxes_textlist if !$slashboxes;
my @slashboxes = split /,/, $slashboxes;
my %slashboxes = ( );
for my $i (0..$#slashboxes) {
$slashboxes{$slashboxes[$i]} = $i;
}
# Add new boxes in.
for my $key (sort grep /^showbox_/, keys %$form) {
my($bid) = $key =~ /^showbox_(\w+)$/;
next if length($bid) < 1 || length($bid) > 30 || $bid !~ /^\w+$/;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999; # put it at the end
}
}
# Remove any boxes that weren't checked.
for my $bid (@slashboxes) {
delete $slashboxes{$bid} unless $form->{"showbox_$bid"};
}

for my $key (sort grep /^dynamic_/, keys %$form) {
my($bid) = $key =~ /^dynamic_(.+)$/;
next if length($bid) < 1;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999;
}
}

@slashboxes = sort {
$slashboxes{$a} <=> $slashboxes{$b}
||
$a cmp $b
} keys %slashboxes;
# This probably should be a var (and appear in tilded_customize_msg)
$#slashboxes = 19 if $#slashboxes > 19;
$slashboxes = join ",", @slashboxes;
}
# If we're right back to the default, that means the
# empty string.
if ($slashboxes eq $default_slashboxes_textlist) {
$slashboxes = "";
}

# Set the story_never and story_always fields.
my $author_hr = $slashdb->getDescriptions('authors');
my $tree = $slashdb->getTopicTree();
my(@story_never_topic, @story_never_author, @story_never_nexus);
my(@story_always_topic, @story_always_author);
my(@story_always_nexus, @story_full_brief_nexus, @story_brief_always_nexus, @story_full_best_nexus, @story_brief_best_nexus);
my($story_topic_all, $story_author_all, $story_nexus_all) = (0, 0, 0);

# Topics are either present (value=2) or absent (value=0). If absent,
# push them onto the never list. Otherwise, do nothing. (There's no
# way to have an "always" topic, at the moment.) If the hidden
# field topictids_present is false, then there are no topic tids,
# skip this.
if ($form->{topictids_present}) {
for my $tid (
sort { $a <=> $b }
grep { !$tree->{$_}{nexus} }
keys %$tree
) {
my $key = "topictid$tid";
$story_topic_all++;
if (!$form->{$key}) { push @story_never_topic, $tid }
}
}
# Authors are either present (value=2) or absent (value=0). If
# absent, push them onto the never list. Otherwise, do nothing.
# (There's no way to have an "always" author, at the moment.)
for my $aid (sort { $a <=> $b } keys %$author_hr) {
my $key = "aid$aid";
$story_author_all++;
if (!$form->{$key}) { push @story_never_author, $aid }
}
# Nexuses can have value 0, 1, 2, 3, 4, 5.
# 0 means the never list,
# 1 means brief view of mainpage articles only
# 2 means full view of mainpage articles only
# 3 means brief view of all content
# 4 means full view of mainpage content, brief view of sectional
# 5 means full view of all content
for my $tid (
sort { $a <=> $b }
map { /^nexustid(\d+)$/; $1 }
grep { /^nexustid\d+$/ }
keys %$form
) {
my $key = "nexustid$tid";
next unless $tid && $tree->{$tid} && $tree->{$tid}{nexus};
$story_nexus_all++;
if (!$form->{$key}) { push @story_never_nexus, $tid }
elsif ($form->{$key} == 5 ) { push @story_always_nexus, $tid }
elsif ($form->{$key} == 4 ) { push @story_full_brief_nexus, $tid }
elsif ($form->{$key} == 3 ) { push @story_brief_always_nexus, $tid }
elsif ($form->{$key} == 2 ) { push @story_full_best_nexus, $tid }
elsif ($form->{$key} == 1 ) { push @story_brief_best_nexus, $tid }

}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " s_n_t '@story_never_topic' s_n_a '@story_never_author' s_n_n '@story_never_nexus' s_a_n '@story_always_nexus' form: " . Dumper($form);
# Sanity check.
$#story_never_topic = 299 if $#story_never_topic > 299;
$#story_never_author = 299 if $#story_never_author > 299;
$#story_never_nexus = 299 if $#story_never_nexus > 299;
$#story_always_topic = 299 if $#story_always_topic > 299;
$#story_always_author = 299 if $#story_always_author > 299;
$#story_always_nexus = 299 if $#story_always_nexus > 299;
$#story_full_brief_nexus = 299 if $#story_full_brief_nexus > 299;
$#story_brief_always_nexus = 299 if $#story_brief_always_nexus > 299;
$#story_brief_best_nexus = 299 if $#story_brief_best_nexus > 299;
$#story_full_best_nexus = 299 if $#story_full_best_nexus > 299;

my $story_never_topic = join ",", @story_never_topic;
$story_never_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_never_topic, 1024)
: checkList($story_never_topic);
my $story_never_author = checkList(join ",", @story_never_author);
my $story_never_nexus = checkList(join ",", @story_never_nexus);
my $story_always_topic = checkList(join ",", @story_always_topic);
$story_always_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_always_topic, 1024)
: checkList($story_always_topic);
my $story_always_author = checkList(join ",", @story_always_author);

my $story_always_nexus = checkList(join ",", @story_always_nexus);
my $story_full_brief_nexus = checkList(join ",", @story_full_brief_nexus);
my $story_brief_always_nexus = checkList(join ",", @story_brief_always_nexus);
my $story_brief_best_nexus = checkList(join ",", @story_brief_best_nexus);
my $story_full_best_nexus = checkList(join ",", @story_full_best_nexus);

my $user_edits_table = {
story_never_topic => $story_never_topic,
story_never_author => $story_never_author,
story_never_nexus => $story_never_nexus,
story_always_topic => $story_always_topic,
story_always_author => $story_always_author,
story_always_nexus => $story_always_nexus,
story_brief_always_nexus => $story_brief_always_nexus,
story_full_brief_nexus => $story_full_brief_nexus,
story_full_best_nexus => $story_full_best_nexus,
story_brief_best_nexus => $story_brief_best_nexus,

slashboxes => checkList($slashboxes, 1024),

maxstories => 30, # XXXSKIN fix this later
noboxes => ($form->{useslashboxes} ? 0 : 1),
lowbandwidth => ($form->{lowbandwidth} ? 1 : 0),
simpledesign => ($form->{simpledesign} ? 1 : 0),
noicons => ($form->{noicons} ? 1 : 0),
willing => ($form->{willing} ? 1 : 0),
index_classic => ($form->{index_classic} ? 1 : undef),
};

if (defined $form->{tzcode} && defined $form->{tzformat}) {
$user_edits_table->{tzcode} = $form->{tzcode};
$user_edits_table->{dfid} = $form->{tzformat};
$user_edits_table->{dst} = $form->{dst};
}

# Force the User Space area to contain only known-good HTML tags.
# Unfortunately the cookie login model makes it just too risky
# to allow scripts in here; CSS's steal passwords. There are
# no known vulnerabilities at this time, but a combination of the
# social engineering taking place (inviting users to put Javascript
# from websites in here, and making available script URLs for that
# purpose), plus the fact that this could be used to amplify the
# seriousness of any future vulnerabilities, means it's way past
# time to shut this feature down. - Jamie 2002/03/06

# it's a VARCHAR ...
my $mylinks_limit = 255;
$user_edits_table->{mylinks} = balanceTags(strip_html(
chopEntity($form->{mylinks} || '', $mylinks_limit)
), { deep_nesting => 2, length => $mylinks_limit });

$user_edits_table->{mylinks} = '' unless defined $user_edits_table->{mylinks};

$error = 1;
# must select at least 1/4 of nexuses, topics, authors
if ( scalar(@story_never_author) > ($story_author_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_nexus) > ($story_nexus_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_topic) > ($story_topic_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} else {
$error = 0;
}

unless ($error) {
# If a user is unwilling to moderate, we should cancel all points, lest
# they be preserved when they shouldn't be.
if (!isAnon($uid) && !$form->{willing}) {
$slashdb->setUser($uid, { points => 0 });
}

getOtherUserParams($user_edits_table);
if ($form->{restore_defaults}) {
setToDefaults($user_edits_table, {}, {
maxstories => 30,
tzcode => "EST",
# XXX shouldn't this reset ALL the defaults,
# not just these two?
});
}
if ($form->{restore_slashbox_defaults}) {
setToDefaults($user_edits_table, {
'story_never_topic' => 1,
'story_never_author' => 1,
'story_never_nexus' => 1,
'story_always_topic' => 1,
'story_always_author' => 1,
'story_always_nexus' => 1,
'story_full_brief_nexus' => 1,
'story_brief_always_nexus' => 1,
'story_full_best_nexus' => 1,
'story_brief_best_nexus' => 1,
'maxstories' => 1,
'noboxes' => 1,
'light' => 1,
'noicons' => 1,
'willing' => 1
}, { slashboxes => "" });
}

#print scalar(localtime) . " uet: " . Dumper($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);
}

editHome({ uid => $uid, note => $note });
}

#################################################################
# A generic way for a site to allow users to edit data about themselves.
# Most useful when your plugin or theme wants to let the user change
# minor settings but you don't want to write a whole new version
# of users.pl to provide a user interface. The user can save any
# param of the format "opt_foo", as long as "foo" shows up in
# getMiscUserOpts which lists all the misc opts that this user can edit.
# This is *not* protected by formkeys (yet), so assume attackers can make
# users click and accidentally edit their own settings: no really important
# data should be stored in this way.
sub editMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $edit_user = $slashdb->getUser($user->{uid});
my $title = getTitle('editMiscOpts_title');

my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
my $opt_name = "opt_" . $opt->{name};
$opt->{checked} = $edit_user->{$opt_name} ? 1 : 0;
}

slashDisplay('editMiscOpts', {
# useredit => $user_edit,
title => $title,
opts => $opts,
note => $note,
});
}

#################################################################
#
sub saveMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

my $edit_user = $slashdb->getUser($user->{uid});
my %opts_ok_hash = ( );
my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
$opts_ok_hash{"opt_$opt->{name}"} = 1;
}

my $update = { };
for my $opt (grep /^opt_/, keys %$form) {
next unless $opts_ok_hash{$opt};
$update->{$opt} = $form->{$opt} ? 1 : 0;
}

# Make the changes.
$slashdb->setUser($edit_user->{uid}, $update);

# Inform the user the change was made. Since we don't
# require formkeys, we always want to print a message to
# make sure the user sees what s/he did. This is done
# by passing in a note which ends up passed to the
# editMiscOpts template, which displays it.
editMiscOpts({ note => getMessage('savemiscopts_msg') });
}

#################################################################
sub listReadOnly {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $readonlylist = $reader->getAL2List('nopost');

slashDisplay('listReadOnly', {
readonlylist => $readonlylist,
});

}

#################################################################
sub listBanned {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $bannedlist = $reader->getAL2List('ban');

slashDisplay('listBanned', {
bannedlist => $bannedlist,
});

}

#################################################################
sub topAbusers {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $topabusers = $reader->getTopAbusers();

slashDisplay('topAbusers', {
topabusers => $topabusers,
});
}

#################################################################
sub listAbuses {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my $abuses = $reader->getAbuses($form->{key}, $form->{abuseid});

slashDisplay('listAbuses', {
abuseid => $form->{abuseid},
abuses => $abuses,
});
}

#################################################################
sub forceAccountVerify {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $uid = $form->{uid};
my $useredit = $slashdb->getUser($uid);

if ($useredit->{uid}) {
my $newpasswd = $slashdb->resetUserAccount($uid);
$slashdb->deleteLogToken($uid, 1);
my $emailtitle = getTitle('reset_acct_email_title', {
nickname => $useredit->{nickname}
}, 1);

my $msg = getMessage('reset_acct_msg', {
newpasswd => $newpasswd,
tempnick => $useredit->{nickname},
}, 1);

$slashdb->setUser($useredit->{uid}, {
waiting_for_account_verify => 1,
account_verify_request_time => $slashdb->getTime()
});

doEmail($useredit->{uid}, $emailtitle, $msg) if $useredit->{uid};
}

print getMessage("reset_acct_complete", { useredit => $useredit }, 1);
}

#################################################################
sub displayForm {
my($hr) = @_;

my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $op = $hr->{op} || $form->{op} || 'displayform';

my $ops = {
displayform => 'loginForm',
edithome => 'loginForm',
editcomm => 'loginForm',
edituser => 'loginForm',
# mailpasswdform => 'sendPasswdForm',
# newuserform => 'newUserForm',
userclose => 'loginForm',
userlogin => 'loginForm',
editmiscopts => 'loginForm',
savemiscopts => 'loginForm',
default => 'loginForm'
};

$op = 'default' if !defined($ops->{$op});

my($title, $title2, $msg1, $msg2) = ('', '', '', '');

if ($op eq 'userclose') {
$title = getMessage('userclose');

} elsif ($op eq 'displayForm') {
$title = $form->{unickname}
? getTitle('displayForm_err_title')
: getTitle('displayForm_title');
} elsif ($op eq 'mailpasswdform') {
$title = getTitle('mailPasswdForm_title');
} elsif ($op eq 'newuserform') {
$title = getTitle('newUserForm_title');
} else {
$title = getTitle('displayForm_title');
}

$form->{unickname} ||= $form->{newusernick};

if ($form->{newusernick}) {
$title2 = getTitle('displayForm_dup_title');
} else {
$title2 = getTitle('displayForm_new_title');
}

$msg1 = getMessage('dispform_new_msg_1');
if (! $form->{newusernick} && $op eq 'newuserform') {
$msg2 = getMessage('dispform_new_msg_2');
} elsif ($op eq 'displayform' || $op eq 'userlogin') {
$msg2 = getMessage('newuserform_msg');
}

slashDisplay($ops->{$op}, {
newnick => nickFix($form->{newusernick}),
suadmin_flag => $suadmin_flag,
title => $title,
title2 => $title2,
logged_in => $user->{is_anon} ? 0 : 1,
msg1 => $msg1,
msg2 => $msg2
});
}

#################################################################
# this groups all the messages together in
# one template, called "messages;users;default"
sub getMessage {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('messages', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the errors together in
# one template, called "errors;users;default"
sub getError {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('errors', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the titles together in
# one template, called "users-titles"
sub getTitle {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('titles', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# getUserAdmin - returns a block of HTML text that provides
# information and editing capabilities for admin users.
# Most of this data is already in the getUserAdmin template,
# but really, we should try to get more of this logic into
# that template.
sub getUserAdmin {
my($id, $field, $seclev_field) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $logdb = getObject('Slash::DB', { db_type => 'log_slave' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $slashdb = getCurrentDB();
$id ||= $user->{uid};

my($expired, $uidstruct, $readonly);
my($user_edit, $user_editfield, $ipstruct, $ipstruct_order, $authors, $author_flag, $topabusers, $thresh_select,$section_select);
my $srcid;
my $proxy_check = {};
my @accesshits;
my $user_editinfo_flag = (!$form->{op} || $form->{op} eq 'userinfo'
|| $form->{userinfo} || $form->{saveuseradmin}
) ? 1 : 0;
my $authoredit_flag = ($user->{seclev} >= 10000) ? 1 : 0;
my $sectionref = $reader->getDescriptions('skins');
$sectionref->{''} = getData('all_sections');

$field ||= 'uid';
if ($field eq 'uid') {
$user_edit = $slashdb->getUser($id);
$user_editfield = $user_edit->{uid};
$srcid = convert_srcid( uid => $id );
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'nickname') {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$user_editfield = $user_edit->{nickname};
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'md5id') {
$user_edit->{nonuid} = 1;
$user_edit->{md5id} = $id;
if ($form->{fieldname} && $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$uidstruct = $slashdb->getUIDStruct($form->{fieldname}, $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($form->{fieldname}, $user_edit->{md5id}) if defined($logdb);
} else {
$uidstruct = $slashdb->getUIDStruct('md5id', $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{md5id}) if defined($logdb);
}

} elsif ($field eq 'ipid') {
$user_edit->{nonuid} = 1;
$user_edit->{ipid} = $id;
$srcid = convert_srcid( ipid => $id );
$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('ipid', $user_edit->{ipid});
@accesshits = $logdb->countAccessLogHitsInLastX('host_addr', $user_edit->{ipid}) if defined($logdb);

if ($form->{userfield} =~/^\d+\.\d+\.\d+\.(\d+)$/) {
if ($1 ne "0"){
$proxy_check->{available} = 1;
$proxy_check->{results} = $slashdb->checkForOpenProxy($form->{userfield}) if $form->{check_proxy};
}
}

} elsif ($field eq 'subnetid') {
$user_edit->{nonuid} = 1;
$srcid = convert_srcid( ipid => $id );
if ($id =~ /^(\d+\.\d+\.\d+)(?:\.\d)?/) {
$id = $1 . ".0";
$user_edit->{subnetid} = $id;
} else {
$user_edit->{subnetid} = $id;
}

$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('subnetid', $user_edit->{subnetid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{subnetid}) if defined($logdb);

} elsif ($field eq "srcid") {
$user_edit->{nonuid} = 1;
$user_edit->{srcid} = $id;
$srcid = $id;

} else {
$user_edit = $id ? $slashdb->getUser($id) : $user;
$user_editfield = $user_edit->{uid};
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
}

##########
# Put together the array and hashref that the template will need
# to construct the list for display to the admin.
# Note that currently a srcid which is not a uid (i.e. which
# represents an IP address or masked IP network) cannot have
# any ACLs assigned to it. This may change in the future.
# The term "aclam" is used because it has a field set for both
# every ACL and every access modifier (i.e. AL2 bit) that is set
# for this user or srcid.
# For now, ACLs will be listed for IPs as well.
# First get the list of ACLs that can be used.
my $all_acls_ar = $reader->getAllACLNames();
my $all_acls_hr = { map { ( $_, 1 ) } @$all_acls_ar };
# Add in any ACLs selected for this user (just in case
# getAllACLNames is cached and stale).
for my $acl (keys %{$user_edit->{acl}}) {
$all_acls_hr->{$acl} = 1;
}
# Start creating the $all_aclam_hr data, in which the keys are
# the HTML selection names that all begin with aclam_ and the
# the values are their names/descriptions shown to the admin.
# First put all the ACLs into the hash, if we're editing a user.
my $all_aclam_hr = { };
if (!$user_edit->{nonuid}) {
$all_aclam_hr = { map { ( "aclam_$_", "ACL: $_" ) } keys %$all_acls_hr };
}
# Next put in all the al2 types.
my $all_al2types = $reader->getAL2Types;
for my $key (keys %$all_al2types) {
next if $key eq 'comment'; # skip the 'comment' type
$all_aclam_hr->{"aclam_$key"} = $all_al2types->{$key}{title};
}
# Finally, sort the keys of the hash into the order that we
# want them displayed to the admin (ACLs first).
my $all_acls_longkeys_hr = { map { ( "aclam_$_", 1 ) } keys %$all_acls_hr };
my $all_aclam_ar = [
sort {
(exists($all_acls_longkeys_hr->{$a}) ? -1 : 1) <=> (exists($all_acls_longkeys_hr->{$b}) ? -1 : 1)
||
$all_aclam_hr->{$a} cmp $all_aclam_hr->{$b}
} keys %$all_aclam_hr
];
# Now put together the hashref that identifies which of those
# items are selected for this user.
my $user_aclam_hr = { };
for my $acl (keys %{ $user_edit->{acl} }) {
$user_aclam_hr->{"aclam_$acl"} = 1;
}
my $al2_tid_comment = $all_al2types->{comment}{al2tid} || 0;
my $al2_log_ar = [ ];
my $al2_hr = { };
# XXXSRCID Once we get rid of the silly 'md5id' field and all the
# other bizarre backward-compatibility code paths early in this
# function, this won't be necessary, but until then we need this
# sanity check...
if ($srcid) {
# getAL2 works with either a srcids hashref or a single srcid
$al2_hr = $slashdb->getAL2($srcid);
for my $al2 (keys %{ $al2_hr }) {
$user_aclam_hr->{"aclam_$al2"} = 1;
}
$al2_log_ar = $slashdb->getAL2Log($srcid);
}
# Generate al2_nick_hr, which will be populated with keys of all
# the (presumably) admin uids who have logged rows for this al2,
# and values of their nicks.
my $al2_nick_hr = { };
for my $al2_log (@$al2_log_ar) {
my $uid = $al2_log->{adminuid};
next if !$uid; # odd error, might want to flag this
$al2_nick_hr->{$uid} ||= $slashdb->getUser($uid, 'nickname');
}
##########

$user_edit->{author} = ($user_edit->{author} && $user_edit->{author} == 1)
? $constants->{markup_checked_attribute} : '';
if (! $user->{nonuid}) {
my $threshcodes = $reader->getDescriptions('threshcode_values','',1);
$thresh_select = createSelect('defaultpoints', $threshcodes, $user_edit->{defaultpoints}, 1);
}

if (!ref $ipstruct) {
undef $ipstruct;
} else {
@$ipstruct_order = sort { $ipstruct->{$b}{dmin} cmp $ipstruct->{$a}{dmin} } keys %$ipstruct;
}

my $m2total = ($user_edit->{m2fair} || 0) + ($user_edit->{m2unfair} || 0);
if ($m2total) {
$user_edit->{m2unfairpercent} = sprintf("%.2f",
$user_edit->{m2unfair}*100/$m2total);
}
my $mod_total = ($user_edit->{totalmods} || 0) + ($user_edit->{stirred} || 0);
if ($mod_total) {
$user_edit->{stirredpercent} = sprintf("%.2f",
$user_edit->{stirred}*100/$mod_total);
}
if ($constants->{subscribe} and my $subscribe = getObject('Slash::Subscribe')) {
$user_edit->{subscribe_payments} =
$subscribe->getSubscriptionsForUser($user_edit->{uid});
$user_edit->{subscribe_purchases} =
$subscribe->getSubscriptionsPurchasedByUser($user_edit->{uid},{ only_types => [ "grant", "gift" ] });
}
my $ipid = $user_edit->{ipid};
my $subnetid = $user_edit->{subnetid};
my $post_restrictions = {};
my ($subnet_karma, $ipid_karma);

if ($ipid && !$subnetid) {
$ipid = md5_hex($ipid) if length($ipid) != 32;
$proxy_check->{ipid} = $ipid;
$proxy_check->{currently} = $slashdb->getKnownOpenProxy($ipid, "ipid");
# This next call is very slow.
$subnetid = $reader->getSubnetFromIPIDBasedOnComments($ipid);
}

if ($subnetid) {
$subnetid = md5_hex($subnetid) if length($subnetid) != 32;
# These next three calls can be very slow. In fact, getNetIDKarma
# is actually called twice on the same subnetid; if we can cache
# that data somehow that wouldn't be a bad idea.
$post_restrictions = $reader->getNetIDPostingRestrictions("subnetid", $subnetid);
$subnet_karma = $reader->getNetIDKarma("subnetid", $subnetid);
$ipid_karma = $reader->getNetIDKarma("ipid", $ipid) if $ipid;
}

my $clout_types_ar = [ sort grep /\D/, keys %{$slashdb->getCloutTypes} ];

return slashDisplay('getUserAdmin', {
field => $field,
useredit => $user_edit,
srcid => $srcid,
all_aclam_ar => $all_aclam_ar,
all_aclam_hr => $all_aclam_hr,
user_aclam_hr => $user_aclam_hr,
al2_old => $al2_hr,
al2_log => $al2_log_ar,
al2_tid_comment => $al2_tid_comment,
al2_nick => $al2_nick_hr,

userinfo_flag => $user_editinfo_flag,
userfield => $user_editfield,
ipstruct => $ipstruct,
ipstruct_order => $ipstruct_order,
uidstruct => $uidstruct,
accesshits => \@accesshits,
seclev_field => $seclev_field,
expired => $expired,
topabusers => $topabusers,
readonly => $readonly,
thresh_select => $thresh_select,
authoredit_flag => $authoredit_flag,
section_select => $section_select,
all_acls => $all_acls_hr,
proxy_check => $proxy_check,
subnet_karma => $subnet_karma,
ipid_karma => $ipid_karma,
post_restrictions => $post_restrictions,

clout_types_ar => $clout_types_ar,
}, 1);
}

#################################################################
# this is to allow alternate parameters to be specified. pass in
# your hash reference to be passed to setUser(), and this will
# add in those extra parameters. add the parameters to string_param,
# type = otherusersparam, code = name of the param. they will
# be checked for the main user prefs editing screens, and on
# user creation -- pudge
sub getOtherUserParams {
my($data) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $params = $reader->getDescriptions('otherusersparam');

for my $param (keys %$params) {
if (exists $form->{$param}) {
# set user too for output in this request
$data->{$param} = $user->{$param} = $form->{$param} || undef;
}
}
}

###############################################################
# This modifies a hashref to default values -- if nothing
# else we assume the empty string which clears items in the
# user_param table
#
# takes 3 hashrefs currently
# $data - hashref to change to defaults
# $skip - hashref of keys to skip modifying
# $defaults - hashref of defaults to set to something other
# than the empty string
sub setToDefaults {
my($data, $skip, $defaults) = @_;
foreach my $key (keys %$data) {
next if $skip->{$key};
$data->{$key} = exists $defaults->{$key} ? $defaults->{$key} : "";
}
}

#################################################################
sub getCommentListing {
my ($type, $value,
$min_comment, $time_period, $cc_all, $cc_time_period, $cid_for_time_period,
$non_admin_limit, $admin_time_limit, $admin_non_time_limit,
$options) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $store_cutoff = $options->{use_uid_cid_cutoff} ? $constants->{store_com_page1_min_cid_for_user_com_cnt} : 0;

my $s_opt = {};
my $num_wanted = 0;
if ($min_comment) {
if ($user->{is_admin}) {
$num_wanted = $admin_non_time_limit;
} else {
$num_wanted = $non_admin_limit;
}
} else {

if ($user->{is_admin}) {
if ($cc_time_period >= $admin_non_time_limit) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $admin_time_limit;
} else {
$num_wanted = $admin_non_time_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
} else {
if ($cc_time_period >= $non_admin_limit ) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $non_admin_limit;
} else {
$num_wanted = $non_admin_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
}
}
if ($type eq "uid") {

my $comments = $reader->getCommentsByUID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
if ($store_cutoff
&& $comments && $cc_all >= $store_cutoff && $min_comment == 0
&& scalar(@$comments) == $num_wanted) {
my $min_cid = 0;
for my $comment (@$comments) {
$min_cid = $comment->{cid}
if !$min_cid || ($comment->{cid} < $min_cid);
}
if ($min_cid && $min_cid =~/^\d+$/) {
$slashdb->setUser($value, {
"com_num_".$num_wanted."_at_or_after_cid" => $min_cid
});
}

}
return $comments;
} elsif ($type eq "ipid"){
return $reader->getCommentsByIPID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} elsif ($type eq "subnetid"){
return $reader->getCommentsBySubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} else {
return $reader->getCommentsByIPIDOrSubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
}
}
createEnvironment();
main();

1;

</pre>

PerlModuleUsers

2014-03-01T19:15:14Z

50.45.173.59:

[[CssWork]] parent

<h2>Man page for users</h2>
Don't waste your time...

<pre>
# man Slash::Users
No manual entry for Slash::Users
[root@slashcode htdocs]# man Slash::Users2
Users2(3) User Contributed Perl Documentation Users2(3)

NAME
Slash::Users2

SYNOPSIS
use Slash::Users2;

DESCRIPTION
Provides homepages for users.

AUTHOR
Christopher Brown, cbrown@corp.sourcefore.com

SEE ALSO
perl(1).

perl v5.10.1 2014-02-20 Users2(3)

</pre>

<h2>Source of users.pl</h2>
<pre>
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2005 by Open Source Technology Group. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id$

use strict;
use Digest::MD5 'md5_hex';
use Slash;
use Slash::Display;
use Slash::Utility;
use Slash::Constants qw(:messages);

#################################################################
sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();
my $formname = $0;
$formname =~ s/.*\/(\w+)\.pl/$1/;

my $error_flag = 0;
my $formkey = $form->{formkey};

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0 ;
my $postflag = $user->{state}{post};
my $op = lc($form->{op});

# savepasswd is a special case, because once it's called, you
# have to reload the form, and you don't want to do any checks if
# you've just saved.
my $savepass_flag = $op eq 'savepasswd' ? 1 : 0 ;

my $ops = {
admin => {
function => \&adminDispatch,
seclev => 10000, # if this should be lower,
# then something else is
# broken, because it allows
# anyone with this seclev
# to change their own seclev
formname => $formname,
# just in case we need it for something else, we have it ...
checks => [ qw (generate_formkey) ],
},
# userlogin => {
# function => \&showInfo,
# seclev => 1,
# formname => $formname,
# checks => [],
# tab_selected_1 => 'me',
# },
no_user => {
function => \&noUser,
seclev => 0,
formname => $formname,
checks => [],
},
userinfo => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
userfirehose => {
function => \&showFireHose,
seclev => 0,
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'firehose'
},
usersubmissions => {
function => \&showSubmissions,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
usercomments => {
function => \&showComments,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
display => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
# savepasswd => {
# function => \&savePasswd,
# seclev => 1,
# post => 1,
# formname => $formname,
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
saveuseradmin => {
function => \&saveUserAdmin,
seclev => 10000,
post => 1,
formname => $formname,
checks => [],
},
savehome => {
function => \&saveHome,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
savecomm => {
function => \&saveComm,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
saveuser => {
function => \&saveUser,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
# changepasswd => {
# function => \&changePasswd,
# seclev => 1,
# formname => $formname,
# checks => $savepass_flag ? [] :
# [ qw (generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
editmiscopts => {
function => \&editMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
savemiscopts => {
function => \&saveMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
edituser => {
function => \&editUser,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
authoredit => {
function => \&editUser,
seclev => 10000,
formname => $formname,
checks => [],
},
edithome => {
function => \&editHome,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
editcomm => {
function => \&editComm,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
# newuser => {
# function => \&newUser,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# },
newuseradmin => {
function => \&newUserForm,
seclev => 10000,
formname => "${formname}/nu",
checks => [],
},
previewbox => {
function => \&previewSlashbox,
seclev => 0,
formname => $formname,
checks => [],
},
# mailpasswd => {
# function => \&mailPasswd,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check valid_check
# interval_check formkey_check ) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
validateuser => {
function => \&validateUser,
seclev => 1,
formname => $formname,
checks => ['regen_formkey'],
},
showtags => {
function => \&showTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
showbookmarks => {
function => \&showBookmarks,
seclev => 0,
formname => $formname,
checks => [],
tab_selected => 'bookmarks',
},
edittags => {
function => \&editTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
savetags => {
function => \&saveTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
# userclose => {
# function => \&displayForm,
# seclev => 0,
# formname => $formname,
# checks => [],
# },
# newuserform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check
# generate_formkey) ],
# },
# mailpasswdform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check
# generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
displayform => {
function => \&displayForm,
seclev => 0,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'me',
},
listreadonly => {
function => \&listReadOnly,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'readonly',
},
listbanned => {
function => \&listBanned,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'banned',
},
topabusers => {
function => \&topAbusers,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'abusers',
},
listabuses => {
function => \&listAbuses,
seclev => 100,
formname => $formname,
checks => [],
},
force_acct_verify => {
function => \&forceAccountVerify,
seclev => 100,
post => 1,
formname => $formname,
checks => []
}

} ;

# Note this is NOT the default op. "userlogin" or "userinfo" is
# the default op, and it's set either 5 lines down or about 100
# lines down, depending. Yes, that's dumb. Yes, we should
# change it. It would require tracing through a fair bit of logic
# though and I don't have the time right now. - Jamie
$ops->{default} = $ops->{displayform};
for (qw(newuser newuserform mailpasswd mailpasswdform changepasswd savepasswd userlogin userclose)) {
$ops->{$_} = $ops->{default};
}

my $errornote = "";
if ($form->{op} && ! defined $ops->{$op}) {
$errornote .= getError('bad_op', { op => $form->{op}}, 0, 1);
$op = $user->{is_anon} ? 'userlogin' : 'userinfo';
}

if ($op eq 'userlogin' && ! $user->{is_anon}) {
redirect(cleanRedirectUrl($form->{returnto} || ''));
return;

# this will only redirect if it is a section-based rootdir with
# its rootdir different from real_rootdir
} elsif ($op eq 'userclose' && $gSkin->{rootdir} ne $constants->{real_rootdir}) {
redirect($constants->{real_rootdir} . '/login.pl?op=userclose');
return;

} elsif ($op =~ /^(?:newuser|newuserform|mailpasswd|mailpasswdform|changepasswd|savepasswd|userlogin|userclose|displayform)$/) {
my $op = $form->{op};
$op = 'changeprefs' if $op eq 'changepasswd';
$op = 'saveprefs' if $op eq 'savepasswd';
redirect($constants->{real_rootdir} . '/login.pl?op=' . $op);
return;

# never get here now
} elsif ($op eq 'savepasswd') {
my $error_flag = 0;
if ($user->{seclev} < 100) {
for my $check (@{$ops->{savepasswd}{checks}}) {
# the only way to save the error message is to pass by ref
# $errornote and add the message to note (you can't print
# it out before header is called)
$error_flag = formkeyHandler($check, $formname, $formkey, \$errornote);
last if $error_flag;
}
}

if (! $error_flag) {
$error_flag = savePasswd({ noteref => \$errornote }) ;
}
# change op to edituser and let fall through;
# we need to have savePasswd set the cookie before
# header() is called -- pudge
if ($user->{seclev} < 100 && ! $error_flag) {
$slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
$op = $error_flag ? 'changepasswd' : 'userinfo';
$form->{userfield} = $user->{uid};
}

# Figure out what the op really is.
$op = 'userinfo' if (! $form->{op} && ($form->{uid} || $form->{nick}));
$op ||= $user->{is_anon} ? 'userlogin' : 'userinfo';
if ($user->{is_anon} && ( ($ops->{$op}{seclev} > 0) || ($op =~ /^newuserform|mailpasswdform|displayform$/) )) {
redirect($constants->{real_rootdir} . '/login.pl');
return;
} elsif ($user->{seclev} < $ops->{$op}{seclev}) {
$op = 'userinfo';
}
if ($ops->{$op}{post} && !$postflag) {
$op = $user->{is_anon} ? 'default' : 'userinfo';
}

# Print the header and very top stuff on the page. We have
# three ops that (may) end up routing into showInfo(), which
# needs to do some stuff before it calls header(), so for
# those three, don't bother.
my $header;
if ($op !~ /^(userinfo|display|saveuseradmin|admin|userfirehose$)/) {
my $data = {
adminmenu => $ops->{$op}{adminmenu} || 'admin',
tab_selected => $ops->{$op}{tab_selected},
};
header(getMessage('user_header'), '', $data) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $errornote }) if defined $errornote;
$header = 1;
}

if ($constants->{admin_formkeys} || $user->{seclev} < 100) {

my $done = 0;
$done = 1 if $op eq 'savepasswd'; # special case
$formname = $ops->{$op}{formname};

# No need for HumanConf if the constant for it is not
# switched on, or if the user's karma is high enough
# to get out of it. (But for "newuserform," the current
# user's karma doesn't get them out of having to prove
# they're a human for creating a *new* user.)
my $options = {};
if ( !$constants->{plugin}{HumanConf}
|| !$constants->{hc}
|| !$constants->{hc_sw_newuser}
&& ($formname eq 'users/nu' || $op eq 'newuserform')
|| !$constants->{hc_sw_mailpasswd}
&& ($formname eq 'users/mp' || $op eq 'mailpasswdform')
|| $user->{karma} > $constants->{hc_maxkarma}
&& !$user->{is_anon}
&& !($op eq 'newuser' || $op eq 'newuserform')
) {
$options->{no_hc} = 1;
}

DO_CHECKS: while (!$done) {
for my $check (@{$ops->{$op}{checks}}) {
$ops->{$op}{update_formkey} = 1 if $check eq 'formkey_check';
$error_flag = formkeyHandler($check, $formname, $formkey,
undef, $options);
if ($error_flag == -1) {
# Special error: HumanConf failed. Go
# back to the previous op, start over.
if ($op =~ /^(newuser|mailpasswd)$/) {
$op .= "form";
$error_flag = 0;
next DO_CHECKS;
}
} elsif ($error_flag) {
$done = 1;
last;
}
}
$done = 1;
}

if (!$error_flag && !$options->{no_hc}) {
my $hc = getObject("Slash::HumanConf");
$hc->reloadFormkeyHC($formname) if $hc;
}

}

errorLog("users.pl error_flag '$error_flag'") if $error_flag;

# call the method
my $retval;
$retval = $ops->{$op}{function}->({
op => $op,
tab_selected_1 => $ops->{$op}{tab_selected_1} || "",
note => $errornote,
}) if !$error_flag;

return if !$retval;

if ($op eq 'mailpasswd' && $retval) {
$ops->{$op}{update_formkey} = 0;
}

if ($ops->{$op}{update_formkey} && $user->{seclev} < 100 && ! $error_flag) {
# successful save action, no formkey errors, update existing formkey
# why assign to an unused variable? -- pudge
my $updated = $slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
# if there were legit error levels returned from the save methods
# I would have it clear the formkey in case of an error, but that
# needs to be sorted out later
# else { resetFormkey($formkey); }

writeLog($user->{nickname});
footer();
}

#################################################################
sub checkList {
my($string, $len) = @_;
my $constants = getCurrentStatic();

$string =~ s/[^\w,-]//g;
my @items = grep { $_ } split /,/, $string;
$string = join ",", @items;

$len ||= $constants->{checklist_length} || 255;
if (length($string) > $len) {
print getError('checklist_err');
$string = substr($string, 0, $len);
$string =~ s/,?\w*$//g;
} elsif (length($string) < 1) {
$string = '';
}

return $string;
}

#################################################################
sub previewSlashbox {
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();

my $block = $reader->getBlock($form->{bid}, ['title', 'block', 'url']);
my $is_editable = $user->{seclev} >= 1000;

my $title = getTitle('previewslashbox_title', { blocktitle => $block->{title} });
slashDisplay('previewSlashbox', {
width => '100%',
title => $title,
block => $block,
is_editable => $is_editable,
});

print portalbox($constants->{fancyboxwidth}, $block->{title},
$block->{block}, '', $block->{url});
}

#################################################################
sub newUserForm {
my $user = getCurrentUser();
my $suadmin_flag = $user->{seclev} >= 10000;
my $title = getTitle('newUserForm_title');

slashDisplay('newUserForm', {
title => $title,
suadmin_flag => $suadmin_flag,
});
}

#################################################################
sub newUser {
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $plugins = $slashdb->getDescriptions('plugins');
my $title;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

# Check if User Exists
$form->{newusernick} = nickFix($form->{newusernick});
my $matchname = nick2matchname($form->{newusernick});

if (!$form->{email} || $form->{email} !~ /\@/) {
print getError('email_invalid', 0, 1);
return;
} elsif ($form->{email} ne $form->{email2}) {
print getError('email_do_not_match', 0, 1);
return;
} elsif ($slashdb->existsEmail($form->{email})) {
print getError('emailexists_err', 0, 1);
return;
} elsif ($matchname ne '' && $form->{newusernick} ne '') {
if ($constants->{newuser_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
print getError('new user open proxy', {
unencoded_ip => $ENV{REMOTE_ADDR},
port => $is_proxy,
});
return;
}
}
}
my $uid;
my $rootdir = getCurrentSkin('rootdir');

$uid = $slashdb->createUser(
$matchname, $form->{email}, $form->{newusernick}
);
if ($uid) {
my $data = {};
getOtherUserParams($data);

for (qw(tzcode)) {
$data->{$_} = $form->{$_} if defined $form->{$_};
}
$data->{creation_ipid} = $user->{ipid};

$slashdb->setUser($uid, $data) if keys %$data;
$title = getTitle('newUser_title');

$form->{pubkey} = $plugins->{'Pubkey'} ?
strip_nohtml($form->{pubkey}, 1) : '';
print getMessage('newuser_msg', {
suadmin_flag => $suadmin_flag,
title => $title,
uid => $uid
});

if ($form->{newsletter} || $form->{comment_reply} || $form->{headlines}) {
my $messages = getObject('Slash::Messages');
my %params;
$params{MSG_CODE_COMMENT_REPLY()} = MSG_MODE_EMAIL()
if $form->{comment_reply};
$params{MSG_CODE_NEWSLETTER()} = MSG_MODE_EMAIL()
if $form->{newsletter};
$params{MSG_CODE_HEADLINES()} = MSG_MODE_EMAIL()
if $form->{headlines};
$messages->setPrefs($uid, \%params);
}

mailPasswd({ uid => $uid });

return;
} else {
$slashdb->resetFormkey($form->{formkey});
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}

} else {
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}
}

#################################################################
sub mailPasswd {
my($hr) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $uid = $hr->{uid} || 0;

my $slashdb = getCurrentDB();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if (! $uid) {
if ($form->{unickname} =~ /\@/) {
$uid = $slashdb->getUserEmail($form->{unickname});

} elsif ($form->{unickname} =~ /^\d+$/) {
my $tmpuser = $slashdb->getUser($form->{unickname}, ['uid']);
$uid = $tmpuser->{uid};

} else {
$uid = $slashdb->getUserUID($form->{unickname});
}
}

my $user_edit;
my $err_name = '';
my $err_opts = {};
if (!$uid || isAnon($uid)) {
$err_name = 'mailpasswd_notmailed_err';
}
if (!$err_name) {
# Check permissions of _this_ user, not the target
# user, to determine whether this IP is OK'd to
# send the mail to the target user.
# XXXSRCID This should check a separate field like
# 'openproxy' instead of piggybacking off of the
# existing nopost and spammer
my $srcids_to_check = $user->{srcids};
$err_name = 'mailpasswd_readonly_err'
if $reader->checkAL2($srcids_to_check, 'nopost');
}
if (!$err_name) {
$err_name = 'mailpasswd_toooften_err'
if $slashdb->checkMaxMailPasswords($user_edit);
}

if (!$err_name) {
if ($constants->{mailpasswd_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
$err_name = 'mailpasswd open proxy';
$err_opts = { unencoded_ip => $ENV{REMOTE_ADDR}, port => $is_proxy };
}
}

}
}

if ($err_name) {
print getError($err_name, $err_opts);
$slashdb->resetFormkey($form->{formkey});
$form->{op} = 'mailpasswdform';
displayForm();
return(1);
}

my $newpasswd = $slashdb->getNewPasswd($uid);
my $tempnick = $user_edit->{nickname};

my $emailtitle = getTitle('mailPassword_email_title', {
nickname => $user_edit->{nickname}
}, 1);

# Pull out some data passed in with the request. Only the IP
# number is actually trustworthy, the others could be forged.
# Note that we strip the forgeable ones to make sure there
# aren't any "<>" chars which could fool a stupid mail client
# into parsing a plaintext email as HTML.
my $r = Apache->request;
my $remote_ip = $r->connection->remote_ip;
my $xff = $r->header_in('X-Forwarded-For') || '';
$xff =~ s/\s+/ /g;
$xff = substr(strip_notags($xff), 0, 20);
my $ua = $r->header_in('User-Agent') || '';
$ua =~ s/\s+/ /g;
$ua = substr(strip_attribute($ua), 0, 60);

my $msg = getMessage('mailpasswd_msg', {
newpasswd => $newpasswd,
tempnick => $tempnick,
remote_ip => $remote_ip,
x_forwarded_for => $xff,
user_agent => $ua,
}, 1);

doEmail($uid, $emailtitle, $msg) if $user_edit->{nickname};
print getMessage('mailpasswd_mailed_msg', { name => $user_edit->{nickname} });
$slashdb->setUserMailPasswd($user_edit);
}

#################################################################
sub showSubmissions {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my($uid, $nickname);

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if ($form->{uid} or $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$nickname = $reader->getUser($uid, 'nickname');
} else {
$nickname = $user->{nickname};
$uid = $user->{uid};
}

my $storycount = $reader->countStoriesBySubmitter($uid);
my $stories = $reader->getStoriesBySubmitter(
$uid,
$constants->{user_submitter_display_default}
) unless !$storycount;

slashDisplay('userSub', {
nick => $nickname,
uid => $uid,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
stories => $stories,
storycount => $storycount,
});
}

#################################################################
sub showComments {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $commentstruct = [];
my($uid, $nickname);

my $user_edit;
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$user_edit = $reader->getUser($uid);
} else {
$uid = $user->{uid};
$user_edit = $user;
}
$nickname = $user_edit->{nickname};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};
my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $commentcount = $reader->countCommentsByUID($uid);
my $comments = $reader->getCommentsByUID(
$uid, $comments_wanted, $min_comment
) if $commentcount;

if (ref($comments) eq 'ARRAY') {
my $kinds = $reader->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
# This works since $sid is numeric.
$comment->{replies} = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is ok, since with all luck we will not be hitting the DB
# ...however, the "sid" parameter here must be the string
# based SID from either the "stories" table or from
# pollquestions.
my $discussion = $reader->getDiscussion($comment->{sid});

if ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$comment->{type} = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$comment->{type} = 'poll';
} else {
$comment->{type} = 'story';
}
$comment->{disc_title} = $discussion->{title};
$comment->{url} = $discussion->{url};
}
}

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
slashDisplay('userCom', {
nick => $nickname,
useredit => $user_edit,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
commentstruct => $comments,
commentcount => $commentcount,
min_comment => $min_comment,
reasons => $mod_reader->getReasons(),
karma_flag => 0,
admin_flag => $user->{is_admin},
});
}

sub noUser {
print getData("no_user");
}

sub showFireHose {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $uid = $form->{uid} || $user->{uid};
my $user_edit = $reader->getUser($uid);

$user->{state}{firehose_page} = "user";
$user->{state}{firehose_user_uid} = $uid;

my $firehose = getObject("Slash::FireHose");
header(getMessage('userfirehose_header', { useredit => $user_edit })) or return;
print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

$form->{mode} = "full";
$form->{color} = "black";
$form->{orderby} = "createtime";
$form->{orderdir} = "DESC";
$form->{skipmenu} = 1;
$form->{duration} = -1;
$form->{fhfilter} = "\"user:$user_edit->{nickname}\"";
$form->{pause} = 1;
$form->{listonly} = 1;
$form->{legacy} = 1;

my $fhbox = $firehose->listView({ fh_page => 'users.pl', tab => 'userfirehose', user_view => $user_edit });
slashDisplay("userFireHose", { firehosebox => $fhbox, uid => $uid, useredit => $user_edit });
}

#################################################################
# arhgghgh. I love torture. I love pain. This subroutine satisfies
# these needs of mine
sub showInfo {
my($hr) = @_;
my $id = $hr->{uid} || 0;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;
my($title, $admin_block, $fieldkey) = ('', '', '');
my $comments = undef;
my $commentcount = 0;
my $commentcount_time = 0;
my $commentstruct = [];
my $requested_user = {};
my $time_period = $constants->{admin_comment_display_days} || 30;
my $cid_for_time_period = $reader->getVar("min_cid_last_$time_period\_days",'value', 1) || 0;
my $admin_time_period_limit = $constants->{admin_daysback_commentlimit} || 100;
my $admin_non_time_limit = $constants->{admin_comment_subsequent_pagesize} || 24;

my($points, $nickmatch_flag, $uid, $nick);
my($mod_flag, $karma_flag, $n) = (0, 0, 0);

if ($admin_flag
&& (defined($form->{show_m2s}) || defined($form->{show_m1s}) || defined($form->{m2_listing})))
{
my $update_hr = {};
$update_hr->{mod_with_comm} = $form->{show_m1s}
if defined $form->{show_m1s};
$update_hr->{m2_with_mod} = ($constants->{m2} ? $form->{show_m2s} : undef)
if defined $form->{show_m2s};
$update_hr->{show_m2_listing} = ($constants->{m2} ? $form->{m2_listing} : undef)
if defined $form->{m2_listing};
$slashdb->setUser($user->{uid}, $update_hr);
}

if (!$id && !$form->{userfield}) {
if ($form->{uid} && ! $id) {
$fieldkey = 'uid';
($uid, $id) = ($form->{uid}, $form->{uid});
$requested_user = isAnon($uid) ? $user : $reader->getUser($id);
$nick = $requested_user->{nickname};
$form->{userfield} = $nick if $admin_flag;

} elsif ($form->{nick} && ! $id) {
$fieldkey = 'nickname';
($nick, $id) = ($form->{nick}, $form->{nick});
$uid = $reader->getUserUID($id);
if (isAnon($uid)) {
$requested_user = $user;
($nick, $uid, $id) = @{$user}{qw(nickname uid nickname)};
} else {
$requested_user = $reader->getUser($uid);
}
$form->{userfield} = $uid if $admin_flag;

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
$form->{userfield} = $uid if $admin_flag;
}

} elsif ($user->{is_admin}) {
$id ||= $form->{userfield} || $user->{uid};
if ($id =~ /^[0-9a-f]{16}$/) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^\d+$/) {
# If it's longer than a uid could possibly be, it
# must be a srcid. The uid column right now is a
# MEDIUMINT (max 16M) but at most might someday
# be an INT (max 4G).
if (length($id) > 11) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} else {
$fieldkey = 'uid';
$requested_user = $reader->getUser($id);
$uid = $requested_user->{uid};
$nick = $requested_user->{nickname};
if ((my $conflict_id = $reader->getUserUID($id)) && $form->{userinfo}) {
slashDisplay('showInfoConflict', {
op => 'userinfo',
id => $uid,
nick => $nick,
conflict_id => $conflict_id
});
return 1;
}
}

} elsif (length($id) == 32) {
$requested_user->{nonuid} = 1;
if ($form->{fieldname}
&& $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$fieldkey = $form->{fieldname};
} else {
$fieldkey = 'md5id';
}
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^(\d{1,3}\.\d{1,3}.\d{1,3}\.0)$/
|| $id =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3})\.?$/) {
$fieldkey = 'subnetid';
$requested_user->{subnetid} = $1;
$requested_user->{subnetid} .= '.0' if $requested_user->{subnetid} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}$/;
$requested_user->{nonuid} = 1;
$requested_user->{subnetid} = md5_hex($requested_user->{subnetid});

} elsif ($id =~ /^([\d+\.]+)$/) {
$fieldkey = 'ipid';
$requested_user->{nonuid} = 1;
$id ||= $1;
$requested_user->{ipid} = md5_hex($1);

} elsif ($id =~ /^(.*@.*\..*?)$/) {
# check for email addy, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserEmail($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};

} else { # go by nickname, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserUID($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};
}

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
}

# Can't get user data for the anonymous user.
if ($fieldkey eq 'uid' && isAnon($uid)) {
header(getMessage('user_header')) or return;
return displayForm();
}

my $user_change = { };
if ($fieldkey eq 'uid' && !$user->{is_anon}
&& $uid != $user->{uid} && !isAnon($uid)) {
# Store the fact that this user last looked at that user.
# For maximal convenience in stalking.
$user_change->{lastlookuid} = $uid;
$user_change->{lastlooktime} = time;
$user->{lastlookuid} = $uid;
$user->{lastlooktime} = time;
$hr->{tab_selected_1} = 'otheruser';
}

# showInfo's header information is delayed until here, because
# the target user's info is not available until here.
vislenify($requested_user);
header(getMessage('user_header', { useredit => $requested_user, fieldkey => $fieldkey })) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $hr->{note} }) if defined $hr->{note};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};

my($netid, $netid_vis) = ('', '');

my $comment_time;
my $non_admin_limit = $comments_wanted;

if ($requested_user->{nonuid}) {
$requested_user->{fg} = $user->{fg};
$requested_user->{bg} = $user->{bg};

if ($requested_user->{ipid}) {
$netid = $requested_user->{ipid} ;

} elsif ($requested_user->{md5id}) {
$netid = $requested_user->{md5id} ;

} elsif ($requested_user->{srcid}) {
$netid = $requested_user->{srcid} ;
} else {
$netid = $requested_user->{subnetid} ;
}

my $data = {
id => $id,
md5id => $netid,
};
vislenify($data); # add $data->{md5id_vis}
$netid_vis = $data->{md5id_vis};

$title = getTitle('user_netID_user_title', $data);

$admin_block = getUserAdmin($netid, $fieldkey, 0) if $admin_flag;

if ($form->{fieldname}) {
if ($form->{fieldname} eq 'ipid') {
$commentcount = $reader->countCommentsByIPID($netid);
$commentcount_time = $reader->countCommentsByIPID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($form->{fieldname} eq 'subnetid') {
$commentcount = $reader->countCommentsBySubnetID($netid);
$commentcount_time = $reader->countCommentsBySubnetID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;

} else {
delete $form->{fieldname};
}
}
if (!defined($comments)) {
# Last resort; here for backwards compatibility mostly.
my $type;
($commentcount,$type) = $reader->countCommentsByIPIDOrSubnetID($netid);
$commentcount_time = $reader->countCommentsByIPIDOrSubnetID($netid, { cid_at_or_after => $cid_for_time_period });
if ($type eq "ipid") {
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($type eq "subnetid") {
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
}
}
} else {
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$commentcount = $reader->countCommentsByUID($requested_user->{uid});
$commentcount_time = $reader->countCommentsByUID($requested_user->{uid}, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("uid", $requested_user->{uid},
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit,
{ use_uid_cid_cutoff => 1 })
if $commentcount;
$netid = $requested_user->{uid};
}

# Grab the nicks of the uids we have, we're going to be adding them
# into the struct.
my @users_extra_cols_wanted = qw( nickname );
my @discussions_extra_cols_wanted = qw( type );
my $uid_hr = { };
my $sid_hr = { };
if ($comments && @$comments) {
my %uids = ();
my %sids = ();
for my $c (@$comments) {
$uids{$c->{uid}}++;
$sids{$c->{sid}}++;
}
my $uids = join(", ", sort { $a <=> $b } keys %uids);
my $sids = join(", ", sort { $a <=> $b } keys %sids);
$uid_hr = $reader->sqlSelectAllHashref(
"uid",
"uid, " . join(", ", @users_extra_cols_wanted),
"users",
"uid IN ($uids)"
);

$sid_hr = $reader->sqlSelectAllHashref(
"id",
"id, " . join(", ", @discussions_extra_cols_wanted),
"discussions",
"id IN ($sids)"
);

}

my $cids_seen = {};
my $kinds = $slashdb->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
$cids_seen->{$comment->{cid}}++;
my $type;
# This works since $sid is numeric.
my $replies = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is cached.
my $discussion = $reader->getDiscussion($comment->{sid});
#use Data::Dumper; if ($discussion && !$discussion->{dkid}) { print STDERR scalar(gmtime) . " users.pl discussion but no dkid: " . Dumper($discussion) }
if (!$discussion || !$discussion->{dkid}) {
# A comment with no accompanying discussion;
# basically we pretend it doesn't exist.
next;
} elsif ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$type = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$type = 'poll';
} else {
$type = 'story';
}

$comment->{points} += $user->{karma_bonus}
if $user->{karma_bonus} && $comment->{karma_bonus} eq 'yes';
$comment->{points} += $user->{subscriber_bonus}
if $user->{subscriber_bonus} && $comment->{subscriber_bonus} eq 'yes';

# fix points in case they are out of bounds
$comment->{points} = $constants->{comment_minscore} if $comment->{points} < $constants->{comment_minscore};
$comment->{points} = $constants->{comment_maxscore} if $comment->{points} > $constants->{comment_maxscore};
vislenify($comment);
my $data = {
pid => $comment->{pid},
url => $discussion->{url},
disc_type => $type,
disc_title => $discussion->{title},
disc_time => $discussion->{ts},
sid => $comment->{sid},
cid => $comment->{cid},
subj => $comment->{subject},
cdate => $comment->{date},
pts => $comment->{points},
reason => $comment->{reason},
uid => $comment->{uid},
replies => $replies,
ipid => $comment->{ipid},
ipid_vis => $comment->{ipid_vis},
karma => $comment->{karma},
tweak => $comment->{tweak},
tweak_orig => $comment->{tweak_orig},

};
#Karma bonus time

for my $col (@users_extra_cols_wanted) {
$data->{$col} = $uid_hr->{$comment->{uid}}{$col} if defined $uid_hr->{$comment->{uid}}{$col};
}
for my $col(@discussions_extra_cols_wanted) {
$data->{$col} = $sid_hr->{$comment->{sid}}{$col} if defined $sid_hr->{$comment->{sid}}{$col};
}
push @$commentstruct, $data;
}
# if (grep { !defined($_->{disc_time}) || !defined($_->{sid}) } @$commentstruct) { use Data::Dumper; print STDERR "showInfo undef in commentstruct for id=$id: " . Dumper($commentstruct) }
# Sort so the chosen group of comments is sorted by discussion
@$commentstruct = sort {
$b->{disc_time} cmp $a->{disc_time} || $b->{sid} <=> $a->{sid}
} @$commentstruct
unless $user->{user_comment_sort_type} && $user->{user_comment_sort_type} == 1;

my $cid_list = [ keys %$cids_seen ];
my $cids_to_mods = {};
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
if ($constants->{m1} && $admin_flag && $constants->{show_mods_with_comments}) {
my $comment_mods = $mod_reader->getModeratorCommentLog("DESC",
$constants->{mod_limit_with_comments}, "cidin", $cid_list);

# Loop through mods and group them by the sid they're attached to
while (my $mod = shift @$comment_mods) {
push @{$cids_to_mods->{$mod->{cid}}}, $mod;
}
}

my $sub_limit = ((($admin_flag || $user->{uid} == $requested_user->{uid}) ? $constants->{submissions_all_page_size} : $constants->{submissions_accepted_only_page_size}) || "");

my $sub_options = { limit_days => 365 };
$sub_options->{accepted_only} = 1 if !$admin_flag && $user->{uid} != $requested_user->{uid};

my $sub_field = $form->{fieldname};

my ($subcount, $ret_field) = $reader->countSubmissionsByNetID($netid, $sub_field)
if $requested_user->{nonuid};
my $submissions = $reader->getSubmissionsByNetID($netid, $ret_field, $sub_limit, $sub_options)
if $requested_user->{nonuid};

my $ipid_hoursback = $constants->{istroll_ipid_hours} || 72;
my $uid_hoursback = $constants->{istroll_uid_hours} || 72;

if ($requested_user->{nonuid}) {
slashDisplay('netIDInfo', {
title => $title,
id => $id,
useredit => $requested_user,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
admin_flag => $admin_flag,
admin_block => $admin_block,
netid => $netid,
netid_vis => $netid_vis,
reasons => $mod_reader->getReasons(),
subcount => $subcount,
submissions => $submissions,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time
});

} else {
if (! $requested_user->{uid}) {
print getError('userinfo_idnf_err', { id => $id, fieldkey => $fieldkey});
return 1;
}

$karma_flag = 1 if $admin_flag;
$requested_user->{nick_plain} = $nick ||= $requested_user->{nickname};
$nick = strip_literal($nick);

if ($requested_user->{uid} == $user->{uid}) {
$karma_flag = 1;
$nickmatch_flag = 1;
$points = $requested_user->{points};

$mod_flag = 1 if $points > 0;

$title = getTitle('userInfo_main_title', { nick => $nick, uid => $uid });

} else {
$title = getTitle('userInfo_user_title', { nick => $nick, uid => $uid });
}

my $lastjournal = _get_lastjournal($uid);

my $subcount = $reader->countSubmissionsByUID($uid);

my $submissions = $reader->getSubmissionsByUID($uid, $sub_limit, $sub_options);
my $metamods;
if ($constants->{m2} && $admin_flag) {
my $metamod_reader = getObject('Slash::Metamod', { db_type => 'reader' });
$metamods = $metamod_reader->getMetamodlogForUser($uid, 30);
}

my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });
my $tagshist = [];
if ($tags_reader && $user->{is_admin}) {
$tagshist = $tags_reader->getAllTagsFromUser($requested_user->{uid}, { orderby => 'created_at', orderdir => 'DESC', limit => 30, include_private => 1 });
}

slashDisplay('userInfo', {
title => $title,
uid => $uid,
useredit => $requested_user,
points => $points,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
nickmatch_flag => $nickmatch_flag,
mod_flag => $mod_flag,
karma_flag => $karma_flag,
admin_block => $admin_block,
admin_flag => $admin_flag,
suadmin_flag => $suadmin_flag,
reasons => $mod_reader->getReasons(),
lastjournal => $lastjournal,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time,
submissions => $submissions,
subcount => $subcount,
metamods => $metamods,
tagshist => $tagshist
});
}

if ($user_change && %$user_change) {
$slashdb->setUser($user->{uid}, $user_change);
}

return 1;
}

sub _get_lastjournal {
my($uid) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $lastjournal = undef;
if (my $journal = getObject('Slash::Journal', { db_type => 'reader' })) {
my $j = $journal->getsByUid($uid, 0, 1);
if ($j && @$j) {
# Yep, there are 1 or more journals... get the first.
$j = $j->[0];
}
if ($j && @$j) {
# Yep, that first journal exists and has entries...
# convert from stupid numeric array to a hashref.
my @field = qw( date article description id
posttype tid discussion );
$lastjournal = { };
for my $i (0..$#field) {
$lastjournal->{$field[$i]} = $j->[$i];
}
}
}

if ($lastjournal) {

# Strip the article field for display.
$lastjournal->{article} = strip_mode($lastjournal->{article},
$lastjournal->{posttype});

# For display, include a reduced-size version, where the
# size is based on the user's maxcomment size (which
# defaults to 4K) and can't have too many line-breaking
# tags.
my $art_shrunk = $lastjournal->{article};
my $maxsize = int($constants->{default_maxcommentsize} / 25);
$maxsize = 80 if $maxsize < 80;
$maxsize = 600 if $maxsize > 600;
$art_shrunk = chopEntity($art_shrunk, $maxsize);

my $approvedtags_break = $constants->{approvedtags_break} || [];
my $break_tag = join '|', @$approvedtags_break;
if (scalar(() = $art_shrunk =~ /<(?:$break_tag)>/gi) > 2) {
$art_shrunk =~ s/\A
(
(?: <(?:$break_tag)> )?
.*? <(?:$break_tag)>
.*?
) <(?:$break_tag)>.*
/$1/six;
if (length($art_shrunk) < 15) {
# This journal entry has too much whitespace
# in its first few chars; scrap it.
undef $art_shrunk;
}
$art_shrunk = chopEntity($art_shrunk) if defined($art_shrunk);
}

if (defined $art_shrunk) {
if (length($art_shrunk) < length($lastjournal->{article})) {
$art_shrunk .= " ...";
}
$art_shrunk = strip_html($art_shrunk);
$art_shrunk = balanceTags($art_shrunk);
}

$lastjournal->{article_shrunk} = $art_shrunk;

if ($lastjournal->{discussion}) {
$lastjournal->{commentcount} = $reader->getDiscussion(
$lastjournal->{discussion}, 'commentcount');
}
}
return $lastjournal;
}

#####################################################################
sub validateUser {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

# If we aren't expiring accounts in some way, we don't belong here.
if (! allowExpiry()) {
displayForm();
return;
}

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

# Since we are here, if the minimum values for the comment trigger and
# the day trigger are -1, then they should be reset to 1.
$constants->{min_expiry_comm} = $constants->{min_expiry_days} = 1
if $constants->{min_expiry_comm} <= 0 ||
$constants->{min_expiry_days} <= 0;

if ($user->{is_anon} || $user->{registered}) {
if ($user->{is_anon}) {
print getError('anon_validation_attempt');
displayForm();
return;
} else {
print getMessage('no_registration_needed')
if !$user->{reg_id};
showInfo({ uid => $user->{uid} });
return;
}
# Maybe this should be taken care of in a more centralized location?
} elsif ($user->{reg_id} eq $form->{id}) {
# We have a user and the registration IDs match. We are happy!
my($maxComm, $maxDays) = ($constants->{max_expiry_comm},
$constants->{max_expiry_days});
my($userComm, $userDays) =
($user->{user_expiry_comm}, $user->{user_expiry_days});

# Ensure both $userComm and $userDays aren't -1 (expiry has
# just been turned on).
$userComm = $constants->{min_expiry_comm}
if $userComm < $constants->{min_expiry_comm};
$userDays = $constants->{min_expiry_days}
if $userDays < $constants->{min_expiry_days};

my $exp = $constants->{expiry_exponent};

# Increment only the trigger that was used.
my $new_comment_expiry = ($maxComm > 0 && $userComm > $maxComm)
? $maxComm
: $userComm * (($user->{expiry_comm} < 0)
? $exp
: 1
);
my $new_days_expiry = ($maxDays > 0 && $userDays > $maxDays)
? $maxDays
: $userDays * (($user->{expiry_days} < 0)
? $exp
: 1
);

# Reset re-registration triggers for user.
$slashdb->setUser($user->{uid}, {
'expiry_comm' => $new_comment_expiry,
'expiry_days' => $new_days_expiry,
'user_expiry_comm' => $new_comment_expiry,
'user_expiry_days' => $new_days_expiry,
});

# Handles rest of re-registration process.
setUserExpired($user->{uid}, 0);
}

slashDisplay('regResult');
}

#####################################################################
sub editTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = $slashdb->getUser($user->{uid});
my $title = getTitle('editTags_title');

slashDisplay('editTags', {
user_edit => $user_edit,
title => $title,
note => $note,
});
}

sub saveTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

$slashdb->setUser($user->{uid}, {
tags_turnedoff => $form->{showtags} ? '' : 1 });
editTags({ note => getMessage('savetags_msg') });
}

#####################################################################
sub showTags {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

# XXX if $user_edit->{acl}{spammer}, either abort or put ref=nofollow in all links

my $tagname = $form->{tagname} || '';
$tagname = '' if !$tags_reader->tagnameSyntaxOK($tagname);

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tagnameid = $tags_reader->getTagnameidFromNameIfExists($tagname);
if ($tagnameid) {
# Show all user's tags for one particular tagname.
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid},
{ tagnameid => $tagnameid });
my $tags_ar = $tags_hr->{$tagname} || [ ];
slashDisplay('usertagsforname', {
useredit => $user_edit,
tagname => $tagname,
tags => $tags_ar,
});

} else {
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid});
my $num_tags = 0;
for my $tn (keys %$tags_hr) {
$num_tags += scalar @{ $tags_hr->{$tn} };
}
my $cutoff = $constants->{tags_usershow_cutoff} || 200;
if ($num_tags <= $cutoff) {
# Show all user's tags, grouped by tagname.
slashDisplay('usertags', {
useredit => $user_edit,
tags_grouped => $tags_hr,
});
} else {
# Show all user's tagnames, with links to show all
# tags for each particular tagname.
my $tagname_ar = [ sort keys %$tags_hr ];
slashDisplay('usertagnames', {
useredit => $user_edit,
tagnames => $tagname_ar,
});
}
}
}

#################################################################
sub showBookmarks {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tags_ar = $tags_reader->getGroupedTagsFromUser($user_edit->{uid}, { type => "urls", only_bookmarked => 1 });

slashDisplay('userbookmarks', {
useredit => $user_edit,
tags_grouped => $tags_ar,
});
}

#################################################################
sub editKey {
my($uid) = @_;

my $slashdb = getCurrentDB();

my $pubkey = $slashdb->getUser($uid, 'pubkey');
my $editkey = slashDisplay('editKey', { pubkey => $pubkey }, 1);
return $editkey;
}

#################################################################
# We arrive here without header() having been called. Some of the
# functions we dispatch to call it, some do not.
sub adminDispatch {
my($hr) = @_;
my $form = getCurrentForm();
my $op = $hr->{op} || $form->{op};

if ($op eq 'authoredit') {
# editUser() does not call header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
editUser($hr);

} elsif ($form->{saveuseradmin}) {
# saveUserAdmin() tail-calls showInfo(), which calls
# header(), so we need to NOT.
saveUserAdmin($hr);

} elsif ($form->{userinfo}) {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);

} elsif ($form->{userfield}) {
# none of these calls header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
if ($form->{edituser}) {
editUser($hr);

} elsif ($form->{edithome}) {
editHome($hr);

} elsif ($form->{editcomm}) {
editComm($hr);

} elsif ($form->{changepasswd}) {
changePasswd($hr);
}

} else {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);
}
}

#################################################################
sub tildeEd {
my($user_edit) = @_;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my %story023_default = (
author => { },
nexus => { },
topic => { },
);

my %prefs = ( );
for my $field (qw(
story_never_topic story_never_author story_never_nexus
story_always_topic story_always_author story_always_nexus story_brief_always_nexus
story_full_brief_nexus story_full_best_nexus story_brief_best_nexus
)) {
for my $id (
grep /^\d+$/,
split /,/,
($user_edit->{$field} || "")
) {
$prefs{$field}{$id} = 1;
}
}
#print STDERR scalar(localtime) . " prefs: " . Dumper(\%prefs);

# Set up $author_hr, @aid_order, and $story023_default{author}.

my $author_hr = $reader->getDescriptions('authors');
my @aid_order = sort { lc $author_hr->{$a} cmp lc $author_hr->{$b} } keys %$author_hr;
for my $aid (@aid_order) {
if ($prefs{story_never_author}{$aid}) {
$story023_default{author}{$aid} = 0;
} elsif ($prefs{story_always_author}{$aid}) {
$story023_default{author}{$aid} = 3;
} else {
$story023_default{author}{$aid} = 2;
}
}

# Set up $topic_hr, @topictid_order, and $story023_default{topic}.

my $topic_hr = $reader->getDescriptions('non_nexus_topics-storypickable');
my @topictid_order = sort { lc $topic_hr->{$a} cmp lc $topic_hr->{$b} } keys %$topic_hr;
for my $tid (@topictid_order) {
if ($prefs{story_never_topic}{$tid}) {
$story023_default{topic}{$tid} = 0;
} elsif ($prefs{story_always_topic}{$tid}) {
$story023_default{topic}{$tid} = 3;
} else {
$story023_default{topic}{$tid} = 2;
}
}

# Set up $nexus_hr, @nexustid_order, and $story023_default{nexus}.
my $topic_tree = $reader->getTopicTree();
my $nexus_tids_ar = $reader->getStorypickableNexusChildren($constants->{mainpage_nexus_tid}, 1);
my $nexus_hr = { };

for my $tid (@$nexus_tids_ar) {
$nexus_hr->{$tid} = $topic_tree->{$tid}{textname};
}
my @nexustid_order = sort {($b == $constants->{mainpage_nexus_tid}) <=> ($a == $constants->{mainpage_nexus_tid}) ||
lc $nexus_hr->{$a} cmp lc $nexus_hr->{$b} } keys %$nexus_hr;

my $mp_disp_nexuses = $reader->getMainpageDisplayableNexuses();
my %mp_disp_nexus = ( map { ($_, 1) } @$mp_disp_nexuses );
for my $tid (@nexustid_order) {
if ($prefs{story_never_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 0;
} elsif ($prefs{story_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 5;
} elsif ($prefs{story_full_brief_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 4;
} elsif ($prefs{story_brief_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 3;
} elsif ($prefs{story_full_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 2;
} elsif ($prefs{story_brief_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 1;
} else {
# If brief_sectional_mainpage is set, then all
# nexuses in getMainpageDisplayableNexuses are,
# by default, shown as brief on the mainpage.
if ($constants->{brief_sectional_mainpage}
&& $mp_disp_nexus{$tid}
) {
$story023_default{nexus}{$tid} = 4;
} else {
$story023_default{nexus}{$tid} = 2;
}
}
}

# Set up $section_descref and $box_order, used to decide which
# slashboxes appear. Really this doesn't seem to have anything
# to do with sections, so I'm not sure why it's called
# "section"_descref.

my $section_descref = { };
my $box_order;
my $sections_description = $reader->getSectionBlocks();

# the names of all the boxes in @{$skinBoxes->{$constants->{mainpage_skid}}}
# should be unioned into sections_description. whether the
# values are 0 or 1 is calculated correctly, but we're
# missing some 0's that should appear, I think, under
# some circumstances. ah heck, the whole concept of
# sectional slashboxes should be redone (why the heck
# do we have skinname_more instead of just a block
# called olderstories?)

my $slashboxes_hr = { };
my $slashboxes_textlist = $user_edit->{slashboxes};
if (!$slashboxes_textlist) {
# Use the default.
my($boxes, $skinBoxes) = $reader->getPortalsCommon();
$slashboxes_textlist = join ",", @{$skinBoxes->{$constants->{mainpage_skid}}};
}
for my $bid (
map { /^'?([^']+)'?$/; $1 }
split /,/,
$slashboxes_textlist
) {
$slashboxes_hr->{$bid} = 1;
}
for my $ary (sort { lc $a->[1] cmp lc $b->[1]} @$sections_description) {
my($bid, $title, $boldflag) = @$ary;
push @$box_order, $bid;
$section_descref->{$bid}{checked} =
$slashboxes_hr->{$bid}
? $constants->{markup_checked_attribute}
: '';
$title =~ s/<(.*?)>//g;
$section_descref->{$bid}{title} = $title;
}

my $dynamic_blocks = getObject("Slash::DynamicBlocks");
my $extra_blocks = [];
if ($dynamic_blocks) {
my $userblocks = $dynamic_blocks->getUserBlocks("name", $user_edit->{uid}) || {};
my $friendblocks = $dynamic_blocks->getFriendBlocks("name", $user_edit->{uid}) || {};
push(@$extra_blocks, grep { $slashboxes_textlist =~ $_; } (keys(%$userblocks), keys(%$friendblocks)));
}

# Userspace.
my $userspace = $user_edit->{mylinks} || "";

# Titles of stuff.
my $tildeEd_title = getTitle('tildeEd_title');
my $criteria_msg = getMessage('tilded_criteria_msg');
my $customize_title = getTitle('tildeEd_customize_title');
my $tilded_customize_msg = getMessage('tilded_customize_msg',
{ userspace => $userspace });
my $tilded_box_msg = getMessage('tilded_box_msg');

my $tilde_ed = slashDisplay('tildeEd', {
user_edit => $user_edit,
title => $tildeEd_title,
criteria_msg => $criteria_msg,
customize_title => $customize_title,
tilded_customize_msg => $tilded_customize_msg,
tilded_box_msg => $tilded_box_msg,

story023_default => \%story023_default,
authorref => $author_hr,
aid_order => \@aid_order,
topicref => $topic_hr,
topictid_order => \@topictid_order,
nexusref => $nexus_hr,
nexustid_order => \@nexustid_order,

section_descref => $section_descref,
box_order => $box_order,

userspace => $userspace,
extra_blocks => $extra_blocks,
}, 1);

return $tilde_ed;
}

#################################################################
sub changePasswd {
my($hr) = @_;
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = {};
my $title;
my $suadmin_flag = ($user->{seclev} >= 10000) ? 1 : 0;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

my $id = '';
if ($admin_flag) {
if ($form->{userfield}) {
$id ||= $form->{userfield};
if ($id =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$id = $user_edit->{uid};
}
} else {
$id = $user->{uid};
$user_edit = $user;
}

$admin_block = getUserAdmin($id, 'uid', 1) if $admin_flag;

# print getMessage('note', { note => $form->{note}}) if $form->{note};

$title = getTitle('changePasswd_title', { user_edit => $user_edit });

my $session = $slashdb->getDescriptions('session_login');
my $session_select = createSelect('session_login', $session, $user_edit->{session_login}, 1);

my $clocation = $slashdb->getDescriptions('cookie_location');
my @clocation_order = grep { exists $clocation->{$_} } qw(none classbid subnetid ipid);
my $clocation_select = createSelect('cookie_location', $clocation,
$user_edit->{cookie_location}, 1, 0, \@clocation_order
);

my $got_oldpass = 0;
if ($form->{oldpass}) {
my $return_uid = $slashdb->getUserAuthenticate($id, $form->{oldpass}, 1);
$got_oldpass = 1 if $return_uid && $id == $return_uid;
}

slashDisplay('changePasswd', {
useredit => $user_edit,
admin_flag => $suadmin_flag,
title => $title,
session => $session_select,
clocation => $clocation_select,
admin_block => $admin_block,
got_oldpass => $got_oldpass
});
}

#################################################################
sub editUser {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $plugins = $slashdb->getDescriptions('plugins');

my $user_edit = {};
my($admin_block, $title);
my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $fieldkey;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
$id = $user_edit->{uid};
}
return if isAnon($user_edit->{uid}) && ! $admin_flag;

$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;
$user_edit->{homepage} ||= "http://";

# Remove domain tags, they'll be added back in, in saveUser.
for my $dat (@{$user_edit}{qw(sig bio)}) {
$dat = parseDomainTags($dat, 0, 1);
}

$title = getTitle('editUser_title', { user_edit => $user_edit});

my $editkey = "";
$editkey = editKey($user_edit->{uid}) if $fieldkey eq 'uid' && $plugins->{PubKey};

slashDisplay('editUser', {
useredit => $user_edit,
admin_flag => $admin_flag,
title => $title,
editkey => $editkey,
admin_block => $admin_block,
note => $note,
});
}

#################################################################
sub editHome {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my($formats, $title, $tzformat_select);
my $user_edit = {};
my $fieldkey;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " user_edit: " . Dumper($user_edit);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editHome_title');

return if $user->{seclev} < 100 && isAnon($user_edit->{uid});

$formats = $slashdb->getDescriptions('dateformats');
$tzformat_select = createSelect('tzformat', $formats, $user_edit->{dfid}, 1);

my $lb_check = $user_edit->{lowbandwidth} ? $constants->{markup_checked_attribute} : '';
my $sd_check = $user_edit->{simpledesign} ? $constants->{markup_checked_attribute} : '';
my $i_check = $user_edit->{noicons} ? $constants->{markup_checked_attribute} : '';
my $w_check = $user_edit->{willing} ? $constants->{markup_checked_attribute} : '';
my $classic_check = $user_edit->{index_classic} ? $constants->{markup_checked_attribute} : '';

my $tilde_ed = tildeEd($user_edit);

slashDisplay('editHome', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
tzformat_select => $tzformat_select,
i_check => $i_check,
w_check => $w_check,
lb_check => $lb_check,
sd_check => $sd_check,
classic_check => $classic_check,
tilde_ed => $tilde_ed,
note => $note,
});
}

#################################################################
sub editComm {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $user_edit = {};
my($formats, $commentmodes_select, $commentsort_select, $title,
$uthreshold_select, $highlightthresh_select, $posttype_select,
$bytelimit_select);

my $admin_block = '';
my $fieldkey;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $admin_flag = $user->{is_admin} ? 1 : 0;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}

my $hi = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $lo = -$hi;
my @range = map { $_ > 0 ? "+$_" : $_ } ($lo .. $hi);

my @reasons = ( );
my %reason_select = ( );
if ($constants->{m1}) {
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}
# Reason modifiers
for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
$reason_select{$reason_name} = createSelect(
$key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}
}

# Zoo relation modifiers
my %people_select;
my @people = qw(friend foe anonymous fof eof freak fan);
for (@people) {
my $key = "people_bonus_$_";
$people_select{$_} = createSelect($key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}

# New-user modifier
my $new_user_bonus_select = createSelect('new_user_bonus', \@range,
$user_edit->{new_user_bonus} || 0, 1, 1);
my $new_user_percent_select = createSelect('new_user_percent',
[( 1..15, 20, 25, 30, 35, 40, 45, 50, 55,
60, 65, 70, 75, 80, 85, 90, 95 )],
$user_edit->{new_user_percent} || 100, 1, 1);
# Karma modifier
my $karma_bonus = createSelect('karma_bonus', \@range,
$user_edit->{karma_bonus} || 0, 1, 1);
# Subscriber modifier
my $subscriber_bonus = createSelect('subscriber_bonus', \@range,
$user_edit->{subscriber_bonus} || 0, 1, 1);

# Length modifier
my $small_length_bonus_select = createSelect('clsmall_bonus', \@range,
$user_edit->{clsmall_bonus} || 0, 1, 1);
my $long_length_bonus_select = createSelect('clbig_bonus', \@range,
$user_edit->{clbig_bonus} || 0, 1, 1);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editComm_title');

$formats = $slashdb->getDescriptions('commentmodes');
$commentmodes_select=createSelect('umode', $formats, $user_edit->{mode}, 1);

$formats = $slashdb->getDescriptions('sortcodes');
$commentsort_select = createSelect(
'commentsort', $formats, $user_edit->{commentsort}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$uthreshold_select = createSelect(
'uthreshold', $formats, $user_edit->{threshold}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$highlightthresh_select = createSelect(
'highlightthresh', $formats, $user_edit->{highlightthresh}, 1
);

$user_edit->{bytelimit} = $constants->{defaultbytelimit}
if $user_edit->{bytelimit} < 0 || $user_edit->{bytelimit} > 7;
my $bytelimit_desc = $user_edit->{is_subscriber} ? 'bytelimit' : 'bytelimit_sub';
$formats = $slashdb->getDescriptions($bytelimit_desc);
$bytelimit_select = createSelect(
'bytelimit', $formats, $user_edit->{bytelimit}, 1
);

my $h_check = $user_edit->{hardthresh} ? $constants->{markup_checked_attribute} : '';
my $r_check = $user_edit->{reparent} ? $constants->{markup_checked_attribute} : '';
my $n_check = $user_edit->{noscores} ? $constants->{markup_checked_attribute} : '';
my $s_check = $user_edit->{nosigs} ? $constants->{markup_checked_attribute} : '';
my $b_check = $user_edit->{nobonus} ? $constants->{markup_checked_attribute} : '';
my $sb_check = $user_edit->{nosubscriberbonus} ? $constants->{markup_checked_attribute} : '';
my $p_check = $user_edit->{postanon} ? $constants->{markup_checked_attribute} : '';
my $nospell_check = $user_edit->{no_spell} ? $constants->{markup_checked_attribute} : '';
my $s_mod_check = $user_edit->{mod_with_comm} ? $constants->{markup_checked_attribute} : '';
my $s_m2_check = $user_edit->{m2_with_mod} ? $constants->{markup_checked_attribute} : '';
my $s_m2c_check = $user_edit->{m2_with_comm_mod} ? $constants->{markup_checked_attribute} : '';

$formats = $slashdb->getDescriptions('postmodes');
$posttype_select = createSelect(
'posttype', $formats, $user_edit->{posttype}, 1
);

slashDisplay('editComm', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
h_check => $h_check,
r_check => $r_check,
n_check => $n_check,
s_check => $s_check,
b_check => $b_check,
sb_check => $sb_check,
p_check => $p_check,
s_mod_check => $s_mod_check,
s_m2_check => $s_m2_check,
s_m2c_check => $s_m2c_check,
nospell_check => $nospell_check,
commentmodes_select => $commentmodes_select,
commentsort_select => $commentsort_select,
highlightthresh_select => $highlightthresh_select,
uthreshold_select => $uthreshold_select,
posttype_select => $posttype_select,
reasons => \@reasons,
reason_select => \%reason_select,
people => \@people,
people_select => \%people_select,
new_user_percent_select => $new_user_percent_select,
new_user_bonus_select => $new_user_bonus_select,
note => $note,
karma_bonus => $karma_bonus,
subscriber_bonus => $subscriber_bonus,
small_length_bonus_select => $small_length_bonus_select,
long_length_bonus_select => $long_length_bonus_select,
bytelimit_select => $bytelimit_select,
});
}

#################################################################
sub saveUserAdmin {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my($user_edits_table, $user_edit) = ({}, {});
my $author_flag;
my $note = '';
my $srcid;
my $id;
my $user_editfield_flag;
my $banned = 0;
my $banref;
if ($form->{uid}) {
$user_editfield_flag = 'uid';
$id = $form->{uid};
$user_edit = $slashdb->getUser($id);
$srcid = $id;

} elsif ($form->{subnetid}) {
$user_editfield_flag = 'subnetid';
($id, $user_edit->{subnetid}) = ($form->{subnetid}, $form->{subnetid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(subnetid => $id);

} elsif ($form->{ipid}) {
$user_editfield_flag = 'ipid';
($id, $user_edit->{ipid}) = ($form->{ipid}, $form->{ipid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(ipid => $id);

} elsif ($form->{md5id}) {
$user_editfield_flag = 'md5id';
my $fieldname = $form->{fieldname} || 'md5id';
($id, $user_edit->{$fieldname})
= ($form->{md5id}, $form->{md5id});
warn "form field md5id specified, no srcid saving possible";

} elsif ($form->{srcid}) {
$user_editfield_flag = 'srcid';
my $fieldname = $form->{fieldname} || 'srcid';
($id, $user_edit->{$fieldname})
= ($form->{srcid}, $form->{srcid});
$srcid = $id;

} else {
# If we were not fed valid data, don't do anything.
return ;
}

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $all_al2types = $reader->getAL2Types;
my $al2_change = { };

# First, get a hash of what aclams (AL2's and ACLs) this user
# had when the previous admin page was loaded.
# XXXSRCID Right now acl_old is just calculated for debugging
# printing purposes, not actually used.
my @al2_old = ( );
@al2_old =
@{ $form->{al2_old_multiple} } if $form->{al2_old_multiple};
my %al2_old = ( map { ($_, 1) } @al2_old );
my @acl_old = ( );
@acl_old =
@{ $form->{acl_old_multiple} } if $form->{acl_old_multiple};
my %acl_old = ( map { ($_, 1) } @acl_old );

# Next, get the list of the new data submitted. Separate
# it out into AL2's which are legitimate. Anything left
# over is an ACL.
my @al2_new_formfields = ( );
@al2_new_formfields = @{ $form->{aclams_new_multiple} } if $form->{aclams_new_multiple};
my @al2_new_submitted = map { s/^aclam_//; $_ } @al2_new_formfields;
my @al2_new = grep { exists $all_al2types->{$_} } @al2_new_submitted;
my %al2_new = ( map { ($_, 1) } @al2_new );
my @acl_new = grep { !$al2_new{$_} } @al2_new_submitted;
my %acl_new = ( map { ($_, 1) } @acl_new );

# Find out what changed for AL2's.
for my $al2 (@al2_old, @al2_new) {
next if defined($al2_old{$al2}) && defined($al2_new{$al2})
&& $al2_old{$al2} == $al2_new{$al2};
$al2_change->{$al2} = $al2_new{$al2} ? 1 : 0;
}
#print STDERR "al2_change for '$srcid': " . Dumper($al2_change);
# If there's a comment, throw that in.
if ($form->{al2_new_comment}) {
$al2_change->{comment} = $form->{al2_new_comment};
}
$al2_change = undef if !keys %$al2_change;

# Find out what changed for ACL's.
my $acl_change = { };
for my $acl (@acl_old, @acl_new) {
next if $acl_old{$acl} == $acl_new{$acl};
$acl_change->{$acl} = $acl_new{$acl} ? 1 : 0;
}
$acl_change = undef if !keys %$acl_change;

if ($user->{is_admin} && $srcid) {
$slashdb->setAL2($srcid, $al2_change);
}
if ($user->{is_admin} && ($user_editfield_flag eq 'uid' ||
$user_editfield_flag eq 'nickname')) {

# This admin user cannot assign a seclev higher than he/she
# already has.
my $seclev = $form->{seclev};
$seclev = $user->{seclev} if $seclev > $user->{seclev};
$user_edits_table->{seclev} = $seclev;

$user_edits_table->{section} = $form->{section};
$user_edits_table->{author} = $form->{author} ? 1 : 0 ;
$user_edits_table->{defaultpoints} = $form->{defaultpoints};
$user_edits_table->{tokens} = $form->{tokens};
$user_edits_table->{tag_clout} = $form->{tag_clout};
$user_edits_table->{m2info} = $form->{m2info};
$user_edits_table->{acl} = $acl_change if $acl_change;
$user_edits_table->{shill_static_marquee} = $form->{shill_static_marquee} ? 1 : undef;
$user_edits_table->{u2_friends_bios} = $form->{u2_friends_bios} ? 1 : undef;
$user_edits_table->{shill_rss_url} = $form->{shill_rss_url} ? $form->{shill_rss_url} : undef;

my $author = $slashdb->getAuthor($id);
my $was_author = ($author && $author->{author}) ? 1 : 0;

$slashdb->setUser($id, $user_edits_table);

$note .= getMessage('saveuseradmin_saveduser', { field => $user_editfield_flag, id => $id });

if ($was_author xor $user_edits_table->{author}) {
# A frequently-asked question for new Slash admins is
# why their authors aren't showing up immediately.
# Give them some help here with an informative message.
$note .= getMessage('saveuseradmin_authorchg', {
basedir => $slashdb->getDescriptions("site_info")
->{base_install_directory},
virtuser => $slashdb->{virtual_user},
});

}
}

if (!$user_edit->{nonuid}) {
if ($form->{expired} && $form->{expired} eq 'on') {
# $slashdb->setExpired($user_edit->{uid});

} else {
# $slashdb->setUnexpired($user_edit->{uid});
}
}

my $data = { uid => $id };
$data->{note} = $note if defined $note;
showInfo($data);
}

#################################################################
sub savePasswd {
my($hr) = @_;
my $note = $hr->{noteref} || undef;

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $error_flag = 0;
my $user_edit = {};
my $uid;

my $user_edits_table = {};

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ? $form->{uid} : $user->{uid};
}

$user_edit = $slashdb->getUser($uid);

if (!$user_edit->{nickname}) {
$$note .= getError('cookie_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if ($form->{pass1} ne $form->{pass2}) {
$$note .= getError('saveuser_passnomatch_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$form->{pass1} || length $form->{pass1} < 6) {
$$note .= getError('saveuser_passtooshort_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$user->{is_admin}){
# not an admin -- check old password before changing passwd
my $return_uid = $slashdb->getUserAuthenticate($uid, $form->{oldpass}, 1);
if (!$return_uid || $return_uid != $uid) {
$$note .= getError('saveuser_badoldpass_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;

}
}

if (! $error_flag) {
$user_edits_table->{passwd} = $form->{pass1} if $form->{pass1};
$user_edits_table->{session_login} = $form->{session_login};
$user_edits_table->{cookie_location} = $form->{cookie_location};

# changed pass, so delete all logtokens
$slashdb->deleteLogToken($form->{uid}, 1);

if ($user->{admin_clearpass}
&& !$user->{state}{admin_clearpass_thisclick}) {
# User is an admin who sent their password in the clear
# some time ago; now that it's been changed, we'll forget
# about that incident, unless this click was sent in the
# clear as well.
$user_edits_table->{admin_clearpass} = '';
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table) ;
$$note .= getMessage('saveuser_passchanged_msg',
{ nick => $user_edit->{nickname}, uid => $user_edit->{uid} },
0, 1) if $note;

# only set cookie if user is current user
if ($form->{uid} eq $user->{uid}) {
$user->{logtoken} = bakeUserCookie($uid, $slashdb->getLogToken($form->{uid}, 1));
setCookie('user', $user->{logtoken}, $user_edits_table->{session_login});
}
}

return $error_flag;
}

#################################################################
sub saveUser {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $gSkin = getCurrentSkin();
my $plugins = $slashdb->getDescriptions('plugins');
my $uid;
my $user_editfield_flag;

$uid = $user->{is_admin} && $form->{uid} ? $form->{uid} : $user->{uid};
my $user_edit = $slashdb->getUser($uid);

my($note, $formname);

$note .= getMessage('savenickname_msg', {
nickname => $user_edit->{nickname},
}, 1);

if (!$user_edit->{nickname}) {
$note .= getError('cookie_err', 0, 1);
}

# Check to ensure that if a user is changing his email address, that
# it doesn't already exist in the userbase.
if ($user_edit->{realemail} ne $form->{realemail}) {
if ($slashdb->existsEmail($form->{realemail})) {
$note .= getError('emailexists_err', 0, 1);
$form->{realemail} = $user_edit->{realemail}; # can't change!
}
}

my(%extr, $err_message, %limit);
$limit{sig} = 120; # schema is 200, give an extra buffer for domain tags
$limit{bio} = $constants->{users_bio_length} || 1024; # can be up to 2^16

for my $key (keys %limit) {
my $dat = chopEntity($form->{$key}, $limit{$key});
$dat = strip_html($dat);
$dat = balanceTags($dat, { deep_nesting => 2, length => $limit{$key} });
$dat = addDomainTags($dat) if $dat;

# If the sig becomes too long to fit (domain tagging causes
# string expansion and tag balancing can too), warn the user to
# use shorter domain names and don't save their change.
if ($key eq 'sig' && defined($dat) && length($dat) > 200) {
print getError('sig_too_long_err');
$extr{sig} = undef;
}

# really, comment filters should ignore short length IMO ... oh well.
if (length($dat) > 1 && ! filterOk('comments', 'postersubj', $dat, \$err_message)) {
print getError('filter message', {
err_message => $err_message,
item => $key,
});
$extr{$key} = undef;
} elsif (! compressOk('comments', 'postersubj', $dat)) {
print getError('compress filter', {
ratio => 'postersubj',
item => $key,
});
$extr{$key} = undef;
} else {
$extr{$key} = $dat;
}
}

# We should do some conformance checking on a user's pubkey,
# make sure it looks like one of the known types of public
# key. Until then, just make sure it doesn't have HTML.
$form->{pubkey} = $plugins->{'PubKey'} ? strip_nohtml($form->{pubkey}, 1) : '';

my $homepage = $form->{homepage};
$homepage = '' if $homepage eq 'http://';
$homepage = fudgeurl($homepage);
$homepage = URI->new_abs($homepage, $gSkin->{absolutedir})
->canonical
->as_string if $homepage ne '';
$homepage = substr($homepage, 0, 100) if $homepage ne '';

my $calendar_url = $form->{calendar_url};
if (length $calendar_url) {
# fudgeurl() doesn't like webcal; will remove later anyway
$calendar_url =~ s/^webcal/http/i;
$calendar_url = fudgeurl($calendar_url);
$calendar_url = URI->new_abs($calendar_url, $gSkin->{absolutedir})
->canonical
->as_string if $calendar_url ne '';

$calendar_url =~ s|^http://||i;
$calendar_url = substr($calendar_url, 0, 200) if $calendar_url ne '';
}

# for the users table
my $user_edits_table = {
homepage => $homepage,
realname => $form->{realname},
pubkey => $form->{pubkey},
copy => $form->{copy},
quote => $form->{quote},
calendar_url => $calendar_url,
yahoo => $form->{yahoo},
jabber => $form->{jabber},
aim => $form->{aim},
aimdisplay => $form->{aimdisplay},
icq => $form->{icq},
playing => $form->{playing},
mobile_text_address => $form->{mobile_text_address},
};

if ($constants->{wow}) {
my $wowdb = getObject("Slash::WoW");
if ($wowdb) {
$user_edits_table->{wow_main_name} = "\L\u$form->{wow_main_name}";
$user_edits_table->{wow_main_realm} = $form->{wow_main_realm};
my $charid = $wowdb->getCharidCreate($user_edits_table->{wow_main_realm},
$user_edits_table->{wow_main_name});
$wowdb->setChar($charid, { uid => $uid }, { if_unclaimed => 1 }) if $charid;
}
}

for (keys %extr) {
$user_edits_table->{$_} = $extr{$_} if defined $extr{$_};
}

# don't want undef, want to be empty string so they
# will overwrite the existing record
for (keys %$user_edits_table) {
$user_edits_table->{$_} = '' unless defined $user_edits_table->{$_};
}

if ($user_edit->{realemail} ne $form->{realemail}) {
$user_edits_table->{realemail} =
chopEntity($form->{realemail}, 50);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($user->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid, $user_edits_table->{realemail})
if $user->{emaildisplay} == 1;
$new_fakeemail = $user_edits_table->{realemail}
if $user->{emaildisplay} == 2;
}
$user_edits_table->{fakeemail} = $new_fakeemail;

$note .= getMessage('changeemail_msg', {
realemail => $user_edit->{realemail}
}, 1);

my $saveuser_emailtitle = getTitle('saveUser_email_title', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);
my $saveuser_email_msg = getMessage('saveuser_email_msg', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);

sendEmail($form->{realemail}, $saveuser_emailtitle, $saveuser_email_msg);
doEmail($uid, $saveuser_emailtitle, $saveuser_email_msg);
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);

editUser({ uid => $uid, note => $note });
}

#################################################################
sub saveComm {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $user_fakeemail);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}

# Do the right thing with respect to the chosen email display mode
# and the options that can be displayed.
my $user_edit = $slashdb->getUser($uid);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($form->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid) if $form->{emaildisplay} == 1;
$new_fakeemail = $user_edit->{realemail} if $form->{emaildisplay} == 2;
}

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};

my $note = getMessage('savenickname_msg',
{ nickname => $name });

print getError('cookie_err') if isAnon($uid) || !$name;

# Take care of the lists
# Enforce Ranges for variables that need it
$form->{commentlimit} = 0 if $form->{commentlimit} < 1;
my $cl_max = $constants->{comment_commentlimit} || 0;
$form->{commentlimit} = $cl_max if $cl_max > 0 && $form->{commentlimit} > $cl_max;
$form->{commentspill} = 0 if $form->{commentspill} < 1;

# For some of these values, namely the ones that we happen to
# know get stored in users_param, we change them to 'undef'
# if they are the default value. This deletes them from the
# users_param table, which has the same effect as storing the
# default except it's faster all around. If we ever change
# the schema to promote these fields from params into a
# proper users_* table, then this will no longer be correct.
# See prepareUser().
my $max = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $min = -$max;
my $karma_bonus = ($form->{karma_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{karma_bonus};
my $subscriber_bonus = ($form->{subscriber_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{subscriber_bonus};
my $new_user_bonus = ($form->{new_user_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{new_user_bonus};
my $new_user_percent = (($form->{new_user_percent} <= 100 && $form->{new_user_percent} >= 0)
? $form->{new_user_percent}
: 100);
my $clsmall_bonus = ($form->{clsmall_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clsmall_bonus};
my $clbig_bonus = ($form->{clbig_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clbig_bonus};

# plum
$form->{d2_comment_q} = (isSubscriber($user_edit) || $user_edit->{seclev} >= 100)
? $form->{d2_comment_q}
: ($form->{d2_comment_q} eq '0')
? 1
: $form->{d2_comment_q};

my $user_edits_table = {
# MC: More D2 neutring
#discussion2 => $form->{discussion2} || undef,
#d2_comment_q => $form->{d2_comment_q} || undef,
#d2_comment_order => $form->{d2_comment_order} || undef,
clsmall => $form->{clsmall},
clsmall_bonus => ($clsmall_bonus || undef),
clbig => $form->{clbig},
clbig_bonus => ($clbig_bonus || undef),
commentlimit => $form->{commentlimit},
bytelimit => $form->{bytelimit},
commentsort => $form->{commentsort},
commentspill => $form->{commentspill},
domaintags => ($form->{domaintags} != 2 ? $form->{domaintags} : undef),
emaildisplay => $form->{emaildisplay} || undef,
fakeemail => $new_fakeemail,
highlightthresh => $form->{highlightthresh},
mode => $form->{umode},
posttype => $form->{posttype},
threshold => $form->{uthreshold},
nosigs => ($form->{nosigs} ? 1 : 0),
reparent => ($form->{reparent} ? 1 : 0),
noscores => ($form->{noscores} ? 1 : 0),
hardthresh => ($form->{hardthresh} ? 1 : 0),
no_spell => ($form->{no_spell} ? 1 : undef),
nobonus => ($form->{nobonus} ? 1 : undef),
nosubscriberbonus => ($form->{nosubscriberbonus} ? 1 : undef),
postanon => ($form->{postanon} ? 1 : undef),
new_user_percent => ($new_user_percent && $new_user_percent != 100
? $new_user_percent : undef),
new_user_bonus => ($new_user_bonus || undef),
karma_bonus => ($karma_bonus ne '+1' ? $karma_bonus : undef),
subscriber_bonus => ($subscriber_bonus || undef),
textarea_rows => ($form->{textarea_rows} != $constants->{textarea_rows}
? $form->{textarea_rows} : undef),
textarea_cols => ($form->{textarea_cols} != $constants->{textarea_cols}
? $form->{textarea_cols} : undef),
user_comment_sort_type => ($form->{user_comment_sort_type} != 2
? $form->{user_comment_sort_type} : undef ),
mod_with_comm => ($form->{mod_with_comm} ? 1 : undef),
m2_with_mod => ($form->{m2_with_mod} ? 1 : undef),
m2_with_comm_mod => ($form->{m2_with_mod_on_comm} ? 1 : undef),

};

# set our default values for the items where an empty-string won't do
my $defaults = {
posttype => 2,
highlightthresh => 4,
reparent => 1,
commentlimit => 100,
commentspill => 50,
mode => 'thread'
};

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my @reasons = ( );
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}

for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
my $answer = $form->{$key} || 0;
$answer = 0 if !$answer || $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{$key} = ($answer == 0) ? '' : $answer;
}

for (qw| friend foe anonymous fof eof freak fan |) {
my $answer = $form->{"people_bonus_$_"};
$answer = 0 if $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{"people_bonus_$_"} = ($answer == 0) ? '' : $answer;
}
getOtherUserParams($user_edits_table);
setToDefaults($user_edits_table, {}, $defaults) if $form->{restore_defaults};
$slashdb->setUser($uid, $user_edits_table);

editComm({ uid => $uid, note => $note });
}

#################################################################
sub saveHome {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $error);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid} ;
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}
my $edit_user = $slashdb->getUser($uid);

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};
$name = substr($name, 0, 20);

my $note = getMessage('savenickname_msg',
{ nickname => $name });

if (isAnon($uid) || !$name) {
my $cookiemsg = getError('cookie_err');
print $cookiemsg;
}

# Using the existing list of slashboxes and the set of
# what's checked and not, build up the new list.
# (New arrivals go at the end.)
my $slashboxes = $edit_user->{slashboxes};
# Only go through all this if the user clicked save,
# not "Restore Slashbox Defaults"!
my($boxes, $skinBoxes) = $slashdb->getPortalsCommon();
my $default_slashboxes_textlist = join ",",
@{$skinBoxes->{$constants->{mainpage_skid}}};
if (!$form->{restore_slashbox_defaults}) {
$slashboxes = $default_slashboxes_textlist if !$slashboxes;
my @slashboxes = split /,/, $slashboxes;
my %slashboxes = ( );
for my $i (0..$#slashboxes) {
$slashboxes{$slashboxes[$i]} = $i;
}
# Add new boxes in.
for my $key (sort grep /^showbox_/, keys %$form) {
my($bid) = $key =~ /^showbox_(\w+)$/;
next if length($bid) < 1 || length($bid) > 30 || $bid !~ /^\w+$/;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999; # put it at the end
}
}
# Remove any boxes that weren't checked.
for my $bid (@slashboxes) {
delete $slashboxes{$bid} unless $form->{"showbox_$bid"};
}

for my $key (sort grep /^dynamic_/, keys %$form) {
my($bid) = $key =~ /^dynamic_(.+)$/;
next if length($bid) < 1;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999;
}
}

@slashboxes = sort {
$slashboxes{$a} <=> $slashboxes{$b}
||
$a cmp $b
} keys %slashboxes;
# This probably should be a var (and appear in tilded_customize_msg)
$#slashboxes = 19 if $#slashboxes > 19;
$slashboxes = join ",", @slashboxes;
}
# If we're right back to the default, that means the
# empty string.
if ($slashboxes eq $default_slashboxes_textlist) {
$slashboxes = "";
}

# Set the story_never and story_always fields.
my $author_hr = $slashdb->getDescriptions('authors');
my $tree = $slashdb->getTopicTree();
my(@story_never_topic, @story_never_author, @story_never_nexus);
my(@story_always_topic, @story_always_author);
my(@story_always_nexus, @story_full_brief_nexus, @story_brief_always_nexus, @story_full_best_nexus, @story_brief_best_nexus);
my($story_topic_all, $story_author_all, $story_nexus_all) = (0, 0, 0);

# Topics are either present (value=2) or absent (value=0). If absent,
# push them onto the never list. Otherwise, do nothing. (There's no
# way to have an "always" topic, at the moment.) If the hidden
# field topictids_present is false, then there are no topic tids,
# skip this.
if ($form->{topictids_present}) {
for my $tid (
sort { $a <=> $b }
grep { !$tree->{$_}{nexus} }
keys %$tree
) {
my $key = "topictid$tid";
$story_topic_all++;
if (!$form->{$key}) { push @story_never_topic, $tid }
}
}
# Authors are either present (value=2) or absent (value=0). If
# absent, push them onto the never list. Otherwise, do nothing.
# (There's no way to have an "always" author, at the moment.)
for my $aid (sort { $a <=> $b } keys %$author_hr) {
my $key = "aid$aid";
$story_author_all++;
if (!$form->{$key}) { push @story_never_author, $aid }
}
# Nexuses can have value 0, 1, 2, 3, 4, 5.
# 0 means the never list,
# 1 means brief view of mainpage articles only
# 2 means full view of mainpage articles only
# 3 means brief view of all content
# 4 means full view of mainpage content, brief view of sectional
# 5 means full view of all content
for my $tid (
sort { $a <=> $b }
map { /^nexustid(\d+)$/; $1 }
grep { /^nexustid\d+$/ }
keys %$form
) {
my $key = "nexustid$tid";
next unless $tid && $tree->{$tid} && $tree->{$tid}{nexus};
$story_nexus_all++;
if (!$form->{$key}) { push @story_never_nexus, $tid }
elsif ($form->{$key} == 5 ) { push @story_always_nexus, $tid }
elsif ($form->{$key} == 4 ) { push @story_full_brief_nexus, $tid }
elsif ($form->{$key} == 3 ) { push @story_brief_always_nexus, $tid }
elsif ($form->{$key} == 2 ) { push @story_full_best_nexus, $tid }
elsif ($form->{$key} == 1 ) { push @story_brief_best_nexus, $tid }

}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " s_n_t '@story_never_topic' s_n_a '@story_never_author' s_n_n '@story_never_nexus' s_a_n '@story_always_nexus' form: " . Dumper($form);
# Sanity check.
$#story_never_topic = 299 if $#story_never_topic > 299;
$#story_never_author = 299 if $#story_never_author > 299;
$#story_never_nexus = 299 if $#story_never_nexus > 299;
$#story_always_topic = 299 if $#story_always_topic > 299;
$#story_always_author = 299 if $#story_always_author > 299;
$#story_always_nexus = 299 if $#story_always_nexus > 299;
$#story_full_brief_nexus = 299 if $#story_full_brief_nexus > 299;
$#story_brief_always_nexus = 299 if $#story_brief_always_nexus > 299;
$#story_brief_best_nexus = 299 if $#story_brief_best_nexus > 299;
$#story_full_best_nexus = 299 if $#story_full_best_nexus > 299;

my $story_never_topic = join ",", @story_never_topic;
$story_never_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_never_topic, 1024)
: checkList($story_never_topic);
my $story_never_author = checkList(join ",", @story_never_author);
my $story_never_nexus = checkList(join ",", @story_never_nexus);
my $story_always_topic = checkList(join ",", @story_always_topic);
$story_always_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_always_topic, 1024)
: checkList($story_always_topic);
my $story_always_author = checkList(join ",", @story_always_author);

my $story_always_nexus = checkList(join ",", @story_always_nexus);
my $story_full_brief_nexus = checkList(join ",", @story_full_brief_nexus);
my $story_brief_always_nexus = checkList(join ",", @story_brief_always_nexus);
my $story_brief_best_nexus = checkList(join ",", @story_brief_best_nexus);
my $story_full_best_nexus = checkList(join ",", @story_full_best_nexus);

my $user_edits_table = {
story_never_topic => $story_never_topic,
story_never_author => $story_never_author,
story_never_nexus => $story_never_nexus,
story_always_topic => $story_always_topic,
story_always_author => $story_always_author,
story_always_nexus => $story_always_nexus,
story_brief_always_nexus => $story_brief_always_nexus,
story_full_brief_nexus => $story_full_brief_nexus,
story_full_best_nexus => $story_full_best_nexus,
story_brief_best_nexus => $story_brief_best_nexus,

slashboxes => checkList($slashboxes, 1024),

maxstories => 30, # XXXSKIN fix this later
noboxes => ($form->{useslashboxes} ? 0 : 1),
lowbandwidth => ($form->{lowbandwidth} ? 1 : 0),
simpledesign => ($form->{simpledesign} ? 1 : 0),
noicons => ($form->{noicons} ? 1 : 0),
willing => ($form->{willing} ? 1 : 0),
index_classic => ($form->{index_classic} ? 1 : undef),
};

if (defined $form->{tzcode} && defined $form->{tzformat}) {
$user_edits_table->{tzcode} = $form->{tzcode};
$user_edits_table->{dfid} = $form->{tzformat};
$user_edits_table->{dst} = $form->{dst};
}

# Force the User Space area to contain only known-good HTML tags.
# Unfortunately the cookie login model makes it just too risky
# to allow scripts in here; CSS's steal passwords. There are
# no known vulnerabilities at this time, but a combination of the
# social engineering taking place (inviting users to put Javascript
# from websites in here, and making available script URLs for that
# purpose), plus the fact that this could be used to amplify the
# seriousness of any future vulnerabilities, means it's way past
# time to shut this feature down. - Jamie 2002/03/06

# it's a VARCHAR ...
my $mylinks_limit = 255;
$user_edits_table->{mylinks} = balanceTags(strip_html(
chopEntity($form->{mylinks} || '', $mylinks_limit)
), { deep_nesting => 2, length => $mylinks_limit });

$user_edits_table->{mylinks} = '' unless defined $user_edits_table->{mylinks};

$error = 1;
# must select at least 1/4 of nexuses, topics, authors
if ( scalar(@story_never_author) > ($story_author_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_nexus) > ($story_nexus_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_topic) > ($story_topic_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} else {
$error = 0;
}

unless ($error) {
# If a user is unwilling to moderate, we should cancel all points, lest
# they be preserved when they shouldn't be.
if (!isAnon($uid) && !$form->{willing}) {
$slashdb->setUser($uid, { points => 0 });
}

getOtherUserParams($user_edits_table);
if ($form->{restore_defaults}) {
setToDefaults($user_edits_table, {}, {
maxstories => 30,
tzcode => "EST",
# XXX shouldn't this reset ALL the defaults,
# not just these two?
});
}
if ($form->{restore_slashbox_defaults}) {
setToDefaults($user_edits_table, {
'story_never_topic' => 1,
'story_never_author' => 1,
'story_never_nexus' => 1,
'story_always_topic' => 1,
'story_always_author' => 1,
'story_always_nexus' => 1,
'story_full_brief_nexus' => 1,
'story_brief_always_nexus' => 1,
'story_full_best_nexus' => 1,
'story_brief_best_nexus' => 1,
'maxstories' => 1,
'noboxes' => 1,
'light' => 1,
'noicons' => 1,
'willing' => 1
}, { slashboxes => "" });
}

#print scalar(localtime) . " uet: " . Dumper($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);
}

editHome({ uid => $uid, note => $note });
}

#################################################################
# A generic way for a site to allow users to edit data about themselves.
# Most useful when your plugin or theme wants to let the user change
# minor settings but you don't want to write a whole new version
# of users.pl to provide a user interface. The user can save any
# param of the format "opt_foo", as long as "foo" shows up in
# getMiscUserOpts which lists all the misc opts that this user can edit.
# This is *not* protected by formkeys (yet), so assume attackers can make
# users click and accidentally edit their own settings: no really important
# data should be stored in this way.
sub editMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $edit_user = $slashdb->getUser($user->{uid});
my $title = getTitle('editMiscOpts_title');

my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
my $opt_name = "opt_" . $opt->{name};
$opt->{checked} = $edit_user->{$opt_name} ? 1 : 0;
}

slashDisplay('editMiscOpts', {
# useredit => $user_edit,
title => $title,
opts => $opts,
note => $note,
});
}

#################################################################
#
sub saveMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

my $edit_user = $slashdb->getUser($user->{uid});
my %opts_ok_hash = ( );
my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
$opts_ok_hash{"opt_$opt->{name}"} = 1;
}

my $update = { };
for my $opt (grep /^opt_/, keys %$form) {
next unless $opts_ok_hash{$opt};
$update->{$opt} = $form->{$opt} ? 1 : 0;
}

# Make the changes.
$slashdb->setUser($edit_user->{uid}, $update);

# Inform the user the change was made. Since we don't
# require formkeys, we always want to print a message to
# make sure the user sees what s/he did. This is done
# by passing in a note which ends up passed to the
# editMiscOpts template, which displays it.
editMiscOpts({ note => getMessage('savemiscopts_msg') });
}

#################################################################
sub listReadOnly {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $readonlylist = $reader->getAL2List('nopost');

slashDisplay('listReadOnly', {
readonlylist => $readonlylist,
});

}

#################################################################
sub listBanned {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $bannedlist = $reader->getAL2List('ban');

slashDisplay('listBanned', {
bannedlist => $bannedlist,
});

}

#################################################################
sub topAbusers {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $topabusers = $reader->getTopAbusers();

slashDisplay('topAbusers', {
topabusers => $topabusers,
});
}

#################################################################
sub listAbuses {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my $abuses = $reader->getAbuses($form->{key}, $form->{abuseid});

slashDisplay('listAbuses', {
abuseid => $form->{abuseid},
abuses => $abuses,
});
}

#################################################################
sub forceAccountVerify {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $uid = $form->{uid};
my $useredit = $slashdb->getUser($uid);

if ($useredit->{uid}) {
my $newpasswd = $slashdb->resetUserAccount($uid);
$slashdb->deleteLogToken($uid, 1);
my $emailtitle = getTitle('reset_acct_email_title', {
nickname => $useredit->{nickname}
}, 1);

my $msg = getMessage('reset_acct_msg', {
newpasswd => $newpasswd,
tempnick => $useredit->{nickname},
}, 1);

$slashdb->setUser($useredit->{uid}, {
waiting_for_account_verify => 1,
account_verify_request_time => $slashdb->getTime()
});

doEmail($useredit->{uid}, $emailtitle, $msg) if $useredit->{uid};
}

print getMessage("reset_acct_complete", { useredit => $useredit }, 1);
}

#################################################################
sub displayForm {
my($hr) = @_;

my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $op = $hr->{op} || $form->{op} || 'displayform';

my $ops = {
displayform => 'loginForm',
edithome => 'loginForm',
editcomm => 'loginForm',
edituser => 'loginForm',
# mailpasswdform => 'sendPasswdForm',
# newuserform => 'newUserForm',
userclose => 'loginForm',
userlogin => 'loginForm',
editmiscopts => 'loginForm',
savemiscopts => 'loginForm',
default => 'loginForm'
};

$op = 'default' if !defined($ops->{$op});

my($title, $title2, $msg1, $msg2) = ('', '', '', '');

if ($op eq 'userclose') {
$title = getMessage('userclose');

} elsif ($op eq 'displayForm') {
$title = $form->{unickname}
? getTitle('displayForm_err_title')
: getTitle('displayForm_title');
} elsif ($op eq 'mailpasswdform') {
$title = getTitle('mailPasswdForm_title');
} elsif ($op eq 'newuserform') {
$title = getTitle('newUserForm_title');
} else {
$title = getTitle('displayForm_title');
}

$form->{unickname} ||= $form->{newusernick};

if ($form->{newusernick}) {
$title2 = getTitle('displayForm_dup_title');
} else {
$title2 = getTitle('displayForm_new_title');
}

$msg1 = getMessage('dispform_new_msg_1');
if (! $form->{newusernick} && $op eq 'newuserform') {
$msg2 = getMessage('dispform_new_msg_2');
} elsif ($op eq 'displayform' || $op eq 'userlogin') {
$msg2 = getMessage('newuserform_msg');
}

slashDisplay($ops->{$op}, {
newnick => nickFix($form->{newusernick}),
suadmin_flag => $suadmin_flag,
title => $title,
title2 => $title2,
logged_in => $user->{is_anon} ? 0 : 1,
msg1 => $msg1,
msg2 => $msg2
});
}

#################################################################
# this groups all the messages together in
# one template, called "messages;users;default"
sub getMessage {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('messages', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the errors together in
# one template, called "errors;users;default"
sub getError {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('errors', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the titles together in
# one template, called "users-titles"
sub getTitle {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('titles', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# getUserAdmin - returns a block of HTML text that provides
# information and editing capabilities for admin users.
# Most of this data is already in the getUserAdmin template,
# but really, we should try to get more of this logic into
# that template.
sub getUserAdmin {
my($id, $field, $seclev_field) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $logdb = getObject('Slash::DB', { db_type => 'log_slave' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $slashdb = getCurrentDB();
$id ||= $user->{uid};

my($expired, $uidstruct, $readonly);
my($user_edit, $user_editfield, $ipstruct, $ipstruct_order, $authors, $author_flag, $topabusers, $thresh_select,$section_select);
my $srcid;
my $proxy_check = {};
my @accesshits;
my $user_editinfo_flag = (!$form->{op} || $form->{op} eq 'userinfo'
|| $form->{userinfo} || $form->{saveuseradmin}
) ? 1 : 0;
my $authoredit_flag = ($user->{seclev} >= 10000) ? 1 : 0;
my $sectionref = $reader->getDescriptions('skins');
$sectionref->{''} = getData('all_sections');

$field ||= 'uid';
if ($field eq 'uid') {
$user_edit = $slashdb->getUser($id);
$user_editfield = $user_edit->{uid};
$srcid = convert_srcid( uid => $id );
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'nickname') {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$user_editfield = $user_edit->{nickname};
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'md5id') {
$user_edit->{nonuid} = 1;
$user_edit->{md5id} = $id;
if ($form->{fieldname} && $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$uidstruct = $slashdb->getUIDStruct($form->{fieldname}, $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($form->{fieldname}, $user_edit->{md5id}) if defined($logdb);
} else {
$uidstruct = $slashdb->getUIDStruct('md5id', $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{md5id}) if defined($logdb);
}

} elsif ($field eq 'ipid') {
$user_edit->{nonuid} = 1;
$user_edit->{ipid} = $id;
$srcid = convert_srcid( ipid => $id );
$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('ipid', $user_edit->{ipid});
@accesshits = $logdb->countAccessLogHitsInLastX('host_addr', $user_edit->{ipid}) if defined($logdb);

if ($form->{userfield} =~/^\d+\.\d+\.\d+\.(\d+)$/) {
if ($1 ne "0"){
$proxy_check->{available} = 1;
$proxy_check->{results} = $slashdb->checkForOpenProxy($form->{userfield}) if $form->{check_proxy};
}
}

} elsif ($field eq 'subnetid') {
$user_edit->{nonuid} = 1;
$srcid = convert_srcid( ipid => $id );
if ($id =~ /^(\d+\.\d+\.\d+)(?:\.\d)?/) {
$id = $1 . ".0";
$user_edit->{subnetid} = $id;
} else {
$user_edit->{subnetid} = $id;
}

$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('subnetid', $user_edit->{subnetid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{subnetid}) if defined($logdb);

} elsif ($field eq "srcid") {
$user_edit->{nonuid} = 1;
$user_edit->{srcid} = $id;
$srcid = $id;

} else {
$user_edit = $id ? $slashdb->getUser($id) : $user;
$user_editfield = $user_edit->{uid};
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
}

##########
# Put together the array and hashref that the template will need
# to construct the list for display to the admin.
# Note that currently a srcid which is not a uid (i.e. which
# represents an IP address or masked IP network) cannot have
# any ACLs assigned to it. This may change in the future.
# The term "aclam" is used because it has a field set for both
# every ACL and every access modifier (i.e. AL2 bit) that is set
# for this user or srcid.
# For now, ACLs will be listed for IPs as well.
# First get the list of ACLs that can be used.
my $all_acls_ar = $reader->getAllACLNames();
my $all_acls_hr = { map { ( $_, 1 ) } @$all_acls_ar };
# Add in any ACLs selected for this user (just in case
# getAllACLNames is cached and stale).
for my $acl (keys %{$user_edit->{acl}}) {
$all_acls_hr->{$acl} = 1;
}
# Start creating the $all_aclam_hr data, in which the keys are
# the HTML selection names that all begin with aclam_ and the
# the values are their names/descriptions shown to the admin.
# First put all the ACLs into the hash, if we're editing a user.
my $all_aclam_hr = { };
if (!$user_edit->{nonuid}) {
$all_aclam_hr = { map { ( "aclam_$_", "ACL: $_" ) } keys %$all_acls_hr };
}
# Next put in all the al2 types.
my $all_al2types = $reader->getAL2Types;
for my $key (keys %$all_al2types) {
next if $key eq 'comment'; # skip the 'comment' type
$all_aclam_hr->{"aclam_$key"} = $all_al2types->{$key}{title};
}
# Finally, sort the keys of the hash into the order that we
# want them displayed to the admin (ACLs first).
my $all_acls_longkeys_hr = { map { ( "aclam_$_", 1 ) } keys %$all_acls_hr };
my $all_aclam_ar = [
sort {
(exists($all_acls_longkeys_hr->{$a}) ? -1 : 1) <=> (exists($all_acls_longkeys_hr->{$b}) ? -1 : 1)
||
$all_aclam_hr->{$a} cmp $all_aclam_hr->{$b}
} keys %$all_aclam_hr
];
# Now put together the hashref that identifies which of those
# items are selected for this user.
my $user_aclam_hr = { };
for my $acl (keys %{ $user_edit->{acl} }) {
$user_aclam_hr->{"aclam_$acl"} = 1;
}
my $al2_tid_comment = $all_al2types->{comment}{al2tid} || 0;
my $al2_log_ar = [ ];
my $al2_hr = { };
# XXXSRCID Once we get rid of the silly 'md5id' field and all the
# other bizarre backward-compatibility code paths early in this
# function, this won't be necessary, but until then we need this
# sanity check...
if ($srcid) {
# getAL2 works with either a srcids hashref or a single srcid
$al2_hr = $slashdb->getAL2($srcid);
for my $al2 (keys %{ $al2_hr }) {
$user_aclam_hr->{"aclam_$al2"} = 1;
}
$al2_log_ar = $slashdb->getAL2Log($srcid);
}
# Generate al2_nick_hr, which will be populated with keys of all
# the (presumably) admin uids who have logged rows for this al2,
# and values of their nicks.
my $al2_nick_hr = { };
for my $al2_log (@$al2_log_ar) {
my $uid = $al2_log->{adminuid};
next if !$uid; # odd error, might want to flag this
$al2_nick_hr->{$uid} ||= $slashdb->getUser($uid, 'nickname');
}
##########

$user_edit->{author} = ($user_edit->{author} && $user_edit->{author} == 1)
? $constants->{markup_checked_attribute} : '';
if (! $user->{nonuid}) {
my $threshcodes = $reader->getDescriptions('threshcode_values','',1);
$thresh_select = createSelect('defaultpoints', $threshcodes, $user_edit->{defaultpoints}, 1);
}

if (!ref $ipstruct) {
undef $ipstruct;
} else {
@$ipstruct_order = sort { $ipstruct->{$b}{dmin} cmp $ipstruct->{$a}{dmin} } keys %$ipstruct;
}

my $m2total = ($user_edit->{m2fair} || 0) + ($user_edit->{m2unfair} || 0);
if ($m2total) {
$user_edit->{m2unfairpercent} = sprintf("%.2f",
$user_edit->{m2unfair}*100/$m2total);
}
my $mod_total = ($user_edit->{totalmods} || 0) + ($user_edit->{stirred} || 0);
if ($mod_total) {
$user_edit->{stirredpercent} = sprintf("%.2f",
$user_edit->{stirred}*100/$mod_total);
}
if ($constants->{subscribe} and my $subscribe = getObject('Slash::Subscribe')) {
$user_edit->{subscribe_payments} =
$subscribe->getSubscriptionsForUser($user_edit->{uid});
$user_edit->{subscribe_purchases} =
$subscribe->getSubscriptionsPurchasedByUser($user_edit->{uid},{ only_types => [ "grant", "gift" ] });
}
my $ipid = $user_edit->{ipid};
my $subnetid = $user_edit->{subnetid};
my $post_restrictions = {};
my ($subnet_karma, $ipid_karma);

if ($ipid && !$subnetid) {
$ipid = md5_hex($ipid) if length($ipid) != 32;
$proxy_check->{ipid} = $ipid;
$proxy_check->{currently} = $slashdb->getKnownOpenProxy($ipid, "ipid");
# This next call is very slow.
$subnetid = $reader->getSubnetFromIPIDBasedOnComments($ipid);
}

if ($subnetid) {
$subnetid = md5_hex($subnetid) if length($subnetid) != 32;
# These next three calls can be very slow. In fact, getNetIDKarma
# is actually called twice on the same subnetid; if we can cache
# that data somehow that wouldn't be a bad idea.
$post_restrictions = $reader->getNetIDPostingRestrictions("subnetid", $subnetid);
$subnet_karma = $reader->getNetIDKarma("subnetid", $subnetid);
$ipid_karma = $reader->getNetIDKarma("ipid", $ipid) if $ipid;
}

my $clout_types_ar = [ sort grep /\D/, keys %{$slashdb->getCloutTypes} ];

return slashDisplay('getUserAdmin', {
field => $field,
useredit => $user_edit,
srcid => $srcid,
all_aclam_ar => $all_aclam_ar,
all_aclam_hr => $all_aclam_hr,
user_aclam_hr => $user_aclam_hr,
al2_old => $al2_hr,
al2_log => $al2_log_ar,
al2_tid_comment => $al2_tid_comment,
al2_nick => $al2_nick_hr,

userinfo_flag => $user_editinfo_flag,
userfield => $user_editfield,
ipstruct => $ipstruct,
ipstruct_order => $ipstruct_order,
uidstruct => $uidstruct,
accesshits => \@accesshits,
seclev_field => $seclev_field,
expired => $expired,
topabusers => $topabusers,
readonly => $readonly,
thresh_select => $thresh_select,
authoredit_flag => $authoredit_flag,
section_select => $section_select,
all_acls => $all_acls_hr,
proxy_check => $proxy_check,
subnet_karma => $subnet_karma,
ipid_karma => $ipid_karma,
post_restrictions => $post_restrictions,

clout_types_ar => $clout_types_ar,
}, 1);
}

#################################################################
# this is to allow alternate parameters to be specified. pass in
# your hash reference to be passed to setUser(), and this will
# add in those extra parameters. add the parameters to string_param,
# type = otherusersparam, code = name of the param. they will
# be checked for the main user prefs editing screens, and on
# user creation -- pudge
sub getOtherUserParams {
my($data) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $params = $reader->getDescriptions('otherusersparam');

for my $param (keys %$params) {
if (exists $form->{$param}) {
# set user too for output in this request
$data->{$param} = $user->{$param} = $form->{$param} || undef;
}
}
}

###############################################################
# This modifies a hashref to default values -- if nothing
# else we assume the empty string which clears items in the
# user_param table
#
# takes 3 hashrefs currently
# $data - hashref to change to defaults
# $skip - hashref of keys to skip modifying
# $defaults - hashref of defaults to set to something other
# than the empty string
sub setToDefaults {
my($data, $skip, $defaults) = @_;
foreach my $key (keys %$data) {
next if $skip->{$key};
$data->{$key} = exists $defaults->{$key} ? $defaults->{$key} : "";
}
}

#################################################################
sub getCommentListing {
my ($type, $value,
$min_comment, $time_period, $cc_all, $cc_time_period, $cid_for_time_period,
$non_admin_limit, $admin_time_limit, $admin_non_time_limit,
$options) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $store_cutoff = $options->{use_uid_cid_cutoff} ? $constants->{store_com_page1_min_cid_for_user_com_cnt} : 0;

my $s_opt = {};
my $num_wanted = 0;
if ($min_comment) {
if ($user->{is_admin}) {
$num_wanted = $admin_non_time_limit;
} else {
$num_wanted = $non_admin_limit;
}
} else {

if ($user->{is_admin}) {
if ($cc_time_period >= $admin_non_time_limit) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $admin_time_limit;
} else {
$num_wanted = $admin_non_time_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
} else {
if ($cc_time_period >= $non_admin_limit ) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $non_admin_limit;
} else {
$num_wanted = $non_admin_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
}
}
if ($type eq "uid") {

my $comments = $reader->getCommentsByUID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
if ($store_cutoff
&& $comments && $cc_all >= $store_cutoff && $min_comment == 0
&& scalar(@$comments) == $num_wanted) {
my $min_cid = 0;
for my $comment (@$comments) {
$min_cid = $comment->{cid}
if !$min_cid || ($comment->{cid} < $min_cid);
}
if ($min_cid && $min_cid =~/^\d+$/) {
$slashdb->setUser($value, {
"com_num_".$num_wanted."_at_or_after_cid" => $min_cid
});
}

}
return $comments;
} elsif ($type eq "ipid"){
return $reader->getCommentsByIPID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} elsif ($type eq "subnetid"){
return $reader->getCommentsBySubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} else {
return $reader->getCommentsByIPIDOrSubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
}
}
createEnvironment();
main();

1;

</pre>

Historic:CssWork

2014-03-01T19:00:54Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] - this is what handles the users home page and similar user functions.

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users. Once an edit is made, you are in /users.pl without /my/
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

PerlModuleUsers

2014-03-01T18:59:27Z

50.45.173.59: Created page with "CssWork parent <h2>Source of users.pl</h2> <pre> #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2005 by Open Source ..."

[[CssWork]] parent

<h2>Source of users.pl</h2>
<pre>
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2005 by Open Source Technology Group. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id$

use strict;
use Digest::MD5 'md5_hex';
use Slash;
use Slash::Display;
use Slash::Utility;
use Slash::Constants qw(:messages);

#################################################################
sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();
my $formname = $0;
$formname =~ s/.*\/(\w+)\.pl/$1/;

my $error_flag = 0;
my $formkey = $form->{formkey};

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0 ;
my $postflag = $user->{state}{post};
my $op = lc($form->{op});

# savepasswd is a special case, because once it's called, you
# have to reload the form, and you don't want to do any checks if
# you've just saved.
my $savepass_flag = $op eq 'savepasswd' ? 1 : 0 ;

my $ops = {
admin => {
function => \&adminDispatch,
seclev => 10000, # if this should be lower,
# then something else is
# broken, because it allows
# anyone with this seclev
# to change their own seclev
formname => $formname,
# just in case we need it for something else, we have it ...
checks => [ qw (generate_formkey) ],
},
# userlogin => {
# function => \&showInfo,
# seclev => 1,
# formname => $formname,
# checks => [],
# tab_selected_1 => 'me',
# },
no_user => {
function => \&noUser,
seclev => 0,
formname => $formname,
checks => [],
},
userinfo => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
userfirehose => {
function => \&showFireHose,
seclev => 0,
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'firehose'
},
usersubmissions => {
function => \&showSubmissions,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
usercomments => {
function => \&showComments,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
checks => [],
tab_selected_1 => 'me',
},
display => {
function => \&showInfo,
#I made this change, not all sites are going to care. -Brian
seclev => $constants->{users_show_info_seclev},
formname => $formname,
checks => [],
tab_selected_1 => 'me',
tab_selected_2 => 'info',
},
# savepasswd => {
# function => \&savePasswd,
# seclev => 1,
# post => 1,
# formname => $formname,
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
saveuseradmin => {
function => \&saveUserAdmin,
seclev => 10000,
post => 1,
formname => $formname,
checks => [],
},
savehome => {
function => \&saveHome,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
savecomm => {
function => \&saveComm,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
saveuser => {
function => \&saveUser,
seclev => 1,
post => 1,
formname => $formname,
checks => [ qw (valid_check
formkey_check regen_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
# changepasswd => {
# function => \&changePasswd,
# seclev => 1,
# formname => $formname,
# checks => $savepass_flag ? [] :
# [ qw (generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
editmiscopts => {
function => \&editMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
savemiscopts => {
function => \&saveMiscOpts,
seclev => 1,
formname => $formname,
checks => [ ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'misc',
},
edituser => {
function => \&editUser,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'user',
},
authoredit => {
function => \&editUser,
seclev => 10000,
formname => $formname,
checks => [],
},
edithome => {
function => \&editHome,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'home',
},
editcomm => {
function => \&editComm,
seclev => 1,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'preferences',
tab_selected_2 => 'comments',
},
# newuser => {
# function => \&newUser,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check valid_check
# formkey_check regen_formkey) ],
# },
newuseradmin => {
function => \&newUserForm,
seclev => 10000,
formname => "${formname}/nu",
checks => [],
},
previewbox => {
function => \&previewSlashbox,
seclev => 0,
formname => $formname,
checks => [],
},
# mailpasswd => {
# function => \&mailPasswd,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check valid_check
# interval_check formkey_check ) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
validateuser => {
function => \&validateUser,
seclev => 1,
formname => $formname,
checks => ['regen_formkey'],
},
showtags => {
function => \&showTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
showbookmarks => {
function => \&showBookmarks,
seclev => 0,
formname => $formname,
checks => [],
tab_selected => 'bookmarks',
},
edittags => {
function => \&editTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
savetags => {
function => \&saveTags,
seclev => 1,
formname => $formname,
checks => [],
tab_selected => 'tags',
},
# userclose => {
# function => \&displayForm,
# seclev => 0,
# formname => $formname,
# checks => [],
# },
# newuserform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/nu",
# checks => [ qw (max_post_check
# generate_formkey) ],
# },
# mailpasswdform => {
# function => \&displayForm,
# seclev => 0,
# formname => "${formname}/mp",
# checks => [ qw (max_post_check
# generate_formkey) ],
# tab_selected_1 => 'preferences',
# tab_selected_2 => 'password',
# },
displayform => {
function => \&displayForm,
seclev => 0,
formname => $formname,
checks => [ qw (generate_formkey) ],
tab_selected_1 => 'me',
},
listreadonly => {
function => \&listReadOnly,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'readonly',
},
listbanned => {
function => \&listBanned,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'banned',
},
topabusers => {
function => \&topAbusers,
seclev => 100,
formname => $formname,
checks => [],
adminmenu => 'security',
tab_selected => 'abusers',
},
listabuses => {
function => \&listAbuses,
seclev => 100,
formname => $formname,
checks => [],
},
force_acct_verify => {
function => \&forceAccountVerify,
seclev => 100,
post => 1,
formname => $formname,
checks => []
}

} ;

# Note this is NOT the default op. "userlogin" or "userinfo" is
# the default op, and it's set either 5 lines down or about 100
# lines down, depending. Yes, that's dumb. Yes, we should
# change it. It would require tracing through a fair bit of logic
# though and I don't have the time right now. - Jamie
$ops->{default} = $ops->{displayform};
for (qw(newuser newuserform mailpasswd mailpasswdform changepasswd savepasswd userlogin userclose)) {
$ops->{$_} = $ops->{default};
}

my $errornote = "";
if ($form->{op} && ! defined $ops->{$op}) {
$errornote .= getError('bad_op', { op => $form->{op}}, 0, 1);
$op = $user->{is_anon} ? 'userlogin' : 'userinfo';
}

if ($op eq 'userlogin' && ! $user->{is_anon}) {
redirect(cleanRedirectUrl($form->{returnto} || ''));
return;

# this will only redirect if it is a section-based rootdir with
# its rootdir different from real_rootdir
} elsif ($op eq 'userclose' && $gSkin->{rootdir} ne $constants->{real_rootdir}) {
redirect($constants->{real_rootdir} . '/login.pl?op=userclose');
return;

} elsif ($op =~ /^(?:newuser|newuserform|mailpasswd|mailpasswdform|changepasswd|savepasswd|userlogin|userclose|displayform)$/) {
my $op = $form->{op};
$op = 'changeprefs' if $op eq 'changepasswd';
$op = 'saveprefs' if $op eq 'savepasswd';
redirect($constants->{real_rootdir} . '/login.pl?op=' . $op);
return;

# never get here now
} elsif ($op eq 'savepasswd') {
my $error_flag = 0;
if ($user->{seclev} < 100) {
for my $check (@{$ops->{savepasswd}{checks}}) {
# the only way to save the error message is to pass by ref
# $errornote and add the message to note (you can't print
# it out before header is called)
$error_flag = formkeyHandler($check, $formname, $formkey, \$errornote);
last if $error_flag;
}
}

if (! $error_flag) {
$error_flag = savePasswd({ noteref => \$errornote }) ;
}
# change op to edituser and let fall through;
# we need to have savePasswd set the cookie before
# header() is called -- pudge
if ($user->{seclev} < 100 && ! $error_flag) {
$slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
$op = $error_flag ? 'changepasswd' : 'userinfo';
$form->{userfield} = $user->{uid};
}

# Figure out what the op really is.
$op = 'userinfo' if (! $form->{op} && ($form->{uid} || $form->{nick}));
$op ||= $user->{is_anon} ? 'userlogin' : 'userinfo';
if ($user->{is_anon} && ( ($ops->{$op}{seclev} > 0) || ($op =~ /^newuserform|mailpasswdform|displayform$/) )) {
redirect($constants->{real_rootdir} . '/login.pl');
return;
} elsif ($user->{seclev} < $ops->{$op}{seclev}) {
$op = 'userinfo';
}
if ($ops->{$op}{post} && !$postflag) {
$op = $user->{is_anon} ? 'default' : 'userinfo';
}

# Print the header and very top stuff on the page. We have
# three ops that (may) end up routing into showInfo(), which
# needs to do some stuff before it calls header(), so for
# those three, don't bother.
my $header;
if ($op !~ /^(userinfo|display|saveuseradmin|admin|userfirehose$)/) {
my $data = {
adminmenu => $ops->{$op}{adminmenu} || 'admin',
tab_selected => $ops->{$op}{tab_selected},
};
header(getMessage('user_header'), '', $data) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $errornote }) if defined $errornote;
$header = 1;
}

if ($constants->{admin_formkeys} || $user->{seclev} < 100) {

my $done = 0;
$done = 1 if $op eq 'savepasswd'; # special case
$formname = $ops->{$op}{formname};

# No need for HumanConf if the constant for it is not
# switched on, or if the user's karma is high enough
# to get out of it. (But for "newuserform," the current
# user's karma doesn't get them out of having to prove
# they're a human for creating a *new* user.)
my $options = {};
if ( !$constants->{plugin}{HumanConf}
|| !$constants->{hc}
|| !$constants->{hc_sw_newuser}
&& ($formname eq 'users/nu' || $op eq 'newuserform')
|| !$constants->{hc_sw_mailpasswd}
&& ($formname eq 'users/mp' || $op eq 'mailpasswdform')
|| $user->{karma} > $constants->{hc_maxkarma}
&& !$user->{is_anon}
&& !($op eq 'newuser' || $op eq 'newuserform')
) {
$options->{no_hc} = 1;
}

DO_CHECKS: while (!$done) {
for my $check (@{$ops->{$op}{checks}}) {
$ops->{$op}{update_formkey} = 1 if $check eq 'formkey_check';
$error_flag = formkeyHandler($check, $formname, $formkey,
undef, $options);
if ($error_flag == -1) {
# Special error: HumanConf failed. Go
# back to the previous op, start over.
if ($op =~ /^(newuser|mailpasswd)$/) {
$op .= "form";
$error_flag = 0;
next DO_CHECKS;
}
} elsif ($error_flag) {
$done = 1;
last;
}
}
$done = 1;
}

if (!$error_flag && !$options->{no_hc}) {
my $hc = getObject("Slash::HumanConf");
$hc->reloadFormkeyHC($formname) if $hc;
}

}

errorLog("users.pl error_flag '$error_flag'") if $error_flag;

# call the method
my $retval;
$retval = $ops->{$op}{function}->({
op => $op,
tab_selected_1 => $ops->{$op}{tab_selected_1} || "",
note => $errornote,
}) if !$error_flag;

return if !$retval;

if ($op eq 'mailpasswd' && $retval) {
$ops->{$op}{update_formkey} = 0;
}

if ($ops->{$op}{update_formkey} && $user->{seclev} < 100 && ! $error_flag) {
# successful save action, no formkey errors, update existing formkey
# why assign to an unused variable? -- pudge
my $updated = $slashdb->updateFormkey($formkey, length($ENV{QUERY_STRING}));
}
# if there were legit error levels returned from the save methods
# I would have it clear the formkey in case of an error, but that
# needs to be sorted out later
# else { resetFormkey($formkey); }

writeLog($user->{nickname});
footer();
}

#################################################################
sub checkList {
my($string, $len) = @_;
my $constants = getCurrentStatic();

$string =~ s/[^\w,-]//g;
my @items = grep { $_ } split /,/, $string;
$string = join ",", @items;

$len ||= $constants->{checklist_length} || 255;
if (length($string) > $len) {
print getError('checklist_err');
$string = substr($string, 0, $len);
$string =~ s/,?\w*$//g;
} elsif (length($string) < 1) {
$string = '';
}

return $string;
}

#################################################################
sub previewSlashbox {
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();

my $block = $reader->getBlock($form->{bid}, ['title', 'block', 'url']);
my $is_editable = $user->{seclev} >= 1000;

my $title = getTitle('previewslashbox_title', { blocktitle => $block->{title} });
slashDisplay('previewSlashbox', {
width => '100%',
title => $title,
block => $block,
is_editable => $is_editable,
});

print portalbox($constants->{fancyboxwidth}, $block->{title},
$block->{block}, '', $block->{url});
}

#################################################################
sub newUserForm {
my $user = getCurrentUser();
my $suadmin_flag = $user->{seclev} >= 10000;
my $title = getTitle('newUserForm_title');

slashDisplay('newUserForm', {
title => $title,
suadmin_flag => $suadmin_flag,
});
}

#################################################################
sub newUser {
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $plugins = $slashdb->getDescriptions('plugins');
my $title;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

# Check if User Exists
$form->{newusernick} = nickFix($form->{newusernick});
my $matchname = nick2matchname($form->{newusernick});

if (!$form->{email} || $form->{email} !~ /\@/) {
print getError('email_invalid', 0, 1);
return;
} elsif ($form->{email} ne $form->{email2}) {
print getError('email_do_not_match', 0, 1);
return;
} elsif ($slashdb->existsEmail($form->{email})) {
print getError('emailexists_err', 0, 1);
return;
} elsif ($matchname ne '' && $form->{newusernick} ne '') {
if ($constants->{newuser_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
print getError('new user open proxy', {
unencoded_ip => $ENV{REMOTE_ADDR},
port => $is_proxy,
});
return;
}
}
}
my $uid;
my $rootdir = getCurrentSkin('rootdir');

$uid = $slashdb->createUser(
$matchname, $form->{email}, $form->{newusernick}
);
if ($uid) {
my $data = {};
getOtherUserParams($data);

for (qw(tzcode)) {
$data->{$_} = $form->{$_} if defined $form->{$_};
}
$data->{creation_ipid} = $user->{ipid};

$slashdb->setUser($uid, $data) if keys %$data;
$title = getTitle('newUser_title');

$form->{pubkey} = $plugins->{'Pubkey'} ?
strip_nohtml($form->{pubkey}, 1) : '';
print getMessage('newuser_msg', {
suadmin_flag => $suadmin_flag,
title => $title,
uid => $uid
});

if ($form->{newsletter} || $form->{comment_reply} || $form->{headlines}) {
my $messages = getObject('Slash::Messages');
my %params;
$params{MSG_CODE_COMMENT_REPLY()} = MSG_MODE_EMAIL()
if $form->{comment_reply};
$params{MSG_CODE_NEWSLETTER()} = MSG_MODE_EMAIL()
if $form->{newsletter};
$params{MSG_CODE_HEADLINES()} = MSG_MODE_EMAIL()
if $form->{headlines};
$messages->setPrefs($uid, \%params);
}

mailPasswd({ uid => $uid });

return;
} else {
$slashdb->resetFormkey($form->{formkey});
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}

} else {
print getError('duplicate_user', {
nick => $form->{newusernick},
});
return;
}
}

#################################################################
sub mailPasswd {
my($hr) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $uid = $hr->{uid} || 0;

my $slashdb = getCurrentDB();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if (! $uid) {
if ($form->{unickname} =~ /\@/) {
$uid = $slashdb->getUserEmail($form->{unickname});

} elsif ($form->{unickname} =~ /^\d+$/) {
my $tmpuser = $slashdb->getUser($form->{unickname}, ['uid']);
$uid = $tmpuser->{uid};

} else {
$uid = $slashdb->getUserUID($form->{unickname});
}
}

my $user_edit;
my $err_name = '';
my $err_opts = {};
if (!$uid || isAnon($uid)) {
$err_name = 'mailpasswd_notmailed_err';
}
if (!$err_name) {
# Check permissions of _this_ user, not the target
# user, to determine whether this IP is OK'd to
# send the mail to the target user.
# XXXSRCID This should check a separate field like
# 'openproxy' instead of piggybacking off of the
# existing nopost and spammer
my $srcids_to_check = $user->{srcids};
$err_name = 'mailpasswd_readonly_err'
if $reader->checkAL2($srcids_to_check, 'nopost');
}
if (!$err_name) {
$err_name = 'mailpasswd_toooften_err'
if $slashdb->checkMaxMailPasswords($user_edit);
}

if (!$err_name) {
if ($constants->{mailpasswd_portscan}) {
my $is_trusted = $slashdb->checkAL2($user->{srcids}, 'trusted');
if (!$is_trusted) {
my $is_proxy = $slashdb->checkForOpenProxy($user->{hostip});
if ($is_proxy) {
$err_name = 'mailpasswd open proxy';
$err_opts = { unencoded_ip => $ENV{REMOTE_ADDR}, port => $is_proxy };
}
}

}
}

if ($err_name) {
print getError($err_name, $err_opts);
$slashdb->resetFormkey($form->{formkey});
$form->{op} = 'mailpasswdform';
displayForm();
return(1);
}

my $newpasswd = $slashdb->getNewPasswd($uid);
my $tempnick = $user_edit->{nickname};

my $emailtitle = getTitle('mailPassword_email_title', {
nickname => $user_edit->{nickname}
}, 1);

# Pull out some data passed in with the request. Only the IP
# number is actually trustworthy, the others could be forged.
# Note that we strip the forgeable ones to make sure there
# aren't any "<>" chars which could fool a stupid mail client
# into parsing a plaintext email as HTML.
my $r = Apache->request;
my $remote_ip = $r->connection->remote_ip;
my $xff = $r->header_in('X-Forwarded-For') || '';
$xff =~ s/\s+/ /g;
$xff = substr(strip_notags($xff), 0, 20);
my $ua = $r->header_in('User-Agent') || '';
$ua =~ s/\s+/ /g;
$ua = substr(strip_attribute($ua), 0, 60);

my $msg = getMessage('mailpasswd_msg', {
newpasswd => $newpasswd,
tempnick => $tempnick,
remote_ip => $remote_ip,
x_forwarded_for => $xff,
user_agent => $ua,
}, 1);

doEmail($uid, $emailtitle, $msg) if $user_edit->{nickname};
print getMessage('mailpasswd_mailed_msg', { name => $user_edit->{nickname} });
$slashdb->setUserMailPasswd($user_edit);
}

#################################################################
sub showSubmissions {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my($uid, $nickname);

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

if ($form->{uid} or $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$nickname = $reader->getUser($uid, 'nickname');
} else {
$nickname = $user->{nickname};
$uid = $user->{uid};
}

my $storycount = $reader->countStoriesBySubmitter($uid);
my $stories = $reader->getStoriesBySubmitter(
$uid,
$constants->{user_submitter_display_default}
) unless !$storycount;

slashDisplay('userSub', {
nick => $nickname,
uid => $uid,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
stories => $stories,
storycount => $storycount,
});
}

#################################################################
sub showComments {
my($hr) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $commentstruct = [];
my($uid, $nickname);

my $user_edit;
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $reader->getUserUID($form->{nick});
$user_edit = $reader->getUser($uid);
} else {
$uid = $user->{uid};
$user_edit = $user;
}
$nickname = $user_edit->{nickname};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};
my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $commentcount = $reader->countCommentsByUID($uid);
my $comments = $reader->getCommentsByUID(
$uid, $comments_wanted, $min_comment
) if $commentcount;

if (ref($comments) eq 'ARRAY') {
my $kinds = $reader->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
# This works since $sid is numeric.
$comment->{replies} = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is ok, since with all luck we will not be hitting the DB
# ...however, the "sid" parameter here must be the string
# based SID from either the "stories" table or from
# pollquestions.
my $discussion = $reader->getDiscussion($comment->{sid});

if ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$comment->{type} = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$comment->{type} = 'poll';
} else {
$comment->{type} = 'story';
}
$comment->{disc_title} = $discussion->{title};
$comment->{url} = $discussion->{url};
}
}

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
slashDisplay('userCom', {
nick => $nickname,
useredit => $user_edit,
nickmatch_flag => ($user->{uid} == $uid ? 1 : 0),
commentstruct => $comments,
commentcount => $commentcount,
min_comment => $min_comment,
reasons => $mod_reader->getReasons(),
karma_flag => 0,
admin_flag => $user->{is_admin},
});
}

sub noUser {
print getData("no_user");
}

sub showFireHose {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $uid = $form->{uid} || $user->{uid};
my $user_edit = $reader->getUser($uid);

$user->{state}{firehose_page} = "user";
$user->{state}{firehose_user_uid} = $uid;

my $firehose = getObject("Slash::FireHose");
header(getMessage('userfirehose_header', { useredit => $user_edit })) or return;
print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $user_edit->{uid} == $user->{uid} ? 'me' : 'otheruser',
});

$form->{mode} = "full";
$form->{color} = "black";
$form->{orderby} = "createtime";
$form->{orderdir} = "DESC";
$form->{skipmenu} = 1;
$form->{duration} = -1;
$form->{fhfilter} = "\"user:$user_edit->{nickname}\"";
$form->{pause} = 1;
$form->{listonly} = 1;
$form->{legacy} = 1;

my $fhbox = $firehose->listView({ fh_page => 'users.pl', tab => 'userfirehose', user_view => $user_edit });
slashDisplay("userFireHose", { firehosebox => $fhbox, uid => $uid, useredit => $user_edit });
}

#################################################################
# arhgghgh. I love torture. I love pain. This subroutine satisfies
# these needs of mine
sub showInfo {
my($hr) = @_;
my $id = $hr->{uid} || 0;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $user = getCurrentUser();

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;
my($title, $admin_block, $fieldkey) = ('', '', '');
my $comments = undef;
my $commentcount = 0;
my $commentcount_time = 0;
my $commentstruct = [];
my $requested_user = {};
my $time_period = $constants->{admin_comment_display_days} || 30;
my $cid_for_time_period = $reader->getVar("min_cid_last_$time_period\_days",'value', 1) || 0;
my $admin_time_period_limit = $constants->{admin_daysback_commentlimit} || 100;
my $admin_non_time_limit = $constants->{admin_comment_subsequent_pagesize} || 24;

my($points, $nickmatch_flag, $uid, $nick);
my($mod_flag, $karma_flag, $n) = (0, 0, 0);

if ($admin_flag
&& (defined($form->{show_m2s}) || defined($form->{show_m1s}) || defined($form->{m2_listing})))
{
my $update_hr = {};
$update_hr->{mod_with_comm} = $form->{show_m1s}
if defined $form->{show_m1s};
$update_hr->{m2_with_mod} = ($constants->{m2} ? $form->{show_m2s} : undef)
if defined $form->{show_m2s};
$update_hr->{show_m2_listing} = ($constants->{m2} ? $form->{m2_listing} : undef)
if defined $form->{m2_listing};
$slashdb->setUser($user->{uid}, $update_hr);
}

if (!$id && !$form->{userfield}) {
if ($form->{uid} && ! $id) {
$fieldkey = 'uid';
($uid, $id) = ($form->{uid}, $form->{uid});
$requested_user = isAnon($uid) ? $user : $reader->getUser($id);
$nick = $requested_user->{nickname};
$form->{userfield} = $nick if $admin_flag;

} elsif ($form->{nick} && ! $id) {
$fieldkey = 'nickname';
($nick, $id) = ($form->{nick}, $form->{nick});
$uid = $reader->getUserUID($id);
if (isAnon($uid)) {
$requested_user = $user;
($nick, $uid, $id) = @{$user}{qw(nickname uid nickname)};
} else {
$requested_user = $reader->getUser($uid);
}
$form->{userfield} = $uid if $admin_flag;

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
$form->{userfield} = $uid if $admin_flag;
}

} elsif ($user->{is_admin}) {
$id ||= $form->{userfield} || $user->{uid};
if ($id =~ /^[0-9a-f]{16}$/) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^\d+$/) {
# If it's longer than a uid could possibly be, it
# must be a srcid. The uid column right now is a
# MEDIUMINT (max 16M) but at most might someday
# be an INT (max 4G).
if (length($id) > 11) {
$requested_user->{nonuid} = 1;
$fieldkey = "srcid";
$requested_user->{$fieldkey} = $id;
} else {
$fieldkey = 'uid';
$requested_user = $reader->getUser($id);
$uid = $requested_user->{uid};
$nick = $requested_user->{nickname};
if ((my $conflict_id = $reader->getUserUID($id)) && $form->{userinfo}) {
slashDisplay('showInfoConflict', {
op => 'userinfo',
id => $uid,
nick => $nick,
conflict_id => $conflict_id
});
return 1;
}
}

} elsif (length($id) == 32) {
$requested_user->{nonuid} = 1;
if ($form->{fieldname}
&& $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$fieldkey = $form->{fieldname};
} else {
$fieldkey = 'md5id';
}
$requested_user->{$fieldkey} = $id;
} elsif ($id =~ /^(\d{1,3}\.\d{1,3}.\d{1,3}\.0)$/
|| $id =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3})\.?$/) {
$fieldkey = 'subnetid';
$requested_user->{subnetid} = $1;
$requested_user->{subnetid} .= '.0' if $requested_user->{subnetid} =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}$/;
$requested_user->{nonuid} = 1;
$requested_user->{subnetid} = md5_hex($requested_user->{subnetid});

} elsif ($id =~ /^([\d+\.]+)$/) {
$fieldkey = 'ipid';
$requested_user->{nonuid} = 1;
$id ||= $1;
$requested_user->{ipid} = md5_hex($1);

} elsif ($id =~ /^(.*@.*\..*?)$/) {
# check for email addy, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserEmail($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};

} else { # go by nickname, but make it by uid
$fieldkey = 'uid';
$id = $uid = $reader->getUserUID($id);
$requested_user = $reader->getUser($uid);
$nick = $requested_user->{nickname};
}

} else {
$fieldkey = 'uid';
($id, $uid) = ($user->{uid}, $user->{uid});
$requested_user = $reader->getUser($uid);
}

# Can't get user data for the anonymous user.
if ($fieldkey eq 'uid' && isAnon($uid)) {
header(getMessage('user_header')) or return;
return displayForm();
}

my $user_change = { };
if ($fieldkey eq 'uid' && !$user->{is_anon}
&& $uid != $user->{uid} && !isAnon($uid)) {
# Store the fact that this user last looked at that user.
# For maximal convenience in stalking.
$user_change->{lastlookuid} = $uid;
$user_change->{lastlooktime} = time;
$user->{lastlookuid} = $uid;
$user->{lastlooktime} = time;
$hr->{tab_selected_1} = 'otheruser';
}

# showInfo's header information is delayed until here, because
# the target user's info is not available until here.
vislenify($requested_user);
header(getMessage('user_header', { useredit => $requested_user, fieldkey => $fieldkey })) or return;
# This is a hardcoded position, bad idea and should be fixed -Brian
# Yeah, we should pull this into a template somewhere...
print getMessage('note', { note => $hr->{note} }) if defined $hr->{note};

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $comments_wanted = $user->{show_comments_num}
|| $constants->{user_comment_display_default};
my $min_comment = $form->{min_comment} || 0;
$min_comment = 0 unless $user->{seclev} > $constants->{comments_more_seclev}
|| $constants->{comments_more_seclev} == 2 && $user->{is_subscriber};

my($netid, $netid_vis) = ('', '');

my $comment_time;
my $non_admin_limit = $comments_wanted;

if ($requested_user->{nonuid}) {
$requested_user->{fg} = $user->{fg};
$requested_user->{bg} = $user->{bg};

if ($requested_user->{ipid}) {
$netid = $requested_user->{ipid} ;

} elsif ($requested_user->{md5id}) {
$netid = $requested_user->{md5id} ;

} elsif ($requested_user->{srcid}) {
$netid = $requested_user->{srcid} ;
} else {
$netid = $requested_user->{subnetid} ;
}

my $data = {
id => $id,
md5id => $netid,
};
vislenify($data); # add $data->{md5id_vis}
$netid_vis = $data->{md5id_vis};

$title = getTitle('user_netID_user_title', $data);

$admin_block = getUserAdmin($netid, $fieldkey, 0) if $admin_flag;

if ($form->{fieldname}) {
if ($form->{fieldname} eq 'ipid') {
$commentcount = $reader->countCommentsByIPID($netid);
$commentcount_time = $reader->countCommentsByIPID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($form->{fieldname} eq 'subnetid') {
$commentcount = $reader->countCommentsBySubnetID($netid);
$commentcount_time = $reader->countCommentsBySubnetID($netid, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;

} else {
delete $form->{fieldname};
}
}
if (!defined($comments)) {
# Last resort; here for backwards compatibility mostly.
my $type;
($commentcount,$type) = $reader->countCommentsByIPIDOrSubnetID($netid);
$commentcount_time = $reader->countCommentsByIPIDOrSubnetID($netid, { cid_at_or_after => $cid_for_time_period });
if ($type eq "ipid") {
$comments = getCommentListing("ipid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
} elsif ($type eq "subnetid") {
$comments = getCommentListing("subnetid", $netid,
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit)
if $commentcount;
}
}
} else {
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$commentcount = $reader->countCommentsByUID($requested_user->{uid});
$commentcount_time = $reader->countCommentsByUID($requested_user->{uid}, { cid_at_or_after => $cid_for_time_period });
$comments = getCommentListing("uid", $requested_user->{uid},
$min_comment, $time_period, $commentcount, $commentcount_time, $cid_for_time_period,
$non_admin_limit, $admin_time_period_limit, $admin_non_time_limit,
{ use_uid_cid_cutoff => 1 })
if $commentcount;
$netid = $requested_user->{uid};
}

# Grab the nicks of the uids we have, we're going to be adding them
# into the struct.
my @users_extra_cols_wanted = qw( nickname );
my @discussions_extra_cols_wanted = qw( type );
my $uid_hr = { };
my $sid_hr = { };
if ($comments && @$comments) {
my %uids = ();
my %sids = ();
for my $c (@$comments) {
$uids{$c->{uid}}++;
$sids{$c->{sid}}++;
}
my $uids = join(", ", sort { $a <=> $b } keys %uids);
my $sids = join(", ", sort { $a <=> $b } keys %sids);
$uid_hr = $reader->sqlSelectAllHashref(
"uid",
"uid, " . join(", ", @users_extra_cols_wanted),
"users",
"uid IN ($uids)"
);

$sid_hr = $reader->sqlSelectAllHashref(
"id",
"id, " . join(", ", @discussions_extra_cols_wanted),
"discussions",
"id IN ($sids)"
);

}

my $cids_seen = {};
my $kinds = $slashdb->getDescriptions('discussion_kinds');
for my $comment (@$comments) {
$cids_seen->{$comment->{cid}}++;
my $type;
# This works since $sid is numeric.
my $replies = $reader->countCommentsBySidPid($comment->{sid}, $comment->{cid});

# This is cached.
my $discussion = $reader->getDiscussion($comment->{sid});
#use Data::Dumper; if ($discussion && !$discussion->{dkid}) { print STDERR scalar(gmtime) . " users.pl discussion but no dkid: " . Dumper($discussion) }
if (!$discussion || !$discussion->{dkid}) {
# A comment with no accompanying discussion;
# basically we pretend it doesn't exist.
next;
} elsif ($kinds->{ $discussion->{dkid} } =~ /^journal(?:-story)?$/) {
$type = 'journal';
} elsif ($kinds->{ $discussion->{dkid} } eq 'poll') {
$type = 'poll';
} else {
$type = 'story';
}

$comment->{points} += $user->{karma_bonus}
if $user->{karma_bonus} && $comment->{karma_bonus} eq 'yes';
$comment->{points} += $user->{subscriber_bonus}
if $user->{subscriber_bonus} && $comment->{subscriber_bonus} eq 'yes';

# fix points in case they are out of bounds
$comment->{points} = $constants->{comment_minscore} if $comment->{points} < $constants->{comment_minscore};
$comment->{points} = $constants->{comment_maxscore} if $comment->{points} > $constants->{comment_maxscore};
vislenify($comment);
my $data = {
pid => $comment->{pid},
url => $discussion->{url},
disc_type => $type,
disc_title => $discussion->{title},
disc_time => $discussion->{ts},
sid => $comment->{sid},
cid => $comment->{cid},
subj => $comment->{subject},
cdate => $comment->{date},
pts => $comment->{points},
reason => $comment->{reason},
uid => $comment->{uid},
replies => $replies,
ipid => $comment->{ipid},
ipid_vis => $comment->{ipid_vis},
karma => $comment->{karma},
tweak => $comment->{tweak},
tweak_orig => $comment->{tweak_orig},

};
#Karma bonus time

for my $col (@users_extra_cols_wanted) {
$data->{$col} = $uid_hr->{$comment->{uid}}{$col} if defined $uid_hr->{$comment->{uid}}{$col};
}
for my $col(@discussions_extra_cols_wanted) {
$data->{$col} = $sid_hr->{$comment->{sid}}{$col} if defined $sid_hr->{$comment->{sid}}{$col};
}
push @$commentstruct, $data;
}
# if (grep { !defined($_->{disc_time}) || !defined($_->{sid}) } @$commentstruct) { use Data::Dumper; print STDERR "showInfo undef in commentstruct for id=$id: " . Dumper($commentstruct) }
# Sort so the chosen group of comments is sorted by discussion
@$commentstruct = sort {
$b->{disc_time} cmp $a->{disc_time} || $b->{sid} <=> $a->{sid}
} @$commentstruct
unless $user->{user_comment_sort_type} && $user->{user_comment_sort_type} == 1;

my $cid_list = [ keys %$cids_seen ];
my $cids_to_mods = {};
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
if ($constants->{m1} && $admin_flag && $constants->{show_mods_with_comments}) {
my $comment_mods = $mod_reader->getModeratorCommentLog("DESC",
$constants->{mod_limit_with_comments}, "cidin", $cid_list);

# Loop through mods and group them by the sid they're attached to
while (my $mod = shift @$comment_mods) {
push @{$cids_to_mods->{$mod->{cid}}}, $mod;
}
}

my $sub_limit = ((($admin_flag || $user->{uid} == $requested_user->{uid}) ? $constants->{submissions_all_page_size} : $constants->{submissions_accepted_only_page_size}) || "");

my $sub_options = { limit_days => 365 };
$sub_options->{accepted_only} = 1 if !$admin_flag && $user->{uid} != $requested_user->{uid};

my $sub_field = $form->{fieldname};

my ($subcount, $ret_field) = $reader->countSubmissionsByNetID($netid, $sub_field)
if $requested_user->{nonuid};
my $submissions = $reader->getSubmissionsByNetID($netid, $ret_field, $sub_limit, $sub_options)
if $requested_user->{nonuid};

my $ipid_hoursback = $constants->{istroll_ipid_hours} || 72;
my $uid_hoursback = $constants->{istroll_uid_hours} || 72;

if ($requested_user->{nonuid}) {
slashDisplay('netIDInfo', {
title => $title,
id => $id,
useredit => $requested_user,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
admin_flag => $admin_flag,
admin_block => $admin_block,
netid => $netid,
netid_vis => $netid_vis,
reasons => $mod_reader->getReasons(),
subcount => $subcount,
submissions => $submissions,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time
});

} else {
if (! $requested_user->{uid}) {
print getError('userinfo_idnf_err', { id => $id, fieldkey => $fieldkey});
return 1;
}

$karma_flag = 1 if $admin_flag;
$requested_user->{nick_plain} = $nick ||= $requested_user->{nickname};
$nick = strip_literal($nick);

if ($requested_user->{uid} == $user->{uid}) {
$karma_flag = 1;
$nickmatch_flag = 1;
$points = $requested_user->{points};

$mod_flag = 1 if $points > 0;

$title = getTitle('userInfo_main_title', { nick => $nick, uid => $uid });

} else {
$title = getTitle('userInfo_user_title', { nick => $nick, uid => $uid });
}

my $lastjournal = _get_lastjournal($uid);

my $subcount = $reader->countSubmissionsByUID($uid);

my $submissions = $reader->getSubmissionsByUID($uid, $sub_limit, $sub_options);
my $metamods;
if ($constants->{m2} && $admin_flag) {
my $metamod_reader = getObject('Slash::Metamod', { db_type => 'reader' });
$metamods = $metamod_reader->getMetamodlogForUser($uid, 30);
}

my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });
my $tagshist = [];
if ($tags_reader && $user->{is_admin}) {
$tagshist = $tags_reader->getAllTagsFromUser($requested_user->{uid}, { orderby => 'created_at', orderdir => 'DESC', limit => 30, include_private => 1 });
}

slashDisplay('userInfo', {
title => $title,
uid => $uid,
useredit => $requested_user,
points => $points,
commentstruct => $commentstruct || [],
commentcount => $commentcount,
min_comment => $min_comment,
nickmatch_flag => $nickmatch_flag,
mod_flag => $mod_flag,
karma_flag => $karma_flag,
admin_block => $admin_block,
admin_flag => $admin_flag,
suadmin_flag => $suadmin_flag,
reasons => $mod_reader->getReasons(),
lastjournal => $lastjournal,
hr_hours_back => $ipid_hoursback,
cids_to_mods => $cids_to_mods,
comment_time => $comment_time,
submissions => $submissions,
subcount => $subcount,
metamods => $metamods,
tagshist => $tagshist
});
}

if ($user_change && %$user_change) {
$slashdb->setUser($user->{uid}, $user_change);
}

return 1;
}

sub _get_lastjournal {
my($uid) = @_;
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $lastjournal = undef;
if (my $journal = getObject('Slash::Journal', { db_type => 'reader' })) {
my $j = $journal->getsByUid($uid, 0, 1);
if ($j && @$j) {
# Yep, there are 1 or more journals... get the first.
$j = $j->[0];
}
if ($j && @$j) {
# Yep, that first journal exists and has entries...
# convert from stupid numeric array to a hashref.
my @field = qw( date article description id
posttype tid discussion );
$lastjournal = { };
for my $i (0..$#field) {
$lastjournal->{$field[$i]} = $j->[$i];
}
}
}

if ($lastjournal) {

# Strip the article field for display.
$lastjournal->{article} = strip_mode($lastjournal->{article},
$lastjournal->{posttype});

# For display, include a reduced-size version, where the
# size is based on the user's maxcomment size (which
# defaults to 4K) and can't have too many line-breaking
# tags.
my $art_shrunk = $lastjournal->{article};
my $maxsize = int($constants->{default_maxcommentsize} / 25);
$maxsize = 80 if $maxsize < 80;
$maxsize = 600 if $maxsize > 600;
$art_shrunk = chopEntity($art_shrunk, $maxsize);

my $approvedtags_break = $constants->{approvedtags_break} || [];
my $break_tag = join '|', @$approvedtags_break;
if (scalar(() = $art_shrunk =~ /<(?:$break_tag)>/gi) > 2) {
$art_shrunk =~ s/\A
(
(?: <(?:$break_tag)> )?
.*? <(?:$break_tag)>
.*?
) <(?:$break_tag)>.*
/$1/six;
if (length($art_shrunk) < 15) {
# This journal entry has too much whitespace
# in its first few chars; scrap it.
undef $art_shrunk;
}
$art_shrunk = chopEntity($art_shrunk) if defined($art_shrunk);
}

if (defined $art_shrunk) {
if (length($art_shrunk) < length($lastjournal->{article})) {
$art_shrunk .= " ...";
}
$art_shrunk = strip_html($art_shrunk);
$art_shrunk = balanceTags($art_shrunk);
}

$lastjournal->{article_shrunk} = $art_shrunk;

if ($lastjournal->{discussion}) {
$lastjournal->{commentcount} = $reader->getDiscussion(
$lastjournal->{discussion}, 'commentcount');
}
}
return $lastjournal;
}

#####################################################################
sub validateUser {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

# If we aren't expiring accounts in some way, we don't belong here.
if (! allowExpiry()) {
displayForm();
return;
}

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

# Since we are here, if the minimum values for the comment trigger and
# the day trigger are -1, then they should be reset to 1.
$constants->{min_expiry_comm} = $constants->{min_expiry_days} = 1
if $constants->{min_expiry_comm} <= 0 ||
$constants->{min_expiry_days} <= 0;

if ($user->{is_anon} || $user->{registered}) {
if ($user->{is_anon}) {
print getError('anon_validation_attempt');
displayForm();
return;
} else {
print getMessage('no_registration_needed')
if !$user->{reg_id};
showInfo({ uid => $user->{uid} });
return;
}
# Maybe this should be taken care of in a more centralized location?
} elsif ($user->{reg_id} eq $form->{id}) {
# We have a user and the registration IDs match. We are happy!
my($maxComm, $maxDays) = ($constants->{max_expiry_comm},
$constants->{max_expiry_days});
my($userComm, $userDays) =
($user->{user_expiry_comm}, $user->{user_expiry_days});

# Ensure both $userComm and $userDays aren't -1 (expiry has
# just been turned on).
$userComm = $constants->{min_expiry_comm}
if $userComm < $constants->{min_expiry_comm};
$userDays = $constants->{min_expiry_days}
if $userDays < $constants->{min_expiry_days};

my $exp = $constants->{expiry_exponent};

# Increment only the trigger that was used.
my $new_comment_expiry = ($maxComm > 0 && $userComm > $maxComm)
? $maxComm
: $userComm * (($user->{expiry_comm} < 0)
? $exp
: 1
);
my $new_days_expiry = ($maxDays > 0 && $userDays > $maxDays)
? $maxDays
: $userDays * (($user->{expiry_days} < 0)
? $exp
: 1
);

# Reset re-registration triggers for user.
$slashdb->setUser($user->{uid}, {
'expiry_comm' => $new_comment_expiry,
'expiry_days' => $new_days_expiry,
'user_expiry_comm' => $new_comment_expiry,
'user_expiry_days' => $new_days_expiry,
});

# Handles rest of re-registration process.
setUserExpired($user->{uid}, 0);
}

slashDisplay('regResult');
}

#####################################################################
sub editTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = $slashdb->getUser($user->{uid});
my $title = getTitle('editTags_title');

slashDisplay('editTags', {
user_edit => $user_edit,
title => $title,
note => $note,
});
}

sub saveTags {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

$slashdb->setUser($user->{uid}, {
tags_turnedoff => $form->{showtags} ? '' : 1 });
editTags({ note => getMessage('savetags_msg') });
}

#####################################################################
sub showTags {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

# XXX if $user_edit->{acl}{spammer}, either abort or put ref=nofollow in all links

my $tagname = $form->{tagname} || '';
$tagname = '' if !$tags_reader->tagnameSyntaxOK($tagname);

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tagnameid = $tags_reader->getTagnameidFromNameIfExists($tagname);
if ($tagnameid) {
# Show all user's tags for one particular tagname.
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid},
{ tagnameid => $tagnameid });
my $tags_ar = $tags_hr->{$tagname} || [ ];
slashDisplay('usertagsforname', {
useredit => $user_edit,
tagname => $tagname,
tags => $tags_ar,
});

} else {
my $tags_hr = $tags_reader->getGroupedTagsFromUser($user_edit->{uid});
my $num_tags = 0;
for my $tn (keys %$tags_hr) {
$num_tags += scalar @{ $tags_hr->{$tn} };
}
my $cutoff = $constants->{tags_usershow_cutoff} || 200;
if ($num_tags <= $cutoff) {
# Show all user's tags, grouped by tagname.
slashDisplay('usertags', {
useredit => $user_edit,
tags_grouped => $tags_hr,
});
} else {
# Show all user's tagnames, with links to show all
# tags for each particular tagname.
my $tagname_ar = [ sort keys %$tags_hr ];
slashDisplay('usertagnames', {
useredit => $user_edit,
tagnames => $tagname_ar,
});
}
}
}

#################################################################
sub showBookmarks {
my($hr) = @_;
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $tags_reader = getObject('Slash::Tags', { db_type => 'reader' });

my($uid, $user_edit);
if ($form->{uid} || $form->{nick}) {
$uid = $form->{uid} || $tags_reader->getUserUID($form->{nick});
$user_edit = $tags_reader->getUser($uid);
}
if (!$user_edit || $user_edit->{is_anon}) {
$uid = $user->{uid};
$user_edit = $user;
}
my $nickname = $user_edit->{nickname};

if (!$constants->{plugin}{Tags}) {
print getError('bad_op', { op => $form->{op}});
return;
}

my $tags_ar = $tags_reader->getGroupedTagsFromUser($user_edit->{uid}, { type => "urls", only_bookmarked => 1 });

slashDisplay('userbookmarks', {
useredit => $user_edit,
tags_grouped => $tags_ar,
});
}

#################################################################
sub editKey {
my($uid) = @_;

my $slashdb = getCurrentDB();

my $pubkey = $slashdb->getUser($uid, 'pubkey');
my $editkey = slashDisplay('editKey', { pubkey => $pubkey }, 1);
return $editkey;
}

#################################################################
# We arrive here without header() having been called. Some of the
# functions we dispatch to call it, some do not.
sub adminDispatch {
my($hr) = @_;
my $form = getCurrentForm();
my $op = $hr->{op} || $form->{op};

if ($op eq 'authoredit') {
# editUser() does not call header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
editUser($hr);

} elsif ($form->{saveuseradmin}) {
# saveUserAdmin() tail-calls showInfo(), which calls
# header(), so we need to NOT.
saveUserAdmin($hr);

} elsif ($form->{userinfo}) {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);

} elsif ($form->{userfield}) {
# none of these calls header(), so we DO need to.
header(getMessage('user_header'), '', {}) or return;
if ($form->{edituser}) {
editUser($hr);

} elsif ($form->{edithome}) {
editHome($hr);

} elsif ($form->{editcomm}) {
editComm($hr);

} elsif ($form->{changepasswd}) {
changePasswd($hr);
}

} else {
# showInfo() calls header(), so we need to NOT.
showInfo($hr);
}
}

#################################################################
sub tildeEd {
my($user_edit) = @_;

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my %story023_default = (
author => { },
nexus => { },
topic => { },
);

my %prefs = ( );
for my $field (qw(
story_never_topic story_never_author story_never_nexus
story_always_topic story_always_author story_always_nexus story_brief_always_nexus
story_full_brief_nexus story_full_best_nexus story_brief_best_nexus
)) {
for my $id (
grep /^\d+$/,
split /,/,
($user_edit->{$field} || "")
) {
$prefs{$field}{$id} = 1;
}
}
#print STDERR scalar(localtime) . " prefs: " . Dumper(\%prefs);

# Set up $author_hr, @aid_order, and $story023_default{author}.

my $author_hr = $reader->getDescriptions('authors');
my @aid_order = sort { lc $author_hr->{$a} cmp lc $author_hr->{$b} } keys %$author_hr;
for my $aid (@aid_order) {
if ($prefs{story_never_author}{$aid}) {
$story023_default{author}{$aid} = 0;
} elsif ($prefs{story_always_author}{$aid}) {
$story023_default{author}{$aid} = 3;
} else {
$story023_default{author}{$aid} = 2;
}
}

# Set up $topic_hr, @topictid_order, and $story023_default{topic}.

my $topic_hr = $reader->getDescriptions('non_nexus_topics-storypickable');
my @topictid_order = sort { lc $topic_hr->{$a} cmp lc $topic_hr->{$b} } keys %$topic_hr;
for my $tid (@topictid_order) {
if ($prefs{story_never_topic}{$tid}) {
$story023_default{topic}{$tid} = 0;
} elsif ($prefs{story_always_topic}{$tid}) {
$story023_default{topic}{$tid} = 3;
} else {
$story023_default{topic}{$tid} = 2;
}
}

# Set up $nexus_hr, @nexustid_order, and $story023_default{nexus}.
my $topic_tree = $reader->getTopicTree();
my $nexus_tids_ar = $reader->getStorypickableNexusChildren($constants->{mainpage_nexus_tid}, 1);
my $nexus_hr = { };

for my $tid (@$nexus_tids_ar) {
$nexus_hr->{$tid} = $topic_tree->{$tid}{textname};
}
my @nexustid_order = sort {($b == $constants->{mainpage_nexus_tid}) <=> ($a == $constants->{mainpage_nexus_tid}) ||
lc $nexus_hr->{$a} cmp lc $nexus_hr->{$b} } keys %$nexus_hr;

my $mp_disp_nexuses = $reader->getMainpageDisplayableNexuses();
my %mp_disp_nexus = ( map { ($_, 1) } @$mp_disp_nexuses );
for my $tid (@nexustid_order) {
if ($prefs{story_never_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 0;
} elsif ($prefs{story_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 5;
} elsif ($prefs{story_full_brief_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 4;
} elsif ($prefs{story_brief_always_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 3;
} elsif ($prefs{story_full_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 2;
} elsif ($prefs{story_brief_best_nexus}{$tid}) {
$story023_default{nexus}{$tid} = 1;
} else {
# If brief_sectional_mainpage is set, then all
# nexuses in getMainpageDisplayableNexuses are,
# by default, shown as brief on the mainpage.
if ($constants->{brief_sectional_mainpage}
&& $mp_disp_nexus{$tid}
) {
$story023_default{nexus}{$tid} = 4;
} else {
$story023_default{nexus}{$tid} = 2;
}
}
}

# Set up $section_descref and $box_order, used to decide which
# slashboxes appear. Really this doesn't seem to have anything
# to do with sections, so I'm not sure why it's called
# "section"_descref.

my $section_descref = { };
my $box_order;
my $sections_description = $reader->getSectionBlocks();

# the names of all the boxes in @{$skinBoxes->{$constants->{mainpage_skid}}}
# should be unioned into sections_description. whether the
# values are 0 or 1 is calculated correctly, but we're
# missing some 0's that should appear, I think, under
# some circumstances. ah heck, the whole concept of
# sectional slashboxes should be redone (why the heck
# do we have skinname_more instead of just a block
# called olderstories?)

my $slashboxes_hr = { };
my $slashboxes_textlist = $user_edit->{slashboxes};
if (!$slashboxes_textlist) {
# Use the default.
my($boxes, $skinBoxes) = $reader->getPortalsCommon();
$slashboxes_textlist = join ",", @{$skinBoxes->{$constants->{mainpage_skid}}};
}
for my $bid (
map { /^'?([^']+)'?$/; $1 }
split /,/,
$slashboxes_textlist
) {
$slashboxes_hr->{$bid} = 1;
}
for my $ary (sort { lc $a->[1] cmp lc $b->[1]} @$sections_description) {
my($bid, $title, $boldflag) = @$ary;
push @$box_order, $bid;
$section_descref->{$bid}{checked} =
$slashboxes_hr->{$bid}
? $constants->{markup_checked_attribute}
: '';
$title =~ s/<(.*?)>//g;
$section_descref->{$bid}{title} = $title;
}

my $dynamic_blocks = getObject("Slash::DynamicBlocks");
my $extra_blocks = [];
if ($dynamic_blocks) {
my $userblocks = $dynamic_blocks->getUserBlocks("name", $user_edit->{uid}) || {};
my $friendblocks = $dynamic_blocks->getFriendBlocks("name", $user_edit->{uid}) || {};
push(@$extra_blocks, grep { $slashboxes_textlist =~ $_; } (keys(%$userblocks), keys(%$friendblocks)));
}

# Userspace.
my $userspace = $user_edit->{mylinks} || "";

# Titles of stuff.
my $tildeEd_title = getTitle('tildeEd_title');
my $criteria_msg = getMessage('tilded_criteria_msg');
my $customize_title = getTitle('tildeEd_customize_title');
my $tilded_customize_msg = getMessage('tilded_customize_msg',
{ userspace => $userspace });
my $tilded_box_msg = getMessage('tilded_box_msg');

my $tilde_ed = slashDisplay('tildeEd', {
user_edit => $user_edit,
title => $tildeEd_title,
criteria_msg => $criteria_msg,
customize_title => $customize_title,
tilded_customize_msg => $tilded_customize_msg,
tilded_box_msg => $tilded_box_msg,

story023_default => \%story023_default,
authorref => $author_hr,
aid_order => \@aid_order,
topicref => $topic_hr,
topictid_order => \@topictid_order,
nexusref => $nexus_hr,
nexustid_order => \@nexustid_order,

section_descref => $section_descref,
box_order => $box_order,

userspace => $userspace,
extra_blocks => $extra_blocks,
}, 1);

return $tilde_ed;
}

#################################################################
sub changePasswd {
my($hr) = @_;
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $user_edit = {};
my $title;
my $suadmin_flag = ($user->{seclev} >= 10000) ? 1 : 0;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

my $id = '';
if ($admin_flag) {
if ($form->{userfield}) {
$id ||= $form->{userfield};
if ($id =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$id = $user_edit->{uid};
}
} else {
$id = $user->{uid};
$user_edit = $user;
}

$admin_block = getUserAdmin($id, 'uid', 1) if $admin_flag;

# print getMessage('note', { note => $form->{note}}) if $form->{note};

$title = getTitle('changePasswd_title', { user_edit => $user_edit });

my $session = $slashdb->getDescriptions('session_login');
my $session_select = createSelect('session_login', $session, $user_edit->{session_login}, 1);

my $clocation = $slashdb->getDescriptions('cookie_location');
my @clocation_order = grep { exists $clocation->{$_} } qw(none classbid subnetid ipid);
my $clocation_select = createSelect('cookie_location', $clocation,
$user_edit->{cookie_location}, 1, 0, \@clocation_order
);

my $got_oldpass = 0;
if ($form->{oldpass}) {
my $return_uid = $slashdb->getUserAuthenticate($id, $form->{oldpass}, 1);
$got_oldpass = 1 if $return_uid && $id == $return_uid;
}

slashDisplay('changePasswd', {
useredit => $user_edit,
admin_flag => $suadmin_flag,
title => $title,
session => $session_select,
clocation => $clocation_select,
admin_block => $admin_block,
got_oldpass => $got_oldpass
});
}

#################################################################
sub editUser {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $plugins = $slashdb->getDescriptions('plugins');

my $user_edit = {};
my($admin_block, $title);
my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $fieldkey;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
$id = $user_edit->{uid};
}
return if isAnon($user_edit->{uid}) && ! $admin_flag;

$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;
$user_edit->{homepage} ||= "http://";

# Remove domain tags, they'll be added back in, in saveUser.
for my $dat (@{$user_edit}{qw(sig bio)}) {
$dat = parseDomainTags($dat, 0, 1);
}

$title = getTitle('editUser_title', { user_edit => $user_edit});

my $editkey = "";
$editkey = editKey($user_edit->{uid}) if $fieldkey eq 'uid' && $plugins->{PubKey};

slashDisplay('editUser', {
useredit => $user_edit,
admin_flag => $admin_flag,
title => $title,
editkey => $editkey,
admin_block => $admin_block,
note => $note,
});
}

#################################################################
sub editHome {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my($formats, $title, $tzformat_select);
my $user_edit = {};
my $fieldkey;

my $admin_flag = ($user->{is_admin}) ? 1 : 0;
my $admin_block = '';

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " user_edit: " . Dumper($user_edit);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editHome_title');

return if $user->{seclev} < 100 && isAnon($user_edit->{uid});

$formats = $slashdb->getDescriptions('dateformats');
$tzformat_select = createSelect('tzformat', $formats, $user_edit->{dfid}, 1);

my $lb_check = $user_edit->{lowbandwidth} ? $constants->{markup_checked_attribute} : '';
my $sd_check = $user_edit->{simpledesign} ? $constants->{markup_checked_attribute} : '';
my $i_check = $user_edit->{noicons} ? $constants->{markup_checked_attribute} : '';
my $w_check = $user_edit->{willing} ? $constants->{markup_checked_attribute} : '';
my $classic_check = $user_edit->{index_classic} ? $constants->{markup_checked_attribute} : '';

my $tilde_ed = tildeEd($user_edit);

slashDisplay('editHome', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
tzformat_select => $tzformat_select,
i_check => $i_check,
w_check => $w_check,
lb_check => $lb_check,
sd_check => $sd_check,
classic_check => $classic_check,
tilde_ed => $tilde_ed,
note => $note,
});
}

#################################################################
sub editComm {
my($hr) = @_;
my $id = $hr->{uid} || '';
my $note = $hr->{note} || '';

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $user_edit = {};
my($formats, $commentmodes_select, $commentsort_select, $title,
$uthreshold_select, $highlightthresh_select, $posttype_select,
$bytelimit_select);

my $admin_block = '';
my $fieldkey;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $admin_flag = $user->{is_admin} ? 1 : 0;

if ($admin_flag && $form->{userfield}) {
$id ||= $form->{userfield};
if ($form->{userfield} =~ /^\d+$/) {
$user_edit = $slashdb->getUser($id);
$fieldkey = 'uid';
} else {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$fieldkey = 'nickname';
}
} else {
$user_edit = $id eq '' ? $user : $slashdb->getUser($id);
$fieldkey = 'uid';
}

my $hi = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $lo = -$hi;
my @range = map { $_ > 0 ? "+$_" : $_ } ($lo .. $hi);

my @reasons = ( );
my %reason_select = ( );
if ($constants->{m1}) {
my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}
# Reason modifiers
for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
$reason_select{$reason_name} = createSelect(
$key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}
}

# Zoo relation modifiers
my %people_select;
my @people = qw(friend foe anonymous fof eof freak fan);
for (@people) {
my $key = "people_bonus_$_";
$people_select{$_} = createSelect($key, \@range,
$user_edit->{$key} || 0, 1, 1
);
}

# New-user modifier
my $new_user_bonus_select = createSelect('new_user_bonus', \@range,
$user_edit->{new_user_bonus} || 0, 1, 1);
my $new_user_percent_select = createSelect('new_user_percent',
[( 1..15, 20, 25, 30, 35, 40, 45, 50, 55,
60, 65, 70, 75, 80, 85, 90, 95 )],
$user_edit->{new_user_percent} || 100, 1, 1);
# Karma modifier
my $karma_bonus = createSelect('karma_bonus', \@range,
$user_edit->{karma_bonus} || 0, 1, 1);
# Subscriber modifier
my $subscriber_bonus = createSelect('subscriber_bonus', \@range,
$user_edit->{subscriber_bonus} || 0, 1, 1);

# Length modifier
my $small_length_bonus_select = createSelect('clsmall_bonus', \@range,
$user_edit->{clsmall_bonus} || 0, 1, 1);
my $long_length_bonus_select = createSelect('clbig_bonus', \@range,
$user_edit->{clbig_bonus} || 0, 1, 1);

return if isAnon($user_edit->{uid}) && ! $admin_flag;
$admin_block = getUserAdmin($id, $fieldkey, 1) if $admin_flag;

$title = getTitle('editComm_title');

$formats = $slashdb->getDescriptions('commentmodes');
$commentmodes_select=createSelect('umode', $formats, $user_edit->{mode}, 1);

$formats = $slashdb->getDescriptions('sortcodes');
$commentsort_select = createSelect(
'commentsort', $formats, $user_edit->{commentsort}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$uthreshold_select = createSelect(
'uthreshold', $formats, $user_edit->{threshold}, 1
);

$formats = $slashdb->getDescriptions('threshcodes');
$highlightthresh_select = createSelect(
'highlightthresh', $formats, $user_edit->{highlightthresh}, 1
);

$user_edit->{bytelimit} = $constants->{defaultbytelimit}
if $user_edit->{bytelimit} < 0 || $user_edit->{bytelimit} > 7;
my $bytelimit_desc = $user_edit->{is_subscriber} ? 'bytelimit' : 'bytelimit_sub';
$formats = $slashdb->getDescriptions($bytelimit_desc);
$bytelimit_select = createSelect(
'bytelimit', $formats, $user_edit->{bytelimit}, 1
);

my $h_check = $user_edit->{hardthresh} ? $constants->{markup_checked_attribute} : '';
my $r_check = $user_edit->{reparent} ? $constants->{markup_checked_attribute} : '';
my $n_check = $user_edit->{noscores} ? $constants->{markup_checked_attribute} : '';
my $s_check = $user_edit->{nosigs} ? $constants->{markup_checked_attribute} : '';
my $b_check = $user_edit->{nobonus} ? $constants->{markup_checked_attribute} : '';
my $sb_check = $user_edit->{nosubscriberbonus} ? $constants->{markup_checked_attribute} : '';
my $p_check = $user_edit->{postanon} ? $constants->{markup_checked_attribute} : '';
my $nospell_check = $user_edit->{no_spell} ? $constants->{markup_checked_attribute} : '';
my $s_mod_check = $user_edit->{mod_with_comm} ? $constants->{markup_checked_attribute} : '';
my $s_m2_check = $user_edit->{m2_with_mod} ? $constants->{markup_checked_attribute} : '';
my $s_m2c_check = $user_edit->{m2_with_comm_mod} ? $constants->{markup_checked_attribute} : '';

$formats = $slashdb->getDescriptions('postmodes');
$posttype_select = createSelect(
'posttype', $formats, $user_edit->{posttype}, 1
);

slashDisplay('editComm', {
title => $title,
admin_block => $admin_block,
user_edit => $user_edit,
h_check => $h_check,
r_check => $r_check,
n_check => $n_check,
s_check => $s_check,
b_check => $b_check,
sb_check => $sb_check,
p_check => $p_check,
s_mod_check => $s_mod_check,
s_m2_check => $s_m2_check,
s_m2c_check => $s_m2c_check,
nospell_check => $nospell_check,
commentmodes_select => $commentmodes_select,
commentsort_select => $commentsort_select,
highlightthresh_select => $highlightthresh_select,
uthreshold_select => $uthreshold_select,
posttype_select => $posttype_select,
reasons => \@reasons,
reason_select => \%reason_select,
people => \@people,
people_select => \%people_select,
new_user_percent_select => $new_user_percent_select,
new_user_bonus_select => $new_user_bonus_select,
note => $note,
karma_bonus => $karma_bonus,
subscriber_bonus => $subscriber_bonus,
small_length_bonus_select => $small_length_bonus_select,
long_length_bonus_select => $long_length_bonus_select,
bytelimit_select => $bytelimit_select,
});
}

#################################################################
sub saveUserAdmin {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my($user_edits_table, $user_edit) = ({}, {});
my $author_flag;
my $note = '';
my $srcid;
my $id;
my $user_editfield_flag;
my $banned = 0;
my $banref;
if ($form->{uid}) {
$user_editfield_flag = 'uid';
$id = $form->{uid};
$user_edit = $slashdb->getUser($id);
$srcid = $id;

} elsif ($form->{subnetid}) {
$user_editfield_flag = 'subnetid';
($id, $user_edit->{subnetid}) = ($form->{subnetid}, $form->{subnetid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(subnetid => $id);

} elsif ($form->{ipid}) {
$user_editfield_flag = 'ipid';
($id, $user_edit->{ipid}) = ($form->{ipid}, $form->{ipid});
$user_edit->{nonuid} = 1;
$srcid = convert_srcid(ipid => $id);

} elsif ($form->{md5id}) {
$user_editfield_flag = 'md5id';
my $fieldname = $form->{fieldname} || 'md5id';
($id, $user_edit->{$fieldname})
= ($form->{md5id}, $form->{md5id});
warn "form field md5id specified, no srcid saving possible";

} elsif ($form->{srcid}) {
$user_editfield_flag = 'srcid';
my $fieldname = $form->{fieldname} || 'srcid';
($id, $user_edit->{$fieldname})
= ($form->{srcid}, $form->{srcid});
$srcid = $id;

} else {
# If we were not fed valid data, don't do anything.
return ;
}

my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $all_al2types = $reader->getAL2Types;
my $al2_change = { };

# First, get a hash of what aclams (AL2's and ACLs) this user
# had when the previous admin page was loaded.
# XXXSRCID Right now acl_old is just calculated for debugging
# printing purposes, not actually used.
my @al2_old = ( );
@al2_old =
@{ $form->{al2_old_multiple} } if $form->{al2_old_multiple};
my %al2_old = ( map { ($_, 1) } @al2_old );
my @acl_old = ( );
@acl_old =
@{ $form->{acl_old_multiple} } if $form->{acl_old_multiple};
my %acl_old = ( map { ($_, 1) } @acl_old );

# Next, get the list of the new data submitted. Separate
# it out into AL2's which are legitimate. Anything left
# over is an ACL.
my @al2_new_formfields = ( );
@al2_new_formfields = @{ $form->{aclams_new_multiple} } if $form->{aclams_new_multiple};
my @al2_new_submitted = map { s/^aclam_//; $_ } @al2_new_formfields;
my @al2_new = grep { exists $all_al2types->{$_} } @al2_new_submitted;
my %al2_new = ( map { ($_, 1) } @al2_new );
my @acl_new = grep { !$al2_new{$_} } @al2_new_submitted;
my %acl_new = ( map { ($_, 1) } @acl_new );

# Find out what changed for AL2's.
for my $al2 (@al2_old, @al2_new) {
next if defined($al2_old{$al2}) && defined($al2_new{$al2})
&& $al2_old{$al2} == $al2_new{$al2};
$al2_change->{$al2} = $al2_new{$al2} ? 1 : 0;
}
#print STDERR "al2_change for '$srcid': " . Dumper($al2_change);
# If there's a comment, throw that in.
if ($form->{al2_new_comment}) {
$al2_change->{comment} = $form->{al2_new_comment};
}
$al2_change = undef if !keys %$al2_change;

# Find out what changed for ACL's.
my $acl_change = { };
for my $acl (@acl_old, @acl_new) {
next if $acl_old{$acl} == $acl_new{$acl};
$acl_change->{$acl} = $acl_new{$acl} ? 1 : 0;
}
$acl_change = undef if !keys %$acl_change;

if ($user->{is_admin} && $srcid) {
$slashdb->setAL2($srcid, $al2_change);
}
if ($user->{is_admin} && ($user_editfield_flag eq 'uid' ||
$user_editfield_flag eq 'nickname')) {

# This admin user cannot assign a seclev higher than he/she
# already has.
my $seclev = $form->{seclev};
$seclev = $user->{seclev} if $seclev > $user->{seclev};
$user_edits_table->{seclev} = $seclev;

$user_edits_table->{section} = $form->{section};
$user_edits_table->{author} = $form->{author} ? 1 : 0 ;
$user_edits_table->{defaultpoints} = $form->{defaultpoints};
$user_edits_table->{tokens} = $form->{tokens};
$user_edits_table->{tag_clout} = $form->{tag_clout};
$user_edits_table->{m2info} = $form->{m2info};
$user_edits_table->{acl} = $acl_change if $acl_change;
$user_edits_table->{shill_static_marquee} = $form->{shill_static_marquee} ? 1 : undef;
$user_edits_table->{u2_friends_bios} = $form->{u2_friends_bios} ? 1 : undef;
$user_edits_table->{shill_rss_url} = $form->{shill_rss_url} ? $form->{shill_rss_url} : undef;

my $author = $slashdb->getAuthor($id);
my $was_author = ($author && $author->{author}) ? 1 : 0;

$slashdb->setUser($id, $user_edits_table);

$note .= getMessage('saveuseradmin_saveduser', { field => $user_editfield_flag, id => $id });

if ($was_author xor $user_edits_table->{author}) {
# A frequently-asked question for new Slash admins is
# why their authors aren't showing up immediately.
# Give them some help here with an informative message.
$note .= getMessage('saveuseradmin_authorchg', {
basedir => $slashdb->getDescriptions("site_info")
->{base_install_directory},
virtuser => $slashdb->{virtual_user},
});

}
}

if (!$user_edit->{nonuid}) {
if ($form->{expired} && $form->{expired} eq 'on') {
# $slashdb->setExpired($user_edit->{uid});

} else {
# $slashdb->setUnexpired($user_edit->{uid});
}
}

my $data = { uid => $id };
$data->{note} = $note if defined $note;
showInfo($data);
}

#################################################################
sub savePasswd {
my($hr) = @_;
my $note = $hr->{noteref} || undef;

my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();

my $error_flag = 0;
my $user_edit = {};
my $uid;

my $user_edits_table = {};

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ? $form->{uid} : $user->{uid};
}

$user_edit = $slashdb->getUser($uid);

if (!$user_edit->{nickname}) {
$$note .= getError('cookie_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if ($form->{pass1} ne $form->{pass2}) {
$$note .= getError('saveuser_passnomatch_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$form->{pass1} || length $form->{pass1} < 6) {
$$note .= getError('saveuser_passtooshort_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;
}

if (!$user->{is_admin}){
# not an admin -- check old password before changing passwd
my $return_uid = $slashdb->getUserAuthenticate($uid, $form->{oldpass}, 1);
if (!$return_uid || $return_uid != $uid) {
$$note .= getError('saveuser_badoldpass_err', { titlebar => 0 }, 0, 1)
if $note;
$error_flag++;

}
}

if (! $error_flag) {
$user_edits_table->{passwd} = $form->{pass1} if $form->{pass1};
$user_edits_table->{session_login} = $form->{session_login};
$user_edits_table->{cookie_location} = $form->{cookie_location};

# changed pass, so delete all logtokens
$slashdb->deleteLogToken($form->{uid}, 1);

if ($user->{admin_clearpass}
&& !$user->{state}{admin_clearpass_thisclick}) {
# User is an admin who sent their password in the clear
# some time ago; now that it's been changed, we'll forget
# about that incident, unless this click was sent in the
# clear as well.
$user_edits_table->{admin_clearpass} = '';
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table) ;
$$note .= getMessage('saveuser_passchanged_msg',
{ nick => $user_edit->{nickname}, uid => $user_edit->{uid} },
0, 1) if $note;

# only set cookie if user is current user
if ($form->{uid} eq $user->{uid}) {
$user->{logtoken} = bakeUserCookie($uid, $slashdb->getLogToken($form->{uid}, 1));
setCookie('user', $user->{logtoken}, $user_edits_table->{session_login});
}
}

return $error_flag;
}

#################################################################
sub saveUser {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $gSkin = getCurrentSkin();
my $plugins = $slashdb->getDescriptions('plugins');
my $uid;
my $user_editfield_flag;

$uid = $user->{is_admin} && $form->{uid} ? $form->{uid} : $user->{uid};
my $user_edit = $slashdb->getUser($uid);

my($note, $formname);

$note .= getMessage('savenickname_msg', {
nickname => $user_edit->{nickname},
}, 1);

if (!$user_edit->{nickname}) {
$note .= getError('cookie_err', 0, 1);
}

# Check to ensure that if a user is changing his email address, that
# it doesn't already exist in the userbase.
if ($user_edit->{realemail} ne $form->{realemail}) {
if ($slashdb->existsEmail($form->{realemail})) {
$note .= getError('emailexists_err', 0, 1);
$form->{realemail} = $user_edit->{realemail}; # can't change!
}
}

my(%extr, $err_message, %limit);
$limit{sig} = 120; # schema is 200, give an extra buffer for domain tags
$limit{bio} = $constants->{users_bio_length} || 1024; # can be up to 2^16

for my $key (keys %limit) {
my $dat = chopEntity($form->{$key}, $limit{$key});
$dat = strip_html($dat);
$dat = balanceTags($dat, { deep_nesting => 2, length => $limit{$key} });
$dat = addDomainTags($dat) if $dat;

# If the sig becomes too long to fit (domain tagging causes
# string expansion and tag balancing can too), warn the user to
# use shorter domain names and don't save their change.
if ($key eq 'sig' && defined($dat) && length($dat) > 200) {
print getError('sig_too_long_err');
$extr{sig} = undef;
}

# really, comment filters should ignore short length IMO ... oh well.
if (length($dat) > 1 && ! filterOk('comments', 'postersubj', $dat, \$err_message)) {
print getError('filter message', {
err_message => $err_message,
item => $key,
});
$extr{$key} = undef;
} elsif (! compressOk('comments', 'postersubj', $dat)) {
print getError('compress filter', {
ratio => 'postersubj',
item => $key,
});
$extr{$key} = undef;
} else {
$extr{$key} = $dat;
}
}

# We should do some conformance checking on a user's pubkey,
# make sure it looks like one of the known types of public
# key. Until then, just make sure it doesn't have HTML.
$form->{pubkey} = $plugins->{'PubKey'} ? strip_nohtml($form->{pubkey}, 1) : '';

my $homepage = $form->{homepage};
$homepage = '' if $homepage eq 'http://';
$homepage = fudgeurl($homepage);
$homepage = URI->new_abs($homepage, $gSkin->{absolutedir})
->canonical
->as_string if $homepage ne '';
$homepage = substr($homepage, 0, 100) if $homepage ne '';

my $calendar_url = $form->{calendar_url};
if (length $calendar_url) {
# fudgeurl() doesn't like webcal; will remove later anyway
$calendar_url =~ s/^webcal/http/i;
$calendar_url = fudgeurl($calendar_url);
$calendar_url = URI->new_abs($calendar_url, $gSkin->{absolutedir})
->canonical
->as_string if $calendar_url ne '';

$calendar_url =~ s|^http://||i;
$calendar_url = substr($calendar_url, 0, 200) if $calendar_url ne '';
}

# for the users table
my $user_edits_table = {
homepage => $homepage,
realname => $form->{realname},
pubkey => $form->{pubkey},
copy => $form->{copy},
quote => $form->{quote},
calendar_url => $calendar_url,
yahoo => $form->{yahoo},
jabber => $form->{jabber},
aim => $form->{aim},
aimdisplay => $form->{aimdisplay},
icq => $form->{icq},
playing => $form->{playing},
mobile_text_address => $form->{mobile_text_address},
};

if ($constants->{wow}) {
my $wowdb = getObject("Slash::WoW");
if ($wowdb) {
$user_edits_table->{wow_main_name} = "\L\u$form->{wow_main_name}";
$user_edits_table->{wow_main_realm} = $form->{wow_main_realm};
my $charid = $wowdb->getCharidCreate($user_edits_table->{wow_main_realm},
$user_edits_table->{wow_main_name});
$wowdb->setChar($charid, { uid => $uid }, { if_unclaimed => 1 }) if $charid;
}
}

for (keys %extr) {
$user_edits_table->{$_} = $extr{$_} if defined $extr{$_};
}

# don't want undef, want to be empty string so they
# will overwrite the existing record
for (keys %$user_edits_table) {
$user_edits_table->{$_} = '' unless defined $user_edits_table->{$_};
}

if ($user_edit->{realemail} ne $form->{realemail}) {
$user_edits_table->{realemail} =
chopEntity($form->{realemail}, 50);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($user->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid, $user_edits_table->{realemail})
if $user->{emaildisplay} == 1;
$new_fakeemail = $user_edits_table->{realemail}
if $user->{emaildisplay} == 2;
}
$user_edits_table->{fakeemail} = $new_fakeemail;

$note .= getMessage('changeemail_msg', {
realemail => $user_edit->{realemail}
}, 1);

my $saveuser_emailtitle = getTitle('saveUser_email_title', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);
my $saveuser_email_msg = getMessage('saveuser_email_msg', {
nickname => $user_edit->{nickname},
realemail => $form->{realemail}
}, 1);

sendEmail($form->{realemail}, $saveuser_emailtitle, $saveuser_email_msg);
doEmail($uid, $saveuser_emailtitle, $saveuser_email_msg);
}

getOtherUserParams($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);

editUser({ uid => $uid, note => $note });
}

#################################################################
sub saveComm {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $user_fakeemail);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid};
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}

# Do the right thing with respect to the chosen email display mode
# and the options that can be displayed.
my $user_edit = $slashdb->getUser($uid);
my $new_fakeemail = ''; # at emaildisplay 0, don't show any email address
if ($form->{emaildisplay}) {
$new_fakeemail = getArmoredEmail($uid) if $form->{emaildisplay} == 1;
$new_fakeemail = $user_edit->{realemail} if $form->{emaildisplay} == 2;
}

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};

my $note = getMessage('savenickname_msg',
{ nickname => $name });

print getError('cookie_err') if isAnon($uid) || !$name;

# Take care of the lists
# Enforce Ranges for variables that need it
$form->{commentlimit} = 0 if $form->{commentlimit} < 1;
my $cl_max = $constants->{comment_commentlimit} || 0;
$form->{commentlimit} = $cl_max if $cl_max > 0 && $form->{commentlimit} > $cl_max;
$form->{commentspill} = 0 if $form->{commentspill} < 1;

# For some of these values, namely the ones that we happen to
# know get stored in users_param, we change them to 'undef'
# if they are the default value. This deletes them from the
# users_param table, which has the same effect as storing the
# default except it's faster all around. If we ever change
# the schema to promote these fields from params into a
# proper users_* table, then this will no longer be correct.
# See prepareUser().
my $max = $constants->{comment_maxscore} - $constants->{comment_minscore};
my $min = -$max;
my $karma_bonus = ($form->{karma_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{karma_bonus};
my $subscriber_bonus = ($form->{subscriber_bonus} !~ /^[\-+]?\d+$/) ? "+1" : $form->{subscriber_bonus};
my $new_user_bonus = ($form->{new_user_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{new_user_bonus};
my $new_user_percent = (($form->{new_user_percent} <= 100 && $form->{new_user_percent} >= 0)
? $form->{new_user_percent}
: 100);
my $clsmall_bonus = ($form->{clsmall_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clsmall_bonus};
my $clbig_bonus = ($form->{clbig_bonus} !~ /^[\-+]?\d+$/) ? 0 : $form->{clbig_bonus};

# plum
$form->{d2_comment_q} = (isSubscriber($user_edit) || $user_edit->{seclev} >= 100)
? $form->{d2_comment_q}
: ($form->{d2_comment_q} eq '0')
? 1
: $form->{d2_comment_q};

my $user_edits_table = {
# MC: More D2 neutring
#discussion2 => $form->{discussion2} || undef,
#d2_comment_q => $form->{d2_comment_q} || undef,
#d2_comment_order => $form->{d2_comment_order} || undef,
clsmall => $form->{clsmall},
clsmall_bonus => ($clsmall_bonus || undef),
clbig => $form->{clbig},
clbig_bonus => ($clbig_bonus || undef),
commentlimit => $form->{commentlimit},
bytelimit => $form->{bytelimit},
commentsort => $form->{commentsort},
commentspill => $form->{commentspill},
domaintags => ($form->{domaintags} != 2 ? $form->{domaintags} : undef),
emaildisplay => $form->{emaildisplay} || undef,
fakeemail => $new_fakeemail,
highlightthresh => $form->{highlightthresh},
mode => $form->{umode},
posttype => $form->{posttype},
threshold => $form->{uthreshold},
nosigs => ($form->{nosigs} ? 1 : 0),
reparent => ($form->{reparent} ? 1 : 0),
noscores => ($form->{noscores} ? 1 : 0),
hardthresh => ($form->{hardthresh} ? 1 : 0),
no_spell => ($form->{no_spell} ? 1 : undef),
nobonus => ($form->{nobonus} ? 1 : undef),
nosubscriberbonus => ($form->{nosubscriberbonus} ? 1 : undef),
postanon => ($form->{postanon} ? 1 : undef),
new_user_percent => ($new_user_percent && $new_user_percent != 100
? $new_user_percent : undef),
new_user_bonus => ($new_user_bonus || undef),
karma_bonus => ($karma_bonus ne '+1' ? $karma_bonus : undef),
subscriber_bonus => ($subscriber_bonus || undef),
textarea_rows => ($form->{textarea_rows} != $constants->{textarea_rows}
? $form->{textarea_rows} : undef),
textarea_cols => ($form->{textarea_cols} != $constants->{textarea_cols}
? $form->{textarea_cols} : undef),
user_comment_sort_type => ($form->{user_comment_sort_type} != 2
? $form->{user_comment_sort_type} : undef ),
mod_with_comm => ($form->{mod_with_comm} ? 1 : undef),
m2_with_mod => ($form->{m2_with_mod} ? 1 : undef),
m2_with_comm_mod => ($form->{m2_with_mod_on_comm} ? 1 : undef),

};

# set our default values for the items where an empty-string won't do
my $defaults = {
posttype => 2,
highlightthresh => 4,
reparent => 1,
commentlimit => 100,
commentspill => 50,
mode => 'thread'
};

my $mod_reader = getObject("Slash::$constants->{m1_pluginname}", { db_type => 'reader' });
my @reasons = ( );
my $reasons = $mod_reader->getReasons();
for my $id (sort { $a <=> $b } keys %$reasons) {
push @reasons, $reasons->{$id}{name};
}

for my $reason_name (@reasons) {
my $key = "reason_alter_$reason_name";
my $answer = $form->{$key} || 0;
$answer = 0 if !$answer || $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{$key} = ($answer == 0) ? '' : $answer;
}

for (qw| friend foe anonymous fof eof freak fan |) {
my $answer = $form->{"people_bonus_$_"};
$answer = 0 if $answer !~ /^[\-+]?\d+$/;
$user_edits_table->{"people_bonus_$_"} = ($answer == 0) ? '' : $answer;
}
getOtherUserParams($user_edits_table);
setToDefaults($user_edits_table, {}, $defaults) if $form->{restore_defaults};
$slashdb->setUser($uid, $user_edits_table);

editComm({ uid => $uid, note => $note });
}

#################################################################
sub saveHome {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my($uid, $error);

if ($user->{is_admin}) {
$uid = $form->{uid} || $user->{uid} ;
} else {
$uid = ($user->{uid} == $form->{uid}) ?
$form->{uid} : $user->{uid};
}
my $edit_user = $slashdb->getUser($uid);

my $name = $user->{seclev} && $form->{name} ?
$form->{name} : $user->{nickname};
$name = substr($name, 0, 20);

my $note = getMessage('savenickname_msg',
{ nickname => $name });

if (isAnon($uid) || !$name) {
my $cookiemsg = getError('cookie_err');
print $cookiemsg;
}

# Using the existing list of slashboxes and the set of
# what's checked and not, build up the new list.
# (New arrivals go at the end.)
my $slashboxes = $edit_user->{slashboxes};
# Only go through all this if the user clicked save,
# not "Restore Slashbox Defaults"!
my($boxes, $skinBoxes) = $slashdb->getPortalsCommon();
my $default_slashboxes_textlist = join ",",
@{$skinBoxes->{$constants->{mainpage_skid}}};
if (!$form->{restore_slashbox_defaults}) {
$slashboxes = $default_slashboxes_textlist if !$slashboxes;
my @slashboxes = split /,/, $slashboxes;
my %slashboxes = ( );
for my $i (0..$#slashboxes) {
$slashboxes{$slashboxes[$i]} = $i;
}
# Add new boxes in.
for my $key (sort grep /^showbox_/, keys %$form) {
my($bid) = $key =~ /^showbox_(\w+)$/;
next if length($bid) < 1 || length($bid) > 30 || $bid !~ /^\w+$/;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999; # put it at the end
}
}
# Remove any boxes that weren't checked.
for my $bid (@slashboxes) {
delete $slashboxes{$bid} unless $form->{"showbox_$bid"};
}

for my $key (sort grep /^dynamic_/, keys %$form) {
my($bid) = $key =~ /^dynamic_(.+)$/;
next if length($bid) < 1;
if (! exists $slashboxes{$bid}) {
$slashboxes{$bid} = 999;
}
}

@slashboxes = sort {
$slashboxes{$a} <=> $slashboxes{$b}
||
$a cmp $b
} keys %slashboxes;
# This probably should be a var (and appear in tilded_customize_msg)
$#slashboxes = 19 if $#slashboxes > 19;
$slashboxes = join ",", @slashboxes;
}
# If we're right back to the default, that means the
# empty string.
if ($slashboxes eq $default_slashboxes_textlist) {
$slashboxes = "";
}

# Set the story_never and story_always fields.
my $author_hr = $slashdb->getDescriptions('authors');
my $tree = $slashdb->getTopicTree();
my(@story_never_topic, @story_never_author, @story_never_nexus);
my(@story_always_topic, @story_always_author);
my(@story_always_nexus, @story_full_brief_nexus, @story_brief_always_nexus, @story_full_best_nexus, @story_brief_best_nexus);
my($story_topic_all, $story_author_all, $story_nexus_all) = (0, 0, 0);

# Topics are either present (value=2) or absent (value=0). If absent,
# push them onto the never list. Otherwise, do nothing. (There's no
# way to have an "always" topic, at the moment.) If the hidden
# field topictids_present is false, then there are no topic tids,
# skip this.
if ($form->{topictids_present}) {
for my $tid (
sort { $a <=> $b }
grep { !$tree->{$_}{nexus} }
keys %$tree
) {
my $key = "topictid$tid";
$story_topic_all++;
if (!$form->{$key}) { push @story_never_topic, $tid }
}
}
# Authors are either present (value=2) or absent (value=0). If
# absent, push them onto the never list. Otherwise, do nothing.
# (There's no way to have an "always" author, at the moment.)
for my $aid (sort { $a <=> $b } keys %$author_hr) {
my $key = "aid$aid";
$story_author_all++;
if (!$form->{$key}) { push @story_never_author, $aid }
}
# Nexuses can have value 0, 1, 2, 3, 4, 5.
# 0 means the never list,
# 1 means brief view of mainpage articles only
# 2 means full view of mainpage articles only
# 3 means brief view of all content
# 4 means full view of mainpage content, brief view of sectional
# 5 means full view of all content
for my $tid (
sort { $a <=> $b }
map { /^nexustid(\d+)$/; $1 }
grep { /^nexustid\d+$/ }
keys %$form
) {
my $key = "nexustid$tid";
next unless $tid && $tree->{$tid} && $tree->{$tid}{nexus};
$story_nexus_all++;
if (!$form->{$key}) { push @story_never_nexus, $tid }
elsif ($form->{$key} == 5 ) { push @story_always_nexus, $tid }
elsif ($form->{$key} == 4 ) { push @story_full_brief_nexus, $tid }
elsif ($form->{$key} == 3 ) { push @story_brief_always_nexus, $tid }
elsif ($form->{$key} == 2 ) { push @story_full_best_nexus, $tid }
elsif ($form->{$key} == 1 ) { push @story_brief_best_nexus, $tid }

}
#use Data::Dumper; $Data::Dumper::Sortkeys = 1; print STDERR scalar(localtime) . " s_n_t '@story_never_topic' s_n_a '@story_never_author' s_n_n '@story_never_nexus' s_a_n '@story_always_nexus' form: " . Dumper($form);
# Sanity check.
$#story_never_topic = 299 if $#story_never_topic > 299;
$#story_never_author = 299 if $#story_never_author > 299;
$#story_never_nexus = 299 if $#story_never_nexus > 299;
$#story_always_topic = 299 if $#story_always_topic > 299;
$#story_always_author = 299 if $#story_always_author > 299;
$#story_always_nexus = 299 if $#story_always_nexus > 299;
$#story_full_brief_nexus = 299 if $#story_full_brief_nexus > 299;
$#story_brief_always_nexus = 299 if $#story_brief_always_nexus > 299;
$#story_brief_best_nexus = 299 if $#story_brief_best_nexus > 299;
$#story_full_best_nexus = 299 if $#story_full_best_nexus > 299;

my $story_never_topic = join ",", @story_never_topic;
$story_never_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_never_topic, 1024)
: checkList($story_never_topic);
my $story_never_author = checkList(join ",", @story_never_author);
my $story_never_nexus = checkList(join ",", @story_never_nexus);
my $story_always_topic = checkList(join ",", @story_always_topic);
$story_always_topic = ($constants->{subscribe} && $user->{is_subscriber})
? checkList($story_always_topic, 1024)
: checkList($story_always_topic);
my $story_always_author = checkList(join ",", @story_always_author);

my $story_always_nexus = checkList(join ",", @story_always_nexus);
my $story_full_brief_nexus = checkList(join ",", @story_full_brief_nexus);
my $story_brief_always_nexus = checkList(join ",", @story_brief_always_nexus);
my $story_brief_best_nexus = checkList(join ",", @story_brief_best_nexus);
my $story_full_best_nexus = checkList(join ",", @story_full_best_nexus);

my $user_edits_table = {
story_never_topic => $story_never_topic,
story_never_author => $story_never_author,
story_never_nexus => $story_never_nexus,
story_always_topic => $story_always_topic,
story_always_author => $story_always_author,
story_always_nexus => $story_always_nexus,
story_brief_always_nexus => $story_brief_always_nexus,
story_full_brief_nexus => $story_full_brief_nexus,
story_full_best_nexus => $story_full_best_nexus,
story_brief_best_nexus => $story_brief_best_nexus,

slashboxes => checkList($slashboxes, 1024),

maxstories => 30, # XXXSKIN fix this later
noboxes => ($form->{useslashboxes} ? 0 : 1),
lowbandwidth => ($form->{lowbandwidth} ? 1 : 0),
simpledesign => ($form->{simpledesign} ? 1 : 0),
noicons => ($form->{noicons} ? 1 : 0),
willing => ($form->{willing} ? 1 : 0),
index_classic => ($form->{index_classic} ? 1 : undef),
};

if (defined $form->{tzcode} && defined $form->{tzformat}) {
$user_edits_table->{tzcode} = $form->{tzcode};
$user_edits_table->{dfid} = $form->{tzformat};
$user_edits_table->{dst} = $form->{dst};
}

# Force the User Space area to contain only known-good HTML tags.
# Unfortunately the cookie login model makes it just too risky
# to allow scripts in here; CSS's steal passwords. There are
# no known vulnerabilities at this time, but a combination of the
# social engineering taking place (inviting users to put Javascript
# from websites in here, and making available script URLs for that
# purpose), plus the fact that this could be used to amplify the
# seriousness of any future vulnerabilities, means it's way past
# time to shut this feature down. - Jamie 2002/03/06

# it's a VARCHAR ...
my $mylinks_limit = 255;
$user_edits_table->{mylinks} = balanceTags(strip_html(
chopEntity($form->{mylinks} || '', $mylinks_limit)
), { deep_nesting => 2, length => $mylinks_limit });

$user_edits_table->{mylinks} = '' unless defined $user_edits_table->{mylinks};

$error = 1;
# must select at least 1/4 of nexuses, topics, authors
if ( scalar(@story_never_author) > ($story_author_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_nexus) > ($story_nexus_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} elsif ( scalar(@story_never_topic) > ($story_topic_all * 3/4) ) {
$note = getError('editHome_too_many_disabled');
} else {
$error = 0;
}

unless ($error) {
# If a user is unwilling to moderate, we should cancel all points, lest
# they be preserved when they shouldn't be.
if (!isAnon($uid) && !$form->{willing}) {
$slashdb->setUser($uid, { points => 0 });
}

getOtherUserParams($user_edits_table);
if ($form->{restore_defaults}) {
setToDefaults($user_edits_table, {}, {
maxstories => 30,
tzcode => "EST",
# XXX shouldn't this reset ALL the defaults,
# not just these two?
});
}
if ($form->{restore_slashbox_defaults}) {
setToDefaults($user_edits_table, {
'story_never_topic' => 1,
'story_never_author' => 1,
'story_never_nexus' => 1,
'story_always_topic' => 1,
'story_always_author' => 1,
'story_always_nexus' => 1,
'story_full_brief_nexus' => 1,
'story_brief_always_nexus' => 1,
'story_full_best_nexus' => 1,
'story_brief_best_nexus' => 1,
'maxstories' => 1,
'noboxes' => 1,
'light' => 1,
'noicons' => 1,
'willing' => 1
}, { slashboxes => "" });
}

#print scalar(localtime) . " uet: " . Dumper($user_edits_table);
$slashdb->setUser($uid, $user_edits_table);
}

editHome({ uid => $uid, note => $note });
}

#################################################################
# A generic way for a site to allow users to edit data about themselves.
# Most useful when your plugin or theme wants to let the user change
# minor settings but you don't want to write a whole new version
# of users.pl to provide a user interface. The user can save any
# param of the format "opt_foo", as long as "foo" shows up in
# getMiscUserOpts which lists all the misc opts that this user can edit.
# This is *not* protected by formkeys (yet), so assume attackers can make
# users click and accidentally edit their own settings: no really important
# data should be stored in this way.
sub editMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $constants = getCurrentStatic();
my $note = $hr->{note} || "";

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $edit_user = $slashdb->getUser($user->{uid});
my $title = getTitle('editMiscOpts_title');

my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
my $opt_name = "opt_" . $opt->{name};
$opt->{checked} = $edit_user->{$opt_name} ? 1 : 0;
}

slashDisplay('editMiscOpts', {
# useredit => $user_edit,
title => $title,
opts => $opts,
note => $note,
});
}

#################################################################
#
sub saveMiscOpts {
my($hr) = @_;
my $slashdb = getCurrentDB();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();

return if $user->{is_anon}; # shouldn't be, but can't hurt to check

my $edit_user = $slashdb->getUser($user->{uid});
my %opts_ok_hash = ( );
my $opts = $slashdb->getMiscUserOpts();
for my $opt (@$opts) {
$opts_ok_hash{"opt_$opt->{name}"} = 1;
}

my $update = { };
for my $opt (grep /^opt_/, keys %$form) {
next unless $opts_ok_hash{$opt};
$update->{$opt} = $form->{$opt} ? 1 : 0;
}

# Make the changes.
$slashdb->setUser($edit_user->{uid}, $update);

# Inform the user the change was made. Since we don't
# require formkeys, we always want to print a message to
# make sure the user sees what s/he did. This is done
# by passing in a note which ends up passed to the
# editMiscOpts template, which displays it.
editMiscOpts({ note => getMessage('savemiscopts_msg') });
}

#################################################################
sub listReadOnly {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $readonlylist = $reader->getAL2List('nopost');

slashDisplay('listReadOnly', {
readonlylist => $readonlylist,
});

}

#################################################################
sub listBanned {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $bannedlist = $reader->getAL2List('ban');

slashDisplay('listBanned', {
bannedlist => $bannedlist,
});

}

#################################################################
sub topAbusers {
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $topabusers = $reader->getTopAbusers();

slashDisplay('topAbusers', {
topabusers => $topabusers,
});
}

#################################################################
sub listAbuses {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $constants = getCurrentStatic();

my $abuses = $reader->getAbuses($form->{key}, $form->{abuseid});

slashDisplay('listAbuses', {
abuseid => $form->{abuseid},
abuses => $abuses,
});
}

#################################################################
sub forceAccountVerify {
my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $uid = $form->{uid};
my $useredit = $slashdb->getUser($uid);

if ($useredit->{uid}) {
my $newpasswd = $slashdb->resetUserAccount($uid);
$slashdb->deleteLogToken($uid, 1);
my $emailtitle = getTitle('reset_acct_email_title', {
nickname => $useredit->{nickname}
}, 1);

my $msg = getMessage('reset_acct_msg', {
newpasswd => $newpasswd,
tempnick => $useredit->{nickname},
}, 1);

$slashdb->setUser($useredit->{uid}, {
waiting_for_account_verify => 1,
account_verify_request_time => $slashdb->getTime()
});

doEmail($useredit->{uid}, $emailtitle, $msg) if $useredit->{uid};
}

print getMessage("reset_acct_complete", { useredit => $useredit }, 1);
}

#################################################################
sub displayForm {
my($hr) = @_;

my $user = getCurrentUser();
my $form = getCurrentForm();
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();

my $suadmin_flag = $user->{seclev} >= 10000 ? 1 : 0;

print createMenu("users", {
style => 'tabbed',
justify => 'right',
color => 'colored',
tab_selected => $hr->{tab_selected_1} || "",
});

my $op = $hr->{op} || $form->{op} || 'displayform';

my $ops = {
displayform => 'loginForm',
edithome => 'loginForm',
editcomm => 'loginForm',
edituser => 'loginForm',
# mailpasswdform => 'sendPasswdForm',
# newuserform => 'newUserForm',
userclose => 'loginForm',
userlogin => 'loginForm',
editmiscopts => 'loginForm',
savemiscopts => 'loginForm',
default => 'loginForm'
};

$op = 'default' if !defined($ops->{$op});

my($title, $title2, $msg1, $msg2) = ('', '', '', '');

if ($op eq 'userclose') {
$title = getMessage('userclose');

} elsif ($op eq 'displayForm') {
$title = $form->{unickname}
? getTitle('displayForm_err_title')
: getTitle('displayForm_title');
} elsif ($op eq 'mailpasswdform') {
$title = getTitle('mailPasswdForm_title');
} elsif ($op eq 'newuserform') {
$title = getTitle('newUserForm_title');
} else {
$title = getTitle('displayForm_title');
}

$form->{unickname} ||= $form->{newusernick};

if ($form->{newusernick}) {
$title2 = getTitle('displayForm_dup_title');
} else {
$title2 = getTitle('displayForm_new_title');
}

$msg1 = getMessage('dispform_new_msg_1');
if (! $form->{newusernick} && $op eq 'newuserform') {
$msg2 = getMessage('dispform_new_msg_2');
} elsif ($op eq 'displayform' || $op eq 'userlogin') {
$msg2 = getMessage('newuserform_msg');
}

slashDisplay($ops->{$op}, {
newnick => nickFix($form->{newusernick}),
suadmin_flag => $suadmin_flag,
title => $title,
title2 => $title2,
logged_in => $user->{is_anon} ? 0 : 1,
msg1 => $msg1,
msg2 => $msg2
});
}

#################################################################
# this groups all the messages together in
# one template, called "messages;users;default"
sub getMessage {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('messages', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the errors together in
# one template, called "errors;users;default"
sub getError {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('errors', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# this groups all the titles together in
# one template, called "users-titles"
sub getTitle {
my($value, $hashref, $nocomm) = @_;
$hashref ||= {};
$hashref->{value} = $value;
return slashDisplay('titles', $hashref,
{ Return => 1, Nocomm => $nocomm });
}

#################################################################
# getUserAdmin - returns a block of HTML text that provides
# information and editing capabilities for admin users.
# Most of this data is already in the getUserAdmin template,
# but really, we should try to get more of this logic into
# that template.
sub getUserAdmin {
my($id, $field, $seclev_field) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $logdb = getObject('Slash::DB', { db_type => 'log_slave' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $constants = getCurrentStatic();
my $slashdb = getCurrentDB();
$id ||= $user->{uid};

my($expired, $uidstruct, $readonly);
my($user_edit, $user_editfield, $ipstruct, $ipstruct_order, $authors, $author_flag, $topabusers, $thresh_select,$section_select);
my $srcid;
my $proxy_check = {};
my @accesshits;
my $user_editinfo_flag = (!$form->{op} || $form->{op} eq 'userinfo'
|| $form->{userinfo} || $form->{saveuseradmin}
) ? 1 : 0;
my $authoredit_flag = ($user->{seclev} >= 10000) ? 1 : 0;
my $sectionref = $reader->getDescriptions('skins');
$sectionref->{''} = getData('all_sections');

$field ||= 'uid';
if ($field eq 'uid') {
$user_edit = $slashdb->getUser($id);
$user_editfield = $user_edit->{uid};
$srcid = convert_srcid( uid => $id );
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'nickname') {
$user_edit = $slashdb->getUser($slashdb->getUserUID($id));
$user_editfield = $user_edit->{nickname};
#$expired = $slashdb->checkExpired($user_edit->{uid}) ? $constants->{markup_checked_attribute} : '';
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
$section_select = createSelect('section', $sectionref, $user_edit->{section}, 1);

} elsif ($field eq 'md5id') {
$user_edit->{nonuid} = 1;
$user_edit->{md5id} = $id;
if ($form->{fieldname} && $form->{fieldname} =~ /^(ipid|subnetid)$/) {
$uidstruct = $slashdb->getUIDStruct($form->{fieldname}, $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($form->{fieldname}, $user_edit->{md5id}) if defined($logdb);
} else {
$uidstruct = $slashdb->getUIDStruct('md5id', $user_edit->{md5id});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{md5id}) if defined($logdb);
}

} elsif ($field eq 'ipid') {
$user_edit->{nonuid} = 1;
$user_edit->{ipid} = $id;
$srcid = convert_srcid( ipid => $id );
$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('ipid', $user_edit->{ipid});
@accesshits = $logdb->countAccessLogHitsInLastX('host_addr', $user_edit->{ipid}) if defined($logdb);

if ($form->{userfield} =~/^\d+\.\d+\.\d+\.(\d+)$/) {
if ($1 ne "0"){
$proxy_check->{available} = 1;
$proxy_check->{results} = $slashdb->checkForOpenProxy($form->{userfield}) if $form->{check_proxy};
}
}

} elsif ($field eq 'subnetid') {
$user_edit->{nonuid} = 1;
$srcid = convert_srcid( ipid => $id );
if ($id =~ /^(\d+\.\d+\.\d+)(?:\.\d)?/) {
$id = $1 . ".0";
$user_edit->{subnetid} = $id;
} else {
$user_edit->{subnetid} = $id;
}

$user_editfield = $id;
$uidstruct = $slashdb->getUIDStruct('subnetid', $user_edit->{subnetid});
@accesshits = $logdb->countAccessLogHitsInLastX($field, $user_edit->{subnetid}) if defined($logdb);

} elsif ($field eq "srcid") {
$user_edit->{nonuid} = 1;
$user_edit->{srcid} = $id;
$srcid = $id;

} else {
$user_edit = $id ? $slashdb->getUser($id) : $user;
$user_editfield = $user_edit->{uid};
$ipstruct = $slashdb->getNetIDStruct($user_edit->{uid});
@accesshits = $logdb->countAccessLogHitsInLastX('uid', $user_edit->{uid}) if defined($logdb);
}

##########
# Put together the array and hashref that the template will need
# to construct the list for display to the admin.
# Note that currently a srcid which is not a uid (i.e. which
# represents an IP address or masked IP network) cannot have
# any ACLs assigned to it. This may change in the future.
# The term "aclam" is used because it has a field set for both
# every ACL and every access modifier (i.e. AL2 bit) that is set
# for this user or srcid.
# For now, ACLs will be listed for IPs as well.
# First get the list of ACLs that can be used.
my $all_acls_ar = $reader->getAllACLNames();
my $all_acls_hr = { map { ( $_, 1 ) } @$all_acls_ar };
# Add in any ACLs selected for this user (just in case
# getAllACLNames is cached and stale).
for my $acl (keys %{$user_edit->{acl}}) {
$all_acls_hr->{$acl} = 1;
}
# Start creating the $all_aclam_hr data, in which the keys are
# the HTML selection names that all begin with aclam_ and the
# the values are their names/descriptions shown to the admin.
# First put all the ACLs into the hash, if we're editing a user.
my $all_aclam_hr = { };
if (!$user_edit->{nonuid}) {
$all_aclam_hr = { map { ( "aclam_$_", "ACL: $_" ) } keys %$all_acls_hr };
}
# Next put in all the al2 types.
my $all_al2types = $reader->getAL2Types;
for my $key (keys %$all_al2types) {
next if $key eq 'comment'; # skip the 'comment' type
$all_aclam_hr->{"aclam_$key"} = $all_al2types->{$key}{title};
}
# Finally, sort the keys of the hash into the order that we
# want them displayed to the admin (ACLs first).
my $all_acls_longkeys_hr = { map { ( "aclam_$_", 1 ) } keys %$all_acls_hr };
my $all_aclam_ar = [
sort {
(exists($all_acls_longkeys_hr->{$a}) ? -1 : 1) <=> (exists($all_acls_longkeys_hr->{$b}) ? -1 : 1)
||
$all_aclam_hr->{$a} cmp $all_aclam_hr->{$b}
} keys %$all_aclam_hr
];
# Now put together the hashref that identifies which of those
# items are selected for this user.
my $user_aclam_hr = { };
for my $acl (keys %{ $user_edit->{acl} }) {
$user_aclam_hr->{"aclam_$acl"} = 1;
}
my $al2_tid_comment = $all_al2types->{comment}{al2tid} || 0;
my $al2_log_ar = [ ];
my $al2_hr = { };
# XXXSRCID Once we get rid of the silly 'md5id' field and all the
# other bizarre backward-compatibility code paths early in this
# function, this won't be necessary, but until then we need this
# sanity check...
if ($srcid) {
# getAL2 works with either a srcids hashref or a single srcid
$al2_hr = $slashdb->getAL2($srcid);
for my $al2 (keys %{ $al2_hr }) {
$user_aclam_hr->{"aclam_$al2"} = 1;
}
$al2_log_ar = $slashdb->getAL2Log($srcid);
}
# Generate al2_nick_hr, which will be populated with keys of all
# the (presumably) admin uids who have logged rows for this al2,
# and values of their nicks.
my $al2_nick_hr = { };
for my $al2_log (@$al2_log_ar) {
my $uid = $al2_log->{adminuid};
next if !$uid; # odd error, might want to flag this
$al2_nick_hr->{$uid} ||= $slashdb->getUser($uid, 'nickname');
}
##########

$user_edit->{author} = ($user_edit->{author} && $user_edit->{author} == 1)
? $constants->{markup_checked_attribute} : '';
if (! $user->{nonuid}) {
my $threshcodes = $reader->getDescriptions('threshcode_values','',1);
$thresh_select = createSelect('defaultpoints', $threshcodes, $user_edit->{defaultpoints}, 1);
}

if (!ref $ipstruct) {
undef $ipstruct;
} else {
@$ipstruct_order = sort { $ipstruct->{$b}{dmin} cmp $ipstruct->{$a}{dmin} } keys %$ipstruct;
}

my $m2total = ($user_edit->{m2fair} || 0) + ($user_edit->{m2unfair} || 0);
if ($m2total) {
$user_edit->{m2unfairpercent} = sprintf("%.2f",
$user_edit->{m2unfair}*100/$m2total);
}
my $mod_total = ($user_edit->{totalmods} || 0) + ($user_edit->{stirred} || 0);
if ($mod_total) {
$user_edit->{stirredpercent} = sprintf("%.2f",
$user_edit->{stirred}*100/$mod_total);
}
if ($constants->{subscribe} and my $subscribe = getObject('Slash::Subscribe')) {
$user_edit->{subscribe_payments} =
$subscribe->getSubscriptionsForUser($user_edit->{uid});
$user_edit->{subscribe_purchases} =
$subscribe->getSubscriptionsPurchasedByUser($user_edit->{uid},{ only_types => [ "grant", "gift" ] });
}
my $ipid = $user_edit->{ipid};
my $subnetid = $user_edit->{subnetid};
my $post_restrictions = {};
my ($subnet_karma, $ipid_karma);

if ($ipid && !$subnetid) {
$ipid = md5_hex($ipid) if length($ipid) != 32;
$proxy_check->{ipid} = $ipid;
$proxy_check->{currently} = $slashdb->getKnownOpenProxy($ipid, "ipid");
# This next call is very slow.
$subnetid = $reader->getSubnetFromIPIDBasedOnComments($ipid);
}

if ($subnetid) {
$subnetid = md5_hex($subnetid) if length($subnetid) != 32;
# These next three calls can be very slow. In fact, getNetIDKarma
# is actually called twice on the same subnetid; if we can cache
# that data somehow that wouldn't be a bad idea.
$post_restrictions = $reader->getNetIDPostingRestrictions("subnetid", $subnetid);
$subnet_karma = $reader->getNetIDKarma("subnetid", $subnetid);
$ipid_karma = $reader->getNetIDKarma("ipid", $ipid) if $ipid;
}

my $clout_types_ar = [ sort grep /\D/, keys %{$slashdb->getCloutTypes} ];

return slashDisplay('getUserAdmin', {
field => $field,
useredit => $user_edit,
srcid => $srcid,
all_aclam_ar => $all_aclam_ar,
all_aclam_hr => $all_aclam_hr,
user_aclam_hr => $user_aclam_hr,
al2_old => $al2_hr,
al2_log => $al2_log_ar,
al2_tid_comment => $al2_tid_comment,
al2_nick => $al2_nick_hr,

userinfo_flag => $user_editinfo_flag,
userfield => $user_editfield,
ipstruct => $ipstruct,
ipstruct_order => $ipstruct_order,
uidstruct => $uidstruct,
accesshits => \@accesshits,
seclev_field => $seclev_field,
expired => $expired,
topabusers => $topabusers,
readonly => $readonly,
thresh_select => $thresh_select,
authoredit_flag => $authoredit_flag,
section_select => $section_select,
all_acls => $all_acls_hr,
proxy_check => $proxy_check,
subnet_karma => $subnet_karma,
ipid_karma => $ipid_karma,
post_restrictions => $post_restrictions,

clout_types_ar => $clout_types_ar,
}, 1);
}

#################################################################
# this is to allow alternate parameters to be specified. pass in
# your hash reference to be passed to setUser(), and this will
# add in those extra parameters. add the parameters to string_param,
# type = otherusersparam, code = name of the param. they will
# be checked for the main user prefs editing screens, and on
# user creation -- pudge
sub getOtherUserParams {
my($data) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

my $user = getCurrentUser();
my $form = getCurrentForm();
my $params = $reader->getDescriptions('otherusersparam');

for my $param (keys %$params) {
if (exists $form->{$param}) {
# set user too for output in this request
$data->{$param} = $user->{$param} = $form->{$param} || undef;
}
}
}

###############################################################
# This modifies a hashref to default values -- if nothing
# else we assume the empty string which clears items in the
# user_param table
#
# takes 3 hashrefs currently
# $data - hashref to change to defaults
# $skip - hashref of keys to skip modifying
# $defaults - hashref of defaults to set to something other
# than the empty string
sub setToDefaults {
my($data, $skip, $defaults) = @_;
foreach my $key (keys %$data) {
next if $skip->{$key};
$data->{$key} = exists $defaults->{$key} ? $defaults->{$key} : "";
}
}

#################################################################
sub getCommentListing {
my ($type, $value,
$min_comment, $time_period, $cc_all, $cc_time_period, $cid_for_time_period,
$non_admin_limit, $admin_time_limit, $admin_non_time_limit,
$options) = @_;
my $reader = getObject('Slash::DB', { db_type => 'reader' });
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $store_cutoff = $options->{use_uid_cid_cutoff} ? $constants->{store_com_page1_min_cid_for_user_com_cnt} : 0;

my $s_opt = {};
my $num_wanted = 0;
if ($min_comment) {
if ($user->{is_admin}) {
$num_wanted = $admin_non_time_limit;
} else {
$num_wanted = $non_admin_limit;
}
} else {

if ($user->{is_admin}) {
if ($cc_time_period >= $admin_non_time_limit) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $admin_time_limit;
} else {
$num_wanted = $admin_non_time_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
} else {
if ($cc_time_period >= $non_admin_limit ) {
$s_opt->{cid_at_or_after} = $cid_for_time_period;
$num_wanted = $non_admin_limit;
} else {
$num_wanted = $non_admin_limit;
if($store_cutoff){
my $min_cid = $reader->getUser($value,
"com_num_".$num_wanted."_at_or_after_cid");
$s_opt->{cid_at_or_after} = $min_cid
if $min_cid && $min_cid =~ /^\d+$/;
}
}
}
}
if ($type eq "uid") {

my $comments = $reader->getCommentsByUID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
if ($store_cutoff
&& $comments && $cc_all >= $store_cutoff && $min_comment == 0
&& scalar(@$comments) == $num_wanted) {
my $min_cid = 0;
for my $comment (@$comments) {
$min_cid = $comment->{cid}
if !$min_cid || ($comment->{cid} < $min_cid);
}
if ($min_cid && $min_cid =~/^\d+$/) {
$slashdb->setUser($value, {
"com_num_".$num_wanted."_at_or_after_cid" => $min_cid
});
}

}
return $comments;
} elsif ($type eq "ipid"){
return $reader->getCommentsByIPID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} elsif ($type eq "subnetid"){
return $reader->getCommentsBySubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
} else {
return $reader->getCommentsByIPIDOrSubnetID($value, $num_wanted, $min_comment, $s_opt) if $cc_all;
}
}
createEnvironment();
main();

1;

</pre>

Historic:CssWork

2014-03-01T18:51:38Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] -

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users. Once an edit is made, you are in /users.pl without /my/
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

Historic:CssWork

2014-03-01T18:48:22Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] -

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?
* The users home page link goes to /my/homepage. I can find no apache redirect for this nor is there a 'my' folder anywhere. I am guessing this is done in the apache perl module, through some redirects that hook into Apache innards. It is hard to be sure what script is actually being called first. I am assuming it is users.
* Two users scripts, users,users2 Am guesssing users2 is for the d2 interface we are not using, since the forms on the page call users.pl

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

Historic:CssWork

2014-03-01T18:19:50Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)
* [[PerlModuleUsers]] -

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

SlashGlossary

2014-02-28T23:10:57Z

50.45.173.59:

[[CssWork]] parent of this page

<h2>Glossary of terms used in slash code</h2>
These an be confusing if you are new to slash code. Try to keep these to one displayed line, this is not for full descriptions.

* '''D1''' - The orgiginal Slash interface
* '''D2''' - The new fancy interface that we have disabled on Soylent.
* '''Authors''' - Authors approve submissions, have the authority to change the look of the site, and can moderate.
* '''Comments''' - Users may write comments about a story.
* '''firehose''' - The Firehose is a collection of content from anywhere on the site that users can vote on and tag.

* '''nexus''' - a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.
* '''plugins''' -

* '''Sections & Topics''' - Seem similar. Sections are similar to the way a newspaper is laid out, i.e.: business section, sports section, local section, etc. Topics can appear anywhere, share similar concepts. The home page has stuff from all sections. (AG note - this now not entirely correct)
* '''Stories''' - Stories reside in the middle section of the page and have the intro-text of the stories along with the authors and what departments they are from.
* '''Submissions''' - Stories are submitted by users, and then approved by authors.
* '''skin''' - from 'sectiontopics' :
** So "section" has been split into two: "skin" and "nexus". *Most* of the information that went with a section was used to describe appearances, and that went over to skin. '''So a skin now controls color (through the skin_colors table), it controls which templates are used (the final part of a template's three-part name is now skin, not section), and it controls with which other stories a story is grouped (on which index page)'''. And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.
** Each skin has precisely one nexus; you can think of a skin as drawing its stories from its nexus. The clever part is that a nexus is just a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). So if a story has both the Developers topic_nexus, and the Book Reviews topic_nexus, then it will appear on both books.slashdot.org and developers.slashdot.org. And the additional data stored with the story will include the union of all the "extras" data -- not only ISBN and so on, but also any "extras" data that may be in the Developers nexus. There don't actually happen to be any extras for Developers on Slashdot, so maybe this isn't the best example, but if there were, a story that was categorized into both nexuses would include that data too.

* '''tagboxes'''
* '''tasks''' - periodic tasks run by slashd like cron jobs.
* '''template''' - html that is parsed by the Perl Template Toolkit. part of a theme
* '''theme''' - "A theme is a website design."

* '''Users''' - Users are registered to use the site, all other visitors are logged as Anonymous.

SlashGlossary

2014-02-28T23:05:18Z

50.45.173.59:

[[CssWork]] parent of this page

<h2>Glossary of terms used in slash code</h2>
These an be confusing if you are new to slash code. Try to keep these to one displayed line, this is not for full descriptions.

* '''theme''' - "A theme is a website design."
* '''template''' - html that is parsed by the Perl Template Toolkit. part of a theme
* '''D1''' - The orgiginal Slash interface
* '''D2''' - The new fancy interface that we have disabled on Soylent.
* '''tasks''' - periodic tasks run by slashd like cron jobs.
* '''tagboxes'''
* '''plugins''' -
* '''firehose''' - The Firehose is a collection of content from anywhere on the site that users can vote on and tag.

* '''skin''' - from 'sectiontopics' :
** So "section" has been split into two: "skin" and "nexus". *Most* of the information that went with a section was used to describe appearances, and that went over to skin. '''So a skin now controls color (through the skin_colors table), it controls which templates are used (the final part of a template's three-part name is now skin, not section), and it controls with which other stories a story is grouped (on which index page)'''. And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.
** Each skin has precisely one nexus; you can think of a skin as drawing its stories from its nexus. The clever part is that a nexus is just a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). So if a story has both the Developers topic_nexus, and the Book Reviews topic_nexus, then it will appear on both books.slashdot.org and developers.slashdot.org. And the additional data stored with the story will include the union of all the "extras" data -- not only ISBN and so on, but also any "extras" data that may be in the Developers nexus. There don't actually happen to be any extras for Developers on Slashdot, so maybe this isn't the best example, but if there were, a story that was categorized into both nexuses would include that data too.
* '''nexus''' - a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.

* '''Stories''' - Stories reside in the middle section of the page and have the intro-text of the stories along with the authors and what departments they are from.
* '''Comments''' - Users may write comments about a story.
* '''Submissions''' - Stories are submitted by users, and then approved by authors.
* '''Users''' - Users are registered to use the site, all other visitors are logged as Anonymous.
* '''Authors''' - Authors approve submissions, have the authority to change the look of the site, and can moderate.
* '''Sections & Topics''' - Seem similar. Sections are similar to the way a newspaper is laid out, i.e.: business section, sports section, local section, etc. Topics can appear anywhere, share similar concepts. The home page has stuff from all sections. (AG note - this now not entirely correct)

SlashGuide

2014-02-28T22:40:37Z

50.45.173.59:

[[CssWork]]
<h2>Slash guide from /usr/local/slash/themes/slashcode/htdocs</h2>

<div class="pod">
<hr>
<p>slashguide - The guide to using Slash version 2.0.</p>
<h2>So I have Slash installed, what do I do now?</h2>

<p>The site is running, you can get a front page to display, and slashd is generating static .shtml files. What do I do now? How do I administer the site? How do I change the way it looks? How do I post stories or user submissions? This guide is to answer these and other questions, questions that I've seen asked on the mailing list time and time again. There's been a great need to explain the admin interface for quite some time now. This should hopeful
ly satisfy this need.</p>

<h2>Logging into the admin interface</h2>

<p>The first thing you need to do (and you should do this to get the most out of this document) it log
in as an author. (<em>note</em>: make sure that the author you log in as has a seclev of at least 10000. The default
author that you set up when you use install-slashsite has this security level.) You can find the login form on the fro
nt page or at <a href="http://yoursite/users.pl">http://yoursite/users.pl</a> .</p>

<p>After you have logged in as an author, you will now see a navigation bar, or navigation list on the
top of the page. This is the admin menu. In this list there are the URLs to the various functions of the admin interface. This admin navigation bar will only show links to the admin tasks that the user you're logged in has access to (the seclev value for this author).</p>

<h2>Logging out</h2>
<p>To log out, go to preferences and click the Log out link.</p>
<h2>Overview of Slash concepts</h2>
<dl>
<dt><strong>Stories:</strong><br></dt>
<dd>Stories reside in the middle section of the page and have the intro-text of the stories along with the authors and what departments they are from.</dd>
<dt><strong>Comments:</strong><br></dt>
<dd>Users may write comments about a story.</dd>
<dt><strong>Submissions:</strong><br></dt>
<dd>Stories are submitted by users, and then approved by authors.</dd>
<dt><strong>Users:</strong><br></dt>
<dd>Users are registered to use the site, all other visitors are logged as Anonymous.</dd>
<dt><strong>Authors:</strong><br></dt>
<dd>Authors approve submissions, have the authority to change the look of the site, and can moderate.</dd>
<dt><strong>Sections & Topics:</strong><br></dt>
<dd>
Seem similar.
<p>Sections are similar to the way a newspaper is laid out, i.e.: business section, sports section, local section, etc.</p>
<p>Topics can appear anywhere, share similar concepts.</p>
<p>The home page has stuff from all sections.</p>
</dd>
<dt><strong>Blocks:</strong><br></dt>
<dd>Located on the right hand side, blocks can be customized by users.</dd>
<dt><strong>Templates:</strong><br></dt>
<dd>These store the html for boxes, fancy boxes, headers, footers, etc. The template is where
the look of the site can be changed. Inside the templates is where you will spend the majority of your time for site design changes.</dd>

<dt><strong>Variables:</strong><br></dt>

<dd>Govern how links are created, etc.; don't normally need to change them.</dd>
</dl>

<h2>The story list</h2>

<p>Click on the link Stories on the admin menu. On this page you'll see the stories that are running on the site, grouped by the day that they are running on.</p>
<p>The first column is a number. This is a link to edit the story. Go ahead and click on any one of the numbers for any story that's running. This will take you to a
<a href="#story%20editing%20page">Story editing page</a>.</p>

<p>The second column just links you to the story as the story will be seen (to article.pl).</p>

<p>The third column is the author of the story, the fourth column is the topic, the fifth column the section. The sixth column has two numbers - the first is the total hits for the story, the second number is how many comments there are. The final column is the timestamp of the story.</p>

<h2>Story editing page</h2>

<p>The top of the page is the title and body of the story, as it would be displayed.</p>

<p>Going down, next you'll see a block that has three buttons, three pulldowns, and two text fields. The buttons do what they are labeled as, the first pulldown is the topic the story is categorised into, the next pulldown is what section the story is running in, the third pulldown is the author the story is running as. The next text field is the stories title, and the text field below that is the department that it runs as. (Each word that you type in
this text field is displayed with dashes between each word. If you enter ``this is a test'', it will be displayed as 'from the this-is-a-test dept.'.) Next, you'll see two more pulldown and a text field containing a date. The first pulldown gives you three display options. You can select to not display the story at all, restrict it to one section, or every section (default). The next pulldown selects whether a story can have comments or not. You can use this to restrict the story to being read-only.</p>

<p>The fixquotes checkbox is for fixing curly quotes if you've pasted text that includes them. The autonode checkbox is for automatically creating glossary-style links to
<a href="http://everything2.com">http://everything2.com</a>

but it doesn't seem to work anymore. The fastforward checkbox moves a story to the first position on the page (by changing its date).</p>

<p>The timestamp text field contains the time and date that the story will run on. You
can set it to a
future date if you want a story to be delayed. Below this you'll see a text area for the story copy.

This is the full
text of the story. You can put html tags in your text if you wish. Below this box, are the same three buttons that you see above. These have the same form action as the ones above, and are only there for convenience. Below this is the
extended copy text area. This is if you're doing a longer article such as a book review, or a commentary. Below that is an ``import image''. This is something that is being worked on. In other words, it doesn't really work yet!
You can see how this page works by changing any on of these values for the story. If you select preview it will only display what the change would look like, if you hit ``update'', it will update the story in the database (and on the site),
and display what the change looks like.</p>

<h2>Submitting a new story</h2>

<p>As admin:</p>

<p>To post a new story, you need to click on the ``New'' admin menu link. This takes you to a
Story editing page. Fill out this form with all the values for the story you want to run. To view it before saving, click on the ``preview'' button. Once you feel that the story is ready to be published, you can click on ``save''. This will save the story to the database. You may post-date the story to run at another time
in the time stamp field, if you want. This is often handy when you want some time to decide if you really want to run a particular story.</p>

<p>As a regular user:</p>

<p>Same as above, but use the ``Submit Story'' link from the main menu. The story must be approved by
an author before it appears.</p>

<h2>Commenting on a story</h2>

<p>Below the story, there is a bar with a ``Reply'' button which can be used to post a comment on a story. Each comment has a ``Reply to This'' link which can be used to comment on that comment.</p>

<p>There is a selection box that will allow you to format your message in any of four ways:</p>

<table cellspacing="0" cellpadding="0">
<tr>
<td>Plain Old Text</td>
<td>HTML tags are interpreted, <br> tags are inserted for you</td>
</tr>
<tr>
<td>HTML Formatted</td>
<td>HTML tags are interpreted, you must add your own <br> tags</td>
</tr>
<tr>
<td>Extrans</td>
<td>HTML tags are quoted</td>
</tr>
<tr>
<td>Code</td>
<td>HTML tags are quoted, text is formatted as code</td>
</tr>
</table>

<h2>Approving user submissions</h2>

<p>To approve user submissions so they show up as stories, click on the 'XX Submissions' link (XX being a number). This will take you to a page listing user submissions.</p>

<p>Above the submissions list are links that will reload this page according to sections. For instance
, if you click on the link for ``articles'' this page will only display submissions that are in the 'articles' section. The links on the left are categories set by the second column.</p>

<p>Next is the submissions list.</p>

<ol>
<li>The first column is a notes block. This is for the author to write a note pertaining to a
particular submission, so the author, or other authors, can have something to refer to in the case where they may not want to publish a particular until a later time.</li>

<li>The second column is also for classifying submissions. Unless you have hundreds of submissions like slashdot does, you probably won't need those fields.</li>

<li>The third column is which section the submission is in.</li>

<li><strong>The fourth column contains a box that if checked will delete the submission.</strong></li>

<li>The fifth column is the timestamp of the submission.</li>

<li>The sixth column is the title of the submission, which is a link to edit the submission. If this is clicked, it takes you to a submission editing page that works just like the
Story editing page,
and in fact if the author <em>previews</em> the submission, the submission then is pulled up
in the story editing page where the author can edit the submission further, and decide if the story should be published or not.</li>

<li>The seventh column is the name of the person who made the submission.</li>
</ol>

<h2>Topics</h2>

<p>To edit, add, or delete a topic, click on ``Topics'' from the admin menu. This will take you to a page showing all of the site's topics icons, with a topic name listed below each icon, which is a URL to edit that topic. If this URL is clicked, you will be taken to a page that allows you to edit the topic, select a new topic to edit,
create a new topic, or delete the topic.</p>

<p>The first item on the page is a pulldown with all topics. You can change the topic you want to edit
by selecting whatever topic you want from the pulldown and clicking ``Select topic''. If you want to create a new topic, you click on Create new topic. Below that, the icon for the topic is displayed (as it would be seen).
Next is the ``Tid'' text field. This is the topic ID. Next are the width and height that the image is displayed as, and the text that's displayed in the ``alt'' tag. Next is a pulldown of all the images that are available in the images/topics directory. If you want to have a new image to select from, you'll need to upload and/or copy it to that directory. Finally, there are the ``Save Topic'' and ``Delete Topic'' buttons. They do what they say they do.</p>

<h2>Blocks</h2>

<p>Most important to how the site looks are the blocks, which are edited, added, and deleted via the block editing form. This form essentially manipulates the blocks and sectionblocks tables. To get to the block editing
page, click on ``Blocks'' from the admin menu.</p>
<p>On this page, you start out with two pulldowns, each having two buttons: one for editing the block,
and one for deleting the block. The first pulldown selects all non-portald blocks, meaning blocks that aren't populated by portald. They are static blocks, their content (what's contained in the column ``block'' in the blocks table) doesn't change unless you change it, whereas the portald blocks are updated by portald. Below these two pulldowns is a `
`Create a new block'' button, which you can use to create a new block. Upon selecting a block and clicking Edit Block (or creating a new block), the block is pulled up in the block editing form. This form has these elements:</p>

<table cellspacing="0" cellpadding="0">
<tr>
<td>Block ID</td>
<td>The block ID</td>
</tr>
<tr>
<td>Title</td>
<td>A title for the block</td>
</tr>
<tr>
<td>Seclev</td>
<td>The minimum security level an author must have in order to edit this block</td>
</tr>
<tr>
<td>Type</td>
<td>The type of block that it is. This is a new concept for blocks and is still being developed, but the current type of blocks are color, static, and portald. If you end up setting a blocks type as 'portald', it will then be seen in the portald pulldown, otherwise, it will appear in the static blocks pulldown.</td>
</tr>
<tr>

<td>Section</td>
<td>If a block is set with a specific section, the block will only appear in that section if its 'portal' value is one (meaning it's a user selectable slashbox).</td>
</tr>
<tr>
<td>Ordernum</td>
<td>This is the order number of the blocks that appear on the right side of the page.
These are the default blocks for all users. If the ordernumber is -1, it's a user selectable slashbox, if the ordernum is 0, it doesn't appear at all. If the number is 1 or greater, this is the order that it appears on the right side of
the page for Anonymous Cowards and users that have not specified their own preferences for slashboxes.<td>
</tr>
<tr>
<td>Portal</td>
<td>If this is checked, then this block shows up on the slashboxes selection in users.pl.</td>
</tr>
<tr>
<td>Retrieve</td>
<td>If this is a portald type block, and this is checked, portald will retrieve the content for this block from the URL listed in the next box, RDF/URL.</td>
</tr>
<tr>
<td>RDF/URL</td>
<td>The URL from which portald gets the content for this particular block.</td>
</tr>
<tr>
<td>Description</td>
<td>A text description of the block.</td>
</tr>
<tr>
<td>Block</td>
<td>The actual block itself. You can only change non-portald blocks (well you can change portald blocks, but portald will overwrite your changes).</td>
</tr>
<tr>
<td>Revert to default</td>
<td>Use this if you make a mistake while editing the block, or want to revert to what it was originally.</td>
</tr>
<tr>
<td>Save as default</td>
<td>Use this if you are confident that you want this to be the saved default, in case
you later edit the block and want something to revert back to.</td>
</tr>
<tr>
<td>Save Block</td>
<td>Saves the block</td>
</tr>
<tr>
<td>Create a new block</td>
<td>Opens a new form to create a new block.</td>
</tr>
<tr>
<td>Preview</td>
<td>This previews slashboxes. Don't try it with blocks that are code blocks, or partial blocks, it won't work correctly.</td>
</tr>
</table>
<h2>Templates</h2>
<p>Templates contain the actual HTML that is used to generate all of the dynamic pages in Slash. Click
on the ``Templates'' link from the admin menu. There are three drop-down menus: Section, Page, and Templates. The ``sections'' on this page have nothing to do with the ``sections'' that contain the Slash topics.</p>
<p>There are three sections:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>admin</td>
<td>Contains the templates for admin pages</td>
</tr>
<tr>
<td>light</td>
<td>Contains the templates to be used when users are in ``light'' mode. These pages ar
e designed for people with slow connections and should not contain too many large graphics.</td>
</tr>
<tr>
<td>default</td>
<td>Contains everything else</td>
</tr>
</table>
<p>In addition, you can choose All for the section in order to access all of the sections at once.
</p>
<p>When you click the ``Select section'' button, the page will refresh and the Templates menu will contain a list of all the templates in that section.</p>
<p>The Page menu can be used to select the templates from a particular page. Pages generated by a CGI script will generally use templates from the page that has the same name as the script (eg. users.pl uses templates from the users page). The Select page button will cause the page to refresh, and the Templates menu will contain all of the templates from that page.</p>
<p>You can select either a section or a page, but not both.</p>
<p>The ``Templates'' menu will contain a list of the selected templates. Each template has both a name
and a number. Two templates from different sections or pages may have the same name, but the number will always be unique. Templates with higher numbers were created after the ones with smaller numbers. Once a template is chosen, it can be either edited or deleted. The ``Create new template'' button on the bottom of the page allows you to create new templates.</p>
<p>The template editing page will allow you to change the text and the properties of a template. The Seclev field sets the minimum security level that is required in order to edit the template. At the bottom of the page, there is a textbox field containing the text of the template. Anything enclosed within [% ... %] will be interpreted by the template-toolkit. To learn about this syntax, go to

<a href="http://www.template-toolkit.com.">http://www.template-toolkit.com.</a></p>
<p>You can view the source of any Slash page in order to see which templates are being used. The source will contain the names of the templates enclosed in html comments. For example, at the beginning of the template editor page:</p>
<p></p>
<p>....HTML stuff....</p>
<p></p>
<p>The above shows that the ``header (7)'' template is being used, from the ``misc'' page in the ``admin'' section.</p>

'''AG note:The above is now incorrect. The last name in the template name is now the skin name. See sectiontopics'''.

<h2>Site Colors</h2>
<p>This is where you can change the colors of the site. Click on the ``Site Colors'' link from the admin menu. This will take you to a form that has a pulldown to select which colorblock you want to edit (you can have a
colorblock for each section, which you would create in the block editor, and it must be named section_colors). Click on the Edit Colors button to edit the color block you select (the default is the main color block colors).
You will then see a list of eight colors, with four columns:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>The color name</td>
<td>The name of the color, and the variable it gets assigned to</td>
</tr>
<tr>
<td>The color value</td>
<td>The actual value of the color, hex or canonical. Make sure this is a valid color,
or it might not display properly.</td>
</tr>
<tr>
<td>The color name</td>
<td>displayed in the font color selected</td>
</tr>
<tr>
<td>The color</td>
<td>A table cell with the selected color</td>
</tr>
</table>
<p>Next are the buttons. If you click on Preview, you'll see the color you are selecting, as well
as providing a link at the top of the page that's a URL to index.pl which will display using the color you want to pre
view. Clicking on Save Colors will save the colors you've selected, Revert to saved will reload the form with
the last saved values of colors, Revert to default will reload the page with the default colors, and Save as default saves the colors as the default. Again, as with the blocks, you want to make sure this is what you want saved as the default for your site.</p>
<h2>Sections</h2>
<p>Click on Sections from the admin menu. This will take you to a page with a URL list of the site
's sections. If you click on a particular section, it will then take you to a form for editing the section. This form
contains:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>Section name</td>
<td>contains the section id</td>
</tr>
<tr>
<td>Article Count</td>
<td>the value for how many articles to display on section index</td>
</tr>
<tr>
<td>Title</td>
<td>the canonical name for the section</td>
</tr>
<tr>
<td>Polls for this section</td>
<td>selects which poll to display for the section</td>
</tr>
<tr>
<td>Isolate mode</td>
<td>determines whether the section is part of the site or standalone</td>
</tr>
<tr>
<td>Issue mode</td>
<td>whether the section is issue oriented, article based, both, or neither</td>
</tr>
<tr>
<td>Edit section</td>
<td>URLs to the block editor for blocks that are specific to the section</td>
</tr>
<tr>
<td>save section</td>
<td>save changes that you've made to the section</td>
</tr>
<tr>
<td>add section</td>
<td>opens up a new form to create a new section</td>
</tr>
<tr>
<td>delete section</td>
<td>delete the section</td>
</tr>
</table>
<h2>Comment filters</h2>
<p>Comment filters are regular expressions that are run against content, the comment subject or comment body. If a particular filter is encountered, a message is displayed informing the user, both on submit and preview of the comment. This gives you the ability to prevent certain things from being posted on your site which is totally dependent on what you want to filter, or not filter. Click on ``Comment Filters'' from the admin menu. This will take you to listing of all the comment filters. This list shows various columns for each filter:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>Filter id</td>
<td>the ID for the filter. This is a URL that brings up the filter in a filter editing page.</td>
</tr>
<tr>
<td>Regex</td>
<td>this is the core regex of the filter</td>
</tr>
<tr>
<td>Modifier</td>
<td>the modifier that would go on the end of the regex, ie. if the modifier is 'gi'
the regex would be evaluated as /xxx/gi</td>
</tr>
<tr>
<td>Field</td>
<td>The form field that the filter is run against. Currently, only postersubj (the comment subject) and postercomment (the comment body) are supported.</td>
</tr>
<tr>
<td>Ratio</td>
<td>The percentage that the match will check for. For example, if ``Regex'' is ``(flame)'', ``Ratio'' is 0.1000, the text being checked is 100 characters in size, the regex is put together as /(flame){50,}/. If you have the field ``Minimum match'' set greater than zero, this won't be used. This won't be used if set to zero.</td>
</tr>
<tr>
<td>Minimum match</td>

<td>This is a hard coded minimum match for the regex. If ``Regex'' is(flame)'' and
Minimum match is 4, the regex constructed will be /(flame){4,}/. Ratio will not be used if this is set greater than zero. This won't be used if set to zero.</td>
</tr>
<tr>
<td>Minimum length</td>
<td>The minimum length the field must be for the filter to apply</td>
</tr>
<tr>
<td>Maximum length</td>
<td>The maximum length the field must be for the filter to apply</td>
</tr>
<tr>
<td>Error Message</td>
<td>The message that's displayed after the ``Lameness filter encountered''.</td>
</tr>
</table>
<p>You can also create a new filter with the ``Create a new filter'' button.</p>
<h2>Variables</h2>
<p>This is for editing site variables. Select one from the menu and click the 'vars' button to see its
current value and a description. You'll need to restart apache and slashd for changes to the vars to show up.</p>
<p>The main ones you'll want to edit for now are slogan and sitename.</p>
<p>Turn cache_enabled off to get faster responses while you're working with templates.</p>
<p>The send_mail var turns the headline mailer on/off. You may need to set smtp_server too. And the stats_reports one will get you a daily stats report.</p>
<hr>
<h1>CHANGES</h1>
<p>Log
<p>Revision 1.5 2005/08/22 22:41:27 pudge
<p>Update to proper includes and valid HTML
<p></p>
<p>Revision 1.4 2005/07/27 22:54:16 pudge</p>
<p>Big merge of css branch</p>
<p>Revision 1.3.2.2 2005/07/19 17:28:55 tvroom</p>
<p>.inc / shtml templates</p>
<p>Revision 1.3.2.1 2005/07/14 16:57:33 tvroom</p>
<p>Added needed divs</p>
<p>Revision 1.3 2002/04/22 14:01:50 pudge</p>
<p>Various login fixes: s/(log)(in|out)/$1 $2/gi for @verbs; add proper links to creating accounts etc. on login forms; fix ~$nickname URIs for when $nickname contains some encoded characters (like "/").</p>
<p>Revision 1.2 2001/11/03 03:05:02 brian</p>
<p>Fry</p>
<p>Revision 1.1.2.1 2001/10/09 17:54:04 pudge</p>
<p>Add in slashguide (rewrite of getting_started) and update docs</p>
<hr>
<h1>AUTHOR</h1>
<p>Originally, CmdrTaco probably. Revised for Slash 2.0.0 by Nathan Vonnahme and Dan Stahlke</p>

SlashGuide

2014-02-28T22:39:23Z

50.45.173.59:

[[CssWork]]
<h2>Slash guide from /usr/local/slash/themes/slashcode/htdocs</h2>

<div class="pod">
<hr>
<p>slashguide - The guide to using Slash version 2.0.</p>
<h2>So I have Slash installed, what do I do now?</h2>

<p>The site is running, you can get a front page to display, and slashd is generating static .shtml files. What do I do now? How do I administer the site? How do I change the way it looks? How do I post stories or user submissions? This guide is to answer these and other questions, questions that I've seen asked on the mailing list time and time again. There's been a great need to explain the admin interface for quite some time now. This should hopeful
ly satisfy this need.</p>

<h2>Logging into the admin interface</h2>

<p>The first thing you need to do (and you should do this to get the most out of this document) it log
in as an author. (<em>note</em>: make sure that the author you log in as has a seclev of at least 10000. The default
author that you set up when you use install-slashsite has this security level.) You can find the login form on the fro
nt page or at <a href="http://yoursite/users.pl">http://yoursite/users.pl</a> .</p>

<p>After you have logged in as an author, you will now see a navigation bar, or navigation list on the
top of the page. This is the admin menu. In this list there are the URLs to the various functions of the admin interface. This admin navigation bar will only show links to the admin tasks that the user you're logged in has access to (the seclev value for this author).</p>

<h2>Logging out</h2>
<p>To log out, go to preferences and click the Log out link.</p>
<h2>Overview of Slash concepts</h2>
<dl>
<dt><strong>Stories:</strong><br></dt>
<dd>Stories reside in the middle section of the page and have the intro-text of the stories along with the authors and what departments they are from.</dd>
<dt><strong>Comments:</strong><br></dt>
<dd>Users may write comments about a story.</dd>
<dt><strong>Submissions:</strong><br></dt>
<dd>Stories are submitted by users, and then approved by authors.</dd>
<dt><strong>Users:</strong><br></dt>
<dd>Users are registered to use the site, all other visitors are logged as Anonymous.</dd>
<dt><strong>Authors:</strong><br></dt>
<dd>Authors approve submissions, have the authority to change the look of the site, and can moderate.</dd>
<dt><strong>Sections & Topics:</strong><br></dt>
<dd>
Seem similar.
<p>Sections are similar to the way a newspaper is laid out, i.e.: business section, sports section, local section, etc.</p>
<p>Topics can appear anywhere, share similar concepts.</p>
<p>The home page has stuff from all sections.</p>
</dd>
<dt><strong>Blocks:</strong><br></dt>
<dd>Located on the right hand side, blocks can be customized by users.</dd>
<dt><strong>Templates:</strong><br></dt>
<dd>These store the html for boxes, fancy boxes, headers, footers, etc. The template is where
the look of the site can be changed. Inside the templates is where you will spend the majority of your time for site design changes.</dd>

<dt><strong>Variables:</strong><br></dt>

<dd>Govern how links are created, etc.; don't normally need to change them.</dd>
</dl>

<h2>The story list</h2>

<p>Click on the link Stories on the admin menu. On this page you'll see the stories that are running on the site, grouped by the day that they are running on.</p>
<p>The first column is a number. This is a link to edit the story. Go ahead and click on any one of the numbers for any story that's running. This will take you to a
<a href="#story%20editing%20page">Story editing page</a>.</p>

<p>The second column just links you to the story as the story will be seen (to article.pl).</p>

<p>The third column is the author of the story, the fourth column is the topic, the fifth column the section. The sixth column has two numbers - the first is the total hits for the story, the second number is how many comments there are. The final column is the timestamp of the story.</p>

<h2>Story editing page</h2>

<p>The top of the page is the title and body of the story, as it would be displayed.</p>

<p>Going down, next you'll see a block that has three buttons, three pulldowns, and two text fields. The buttons do what they are labeled as, the first pulldown is the topic the story is categorised into, the next pulldown is what section the story is running in, the third pulldown is the author the story is running as. The next text field is the stories title, and the text field below that is the department that it runs as. (Each word that you type in
this text field is displayed with dashes between each word. If you enter ``this is a test'', it will be displayed as 'from the this-is-a-test dept.'.) Next, you'll see two more pulldown and a text field containing a date. The first pulldown gives you three display options. You can select to not display the story at all, restrict it to one section, or every section (default). The next pulldown selects whether a story can have comments or not. You can use this to restrict the story to being read-only.</p>

<p>The fixquotes checkbox is for fixing curly quotes if you've pasted text that includes them. The autonode checkbox is for automatically creating glossary-style links to
<a href="http://everything2.com">http://everything2.com</a>

but it doesn't seem to work anymore. The fastforward checkbox moves a story to the first position on the page (by changing its date).</p>

<p>The timestamp text field contains the time and date that the story will run on. You
can set it to a
future date if you want a story to be delayed. Below this you'll see a text area for the story copy.

This is the full
text of the story. You can put html tags in your text if you wish. Below this box, are the same three buttons that you see above. These have the same form action as the ones above, and are only there for convenience. Below this is the
extended copy text area. This is if you're doing a longer article such as a book review, or a commentary. Below that is an ``import image''. This is something that is being worked on. In other words, it doesn't really work yet!
You can see how this page works by changing any on of these values for the story. If you select preview it will only display what the change would look like, if you hit ``update'', it will update the story in the database (and on the site),
and display what the change looks like.</p>

<h2>Submitting a new story</h2>

<p>As admin:</p>

<p>To post a new story, you need to click on the ``New'' admin menu link. This takes you to a
Story editing page. Fill out this form with all the values for the story you want to run. To view it before saving, click on the ``preview'' button. Once you feel that the story is ready to be published, you can click on ``save''. This will save the story to the database. You may post-date the story to run at another time
in the time stamp field, if you want. This is often handy when you want some time to decide if you really want to run a particular story.</p>

<p>As a regular user:</p>

<p>Same as above, but use the ``Submit Story'' link from the main menu. The story must be approved by
an author before it appears.</p>

<h2>Commenting on a story</h2>

<p>Below the story, there is a bar with a ``Reply'' button which can be used to post a comment on a story. Each comment has a ``Reply to This'' link which can be used to comment on that comment.</p>

<p>There is a selection box that will allow you to format your message in any of four ways:</p>

<table cellspacing="0" cellpadding="0">
<tr>
<td>Plain Old Text</td>
<td>HTML tags are interpreted, <br> tags are inserted for you</td>
</tr>
<tr>
<td>HTML Formatted</td>
<td>HTML tags are interpreted, you must add your own <br> tags</td>
</tr>
<tr>
<td>Extrans</td>
<td>HTML tags are quoted</td>
</tr>
<tr>
<td>Code</td>
<td>HTML tags are quoted, text is formatted as code</td>
</tr>
</table>

<h2>Approving user submissions</h2>

<p>To approve user submissions so they show up as stories, click on the 'XX Submissions' link (XX being a number). This will take you to a page listing user submissions.</p>

<p>Above the submissions list are links that will reload this page according to sections. For instance
, if you click on the link for ``articles'' this page will only display submissions that are in the 'articles' section. The links on the left are categories set by the second column.</p>

<p>Next is the submissions list.</p>

<ol>
<li>The first column is a notes block. This is for the author to write a note pertaining to a
particular submission, so the author, or other authors, can have something to refer to in the case where they may not want to publish a particular until a later time.</li>

<li>The second column is also for classifying submissions. Unless you have hundreds of submissions like slashdot does, you probably won't need those fields.</li>

<li>The third column is which section the submission is in.</li>

<li><strong>The fourth column contains a box that if checked will delete the submission.</strong></li>

<li>The fifth column is the timestamp of the submission.</li>

<li>The sixth column is the title of the submission, which is a link to edit the submission. If this is clicked, it takes you to a submission editing page that works just like the
Story editing page,
and in fact if the author <em>previews</em> the submission, the submission then is pulled up
in the story editing page where the author can edit the submission further, and decide if the story should be published or not.</li>

<li>The seventh column is the name of the person who made the submission.</li>
</ol>

<h2>Topics</h2>

<p>To edit, add, or delete a topic, click on ``Topics'' from the admin menu. This will take you to a page showing all of the site's topics icons, with a topic name listed below each icon, which is a URL to edit that topic. If this URL is clicked, you will be taken to a page that allows you to edit the topic, select a new topic to edit,
create a new topic, or delete the topic.</p>

<p>The first item on the page is a pulldown with all topics. You can change the topic you want to edit
by selecting whatever topic you want from the pulldown and clicking ``Select topic''. If you want to create a new topic, you click on Create new topic. Below that, the icon for the topic is displayed (as it would be seen).
Next is the ``Tid'' text field. This is the topic ID. Next are the width and height that the image is displayed as, and the text that's displayed in the ``alt'' tag. Next is a pulldown of all the images that are available in the images/topics directory. If you want to have a new image to select from, you'll need to upload and/or copy it to that directory. Finally, there are the ``Save Topic'' and ``Delete Topic'' buttons. They do what they say they do.</p>

<h2>Blocks</h2>

<p>Most important to how the site looks are the blocks, which are edited, added, and deleted via the block editing form. This form essentially manipulates the blocks and sectionblocks tables. To get to the block editing
page, click on ``Blocks'' from the admin menu.</p>
<p>On this page, you start out with two pulldowns, each having two buttons: one for editing the block,
and one for deleting the block. The first pulldown selects all non-portald blocks, meaning blocks that aren't populated by portald. They are static blocks, their content (what's contained in the column ``block'' in the blocks table) doesn't change unless you change it, whereas the portald blocks are updated by portald. Below these two pulldowns is a `
`Create a new block'' button, which you can use to create a new block. Upon selecting a block and clicking Edit Block (or creating a new block), the block is pulled up in the block editing form. This form has these elements:</p>

<table cellspacing="0" cellpadding="0">
<tr>
<td>Block ID</td>
<td>The block ID</td>
</tr>
<tr>
<td>Title</td>
<td>A title for the block</td>
</tr>
<tr>
<td>Seclev</td>
<td>The minimum security level an author must have in order to edit this block</td>
</tr>
<tr>
<td>Type</td>
<td>The type of block that it is. This is a new concept for blocks and is still being developed, but the current type of blocks are color, static, and portald. If you end up setting a blocks type as 'portald', it will then be seen in the portald pulldown, otherwise, it will appear in the static blocks pulldown.</td>
</tr>
<tr>

<td>Section</td>
<td>If a block is set with a specific section, the block will only appear in that section if its 'portal' value is one (meaning it's a user selectable slashbox).</td>
</tr>
<tr>
<td>Ordernum</td>
<td>This is the order number of the blocks that appear on the right side of the page.
These are the default blocks for all users. If the ordernumber is -1, it's a user selectable slashbox, if the ordernum is 0, it doesn't appear at all. If the number is 1 or greater, this is the order that it appears on the right side of
the page for Anonymous Cowards and users that have not specified their own preferences for slashboxes.<td>
</tr>
<tr>
<td>Portal</td>
<td>If this is checked, then this block shows up on the slashboxes selection in users.pl.</td>
</tr>
<tr>
<td>Retrieve</td>
<td>If this is a portald type block, and this is checked, portald will retrieve the content for this block from the URL listed in the next box, RDF/URL.</td>
</tr>
<tr>
<td>RDF/URL</td>
<td>The URL from which portald gets the content for this particular block.</td>
</tr>
<tr>
<td>Description</td>
<td>A text description of the block.</td>
</tr>
<tr>
<td>Block</td>
<td>The actual block itself. You can only change non-portald blocks (well you can change portald blocks, but portald will overwrite your changes).</td>
</tr>
<tr>
<td>Revert to default</td>
<td>Use this if you make a mistake while editing the block, or want to revert to what it was originally.</td>
</tr>
<tr>
<td>Save as default</td>
<td>Use this if you are confident that you want this to be the saved default, in case
you later edit the block and want something to revert back to.</td>
</tr>
<tr>
<td>Save Block</td>
<td>Saves the block</td>
</tr>
<tr>
<td>Create a new block</td>
<td>Opens a new form to create a new block.</td>
</tr>
<tr>
<td>Preview</td>
<td>This previews slashboxes. Don't try it with blocks that are code blocks, or partial blocks, it won't work correctly.</td>
</tr>
</table>
<h2>Templates</h2>
<p>Templates contain the actual HTML that is used to generate all of the dynamic pages in Slash. Click
on the ``Templates'' link from the admin menu. There are three drop-down menus: Section, Page, and Templates. The ``sections'' on this page have nothing to do with the ``sections'' that contain the Slash topics.</p>
<p>There are three sections:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>admin</td>
<td>Contains the templates for admin pages</td>
</tr>
<tr>
<td>light</td>
<td>Contains the templates to be used when users are in ``light'' mode. These pages ar
e designed for people with slow connections and should not contain too many large graphics.</td>
</tr>
<tr>
<td>default</td>
<td>Contains everything else</td>
</tr>
</table>
<p>In addition, you can choose All for the section in order to access all of the sections at once.
</p>
<p>When you click the ``Select section'' button, the page will refresh and the Templates menu will contain a list of all the templates in that section.</p>
<p>The Page menu can be used to select the templates from a particular page. Pages generated by a CGI script will generally use templates from the page that has the same name as the script (eg. users.pl uses templates from the users page). The Select page button will cause the page to refresh, and the Templates menu will contain all of the templates from that page.</p>
<p>You can select either a section or a page, but not both.</p>
<p>The ``Templates'' menu will contain a list of the selected templates. Each template has both a name
and a number. Two templates from different sections or pages may have the same name, but the number will always be unique. Templates with higher numbers were created after the ones with smaller numbers. Once a template is chosen, it can be either edited or deleted. The ``Create new template'' button on the bottom of the page allows you to create new templates.</p>
<p>The template editing page will allow you to change the text and the properties of a template. The Seclev field sets the minimum security level that is required in order to edit the template. At the bottom of the page, there is a textbox field containing the text of the template. Anything enclosed within [% ... %] will be interpreted by the template-toolkit. To learn about this syntax, go to

<a href="http://www.template-toolkit.com.">http://www.template-toolkit.com.</a></p>
<p>You can view the source of any Slash page in order to see which templates are being used. The source will contain the names of the templates enclosed in html comments. For example, at the beginning of the template editor page:</p>
<p></p>
<p>....HTML stuff....</p>
<p></p>
<p>The above shows that the ``header (7)'' template is being used, from the ``misc'' page in the ``admin'' section.</p>

'''AG note:The above is now incorrect. The last name in the template name is now the skin name. See secgtiontopics'''.

<h2>Site Colors</h2>
<p>This is where you can change the colors of the site. Click on the ``Site Colors'' link from the admin menu. This will take you to a form that has a pulldown to select which colorblock you want to edit (you can have a
colorblock for each section, which you would create in the block editor, and it must be named section_colors). Click on the Edit Colors button to edit the color block you select (the default is the main color block colors).
You will then see a list of eight colors, with four columns:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>The color name</td>
<td>The name of the color, and the variable it gets assigned to</td>
</tr>
<tr>
<td>The color value</td>
<td>The actual value of the color, hex or canonical. Make sure this is a valid color,
or it might not display properly.</td>
</tr>
<tr>
<td>The color name</td>
<td>displayed in the font color selected</td>
</tr>
<tr>
<td>The color</td>
<td>A table cell with the selected color</td>
</tr>
</table>
<p>Next are the buttons. If you click on Preview, you'll see the color you are selecting, as well
as providing a link at the top of the page that's a URL to index.pl which will display using the color you want to pre
view. Clicking on Save Colors will save the colors you've selected, Revert to saved will reload the form with
the last saved values of colors, Revert to default will reload the page with the default colors, and Save as default saves the colors as the default. Again, as with the blocks, you want to make sure this is what you want saved as the default for your site.</p>
<h2>Sections</h2>
<p>Click on Sections from the admin menu. This will take you to a page with a URL list of the site
's sections. If you click on a particular section, it will then take you to a form for editing the section. This form
contains:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>Section name</td>
<td>contains the section id</td>
</tr>
<tr>
<td>Article Count</td>
<td>the value for how many articles to display on section index</td>
</tr>
<tr>
<td>Title</td>
<td>the canonical name for the section</td>
</tr>
<tr>
<td>Polls for this section</td>
<td>selects which poll to display for the section</td>
</tr>
<tr>
<td>Isolate mode</td>
<td>determines whether the section is part of the site or standalone</td>
</tr>
<tr>
<td>Issue mode</td>
<td>whether the section is issue oriented, article based, both, or neither</td>
</tr>
<tr>
<td>Edit section</td>
<td>URLs to the block editor for blocks that are specific to the section</td>
</tr>
<tr>
<td>save section</td>
<td>save changes that you've made to the section</td>
</tr>
<tr>
<td>add section</td>
<td>opens up a new form to create a new section</td>
</tr>
<tr>
<td>delete section</td>
<td>delete the section</td>
</tr>
</table>
<h2>Comment filters</h2>
<p>Comment filters are regular expressions that are run against content, the comment subject or comment body. If a particular filter is encountered, a message is displayed informing the user, both on submit and preview of the comment. This gives you the ability to prevent certain things from being posted on your site which is totally dependent on what you want to filter, or not filter. Click on ``Comment Filters'' from the admin menu. This will take you to listing of all the comment filters. This list shows various columns for each filter:</p>
<table cellspacing="0" cellpadding="0">
<tr>
<td>Filter id</td>
<td>the ID for the filter. This is a URL that brings up the filter in a filter editing page.</td>
</tr>
<tr>
<td>Regex</td>
<td>this is the core regex of the filter</td>
</tr>
<tr>
<td>Modifier</td>
<td>the modifier that would go on the end of the regex, ie. if the modifier is 'gi'
the regex would be evaluated as /xxx/gi</td>
</tr>
<tr>
<td>Field</td>
<td>The form field that the filter is run against. Currently, only postersubj (the comment subject) and postercomment (the comment body) are supported.</td>
</tr>
<tr>
<td>Ratio</td>
<td>The percentage that the match will check for. For example, if ``Regex'' is ``(flame)'', ``Ratio'' is 0.1000, the text being checked is 100 characters in size, the regex is put together as /(flame){50,}/. If you have the field ``Minimum match'' set greater than zero, this won't be used. This won't be used if set to zero.</td>
</tr>
<tr>
<td>Minimum match</td>

<td>This is a hard coded minimum match for the regex. If ``Regex'' is(flame)'' and
Minimum match is 4, the regex constructed will be /(flame){4,}/. Ratio will not be used if this is set greater than zero. This won't be used if set to zero.</td>
</tr>
<tr>
<td>Minimum length</td>
<td>The minimum length the field must be for the filter to apply</td>
</tr>
<tr>
<td>Maximum length</td>
<td>The maximum length the field must be for the filter to apply</td>
</tr>
<tr>
<td>Error Message</td>
<td>The message that's displayed after the ``Lameness filter encountered''.</td>
</tr>
</table>
<p>You can also create a new filter with the ``Create a new filter'' button.</p>
<h2>Variables</h2>
<p>This is for editing site variables. Select one from the menu and click the 'vars' button to see its
current value and a description. You'll need to restart apache and slashd for changes to the vars to show up.</p>
<p>The main ones you'll want to edit for now are slogan and sitename.</p>
<p>Turn cache_enabled off to get faster responses while you're working with templates.</p>
<p>The send_mail var turns the headline mailer on/off. You may need to set smtp_server too. And the stats_reports one will get you a daily stats report.</p>
<hr>
<h1>CHANGES</h1>
<p>Log
<p>Revision 1.5 2005/08/22 22:41:27 pudge
<p>Update to proper includes and valid HTML
<p></p>
<p>Revision 1.4 2005/07/27 22:54:16 pudge</p>
<p>Big merge of css branch</p>
<p>Revision 1.3.2.2 2005/07/19 17:28:55 tvroom</p>
<p>.inc / shtml templates</p>
<p>Revision 1.3.2.1 2005/07/14 16:57:33 tvroom</p>
<p>Added needed divs</p>
<p>Revision 1.3 2002/04/22 14:01:50 pudge</p>
<p>Various login fixes: s/(log)(in|out)/$1 $2/gi for @verbs; add proper links to creating accounts etc. on login forms; fix ~$nickname URIs for when $nickname contains some encoded characters (like "/").</p>
<p>Revision 1.2 2001/11/03 03:05:02 brian</p>
<p>Fry</p>
<p>Revision 1.1.2.1 2001/10/09 17:54:04 pudge</p>
<p>Add in slashguide (rewrite of getting_started) and update docs</p>
<hr>
<h1>AUTHOR</h1>
<p>Originally, CmdrTaco probably. Revised for Slash 2.0.0 by Nathan Vonnahme and Dan Stahlke</p>

SlashGlossary

2014-02-28T22:26:06Z

50.45.173.59:

[[CssWork]] parent of this page

<h2>Glossary of terms used in slash code</h2>
These an be confusing if you are new to slash code. Try to keep these to one displayed line, this is not for full descriptions.

* '''theme''' - "A theme is a website design."
* '''template''' - html that is parsed by the Perl Template Toolkit. part of a theme
* '''D1''' - The orgiginal Slash interface
* '''D2''' - The new fancy interface that we have disabled on Soylent.
* '''tasks''' - periodic tasks run by slashd like cron jobs.
* '''tagboxes'''
* '''plugins''' -
* '''firehose''' - The Firehose is a collection of content from anywhere on the site that users can vote on and tag.

* '''skin''' - from 'sectiontopics' :
** So "section" has been split into two: "skin" and "nexus". *Most* of the information that went with a section was used to describe appearances, and that went over to skin. '''So a skin now controls color (through the skin_colors table), it controls which templates are used (the final part of a template's three-part name is now skin, not section), and it controls with which other stories a story is grouped (on which index page)'''. And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.
** Each skin has precisely one nexus; you can think of a skin as drawing its stories from its nexus. The clever part is that a nexus is just a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). So if a story has both the Developers topic_nexus, and the Book Reviews topic_nexus, then it will appear on both books.slashdot.org and developers.slashdot.org. And the additional data stored with the story will include the union of all the "extras" data -- not only ISBN and so on, but also any "extras" data that may be in the Developers nexus. There don't actually happen to be any extras for Developers on Slashdot, so maybe this isn't the best example, but if there were, a story that was categorized into both nexuses would include that data too.
* '''nexus''' - a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.

SlashGlossary

2014-02-28T22:18:29Z

50.45.173.59:

[[CssWork]] parent of this page

<h2>Glossary of terms used in slash code</h2>
These an be confusing if you are new to slash code. Try to keep these to one displayed line, this is not for full descriptions.

* '''theme''' - "A theme is a website design."
* '''template''' - html that is parsed by the Perl Template Toolkit. part of a theme
* '''D1''' - The orgiginal Slash interface
* '''D2''' - The new fancy interface that we have disabled on Soylent.
* '''tasks''' - periodic tasks run by slashd like cron jobs.
* '''tagboxes'''
* '''plugins''' -
* '''firehose''' - The Firehose is a collection of content from anywhere on the site that users can vote on and tag.

* '''skin''' - from 'sectiontopics' :
** So "section" has been split into two: "skin" and "nexus". *Most* of the information that went with a section was used to describe appearances, and that went over to skin. '''So a skin now controls color (through the skin_colors table), it controls which templates are used (the final part of a template's three-part name is now skin, not section), and it controls with which other stories a story is grouped (on which index page)'''. And the non-display aspects of sections -- mainly, the "section_extras" data which ensured that stories in Book Reviews stored a field for ISBN -- were sent over to nexuses.
** Each skin has precisely one nexus; you can think of a skin as drawing its stories from its nexus. The clever part is that a nexus is just a special kind of topic (which we call a topic_nexus when we want to emphasize that it is both). So if a story has both the Developers topic_nexus, and the Book Reviews topic_nexus, then it will appear on both books.slashdot.org and developers.slashdot.org. And the additional data stored with the story will include the union of all the "extras" data -- not only ISBN and so on, but also any "extras" data that may be in the Developers nexus. There don't actually happen to be any extras for Developers on Slashdot, so maybe this isn't the best example, but if there were, a story that was categorized into both nexuses would include that data too.

SlashGlossary

2014-02-28T22:16:19Z

50.45.173.59:

[[CssWork]] parent of this page

<h2>Glossary of terms used in slash code</h2>
These an be confusing if you are new to slash code. Try to keep these to one displayed line, this is not for full descriptions.

* '''theme''' - "A theme is a website design."
* '''template''' - html that is parsed by the Perl Template Toolkit. part of a theme
* '''D1''' - The orgiginal Slash interface
* '''D2''' - The new fancy interface that we have disabled on Soylent.
* '''tasks''' - periodic tasks run by slashd like cron jobs.
* '''tagboxes'''
* '''plugins''' -
* '''firehose''' - The Firehose is a collection of content from anywhere on the site that users can vote on and tag.

* '''skin''' - from 'sectiontopics' :
** So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. '''So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page)'''. And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.
** Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

SectionTopics

2014-02-28T22:05:37Z

50.45.173.59:

[[CssWork]] parent

<pre>
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

Authors are no longer restricted from choosing any topic with any story.
Since a nexus is a topic like any other, an author who wishes to make
sure a story shows up in the Apple skin can pick the Apple nexus
specifically. But what's more likely to happen is that an author will
pick topics that make sense for the story (like "Mac OS X") and that the
weights assigned to those topics will propagate upwards into the correct
nexus(es) where the story should appear.

Along the way, stories were given a numeric primary key (stoid), as were
skins. Don't worry, a story's sid still works just as it did before; no
Slash URLs are required to change, and in particular all the URLs (for
search.pl and index.pl) that had "section=" as a parameter still do.

WEIGHTS
Each topic picked for a story now must have a weight assigned to it.
Weights are floating-point non-negative numbers. The templates shipped
with the stock theme assume that authors will be assigning only the
weights 0, 10, 20, 30, 40, or 50, but the only weight value that the
core code treats specially is 0 (which means "ignore this topic"). How
positive weights affect the categorization of stories depends entirely
on the topic_parents table.

Even in the old system, topics could be arranged into a tree -- but to
properly represent section-specific topics one would have to layer
additional data on top of the tree, confusing matters somewhat. Now,
topics (including nexuses) really do form a tree, which is to say a
directed graph. All topic-related data is loaded into a $slashd object
at once, when getTopicTree is called.

One key difference between the old system and the new is that,
previously, a topic had at most one parent. Now, a topic may have zero
or more parents. This allows a topic of "Darwin" to be a child of both
"Apple" and "BSD," which conceptually means that it is a subcategory of
both, and which practically means that assigning "Darwin" a weight will
allow that weight to propagate up to both.

RENDERING
This process of weight-propagation occurs when chosen topics are
rendered. Each parent-child relationship from one topic to another
includes a minimum weight. For any given story, if topic T1 is assigned
weight W, and topic T2 is the parent of T1 with min_weight M, then T2
will also be assigned weight W for the story if, and only if, M <= W.

That assignment continues recursively (to topic T3, and so on) in a
process called "rendering" -- performed by renderTopics(). A story
author stores his or her topic/weight duples in the story_topics_chosen
table, and at story save time, these choices are rendered into a
(probably larger) collection of topic/weight duples that are stored in
the story_topics_rendered table.

(The above rule describes most of what is involved in the rendering
process. The other rules in the algorithm are that if multiple children
of differing weights both propagate up to the same parent, the greater
of those weights become the parent's; and that any topic's chosen
weight, including a weight of 0, always overrides any weight propagating
up from its children.)

Finally, when the collection of rendered topic/weight duples has been
fully formed, all topics with weight 0 are dropped. Weight 0 can exist
in chosen topics, but never in rendered topics.

A SIMPLE EXAMPLE
That may sound a bit complicated, so here's a description using the
default topics and topic_parents included with the default "slashcode"
theme:

tid 1: mainpage (also a nexus)
tid 3: opensource (also a nexus)
tid 4: slash
tid 7: linux

Tid 4 has tid 3 as a parent, with that relationship having a min_weight
of 10 associated with it.

Tid 7 also have tid 3 as a parent, with min_weight 10.

Tid 3 has tid 1 as a parent, with min_weight 30.

The skin at "http://example.com/" reads the nexus tid 1; the skin at
"http://opensource.example.com/" reads the nexus tid 3.

Suppose an editor is working on a story about Slash and assigns it the
topic "slash," tid 4, with weight 10. Weight 10 is described as
"Sectional only" in the code. When that story is saved, renderTopics
recursively propagates the weight of its topics, or in this case its
single topic, up to parents, or in this case parent. Rendering adds tid
3, also at weight 10. It does not add tid 1 since !(10 >= 30). The story
thus will appear only on "http://opensource.example.com/" and not
"http://example.com/".

Now suppose the editor re-edits the story, adding important information
about Linux. He or she at that point adds the Linux tid 7 with a weight
of 30. Now when it is saved, tid 1 is added since 30 >= 30. Now the
story will appear at both URLs.

Now suppose the editor is instructed that this story must be removed
from "http://opensource.example.com/", though it should stay on the main
page "http://example.com/". In the admin.pl editor, he or she adds tid 3
with weight 0. That by itself would remove both nexuses when the story
saves, since the 0 would prohibit both child tids from propagating
higher than tid 3 up to tid 1. Upon clicking Preview, the admin sees
that "This story will not appear" (see admin.pl
getDescForTopicsRendered()). So the admin also adds tid 1 -- any weight
greater than 0 would do, but weight of 30 makes the most sense since the
backend describes that as "Mainpageworthy." Once this story is saved,
its rows in story_topics_chosen are:

tid 1, weight 30
tid 3, weight 0
tid 4, weight 10
tid 7, weight 10

and its rows in story_topics_rendered are:

tid 1, weight 30
tid 4, weight 10
tid 7, weight 10

Note that, as far as almost all of the code is concerned, the weight
value in story_topics_rendered is irrelevant; only whether a row exists
or not is noted. (This is why weight of 0 never appears in that table.)

DISPLAY OPTIONS AND WEIGHTS
So how are these values of weights 10 and 30 decided, and what are 20
and 50 for?

Previously in Slash, there were three possible values for a story's
displaystatus: Never Display, Section-Only, and Always Display.
Section-Only meant to only display a story in its section's homepage,
not the site's main page, and Always Display meant to display a story
both places.

Now that a story may be part of more than one skin (the new term for
"section"), that distinction is not so simple. While the method
_displaystatus() will return an old-style displaystatus value for a
story, this is for reverse compatibility and is deprecated. The proper
question now takes two arguments instead of one: is a story to be
displayed _in_ a particular skin.

The answer to that question is very simple; if a row exists in
story_topics_rendered with the story's stoid and the topic's tid, then
yes; otherwise, no.

To prevent everything from breaking at once, and to keep the backend
story list looking much the same as it did before (white background for
Always Display, light gray for Section-Only, dark gray for Never
Display), the "mainpage skin" was created. Defined by the var
mainpage_skid [sic, a skid is a skin's numeric primary key], this
defines which skin a story must be in to be considered "Always Display."
It also defines which topic nexus will be colored blue instead of yellow
in admin.pl?op=topictree (you will need GraphViz installed to see this;
see plugins/Admin/README). Nevertheless, Slash is now well-equipped to
run a website which consists of many subsites, at different URLs,
perhaps only loosely networked and not necessarily with one central
"main" page.

multiple skins and how index.pl uses stories.primaryskid

skins.cookiedomain and the cookiedomain var

the Topiclist

the topic chooser

no admin.pl interface to edit topic tree yet, but op=topictree (and
GraphViz, see plugins/Admin/README)

suggestions for a clean topic tree (use min_weight 10 to connect
many/most topics to logical categorizations, which could/should be
nexuses, then connect those to mainpage with min_weight 30, finally
bring loose topics to mainpage with min_weight 30)

utils/convertDBto200406

and _suggest and how it can be used to advise on a better topic tree

and _render which needs to be run

VERSION
$Id$

[root@slashcode docs]#
[root@slashcode docs]# ls
boilerplates HOWTO-Themes.html sectiontopics.txt slashstyle.txt
dopods.plx HOWTO-Themes.pod slasherd.fig slashtables.html
formkeys.txt HOWTO-Themes.txt slasherd.pdf slashtables.pod
HOWTO-Plugins.html INSTALL.pod slasherd.ps slashtables.txt
HOWTO-Plugins.pod INSTALL.txt slashguide.html slashtags.html
HOWTO-Plugins.txt README.pod slashguide.pod slashtags.pod
HOWTO-Templates.html README.txt slashguide.txt slashtags.txt
HOWTO-Templates.pod sectiontopics.html slashstyle.html
HOWTO-Templates.txt sectiontopics.pod slashstyle.pod
[root@slashcode docs]# more sectiontopics.txt
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]# cat sectiontopics.txt
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

Authors are no longer restricted from choosing any topic with any story.
Since a nexus is a topic like any other, an author who wishes to make
sure a story shows up in the Apple skin can pick the Apple nexus
specifically. But what's more likely to happen is that an author will
pick topics that make sense for the story (like "Mac OS X") and that the
weights assigned to those topics will propagate upwards into the correct
nexus(es) where the story should appear.

Along the way, stories were given a numeric primary key (stoid), as were
skins. Don't worry, a story's sid still works just as it did before; no
Slash URLs are required to change, and in particular all the URLs (for
search.pl and index.pl) that had "section=" as a parameter still do.

WEIGHTS
Each topic picked for a story now must have a weight assigned to it.
Weights are floating-point non-negative numbers. The templates shipped
with the stock theme assume that authors will be assigning only the
weights 0, 10, 20, 30, 40, or 50, but the only weight value that the
core code treats specially is 0 (which means "ignore this topic"). How
positive weights affect the categorization of stories depends entirely
on the topic_parents table.

Even in the old system, topics could be arranged into a tree -- but to
properly represent section-specific topics one would have to layer
additional data on top of the tree, confusing matters somewhat. Now,
topics (including nexuses) really do form a tree, which is to say a
directed graph. All topic-related data is loaded into a $slashd object
at once, when getTopicTree is called.

One key difference between the old system and the new is that,
previously, a topic had at most one parent. Now, a topic may have zero
or more parents. This allows a topic of "Darwin" to be a child of both
"Apple" and "BSD," which conceptually means that it is a subcategory of
both, and which practically means that assigning "Darwin" a weight will
allow that weight to propagate up to both.

RENDERING
This process of weight-propagation occurs when chosen topics are
rendered. Each parent-child relationship from one topic to another
includes a minimum weight. For any given story, if topic T1 is assigned
weight W, and topic T2 is the parent of T1 with min_weight M, then T2
will also be assigned weight W for the story if, and only if, M <= W.

That assignment continues recursively (to topic T3, and so on) in a
process called "rendering" -- performed by renderTopics(). A story
author stores his or her topic/weight duples in the story_topics_chosen
table, and at story save time, these choices are rendered into a
(probably larger) collection of topic/weight duples that are stored in
the story_topics_rendered table.

(The above rule describes most of what is involved in the rendering
process. The other rules in the algorithm are that if multiple children
of differing weights both propagate up to the same parent, the greater
of those weights become the parent's; and that any topic's chosen
weight, including a weight of 0, always overrides any weight propagating
up from its children.)

Finally, when the collection of rendered topic/weight duples has been
fully formed, all topics with weight 0 are dropped. Weight 0 can exist
in chosen topics, but never in rendered topics.

A SIMPLE EXAMPLE
That may sound a bit complicated, so here's a description using the
default topics and topic_parents included with the default "slashcode"
theme:

tid 1: mainpage (also a nexus)
tid 3: opensource (also a nexus)
tid 4: slash
tid 7: linux

Tid 4 has tid 3 as a parent, with that relationship having a min_weight
of 10 associated with it.

Tid 7 also have tid 3 as a parent, with min_weight 10.

Tid 3 has tid 1 as a parent, with min_weight 30.

The skin at "http://example.com/" reads the nexus tid 1; the skin at
"http://opensource.example.com/" reads the nexus tid 3.

Suppose an editor is working on a story about Slash and assigns it the
topic "slash," tid 4, with weight 10. Weight 10 is described as
"Sectional only" in the code. When that story is saved, renderTopics
recursively propagates the weight of its topics, or in this case its
single topic, up to parents, or in this case parent. Rendering adds tid
3, also at weight 10. It does not add tid 1 since !(10 >= 30). The story
thus will appear only on "http://opensource.example.com/" and not
"http://example.com/".

Now suppose the editor re-edits the story, adding important information
about Linux. He or she at that point adds the Linux tid 7 with a weight
of 30. Now when it is saved, tid 1 is added since 30 >= 30. Now the
story will appear at both URLs.

Now suppose the editor is instructed that this story must be removed
from "http://opensource.example.com/", though it should stay on the main
page "http://example.com/". In the admin.pl editor, he or she adds tid 3
with weight 0. That by itself would remove both nexuses when the story
saves, since the 0 would prohibit both child tids from propagating
higher than tid 3 up to tid 1. Upon clicking Preview, the admin sees
that "This story will not appear" (see admin.pl
getDescForTopicsRendered()). So the admin also adds tid 1 -- any weight
greater than 0 would do, but weight of 30 makes the most sense since the
backend describes that as "Mainpageworthy." Once this story is saved,
its rows in story_topics_chosen are:

tid 1, weight 30
tid 3, weight 0
tid 4, weight 10
tid 7, weight 10

and its rows in story_topics_rendered are:

tid 1, weight 30
tid 4, weight 10
tid 7, weight 10

Note that, as far as almost all of the code is concerned, the weight
value in story_topics_rendered is irrelevant; only whether a row exists
or not is noted. (This is why weight of 0 never appears in that table.)

DISPLAY OPTIONS AND WEIGHTS
So how are these values of weights 10 and 30 decided, and what are 20
and 50 for?

Previously in Slash, there were three possible values for a story's
displaystatus: Never Display, Section-Only, and Always Display.
Section-Only meant to only display a story in its section's homepage,
not the site's main page, and Always Display meant to display a story
both places.

Now that a story may be part of more than one skin (the new term for
"section"), that distinction is not so simple. While the method
_displaystatus() will return an old-style displaystatus value for a
story, this is for reverse compatibility and is deprecated. The proper
question now takes two arguments instead of one: is a story to be
displayed _in_ a particular skin.

The answer to that question is very simple; if a row exists in
story_topics_rendered with the story's stoid and the topic's tid, then
yes; otherwise, no.

To prevent everything from breaking at once, and to keep the backend
story list looking much the same as it did before (white background for
Always Display, light gray for Section-Only, dark gray for Never
Display), the "mainpage skin" was created. Defined by the var
mainpage_skid [sic, a skid is a skin's numeric primary key], this
defines which skin a story must be in to be considered "Always Display."
It also defines which topic nexus will be colored blue instead of yellow
in admin.pl?op=topictree (you will need GraphViz installed to see this;
see plugins/Admin/README). Nevertheless, Slash is now well-equipped to
run a website which consists of many subsites, at different URLs,
perhaps only loosely networked and not necessarily with one central
"main" page.

multiple skins and how index.pl uses stories.primaryskid

skins.cookiedomain and the cookiedomain var

the Topiclist

the topic chooser

no admin.pl interface to edit topic tree yet, but op=topictree (and
GraphViz, see plugins/Admin/README)

suggestions for a clean topic tree (use min_weight 10 to connect
many/most topics to logical categorizations, which could/should be
nexuses, then connect those to mainpage with min_weight 30, finally
bring loose topics to mainpage with min_weight 30)

utils/convertDBto200406

and _suggest and how it can be used to advise on a better topic tree

and _render which needs to be run
</pre>

SectionTopics

2014-02-28T21:56:30Z

50.45.173.59:

<pre>
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

Authors are no longer restricted from choosing any topic with any story.
Since a nexus is a topic like any other, an author who wishes to make
sure a story shows up in the Apple skin can pick the Apple nexus
specifically. But what's more likely to happen is that an author will
pick topics that make sense for the story (like "Mac OS X") and that the
weights assigned to those topics will propagate upwards into the correct
nexus(es) where the story should appear.

Along the way, stories were given a numeric primary key (stoid), as were
skins. Don't worry, a story's sid still works just as it did before; no
Slash URLs are required to change, and in particular all the URLs (for
search.pl and index.pl) that had "section=" as a parameter still do.

WEIGHTS
Each topic picked for a story now must have a weight assigned to it.
Weights are floating-point non-negative numbers. The templates shipped
with the stock theme assume that authors will be assigning only the
weights 0, 10, 20, 30, 40, or 50, but the only weight value that the
core code treats specially is 0 (which means "ignore this topic"). How
positive weights affect the categorization of stories depends entirely
on the topic_parents table.

Even in the old system, topics could be arranged into a tree -- but to
properly represent section-specific topics one would have to layer
additional data on top of the tree, confusing matters somewhat. Now,
topics (including nexuses) really do form a tree, which is to say a
directed graph. All topic-related data is loaded into a $slashd object
at once, when getTopicTree is called.

One key difference between the old system and the new is that,
previously, a topic had at most one parent. Now, a topic may have zero
or more parents. This allows a topic of "Darwin" to be a child of both
"Apple" and "BSD," which conceptually means that it is a subcategory of
both, and which practically means that assigning "Darwin" a weight will
allow that weight to propagate up to both.

RENDERING
This process of weight-propagation occurs when chosen topics are
rendered. Each parent-child relationship from one topic to another
includes a minimum weight. For any given story, if topic T1 is assigned
weight W, and topic T2 is the parent of T1 with min_weight M, then T2
will also be assigned weight W for the story if, and only if, M <= W.

That assignment continues recursively (to topic T3, and so on) in a
process called "rendering" -- performed by renderTopics(). A story
author stores his or her topic/weight duples in the story_topics_chosen
table, and at story save time, these choices are rendered into a
(probably larger) collection of topic/weight duples that are stored in
the story_topics_rendered table.

(The above rule describes most of what is involved in the rendering
process. The other rules in the algorithm are that if multiple children
of differing weights both propagate up to the same parent, the greater
of those weights become the parent's; and that any topic's chosen
weight, including a weight of 0, always overrides any weight propagating
up from its children.)

Finally, when the collection of rendered topic/weight duples has been
fully formed, all topics with weight 0 are dropped. Weight 0 can exist
in chosen topics, but never in rendered topics.

A SIMPLE EXAMPLE
That may sound a bit complicated, so here's a description using the
default topics and topic_parents included with the default "slashcode"
theme:

tid 1: mainpage (also a nexus)
tid 3: opensource (also a nexus)
tid 4: slash
tid 7: linux

Tid 4 has tid 3 as a parent, with that relationship having a min_weight
of 10 associated with it.

Tid 7 also have tid 3 as a parent, with min_weight 10.

Tid 3 has tid 1 as a parent, with min_weight 30.

The skin at "http://example.com/" reads the nexus tid 1; the skin at
"http://opensource.example.com/" reads the nexus tid 3.

Suppose an editor is working on a story about Slash and assigns it the
topic "slash," tid 4, with weight 10. Weight 10 is described as
"Sectional only" in the code. When that story is saved, renderTopics
recursively propagates the weight of its topics, or in this case its
single topic, up to parents, or in this case parent. Rendering adds tid
3, also at weight 10. It does not add tid 1 since !(10 >= 30). The story
thus will appear only on "http://opensource.example.com/" and not
"http://example.com/".

Now suppose the editor re-edits the story, adding important information
about Linux. He or she at that point adds the Linux tid 7 with a weight
of 30. Now when it is saved, tid 1 is added since 30 >= 30. Now the
story will appear at both URLs.

Now suppose the editor is instructed that this story must be removed
from "http://opensource.example.com/", though it should stay on the main
page "http://example.com/". In the admin.pl editor, he or she adds tid 3
with weight 0. That by itself would remove both nexuses when the story
saves, since the 0 would prohibit both child tids from propagating
higher than tid 3 up to tid 1. Upon clicking Preview, the admin sees
that "This story will not appear" (see admin.pl
getDescForTopicsRendered()). So the admin also adds tid 1 -- any weight
greater than 0 would do, but weight of 30 makes the most sense since the
backend describes that as "Mainpageworthy." Once this story is saved,
its rows in story_topics_chosen are:

tid 1, weight 30
tid 3, weight 0
tid 4, weight 10
tid 7, weight 10

and its rows in story_topics_rendered are:

tid 1, weight 30
tid 4, weight 10
tid 7, weight 10

Note that, as far as almost all of the code is concerned, the weight
value in story_topics_rendered is irrelevant; only whether a row exists
or not is noted. (This is why weight of 0 never appears in that table.)

DISPLAY OPTIONS AND WEIGHTS
So how are these values of weights 10 and 30 decided, and what are 20
and 50 for?

Previously in Slash, there were three possible values for a story's
displaystatus: Never Display, Section-Only, and Always Display.
Section-Only meant to only display a story in its section's homepage,
not the site's main page, and Always Display meant to display a story
both places.

Now that a story may be part of more than one skin (the new term for
"section"), that distinction is not so simple. While the method
_displaystatus() will return an old-style displaystatus value for a
story, this is for reverse compatibility and is deprecated. The proper
question now takes two arguments instead of one: is a story to be
displayed _in_ a particular skin.

The answer to that question is very simple; if a row exists in
story_topics_rendered with the story's stoid and the topic's tid, then
yes; otherwise, no.

To prevent everything from breaking at once, and to keep the backend
story list looking much the same as it did before (white background for
Always Display, light gray for Section-Only, dark gray for Never
Display), the "mainpage skin" was created. Defined by the var
mainpage_skid [sic, a skid is a skin's numeric primary key], this
defines which skin a story must be in to be considered "Always Display."
It also defines which topic nexus will be colored blue instead of yellow
in admin.pl?op=topictree (you will need GraphViz installed to see this;
see plugins/Admin/README). Nevertheless, Slash is now well-equipped to
run a website which consists of many subsites, at different URLs,
perhaps only loosely networked and not necessarily with one central
"main" page.

multiple skins and how index.pl uses stories.primaryskid

skins.cookiedomain and the cookiedomain var

the Topiclist

the topic chooser

no admin.pl interface to edit topic tree yet, but op=topictree (and
GraphViz, see plugins/Admin/README)

suggestions for a clean topic tree (use min_weight 10 to connect
many/most topics to logical categorizations, which could/should be
nexuses, then connect those to mainpage with min_weight 30, finally
bring loose topics to mainpage with min_weight 30)

utils/convertDBto200406

and _suggest and how it can be used to advise on a better topic tree

and _render which needs to be run

VERSION
$Id$

[root@slashcode docs]#
[root@slashcode docs]# ls
boilerplates HOWTO-Themes.html sectiontopics.txt slashstyle.txt
dopods.plx HOWTO-Themes.pod slasherd.fig slashtables.html
formkeys.txt HOWTO-Themes.txt slasherd.pdf slashtables.pod
HOWTO-Plugins.html INSTALL.pod slasherd.ps slashtables.txt
HOWTO-Plugins.pod INSTALL.txt slashguide.html slashtags.html
HOWTO-Plugins.txt README.pod slashguide.pod slashtags.pod
HOWTO-Templates.html README.txt slashguide.txt slashtags.txt
HOWTO-Templates.pod sectiontopics.html slashstyle.html
HOWTO-Templates.txt sectiontopics.pod slashstyle.pod
[root@slashcode docs]# more sectiontopics.txt
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]# cat sectiontopics.txt
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

Authors are no longer restricted from choosing any topic with any story.
Since a nexus is a topic like any other, an author who wishes to make
sure a story shows up in the Apple skin can pick the Apple nexus
specifically. But what's more likely to happen is that an author will
pick topics that make sense for the story (like "Mac OS X") and that the
weights assigned to those topics will propagate upwards into the correct
nexus(es) where the story should appear.

Along the way, stories were given a numeric primary key (stoid), as were
skins. Don't worry, a story's sid still works just as it did before; no
Slash URLs are required to change, and in particular all the URLs (for
search.pl and index.pl) that had "section=" as a parameter still do.

WEIGHTS
Each topic picked for a story now must have a weight assigned to it.
Weights are floating-point non-negative numbers. The templates shipped
with the stock theme assume that authors will be assigning only the
weights 0, 10, 20, 30, 40, or 50, but the only weight value that the
core code treats specially is 0 (which means "ignore this topic"). How
positive weights affect the categorization of stories depends entirely
on the topic_parents table.

Even in the old system, topics could be arranged into a tree -- but to
properly represent section-specific topics one would have to layer
additional data on top of the tree, confusing matters somewhat. Now,
topics (including nexuses) really do form a tree, which is to say a
directed graph. All topic-related data is loaded into a $slashd object
at once, when getTopicTree is called.

One key difference between the old system and the new is that,
previously, a topic had at most one parent. Now, a topic may have zero
or more parents. This allows a topic of "Darwin" to be a child of both
"Apple" and "BSD," which conceptually means that it is a subcategory of
both, and which practically means that assigning "Darwin" a weight will
allow that weight to propagate up to both.

RENDERING
This process of weight-propagation occurs when chosen topics are
rendered. Each parent-child relationship from one topic to another
includes a minimum weight. For any given story, if topic T1 is assigned
weight W, and topic T2 is the parent of T1 with min_weight M, then T2
will also be assigned weight W for the story if, and only if, M <= W.

That assignment continues recursively (to topic T3, and so on) in a
process called "rendering" -- performed by renderTopics(). A story
author stores his or her topic/weight duples in the story_topics_chosen
table, and at story save time, these choices are rendered into a
(probably larger) collection of topic/weight duples that are stored in
the story_topics_rendered table.

(The above rule describes most of what is involved in the rendering
process. The other rules in the algorithm are that if multiple children
of differing weights both propagate up to the same parent, the greater
of those weights become the parent's; and that any topic's chosen
weight, including a weight of 0, always overrides any weight propagating
up from its children.)

Finally, when the collection of rendered topic/weight duples has been
fully formed, all topics with weight 0 are dropped. Weight 0 can exist
in chosen topics, but never in rendered topics.

A SIMPLE EXAMPLE
That may sound a bit complicated, so here's a description using the
default topics and topic_parents included with the default "slashcode"
theme:

tid 1: mainpage (also a nexus)
tid 3: opensource (also a nexus)
tid 4: slash
tid 7: linux

Tid 4 has tid 3 as a parent, with that relationship having a min_weight
of 10 associated with it.

Tid 7 also have tid 3 as a parent, with min_weight 10.

Tid 3 has tid 1 as a parent, with min_weight 30.

The skin at "http://example.com/" reads the nexus tid 1; the skin at
"http://opensource.example.com/" reads the nexus tid 3.

Suppose an editor is working on a story about Slash and assigns it the
topic "slash," tid 4, with weight 10. Weight 10 is described as
"Sectional only" in the code. When that story is saved, renderTopics
recursively propagates the weight of its topics, or in this case its
single topic, up to parents, or in this case parent. Rendering adds tid
3, also at weight 10. It does not add tid 1 since !(10 >= 30). The story
thus will appear only on "http://opensource.example.com/" and not
"http://example.com/".

Now suppose the editor re-edits the story, adding important information
about Linux. He or she at that point adds the Linux tid 7 with a weight
of 30. Now when it is saved, tid 1 is added since 30 >= 30. Now the
story will appear at both URLs.

Now suppose the editor is instructed that this story must be removed
from "http://opensource.example.com/", though it should stay on the main
page "http://example.com/". In the admin.pl editor, he or she adds tid 3
with weight 0. That by itself would remove both nexuses when the story
saves, since the 0 would prohibit both child tids from propagating
higher than tid 3 up to tid 1. Upon clicking Preview, the admin sees
that "This story will not appear" (see admin.pl
getDescForTopicsRendered()). So the admin also adds tid 1 -- any weight
greater than 0 would do, but weight of 30 makes the most sense since the
backend describes that as "Mainpageworthy." Once this story is saved,
its rows in story_topics_chosen are:

tid 1, weight 30
tid 3, weight 0
tid 4, weight 10
tid 7, weight 10

and its rows in story_topics_rendered are:

tid 1, weight 30
tid 4, weight 10
tid 7, weight 10

Note that, as far as almost all of the code is concerned, the weight
value in story_topics_rendered is irrelevant; only whether a row exists
or not is noted. (This is why weight of 0 never appears in that table.)

DISPLAY OPTIONS AND WEIGHTS
So how are these values of weights 10 and 30 decided, and what are 20
and 50 for?

Previously in Slash, there were three possible values for a story's
displaystatus: Never Display, Section-Only, and Always Display.
Section-Only meant to only display a story in its section's homepage,
not the site's main page, and Always Display meant to display a story
both places.

Now that a story may be part of more than one skin (the new term for
"section"), that distinction is not so simple. While the method
_displaystatus() will return an old-style displaystatus value for a
story, this is for reverse compatibility and is deprecated. The proper
question now takes two arguments instead of one: is a story to be
displayed _in_ a particular skin.

The answer to that question is very simple; if a row exists in
story_topics_rendered with the story's stoid and the topic's tid, then
yes; otherwise, no.

To prevent everything from breaking at once, and to keep the backend
story list looking much the same as it did before (white background for
Always Display, light gray for Section-Only, dark gray for Never
Display), the "mainpage skin" was created. Defined by the var
mainpage_skid [sic, a skid is a skin's numeric primary key], this
defines which skin a story must be in to be considered "Always Display."
It also defines which topic nexus will be colored blue instead of yellow
in admin.pl?op=topictree (you will need GraphViz installed to see this;
see plugins/Admin/README). Nevertheless, Slash is now well-equipped to
run a website which consists of many subsites, at different URLs,
perhaps only loosely networked and not necessarily with one central
"main" page.

multiple skins and how index.pl uses stories.primaryskid

skins.cookiedomain and the cookiedomain var

the Topiclist

the topic chooser

no admin.pl interface to edit topic tree yet, but op=topictree (and
GraphViz, see plugins/Admin/README)

suggestions for a clean topic tree (use min_weight 10 to connect
many/most topics to logical categorizations, which could/should be
nexuses, then connect those to mainpage with min_weight 30, finally
bring loose topics to mainpage with min_weight 30)

utils/convertDBto200406

and _suggest and how it can be used to advise on a better topic tree

and _render which needs to be run
</pre>

SectionTopics

2014-02-28T21:55:07Z

50.45.173.59: Created page with " NAME sectiontopics - Information about the section-topics rewrite, June 2004 DESCRIPTION In June 2004, the way Slash handles categorization of stories into topic..."

NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

Authors are no longer restricted from choosing any topic with any story.
Since a nexus is a topic like any other, an author who wishes to make
sure a story shows up in the Apple skin can pick the Apple nexus
specifically. But what's more likely to happen is that an author will
pick topics that make sense for the story (like "Mac OS X") and that the
weights assigned to those topics will propagate upwards into the correct
nexus(es) where the story should appear.

Along the way, stories were given a numeric primary key (stoid), as were
skins. Don't worry, a story's sid still works just as it did before; no
Slash URLs are required to change, and in particular all the URLs (for
search.pl and index.pl) that had "section=" as a parameter still do.

WEIGHTS
Each topic picked for a story now must have a weight assigned to it.
Weights are floating-point non-negative numbers. The templates shipped
with the stock theme assume that authors will be assigning only the
weights 0, 10, 20, 30, 40, or 50, but the only weight value that the
core code treats specially is 0 (which means "ignore this topic"). How
positive weights affect the categorization of stories depends entirely
on the topic_parents table.

Even in the old system, topics could be arranged into a tree -- but to
properly represent section-specific topics one would have to layer
additional data on top of the tree, confusing matters somewhat. Now,
topics (including nexuses) really do form a tree, which is to say a
directed graph. All topic-related data is loaded into a $slashd object
at once, when getTopicTree is called.

One key difference between the old system and the new is that,
previously, a topic had at most one parent. Now, a topic may have zero
or more parents. This allows a topic of "Darwin" to be a child of both
"Apple" and "BSD," which conceptually means that it is a subcategory of
both, and which practically means that assigning "Darwin" a weight will
allow that weight to propagate up to both.

RENDERING
This process of weight-propagation occurs when chosen topics are
rendered. Each parent-child relationship from one topic to another
includes a minimum weight. For any given story, if topic T1 is assigned
weight W, and topic T2 is the parent of T1 with min_weight M, then T2
will also be assigned weight W for the story if, and only if, M <= W.

That assignment continues recursively (to topic T3, and so on) in a
process called "rendering" -- performed by renderTopics(). A story
author stores his or her topic/weight duples in the story_topics_chosen
table, and at story save time, these choices are rendered into a
(probably larger) collection of topic/weight duples that are stored in
the story_topics_rendered table.

(The above rule describes most of what is involved in the rendering
process. The other rules in the algorithm are that if multiple children
of differing weights both propagate up to the same parent, the greater
of those weights become the parent's; and that any topic's chosen
weight, including a weight of 0, always overrides any weight propagating
up from its children.)

Finally, when the collection of rendered topic/weight duples has been
fully formed, all topics with weight 0 are dropped. Weight 0 can exist
in chosen topics, but never in rendered topics.

A SIMPLE EXAMPLE
That may sound a bit complicated, so here's a description using the
default topics and topic_parents included with the default "slashcode"
theme:

tid 1: mainpage (also a nexus)
tid 3: opensource (also a nexus)
tid 4: slash
tid 7: linux

Tid 4 has tid 3 as a parent, with that relationship having a min_weight
of 10 associated with it.

Tid 7 also have tid 3 as a parent, with min_weight 10.

Tid 3 has tid 1 as a parent, with min_weight 30.

The skin at "http://example.com/" reads the nexus tid 1; the skin at
"http://opensource.example.com/" reads the nexus tid 3.

Suppose an editor is working on a story about Slash and assigns it the
topic "slash," tid 4, with weight 10. Weight 10 is described as
"Sectional only" in the code. When that story is saved, renderTopics
recursively propagates the weight of its topics, or in this case its
single topic, up to parents, or in this case parent. Rendering adds tid
3, also at weight 10. It does not add tid 1 since !(10 >= 30). The story
thus will appear only on "http://opensource.example.com/" and not
"http://example.com/".

Now suppose the editor re-edits the story, adding important information
about Linux. He or she at that point adds the Linux tid 7 with a weight
of 30. Now when it is saved, tid 1 is added since 30 >= 30. Now the
story will appear at both URLs.

Now suppose the editor is instructed that this story must be removed
from "http://opensource.example.com/", though it should stay on the main
page "http://example.com/". In the admin.pl editor, he or she adds tid 3
with weight 0. That by itself would remove both nexuses when the story
saves, since the 0 would prohibit both child tids from propagating
higher than tid 3 up to tid 1. Upon clicking Preview, the admin sees
that "This story will not appear" (see admin.pl
getDescForTopicsRendered()). So the admin also adds tid 1 -- any weight
greater than 0 would do, but weight of 30 makes the most sense since the
backend describes that as "Mainpageworthy." Once this story is saved,
its rows in story_topics_chosen are:

tid 1, weight 30
tid 3, weight 0
tid 4, weight 10
tid 7, weight 10

and its rows in story_topics_rendered are:

tid 1, weight 30
tid 4, weight 10
tid 7, weight 10

Note that, as far as almost all of the code is concerned, the weight
value in story_topics_rendered is irrelevant; only whether a row exists
or not is noted. (This is why weight of 0 never appears in that table.)

DISPLAY OPTIONS AND WEIGHTS
So how are these values of weights 10 and 30 decided, and what are 20
and 50 for?

Previously in Slash, there were three possible values for a story's
displaystatus: Never Display, Section-Only, and Always Display.
Section-Only meant to only display a story in its section's homepage,
not the site's main page, and Always Display meant to display a story
both places.

Now that a story may be part of more than one skin (the new term for
"section"), that distinction is not so simple. While the method
_displaystatus() will return an old-style displaystatus value for a
story, this is for reverse compatibility and is deprecated. The proper
question now takes two arguments instead of one: is a story to be
displayed _in_ a particular skin.

The answer to that question is very simple; if a row exists in
story_topics_rendered with the story's stoid and the topic's tid, then
yes; otherwise, no.

To prevent everything from breaking at once, and to keep the backend
story list looking much the same as it did before (white background for
Always Display, light gray for Section-Only, dark gray for Never
Display), the "mainpage skin" was created. Defined by the var
mainpage_skid [sic, a skid is a skin's numeric primary key], this
defines which skin a story must be in to be considered "Always Display."
It also defines which topic nexus will be colored blue instead of yellow
in admin.pl?op=topictree (you will need GraphViz installed to see this;
see plugins/Admin/README). Nevertheless, Slash is now well-equipped to
run a website which consists of many subsites, at different URLs,
perhaps only loosely networked and not necessarily with one central
"main" page.

multiple skins and how index.pl uses stories.primaryskid

skins.cookiedomain and the cookiedomain var

the Topiclist

the topic chooser

no admin.pl interface to edit topic tree yet, but op=topictree (and
GraphViz, see plugins/Admin/README)

suggestions for a clean topic tree (use min_weight 10 to connect
many/most topics to logical categorizations, which could/should be
nexuses, then connect those to mainpage with min_weight 30, finally
bring loose topics to mainpage with min_weight 30)

utils/convertDBto200406

and _suggest and how it can be used to advise on a better topic tree

and _render which needs to be run

VERSION
$Id$

[root@slashcode docs]#
[root@slashcode docs]# ls
boilerplates HOWTO-Themes.html sectiontopics.txt slashstyle.txt
dopods.plx HOWTO-Themes.pod slasherd.fig slashtables.html
formkeys.txt HOWTO-Themes.txt slasherd.pdf slashtables.pod
HOWTO-Plugins.html INSTALL.pod slasherd.ps slashtables.txt
HOWTO-Plugins.pod INSTALL.txt slashguide.html slashtags.html
HOWTO-Plugins.txt README.pod slashguide.pod slashtags.pod
HOWTO-Templates.html README.txt slashguide.txt slashtags.txt
HOWTO-Templates.pod sectiontopics.html slashstyle.html
HOWTO-Templates.txt sectiontopics.pod slashstyle.pod
[root@slashcode docs]# more sectiontopics.txt
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]#
[root@slashcode docs]# cat sectiontopics.txt
NAME
sectiontopics - Information about the section-topics rewrite, June 2004

DESCRIPTION
In June 2004, the way Slash handles categorization of stories into
topics was changed. The confusing relationship between topics, sections,
and subsections, which limited choices, was bolted on to the old system
as our needs evolved.

The "section-topics" rewrite, as it's being called, took a look at those
needs with the perspective of hindsight, and developed a new system
which will be less confusing in the long run. It provides the
flexibility that large sites' admins will need, while still retaining
ease of use for smaller sites' admins.

This document attempts to explain the changes for Slash administrators,
and it may be informative reading for Slash authors and editors too.

CONCEPTS
I'm not going to bother explaining exactly how the old system worked,
because it's dead now. Suffice it to say that every story had one
section and one or more topics, those being two distinct and disjoint
categorizations. Subsections were invented to allow finer-grained
control than what sections permitted, and there were ways to constrain
certain topics to only being available in certain sections.

The "section" data type was always confused about whether it wanted to
be a categorization and descriptor, or a visual display modifier. In
other words, regarding an object that it was assigned to like a story,
"section" implied facts about both its data and how it should be viewed.
Being in the "Book Reviews" section on Slashdot, for example, implied
that additional data like ISBN would be stored along with the rest of
the story's data. Being in the "Developers" section meant that it would
be grouped with other developer-related stories and that it would appear
blue instead of green. If a story was a book review for developers,
there was no way to put it in both places; having that blue color meant
that no ISBN data could be stored.

So "section" has been split into two: "skin" and "nexus". *Most* of the
information that went with a section was used to describe appearances,
and that went over to skin. So a skin now controls color (through the
skin_colors table), it controls which templates are used (the final part
of a template's three-part name is now skin, not section), and it
controls with which other stories a story is grouped (on which index
page). And the non-display aspects of sections -- mainly, the
"section_extras" data which ensured that stories in Book Reviews stored
a field for ISBN -- were sent over to nexuses.

Each skin has precisely one nexus; you can think of a skin as drawing
its stories from its nexus. The clever part is that a nexus is just a
special kind of topic (which we call a topic_nexus when we want to
emphasize that it is both). So if a story has both the Developers
topic_nexus, and the Book Reviews topic_nexus, then it will appear on
both books.slashdot.org and developers.slashdot.org. And the additional
data stored with the story will include the union of all the "extras"
data -- not only ISBN and so on, but also any "extras" data that may be
in the Developers nexus. There don't actually happen to be any extras
for Developers on Slashdot, so maybe this isn't the best example, but if
there were, a story that was categorized into both nexuses would include
that data too.

Authors are no longer restricted from choosing any topic with any story.
Since a nexus is a topic like any other, an author who wishes to make
sure a story shows up in the Apple skin can pick the Apple nexus
specifically. But what's more likely to happen is that an author will
pick topics that make sense for the story (like "Mac OS X") and that the
weights assigned to those topics will propagate upwards into the correct
nexus(es) where the story should appear.

Along the way, stories were given a numeric primary key (stoid), as were
skins. Don't worry, a story's sid still works just as it did before; no
Slash URLs are required to change, and in particular all the URLs (for
search.pl and index.pl) that had "section=" as a parameter still do.

WEIGHTS
Each topic picked for a story now must have a weight assigned to it.
Weights are floating-point non-negative numbers. The templates shipped
with the stock theme assume that authors will be assigning only the
weights 0, 10, 20, 30, 40, or 50, but the only weight value that the
core code treats specially is 0 (which means "ignore this topic"). How
positive weights affect the categorization of stories depends entirely
on the topic_parents table.

Even in the old system, topics could be arranged into a tree -- but to
properly represent section-specific topics one would have to layer
additional data on top of the tree, confusing matters somewhat. Now,
topics (including nexuses) really do form a tree, which is to say a
directed graph. All topic-related data is loaded into a $slashd object
at once, when getTopicTree is called.

One key difference between the old system and the new is that,
previously, a topic had at most one parent. Now, a topic may have zero
or more parents. This allows a topic of "Darwin" to be a child of both
"Apple" and "BSD," which conceptually means that it is a subcategory of
both, and which practically means that assigning "Darwin" a weight will
allow that weight to propagate up to both.

RENDERING
This process of weight-propagation occurs when chosen topics are
rendered. Each parent-child relationship from one topic to another
includes a minimum weight. For any given story, if topic T1 is assigned
weight W, and topic T2 is the parent of T1 with min_weight M, then T2
will also be assigned weight W for the story if, and only if, M <= W.

That assignment continues recursively (to topic T3, and so on) in a
process called "rendering" -- performed by renderTopics(). A story
author stores his or her topic/weight duples in the story_topics_chosen
table, and at story save time, these choices are rendered into a
(probably larger) collection of topic/weight duples that are stored in
the story_topics_rendered table.

(The above rule describes most of what is involved in the rendering
process. The other rules in the algorithm are that if multiple children
of differing weights both propagate up to the same parent, the greater
of those weights become the parent's; and that any topic's chosen
weight, including a weight of 0, always overrides any weight propagating
up from its children.)

Finally, when the collection of rendered topic/weight duples has been
fully formed, all topics with weight 0 are dropped. Weight 0 can exist
in chosen topics, but never in rendered topics.

A SIMPLE EXAMPLE
That may sound a bit complicated, so here's a description using the
default topics and topic_parents included with the default "slashcode"
theme:

tid 1: mainpage (also a nexus)
tid 3: opensource (also a nexus)
tid 4: slash
tid 7: linux

Tid 4 has tid 3 as a parent, with that relationship having a min_weight
of 10 associated with it.

Tid 7 also have tid 3 as a parent, with min_weight 10.

Tid 3 has tid 1 as a parent, with min_weight 30.

The skin at "http://example.com/" reads the nexus tid 1; the skin at
"http://opensource.example.com/" reads the nexus tid 3.

Suppose an editor is working on a story about Slash and assigns it the
topic "slash," tid 4, with weight 10. Weight 10 is described as
"Sectional only" in the code. When that story is saved, renderTopics
recursively propagates the weight of its topics, or in this case its
single topic, up to parents, or in this case parent. Rendering adds tid
3, also at weight 10. It does not add tid 1 since !(10 >= 30). The story
thus will appear only on "http://opensource.example.com/" and not
"http://example.com/".

Now suppose the editor re-edits the story, adding important information
about Linux. He or she at that point adds the Linux tid 7 with a weight
of 30. Now when it is saved, tid 1 is added since 30 >= 30. Now the
story will appear at both URLs.

Now suppose the editor is instructed that this story must be removed
from "http://opensource.example.com/", though it should stay on the main
page "http://example.com/". In the admin.pl editor, he or she adds tid 3
with weight 0. That by itself would remove both nexuses when the story
saves, since the 0 would prohibit both child tids from propagating
higher than tid 3 up to tid 1. Upon clicking Preview, the admin sees
that "This story will not appear" (see admin.pl
getDescForTopicsRendered()). So the admin also adds tid 1 -- any weight
greater than 0 would do, but weight of 30 makes the most sense since the
backend describes that as "Mainpageworthy." Once this story is saved,
its rows in story_topics_chosen are:

tid 1, weight 30
tid 3, weight 0
tid 4, weight 10
tid 7, weight 10

and its rows in story_topics_rendered are:

tid 1, weight 30
tid 4, weight 10
tid 7, weight 10

Note that, as far as almost all of the code is concerned, the weight
value in story_topics_rendered is irrelevant; only whether a row exists
or not is noted. (This is why weight of 0 never appears in that table.)

DISPLAY OPTIONS AND WEIGHTS
So how are these values of weights 10 and 30 decided, and what are 20
and 50 for?

Previously in Slash, there were three possible values for a story's
displaystatus: Never Display, Section-Only, and Always Display.
Section-Only meant to only display a story in its section's homepage,
not the site's main page, and Always Display meant to display a story
both places.

Now that a story may be part of more than one skin (the new term for
"section"), that distinction is not so simple. While the method
_displaystatus() will return an old-style displaystatus value for a
story, this is for reverse compatibility and is deprecated. The proper
question now takes two arguments instead of one: is a story to be
displayed _in_ a particular skin.

The answer to that question is very simple; if a row exists in
story_topics_rendered with the story's stoid and the topic's tid, then
yes; otherwise, no.

To prevent everything from breaking at once, and to keep the backend
story list looking much the same as it did before (white background for
Always Display, light gray for Section-Only, dark gray for Never
Display), the "mainpage skin" was created. Defined by the var
mainpage_skid [sic, a skid is a skin's numeric primary key], this
defines which skin a story must be in to be considered "Always Display."
It also defines which topic nexus will be colored blue instead of yellow
in admin.pl?op=topictree (you will need GraphViz installed to see this;
see plugins/Admin/README). Nevertheless, Slash is now well-equipped to
run a website which consists of many subsites, at different URLs,
perhaps only loosely networked and not necessarily with one central
"main" page.

multiple skins and how index.pl uses stories.primaryskid

skins.cookiedomain and the cookiedomain var

the Topiclist

the topic chooser

no admin.pl interface to edit topic tree yet, but op=topictree (and
GraphViz, see plugins/Admin/README)

suggestions for a clean topic tree (use min_weight 10 to connect
many/most topics to logical categorizations, which could/should be
nexuses, then connect those to mainpage with min_weight 30, finally
bring loose topics to mainpage with min_weight 30)

utils/convertDBto200406

and _suggest and how it can be used to advise on a better topic tree

and _render which needs to be run

Historic:CssWork

2014-02-28T21:49:26Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SectionTopics]] - This is the 'new' sections and topics rewrite and is more important to read than it first appears, explains what a skin is. Sort of.
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

Historic:CssWork

2014-02-28T18:52:59Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
*** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
*** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

TemplateManualDirective

2014-02-28T18:50:55Z

50.45.173.59:

[[CssWork]] parent

<h2>TemplateManualDirective Ref for the template commands </h2>

man Template::Manual::Directives

<pre>

NAME
Template::Manual::Directives - Template directives

Accessing and Updating Template Variables
GET
The "GET" directive retrieves and outputs the value of the named
variable.

[% GET foo %]

The "GET" keyword is optional. A variable can be specified in a
directive tag by itself.

[% foo %]

The variable can have an unlimited number of elements, each separated
by a dot. Each element can have arguments specified within parentheses.

[% foo %]
[% bar.baz %]
[% biz.baz(10) %]
...etc...

See Template::Manual::Variables for a full discussion on template
variables.

You can also specify expressions using the logical ("and", "or", "not",
"?", ":") and mathematic operators ("+", "-", "*", "/", "%", "mod",
"div").

[% template.title or default.title %]

[% score * 100 %]

[% order.nitems ? checkout(order.total) : 'no items' %]

The "div" operator returns the integer result of division. Both "%"
and "mod" return the modulus (i.e. remainder) of division.

[% 15 / 6 %] # 2.5
[% 15 div 6 %] # 2
[% 15 mod 6 %] # 3

CALL
The "CALL" directive is similar to "GET" in evaluating the variable
named, but doesn’t print the result returned. This can be useful when
a variable is bound to a sub-routine or object method which you want to
call but aren’t interested in the value returned.

[% CALL dbi.disconnect %]

[% CALL inc_page_counter(page_count) %]

SET
The "SET" directive allows you to assign new values to existing
variables or create new temporary variables.

[% SET title = 'Hello World' %]

The "SET" keyword is also optional.

[% title = 'Hello World' %]

Variables may be assigned the values of other variables, unquoted
numbers (2.718), literal text (’single quotes’) or quoted text ("double
quotes"). In the latter case, any variable references within the text
will be interpolated when the string is evaluated. Variables should be
prefixed by "$", using curly braces to explicitly scope the variable
name where necessary.

[% foo = 'Foo' %] # literal value 'Foo'
[% bar = foo %] # value of variable 'foo'
[% cost = '$100' %] # literal value '$100'
[% item = "$bar: ${cost}.00" %] # value "Foo: $100.00"

Multiple variables may be assigned in the same directive and are
evaluated in the order specified. Thus, the above could have been
written:

[% foo = 'Foo'
bar = foo
cost = '$100'
item = "$bar: ${cost}.00"
%]

Simple expressions can also be used, as per "GET".

[% ten = 10
twenty = 20
thirty = twenty + ten
forty = 2 * twenty
fifty = 100 div 2
six = twenty mod 7
%]

You can concatenate strings together using the ' _ ' operator. In Perl
5, the "." is used for string concatenation, but in Perl 6, as in the
Template Toolkit, the "." will be used as the method calling operator
and ' _ ' will be used for string concatenation. Note that the
operator must be specified with surrounding whitespace which, as Larry
says, is construed as a feature:

[% copyright = '(C) Copyright' _ year _ ' ' _ author %]

You can, of course, achieve a similar effect with double quoted string
interpolation.

[% copyright = "(C) Copyright $year $author" %]

DEFAULT
The "DEFAULT" directive is similar to "SET" but only updates variables
that are currently undefined or have no "true" value (in the Perl
sense).

[% DEFAULT
name = 'John Doe'
id = 'jdoe'
%]

This can be particularly useful in common template components to ensure
that some sensible default are provided for otherwise undefined
variables.

[% DEFAULT
title = 'Hello World'
bgcol = '#ffffff'
%]
<html>
<head>
<title>[% title %]</title>
</head>
<body bgcolor="[% bgcol %]">
...etc...

Processing Template Files and Blocks
INSERT
The "INSERT" directive is used to insert the contents of an external
file at the current position.

[% INSERT myfile %]

No attempt to parse or process the file is made. The contents,
possibly including any embedded template directives, are inserted
intact.

The filename specified should be relative to one of the "INCLUDE_PATH"
directories. Absolute (i.e. starting with "/") and relative (i.e.
starting with ".") filenames may be used if the "ABSOLUTE" and
"RELATIVE" options are set, respectively. Both these options are
disabled by default.

my $template = Template->new({
INCLUDE_PATH => '/here:/there',
});

$template->process('myfile');

myfile:

[% INSERT foo %] # looks for /here/foo then /there/foo
[% INSERT /etc/passwd %] # file error: ABSOLUTE not set
[% INSERT ../secret %] # file error: RELATIVE not set

For convenience, the filename does not need to be quoted as long as it
contains only alphanumeric characters, underscores, dots or forward
slashes. Names containing any other characters should be quoted.

[% INSERT misc/legalese.txt %]
[% INSERT 'dos98/Program Files/stupid' %]

To evaluate a variable to specify a filename, you should explicitly
prefix it with a "$" or use double-quoted string interpolation.

[% language = 'en'
legalese = 'misc/legalese.txt'
%]

[% INSERT $legalese %] # misc/legalese.txt
[% INSERT "$language/$legalese" %] # en/misc/legalese.txt

Multiple files can be specified using "+" as a delimiter. All files
should be unquoted names or quoted strings. Any variables should be
interpolated into double-quoted strings.

[% INSERT legalese.txt + warning.txt %]
[% INSERT "$legalese" + warning.txt %] # requires quoting

INCLUDE
The "INCLUDE" directive is used to process and include the output of
another template file or block.

[% INCLUDE header %]

If a "BLOCK" of the specified name is defined in the same file, or in a
file from which the current template has been called (i.e. a parent
template) then it will be used in preference to any file of the same
name.

[% INCLUDE table %] # uses BLOCK defined below

[% BLOCK table %]
<table>
...
</table>
[% END %]

If a "BLOCK" definition is not currently visible then the template name
should be a file relative to one of the "INCLUDE_PATH" directories, or
an absolute or relative file name if the "ABSOLUTE"/"RELATIVE" options
are appropriately enabled. The "INCLUDE" directive automatically
quotes the filename specified, as per "INSERT" described above. When a
variable contains the name of the template for the "INCLUDE" directive,
it should be explicitly prefixed by "$" or double-quoted

[% myheader = 'my/misc/header' %]
[% INCLUDE myheader %] # 'myheader'
[% INCLUDE $myheader %] # 'my/misc/header'
[% INCLUDE "$myheader" %] # 'my/misc/header'

Any template directives embedded within the file will be processed
accordingly. All variables currently defined will be visible and
accessible from within the included template.

[% title = 'Hello World' %]
[% INCLUDE header %]
<body>
...

header:

<html>
<title>[% title %]</title>

output:

<html>
<title>Hello World</title>
<body>
...

Local variable definitions may be specified after the template name,
temporarily masking any existing variables. Insignificant whitespace
is ignored within directives so you can add variable definitions on the
same line, the next line or split across several line with comments
interspersed, if you prefer.

[% INCLUDE table %]

[% INCLUDE table title="Active Projects" %]

[% INCLUDE table
title = "Active Projects"
bgcolor = "#80ff00" # chartreuse
border = 2
%]

The "INCLUDE" directive localises (i.e. copies) all variables before
processing the template. Any changes made within the included template
will not affect variables in the including template.

[% foo = 10 %]

foo is originally [% foo %]
[% INCLUDE bar %]
foo is still [% foo %]

[% BLOCK bar %]
foo was [% foo %]
[% foo = 20 %]
foo is now [% foo %]
[% END %]

output:

foo is originally 10
foo was 10
foo is now 20
foo is still 10

Technical Note: the localisation of the stash (that is, the process by
which variables are copied before an "INCLUDE" to prevent being
overwritten) is only skin deep. The top-level variable namespace
(hash) is copied, but no attempt is made to perform a deep-copy of
other structures (hashes, arrays, objects, etc.) Therefore, a "foo"
variable referencing a hash will be copied to create a new "foo"
variable but which points to the same hash array. Thus, if you update
compound variables (e.g. "foo.bar") then you will change the original
copy, regardless of any stash localisation. If you’re not worried
about preserving variable values, or you trust the templates you’re
including then you might prefer to use the "PROCESS" directive which is
faster by virtue of not performing any localisation.

You can specify dotted variables as "local" variables to an "INCLUDE"
directive. However, be aware that because of the localisation issues
explained above (if you skipped the previous Technical Note above then
you might want to go back and read it or skip this section too), the
variables might not actually be "local". If the first element of the
variable name already references a hash array then the variable update
will affect the original variable.

[% foo = {
bar = 'Baz'
}
%]

[% INCLUDE somefile foo.bar='Boz' %]

[% foo.bar %] # Boz

This behaviour can be a little unpredictable (and may well be improved
upon in a future version). If you know what you’re doing with it and
you’re sure that the variables in question are defined (nor not) as you
expect them to be, then you can rely on this feature to implement some
powerful "global" data sharing techniques. Otherwise, you might prefer
to steer well clear and always pass simple (undotted) variables as
parameters to "INCLUDE" and other similar directives.

If you want to process several templates in one go then you can specify
each of their names (quoted or unquoted names only, no unquoted
$variables) joined together by "+". The "INCLUDE" directive will then
process them in order.

[% INCLUDE html/header + "site/$header" + site/menu
title = "My Groovy Web Site"
%]

The variable stash is localised once and then the templates specified
are processed in order, all within that same variable context. This
makes it slightly faster than specifying several separate "INCLUDE"
directives (because you only clone the variable stash once instead of n
times), but not quite as "safe" because any variable changes in the
first file will be visible in the second, third and so on. This might
be what you want, of course, but then again, it might not.

PROCESS
The PROCESS directive is similar to "INCLUDE" but does not perform any
localisation of variables before processing the template. Any changes
made to variables within the included template will be visible in the
including template.

[% foo = 10 %]

foo is [% foo %]
[% PROCESS bar %]
foo is [% foo %]

[% BLOCK bar %]
[% foo = 20 %]
changed foo to [% foo %]
[% END %]

output:

foo is 10
changed foo to 20
foo is 20

Parameters may be specified in the "PROCESS" directive, but these too
will become visible changes to current variable values.

[% foo = 10 %]
foo is [% foo %]
[% PROCESS bar
foo = 20
%]
foo is [% foo %]

[% BLOCK bar %]
this is bar, foo is [% foo %]
[% END %]

output:

foo is 10
this is bar, foo is 20
foo is 20

The "PROCESS" directive is slightly faster than "INCLUDE" because it
avoids the need to localise (i.e. copy) the variable stash before
processing the template. As with "INSERT" and "INCLUDE", the first
parameter does not need to be quoted as long as it contains only
alphanumeric characters, underscores, periods or forward slashes. A
"$" prefix can be used to explicitly indicate a variable which should
be interpolated to provide the template name:

[% myheader = 'my/misc/header' %]
[% PROCESS myheader %] # 'myheader'
[% PROCESS $myheader %] # 'my/misc/header'

As with "INCLUDE", multiple templates can be specified, delimited by
"+", and are processed in order.

[% PROCESS html/header + my/header %]

WRAPPER
It’s not unusual to find yourself adding common headers and footers to
pages or sub-sections within a page. Something like this:

[% INCLUDE section/header
title = 'Quantum Mechanics'
%]
Quantum mechanics is a very interesting subject wish
should prove easy for the layman to fully comprehend.
[% INCLUDE section/footer %]

[% INCLUDE section/header
title = 'Desktop Nuclear Fusion for under $50'
%]
This describes a simple device which generates significant
sustainable electrical power from common tap water by process
of nuclear fusion.
[% INCLUDE section/footer %]

The individual template components being included might look like
these:

section/header:

<p>
<h2>[% title %]</h2>

section/footer:

</p>

The "WRAPPER" directive provides a way of simplifying this a little. It
encloses a block up to a matching "END" directive, which is first
processed to generate some output. This is then passed to the named
template file or "BLOCK" as the "content" variable.

[% WRAPPER section
title = 'Quantum Mechanics'
%]
Quantum mechanics is a very interesting subject wish
should prove easy for the layman to fully comprehend.
[% END %]

[% WRAPPER section
title = 'Desktop Nuclear Fusion for under $50'
%]
This describes a simple device which generates significant
sustainable electrical power from common tap water by process
of nuclear fusion.
[% END %]

The single ’section’ template can then be defined as:

<h2>[% title %]</h2>
<p>
[% content %]
</p>

Like other block directives, it can be used in side-effect notation:

[% INSERT legalese.txt WRAPPER big_bold_table %]

It’s also possible to specify multiple templates to a "WRAPPER"
directive. The specification order indicates outermost to innermost
wrapper templates. For example, given the following template block
definitions:

[% BLOCK bold %]<b>[% content %]</b>[% END %]
[% BLOCK italic %]<i>[% content %]</i>[% END %]

the directive

[% WRAPPER bold+italic %]Hello World[% END %]

would generate the following output:

<b><i>Hello World</i></b>

BLOCK
The "BLOCK"..."END" construct can be used to define template component
blocks which can be processed with the "INCLUDE", "PROCESS" and
"WRAPPER" directives.

[% BLOCK tabrow %]
<tr>
<td>[% name %]<td>
<td>[% email %]</td>
</tr>
[% END %]

<table>
[% PROCESS tabrow name='Fred' email='fred@nowhere.com' %]
[% PROCESS tabrow name='Alan' email='alan@nowhere.com' %]
</table>

A "BLOCK" definition can be used before it is defined, as long as the
definition resides in the same file. The block definition itself does
not generate any output.

[% PROCESS tmpblk %]

[% BLOCK tmpblk %] This is OK [% END %]

You can use an anonymous "BLOCK" to capture the output of a template
fragment.

[% julius = BLOCK %]
And Caesar's spirit, ranging for revenge,
With Ate by his side come hot from hell,
Shall in these confines with a monarch's voice
Cry 'Havoc', and let slip the dogs of war;
That this foul deed shall smell above the earth
With carrion men, groaning for burial.
[% END %]

Like a named block, it can contain any other template directives which
are processed when the block is defined. The output generated by the
block is then assigned to the variable "julius".

Anonymous "BLOCK"s can also be used to define block macros. The
enclosing block is processed each time the macro is called.

[% MACRO locate BLOCK %]
The [% animal %] sat on the [% place %].
[% END %]

[% locate(animal='cat', place='mat') %] # The cat sat on the mat
[% locate(animal='dog', place='log') %] # The dog sat on the log

Conditional Processing
IF / UNLESS / ELSIF / ELSE
The "IF" and "UNLESS" directives can be used to process or ignore a
block based on some run-time condition.

[% IF frames %]
[% INCLUDE frameset %]
[% END %]

[% UNLESS text_mode %]
[% INCLUDE biglogo %]
[% END %]

Multiple conditions may be joined with "ELSIF" and/or "ELSE" blocks.

[% IF age < 10 %]
Hello [% name %], does your mother know you're
using her AOL account?
[% ELSIF age < 18 %]
Sorry, you're not old enough to enter
(and too dumb to lie about your age)
[% ELSE %]
Welcome [% name %].
[% END %]

The following conditional and boolean operators may be used:

== != < <= > >= && || ! and or not

Conditions may be arbitrarily complex and are evaluated with the same
precedence as in Perl. Parenthesis may be used to explicitly determine
evaluation order.

# ridiculously contrived complex example
[% IF (name == 'admin' || uid <= 0) && mode == 'debug' %]
I'm confused.
[% ELSIF more > less %]
That's more or less correct.
[% END %]

The "and", "or" and "not" operator are provided as aliases for "&&",
"||" and "!", respectively. Unlike Perl, which treats "and", "or" and
"not" as separate, lower-precedence versions of the other operators,
the Template Toolkit performs a straightforward substitution of "and"
for "&&", and so on. That means that "and", "or" and "not" have the
same operator precedence as "&&", "||" and "!".

SWITCH / CASE
The "SWITCH" / "CASE" construct can be used to perform a multi-way
conditional test. The "SWITCH" directive expects an expression which
is first evaluated and then compared against each CASE statement in
turn. Each "CASE" directive should contain a single value or a list of
values which should match. "CASE" may also be left blank or written as
"[% CASE DEFAULT %]" to specify a default match. Only one "CASE"
matches, there is no drop-through between "CASE" statements.

[% SWITCH myvar %]
[% CASE 'value1' %]
...
[% CASE ['value2', 'value3'] %] # multiple values
...
[% CASE myhash.keys %] # ditto
...
[% CASE %] # default
...
[% END %]

Loop Processing
FOREACH
The "FOREACH" directive will iterate through the items in a list,
processing the enclosed block for each one.

[% foo = 'Foo'
items = [ 'one', 'two', 'three' ]
%]

Things:
[% FOREACH thing IN [ foo 'Bar' "$foo Baz" ] %]
* [% thing %]
[% END %]

Items:
[% FOREACH i IN items %]
* [% i %]
[% END %]

Stuff:
[% stuff = [ foo "$foo Bar" ] %]
[% FOREACH s IN stuff %]
* [% s %]
[% END %]

output:

Things:
* Foo
* Bar
* Foo Baz

Items:
* one
* two
* three

Stuff:
* Foo
* Foo Bar

You can use also use "=" instead of "IN" if you prefer.

[% FOREACH i = items %]

When the "FOREACH" directive is used without specifying a target
variable, any iterated values which are hash references will be
automatically imported.

[% userlist = [
{ id => 'tom', name => 'Thomas' },
{ id => 'dick', name => 'Richard' },
{ id => 'larry', name => 'Lawrence' },
]
%]

[% FOREACH user IN userlist %]
[% user.id %] [% user.name %]
[% END %]

short form:

[% FOREACH userlist %]
[% id %] [% name %]
[% END %]

Note that this particular usage creates a localised variable context to
prevent the imported hash keys from overwriting any existing variables.
The imported definitions and any other variables defined in such a
"FOREACH" loop will be lost at the end of the loop, when the previous
context and variable values are restored.

However, under normal operation, the loop variable remains in scope
after the "FOREACH" loop has ended (caveat: overwriting any variable
previously in scope). This is useful as the loop variable is secretly
an iterator object (see below) and can be used to analyse the last
entry processed by the loop.

The "FOREACH" directive can also be used to iterate through the entries
in a hash array. Each entry in the hash is returned in sorted order
(based on the key) as a hash array containing ’key’ and ’value’ items.

[% users = {
tom => 'Thomas',
dick => 'Richard',
larry => 'Lawrence',
}
%]

[% FOREACH u IN users %]
* [% u.key %] : [% u.value %]
[% END %]

Output:

* dick : Richard
* larry : Lawrence
* tom : Thomas

The "NEXT" directive starts the next iteration in the "FOREACH" loop.

[% FOREACH user IN userlist %]
[% NEXT IF user.isguest %]
Name: [% user.name %] Email: [% user.email %]
[% END %]

The "LAST" directive can be used to prematurely exit the loop. "BREAK"
is also provided as an alias for "LAST".

[% FOREACH match IN results.nsort('score').reverse %]
[% LAST IF match.score < 50 %]
[% match.score %] : [% match.url %]
[% END %]

The "FOREACH" directive is implemented using the Template::Iterator
module. A reference to the iterator object for a "FOREACH" directive
is implicitly available in the "loop" variable. The following methods
can be called on the "loop" iterator.

size() number of elements in the list
max() index number of last element (size - 1)
index() index of current iteration from 0 to max()
count() iteration counter from 1 to size() (i.e. index() + 1)
first() true if the current iteration is the first
last() true if the current iteration is the last
prev() return the previous item in the list
next() return the next item in the list

See Template::Iterator for further details.

Example:

[% FOREACH item IN [ 'foo', 'bar', 'baz' ] -%]
[%- "<ul>\n" IF loop.first %]
<li>[% loop.count %]/[% loop.size %]: [% item %]
[%- "</ul>\n" IF loop.last %]
[% END %]

Output:

<ul>
<li>1/3: foo
<li>2/3: bar
<li>3/3: baz
</ul>

Nested loops will work as expected, with the "loop" variable correctly
referencing the innermost loop and being restored to any previous value
(i.e. an outer loop) at the end of the loop.

[% FOREACH group IN grouplist;
# loop => group iterator
"Groups:\n" IF loop.first;

FOREACH user IN group.userlist;
# loop => user iterator
"$loop.count: $user.name\n";
END;

# loop => group iterator
"End of Groups\n" IF loop.last;
END
%]

The "iterator" plugin can also be used to explicitly create an iterator
object. This can be useful within nested loops where you need to keep
a reference to the outer iterator within the inner loop. The iterator
plugin effectively allows you to create an iterator by a name other
than "loop". See Template::Plugin::Iterator for further details.

[% USE giter = iterator(grouplist) %]

[% FOREACH group IN giter %]
[% FOREACH user IN group.userlist %]
user #[% loop.count %] in
group [% giter.count %] is
named [% user.name %]
[% END %]
[% END %]

WHILE
The "WHILE" directive can be used to repeatedly process a template
block while a conditional expression evaluates true. The expression
may be arbitrarily complex as per "IF" / "UNLESS".

[% WHILE total < 100 %]
...
[% total = calculate_new_total %]
[% END %]

An assignment can be enclosed in parenthesis to evaluate the assigned
value.

[% WHILE (user = get_next_user_record) %]
[% user.name %]
[% END %]

The "NEXT" directive can be used to start the next iteration of a
"WHILE" loop and "BREAK" can be used to exit the loop, both as per
"FOREACH".

The Template Toolkit uses a failsafe counter to prevent runaway "WHILE"
loops which would otherwise never terminate. If the loop exceeds 1000
iterations then an "undef" exception will be thrown, reporting the
error:

WHILE loop terminated (> 1000 iterations)

The $Template::Directive::WHILE_MAX variable controls this behaviour
and can be set to a higher value if necessary.

Filters, Plugins, Macros and Perl
FILTER
The "FILTER" directive can be used to post-process the output of a
block. A number of standard filters are provided with the Template
Toolkit. The "html" filter, for example, escapes the ’<’, ’>’ and ’&’
characters to prevent them from being interpreted as HTML tags or
entity reference markers.

[% FILTER html %]
HTML text may have < and > characters embedded
which you want converted to the correct HTML entities.
[% END %]

output:

HTML text may have < and > characters embedded
which you want converted to the correct HTML entities.

The "FILTER" directive can also follow various other non-block
directives. For example:

[% INCLUDE mytext FILTER html %]

The "|" character can also be used as an alias for "FILTER".

[% INCLUDE mytext | html %]

Multiple filters can be chained together and will be called in
sequence.

[% INCLUDE mytext FILTER html FILTER html_para %]

or

[% INCLUDE mytext | html | html_para %]

Filters come in two flavours, known as ’static’ or ’dynamic’. A static
filter is a simple subroutine which accepts a text string as the only
argument and returns the modified text. The "html" filter is an
example of a static filter, implemented as:

sub html_filter {
my $text = shift;
for ($text) {
s/&/&/g;
s/</</g;
s/>/>/g;
}
return $text;
}

Dynamic filters can accept arguments which are specified when the
filter is called from a template. The "repeat" filter is such an
example, accepting a numerical argument which specifies the number of
times that the input text should be repeated.

[% FILTER repeat(3) %]blah [% END %]

output:

blah blah blah

These are implemented as filter ’factories’. The factory subroutine is
passed a reference to the current Template::Context object along with
any additional arguments specified. It should then return a subroutine
reference (e.g. a closure) which implements the filter. The "repeat"
filter factory is implemented like this:

sub repeat_filter_factory {
my ($context, $iter) = @_;
$iter = 1 unless defined $iter;

return sub {
my $text = shift;
$text = '' unless defined $text;
return join('\n', $text) x $iter;
}
}

The "FILTERS" option, described in Template::Manual::Config, allows
custom filters to be defined when a Template object is instantiated.
The define_filter() method allows further filters to be defined at any
time.

When using a filter, it is possible to assign an alias to it for
further use. This is most useful for dynamic filters that you want to
re-use with the same configuration.

[% FILTER echo = repeat(2) %]
Is there anybody out there?
[% END %]

[% FILTER echo %]
Mother, should I build a wall?
[% END %]

Output:

Is there anybody out there?
Is there anybody out there?

Mother, should I build a wall?
Mother, should I build a wall?

The "FILTER" directive automatically quotes the name of the filter. As
with "INCLUDE" et al, you can use a variable to provide the name of the
filter, prefixed by "$".

[% myfilter = 'html' %]
[% FILTER $myfilter %] # same as [% FILTER html %]
...
[% END %]

A template variable can also be used to define a static filter
subroutine. However, the Template Toolkit will automatically call any
subroutine bound to a variable and use the value returned. Thus, the
above example could be implemented as:

my $vars = {
myfilter => sub { return 'html' },
};

template:

[% FILTER $myfilter %] # same as [% FILTER html %]
...
[% END %]

To define a template variable that evaluates to a subroutine reference
that can be used by the "FILTER" directive, you should create a
subroutine that, when called automatically by the Template Toolkit,
returns another subroutine reference which can then be used to perform
the filter operation. Note that only static filters can be implemented
in this way.

my $vars = {
myfilter => sub { \&my_filter_sub },
};

sub my_filter_sub {
my $text = shift;
# do something
return $text;
}

template:

[% FILTER $myfilter %]
...
[% END %]

Alternately, you can bless a subroutine reference into a class (any
class will do) to fool the Template Toolkit into thinking it’s an
object rather than a subroutine. This will then bypass the automatic
"call-a-subroutine-to-return-a-value" magic.

my $vars = {
myfilter => bless(\&my_filter_sub, 'anything_you_like'),
};

template:

[% FILTER $myfilter %]
...
[% END %]

Filters bound to template variables remain local to the variable
context in which they are defined. That is, if you define a filter in a
"PERL" block within a template that is loaded via "INCLUDE", then the
filter definition will only exist until the end of that template when
the stash is delocalised, restoring the previous variable state. If you
want to define a filter which persists for the lifetime of the
processor, or define additional dynamic filter factories, then you can
call the define_filter() method on the current Template::Context
object.

See Template::Manual::Filters for a complete list of available filters,
their descriptions and examples of use.

USE
The "USE" directive can be used to load and initialise "plugin"
extension modules.

[% USE myplugin %]

A plugin is a regular Perl module that conforms to a particular object-
oriented interface, allowing it to be loaded into and used
automatically by the Template Toolkit. For details of this interface
and information on writing plugins, consult Template::Plugin.

A number of standard plugins are included with the Template Toolkit
(see below and Template::Manual::Plugins). The names of these standard
plugins are case insensitive.

[% USE CGI %] # => Template::Plugin::CGI
[% USE Cgi %] # => Template::Plugin::CGI
[% USE cgi %] # => Template::Plugin::CGI

You can also define further plugins using the "PLUGINS" option.

my $tt = Template->new({
PLUGINS => {
foo => 'My::Plugin::Foo',
bar => 'My::Plugin::Bar',
},
});

The recommended convention is to specify these plugin names in lower
case. The Template Toolkit first looks for an exact case-sensitive
match and then tries the lower case conversion of the name specified.

[% USE Foo %] # look for 'Foo' then 'foo'

If you define all your "PLUGINS" with lower case names then they will
be located regardless of how the user specifies the name in the "USE"
directive. If, on the other hand, you define your "PLUGINS" with upper
or mixed case names then the name specified in the "USE" directive must
match the case exactly.

If the plugin isn’t defined in either the standard plugins
($Template::Plugins::STD_PLUGINS) or via the "PLUGINS" option, then the
"PLUGIN_BASE" is searched.

In this case the plugin name is case-sensitive. It is appended to each
of the "PLUGIN_BASE" module namespaces in turn (default:
"Template::Plugin") to construct a full module name which it attempts
to locate and load. Any periods, ’"."’, in the name will be converted
to ’"::"’.

[% USE MyPlugin %] # => Template::Plugin::MyPlugin
[% USE Foo.Bar %] # => Template::Plugin::Foo::Bar

The "LOAD_PERL" option (disabled by default) provides a further way by
which external Perl modules may be loaded. If a regular Perl module
(i.e. not a "Template::Plugin::*" or other module relative to some
"PLUGIN_BASE") supports an object-oriented interface and a "new()"
constructor then it can be loaded and instantiated automatically. The
following trivial example shows how the IO::File module might be used.

[% USE file = IO.File('/tmp/mydata') %]

[% WHILE (line = file.getline) %]

[% END %]

Any additional parameters supplied in parenthesis after the plugin name
will be also be passed to the "new()" constructor. A reference to the
current Template::Context object is passed as the first parameter.

[% USE MyPlugin('foo', 123) %]

equivalent to:

Template::Plugin::MyPlugin->new($context, 'foo', 123);

The only exception to this is when a module is loaded via the
"LOAD_PERL" option. In this case the $context reference is not passed
to the "new()" constructor. This is based on the assumption that the
module is a regular Perl module rather than a Template Toolkit plugin
so isn’t expecting a context reference and wouldn’t know what to do
with it anyway.

Named parameters may also be specified. These are collated into a hash
which is passed by reference as the last parameter to the constructor,
as per the general code calling interface.

[% USE url('/cgi-bin/foo', mode='submit', debug=1) %]

equivalent to:

Template::Plugin::URL->new(
$context,
'/cgi-bin/foo'
{ mode => 'submit', debug => 1 }
);

The plugin may represent any data type; a simple variable, hash, list
or code reference, but in the general case it will be an object
reference. Methods can be called on the object (or the relevant
members of the specific data type) in the usual way:

[% USE table(mydata, rows=3) %]

[% FOREACH row IN table.rows %]
<tr>
[% FOREACH item IN row %]
<td>[% item %]</td>
[% END %]
</tr>
[% END %]

An alternative name may be provided for the plugin by which it can be
referenced:

[% USE scores = table(myscores, cols=5) %]

[% FOREACH row IN scores.rows %]
...
[% END %]

You can use this approach to create multiple plugin objects with
different configurations. This example shows how the format plugin is
used to create sub-routines bound to variables for formatting text as
per "printf()".

[% USE bold = format('<b>%s</b>') %]
[% USE ital = format('<i>%s</i>') %]
[% bold('This is bold') %]
[% ital('This is italic') %]

Output:

<b>This is bold</b>
<i>This is italic</i>

This next example shows how the URL plugin can be used to build dynamic
URLs from a base part and optional query parameters.

[% USE mycgi = URL('/cgi-bin/foo.pl', debug=1) %]
<a href="[% mycgi %]">...
<a href="[% mycgi(mode='submit') %]"...

Output:

<a href="/cgi-bin/foo.pl?debug=1">...
<a href="/cgi-bin/foo.pl?mode=submit&debug=1">...

The CGI plugin is an example of one which delegates to another Perl
module. In this case, to Lincoln Stein’s "CGI" module. All of the
methods provided by the "CGI" module are available via the plugin.

[% USE CGI;
CGI.start_form;
CGI.checkbox_group( name = 'colours',
values = [ 'red' 'green' 'blue' ] );
CGI.popup_menu( name = 'items',
values = [ 'foo' 'bar' 'baz' ] );
CGI.end_form
%]

See Template::Manual::Plugins for more information on the plugins
distributed with the toolkit or available from CPAN.

MACRO
The "MACRO" directive allows you to define a directive or directive
block which is then evaluated each time the macro is called.

[% MACRO header INCLUDE header %]

Calling the macro as:

[% header %]

is then equivalent to:

[% INCLUDE header %]

Macros can be passed named parameters when called. These values remain
local to the macro.

[% header(title='Hello World') %]

equivalent to:

[% INCLUDE header title='Hello World' %]

A "MACRO" definition may include parameter names. Values passed to the
macros are then mapped to these local variables. Other named
parameters may follow these.

[% MACRO header(title) INCLUDE header %]
[% header('Hello World') %]
[% header('Hello World', bgcol='#123456') %]

equivalent to:

[% INCLUDE header title='Hello World' %]
[% INCLUDE header title='Hello World' bgcol='#123456' %]

Here’s another example, defining a macro for display numbers in comma-
delimited groups of 3, using the chunk and join virtual method.

[% MACRO number(n) GET n.chunk(-3).join(',') %]
[% number(1234567) %] # 1,234,567

A "MACRO" may precede any directive and must conform to the structure
of the directive.

[% MACRO header IF frames %]
[% INCLUDE frames/header %]
[% ELSE %]
[% INCLUDE header %]
[% END %]

[% header %]

A "MACRO" may also be defined as an anonymous "BLOCK". The block will
be evaluated each time the macro is called.

[% MACRO header BLOCK %]
...content...
[% END %]

[% header %]

If you’ve got the "EVAL_PERL" option set, then you can even define a
"MACRO" as a "PERL" block (see below):

[% MACRO triple(n) PERL %]
my $n = $stash->get('n');
print $n * 3;
[% END -%]

PERL
(for the advanced reader)

The "PERL" directive is used to mark the start of a block which
contains Perl code for evaluation. The "EVAL_PERL" option must be
enabled for Perl code to be evaluated or a "perl" exception will be
thrown with the message ’"EVAL_PERL not set"’.

Perl code is evaluated in the "Template::Perl" package. The $context
package variable contains a reference to the current Template::Context
object. This can be used to access the functionality of the Template
Toolkit to process other templates, load plugins, filters, etc. See
Template::Context for further details.

[% PERL %]
print $context->include('myfile');
[% END %]

The $stash variable contains a reference to the top-level stash object
which manages template variables. Through this, variable values can be
retrieved and updated. See Template::Stash for further details.

[% PERL %]
$stash->set(foo => 'bar');
print "foo value: ", $stash->get('foo');
[% END %]

Output:

foo value: bar

Output is generated from the "PERL" block by calling "print()". Note
that the "Template::Perl::PERLOUT" handle is selected (tied to an
output buffer) instead of "STDOUT".

[% PERL %]
print "foo\n"; # OK
print PERLOUT "bar\n"; # OK, same as above
print Template::Perl::PERLOUT "baz\n"; # OK, same as above
print STDOUT "qux\n"; # WRONG!
[% END %]

The "PERL" block may contain other template directives. These are
processed before the Perl code is evaluated.

[% name = 'Fred Smith' %]

[% PERL %]
print "[% name %]\n";
[% END %]

Thus, the Perl code in the above example is evaluated as:

print "Fred Smith\n";

Exceptions may be thrown from within "PERL" blocks using "die()". They
will be correctly caught by enclosing "TRY" blocks.

[% TRY %]
[% PERL %]
die "nothing to live for\n";
[% END %]
[% CATCH %]
error: [% error.info %]
[% END %]

output:
error: nothing to live for

RAWPERL
(for the very advanced reader)

The Template Toolkit parser reads a source template and generates the
text of a Perl subroutine as output. It then uses "eval()" to evaluate
it into a subroutine reference. This subroutine is then called to
process the template, passing a reference to the current
Template::Context object through which the functionality of the
Template Toolkit can be accessed. The subroutine reference can be
cached, allowing the template to be processed repeatedly without
requiring any further parsing.

For example, a template such as:

[% PROCESS header %]
The [% animal %] sat on the [% location %]
[% PROCESS footer %]

is converted into the following Perl subroutine definition:

sub {
my $context = shift;
my $stash = $context->stash;
my $output = '';
my $error;

eval { BLOCK: {
$output .= $context->process('header');
$output .= "The ";
$output .= $stash->get('animal');
$output .= " sat on the ";
$output .= $stash->get('location');
$output .= $context->process('footer');
$output .= "\n";
} };
if ($@) {
$error = $context->catch($@, \$output);
die $error unless $error->type eq 'return';
}

return $output;
}

To examine the Perl code generated, such as in the above example, set
the $Template::Parser::DEBUG package variable to any true value. You
can also set the $Template::Directive::PRETTY variable true to have the
code formatted in a readable manner for human consumption. The source
code for each generated template subroutine will be printed to "STDERR"
on compilation (i.e. the first time a template is used).

$Template::Parser::DEBUG = 1;
$Template::Directive::PRETTY = 1;

$template->process($file, $vars)
|| die $template->error(), "\n";

The "PERL" ... "END" construct allows Perl code to be embedded into a
template when the "EVAL_PERL" option is set. It is evaluated at
"runtime" using "eval()" each time the template subroutine is called.
This is inherently flexible, but not as efficient as it could be,
especially in a persistent server environment where a template may be
processed many times.

The "RAWPERL" directive allows you to write Perl code that is
integrated directly into the generated Perl subroutine text. It is
evaluated once at compile time and is stored in cached form as part of
the compiled template subroutine. This makes "RAWPERL" blocks more
efficient than "PERL" blocks.

The downside is that you must code much closer to the metal. For
example, in a "PERL" block you can call print() to generate some
output. "RAWPERL" blocks don’t afford such luxury. The code is inserted
directly into the generated subroutine text and should conform to the
convention of appending to the $output variable.

[% PROCESS header %]

[% RAWPERL %]
$output .= "Some output\n";
...
$output .= "Some more output\n";
[% END %]

The critical section of the generated subroutine for this example would
then look something like:

...
eval { BLOCK: {
$output .= $context->process('header');
$output .= "\n";
$output .= "Some output\n";
...
$output .= "Some more output\n";
$output .= "\n";
} };
...

As with "PERL" blocks, the $context and $stash references are pre-
defined and available for use within "RAWPERL" code.

Exception Handling and Flow Control
TRY / THROW / CATCH / FINAL
(more advanced material)

The Template Toolkit supports fully functional, nested exception
handling. The "TRY" directive introduces an exception handling scope
which continues until the matching "END" directive. Any errors that
occur within that block will be caught and can be handled by one of the
"CATCH" blocks defined.

[% TRY %]
...blah...blah...
[% CALL somecode %]
...etc...
[% INCLUDE someblock %]
...and so on...
[% CATCH %]
An error occurred!
[% END %]

Errors are raised as exceptions (objects of the Template::Exception
class) which contain two fields: "type" and "info". The exception
"type" is used to indicate the kind of error that occurred. It is a
simple text string which can contain letters, numbers, ’"_"’ or ’"."’.
The "info" field contains an error message indicating what actually
went wrong. Within a catch block, the exception object is aliased to
the "error" variable. You can access the "type" and "info" fields
directly.

[% mydsn = 'dbi:MySQL:foobar' %]
...

[% TRY %]
[% USE DBI(mydsn) %]
[% CATCH %]
ERROR! Type: [% error.type %]
Info: [% error.info %]
[% END %]

output (assuming a non-existent database called ’"foobar"’):

ERROR! Type: DBI
Info: Unknown database "foobar"

The "error" variable can also be specified by itself and will return a
string of the form ""$type error - $info"".

...
[% CATCH %]
ERROR: [% error %]
[% END %]

Output:

ERROR: DBI error - Unknown database "foobar"

Each "CATCH" block may be specified with a particular exception type
denoting the kind of error that it should catch. Multiple "CATCH"
blocks can be provided to handle different types of exception that may
be thrown in the "TRY" block. A "CATCH" block specified without any
type, as in the previous example, is a default handler which will catch
any otherwise uncaught exceptions. This can also be specified as "[%
CATCH DEFAULT %]".

[% TRY %]
[% INCLUDE myfile %]
[% USE DBI(mydsn) %]
[% CALL somecode %]
[% CATCH file %]
File Error! [% error.info %]
[% CATCH DBI %]
[% INCLUDE database/error.html %]
[% CATCH %]
[% error %]
[% END %]

Remember that you can specify multiple directives within a single tag,
each delimited by ’";"’. So the above example can be written more
concisely as:

[% TRY;
INCLUDE myfile;
USE DBI(mydsn);
CALL somecode;
CATCH file;
"File Error! $error.info";
CATCH DBI;
INCLUDE database/error.html;
CATCH;
error;
END
%]

The "DBI" plugin throws exceptions of the "DBI" type (in case that
wasn’t already obvious). The other specific exception caught here is
of the "file" type.

A "file" exception is automatically thrown by the Template Toolkit when
it can’t find a file, or fails to load, parse or process a file that
has been requested by an "INCLUDE", "PROCESS", "INSERT" or "WRAPPER"
directive. If "myfile" can’t be found in the example above, the "[%
INCLUDE myfile %]" directive will raise a "file" exception which is
then caught by the "[% CATCH file %]" block. The output generated
would be:

File Error! myfile: not found

Note that the "DEFAULT" option (disabled by default) allows you to
specify a default file to be used any time a template file can’t be
found. This will prevent file exceptions from ever being raised when a
non-existent file is requested (unless, of course, the "DEFAULT" file
your specify doesn’t exist). Errors encountered once the file has been
found (i.e. read error, parse error) will be raised as file exceptions
as per usual.

Uncaught exceptions (i.e. if the "TRY" block doesn’t have a type
specific or default "CATCH" handler) may be caught by enclosing "TRY"
blocks which can be nested indefinitely across multiple templates. If
the error isn’t caught at any level then processing will stop and the
Template process() method will return a false value to the caller. The
relevant Template::Exception object can be retrieved by calling the
error() method.

[% TRY %]
...
[% TRY %]
[% INCLUDE $user.header %]
[% CATCH file %]
[% INCLUDE header %]
[% END %]
...
[% CATCH DBI %]
[% INCLUDE database/error.html %]
[% END %]

In this example, the inner "TRY" block is used to ensure that the first
"INCLUDE" directive works as expected. We’re using a variable to
provide the name of the template we want to include, "user.header", and
it’s possible this contains the name of a non-existent template, or
perhaps one containing invalid template directives. If the "INCLUDE"
fails with a "file" error then we "CATCH" it in the inner block and
"INCLUDE" the default "header" file instead. Any "DBI" errors that
occur within the scope of the outer "TRY" block will be caught in the
relevant "CATCH" block, causing the "database/error.html" template to
be processed. Note that included templates inherit all currently
defined template variable so these error files can quite happily access
the <error> variable to retrieve information about the currently caught
exception. For example, the "database/error.html" template might look
like this:

<h2>Database Error</h2>
A database error has occurred: [% error.info %]

You can also specify a "FINAL" block. This is always processed
regardless of the outcome of the "TRY" and/or "CATCH" blocks. If an
exception is uncaught then the "FINAL" block is processed before
jumping to the enclosing block or returning to the caller.

[% TRY %]
...
[% CATCH this %]
...
[% CATCH that %]
...
[% FINAL %]
All done!
[% END %]

The output from the "TRY" block is left intact up to the point where an
exception occurs. For example, this template:

[% TRY %]
This gets printed
[% THROW food 'carrots' %]
This doesn't
[% CATCH food %]
culinary delights: [% error.info %]
[% END %]

generates the following output:

This gets printed
culinary delights: carrots

The "CLEAR" directive can be used in a "CATCH" or "FINAL" block to
clear any output created in the "TRY" block.

[% TRY %]
This gets printed
[% THROW food 'carrots' %]
This doesn't
[% CATCH food %]
[% CLEAR %]
culinary delights: [% error.info %]
[% END %]

Output:

culinary delights: carrots

Exception types are hierarchical, with each level being separated by
the familiar dot operator. A "DBI.connect" exception is a more
specific kind of "DBI" error. Similarly, an "example.error.barf" is a
more specific kind of "example.error" type which itself is also a
"example" error.

A "CATCH" handler that specifies a general exception type (such as
"DBI" or "example.error") will also catch more specific types that have
the same prefix as long as a more specific handler isn’t defined. Note
that the order in which "CATCH" handlers are defined is irrelevant; a
more specific handler will always catch an exception in preference to a
more generic or default one.

[% TRY %]
...
[% CATCH DBI ;
INCLUDE database/error.html ;
CATCH DBI.connect ;
INCLUDE database/connect.html ;
CATCH ;
INCLUDE error.html ;
END
%]

In this example, a "DBI.connect" error has it’s own handler, a more
general "DBI" block is used for all other "DBI" or "DBI.*" errors and a
default handler catches everything else.

Exceptions can be raised in a template using the "THROW" directive.
The first parameter is the exception type which doesn’t need to be
quoted (but can be, it’s the same as "INCLUDE") followed by the
relevant error message which can be any regular value such as a quoted
string, variable, etc.

[% THROW food "Missing ingredients: $recipe.error" %]
[% THROW user.login 'no user id: please login' %]
[% THROW $myerror.type "My Error: $myerror.info" %]

It’s also possible to specify additional positional or named parameters
to the "THROW" directive if you want to pass more than just a simple
message back as the error info field.

[% THROW food 'eggs' 'flour' msg='Missing Ingredients' %]

In this case, the error "info" field will be a hash array containing
the named arguments and an "args" item which contains a list of the
positional arguments.

type => 'food',
info => {
msg => 'Missing Ingredients',
args => ['eggs', 'flour'],
}

In addition to specifying individual positional arguments as "[%
error.info.args.n %]", the "info" hash contains keys directly pointing
to the positional arguments, as a convenient shortcut.

[% error.info.0 %] # same as [% error.info.args.0 %]

Exceptions can also be thrown from Perl code which you’ve bound to
template variables, or defined as a plugin or other extension. To
raise an exception, call "die()" passing a reference to a
Template::Exception object as the argument. This will then be caught
by any enclosing "TRY" blocks from where the code was called.

use Template::Exception;
...
my $vars = {
foo => sub {
# ... do something ...
die Template::Exception->new('myerr.naughty',
'Bad, bad error');
},
};

Template:

[% TRY %]
[% foo %]
[% CATCH myerr ;
"Error: $error" ;
END
%]

Output:

Error: myerr.naughty error - Bad, bad error

The "info" field can also be a reference to another object or data
structure, if required.

die Template::Exception->new('myerror', {
module => 'foo.pl',
errors => [ 'bad permissions', 'naughty boy' ],
});

Later, in a template:

[% TRY %]
...
[% CATCH myerror %]
[% error.info.errors.size or 'no';
error.info.errors.size == 1 ? ' error' : ' errors' %]
in [% error.info.module %]:
[% error.info.errors.join(', ') %].
[% END %]

Generating the output:

2 errors in foo.pl:
bad permissions, naughty boy.

You can also call "die()" with a single string, as is common in much
existing Perl code. This will automatically be converted to an
exception of the ’"undef"’ type (that’s the literal string ’"undef"’,
not the undefined value). If the string isn’t terminated with a
newline then Perl will append the familiar " at $file line $line"
message.

sub foo {
# ... do something ...
die "I'm sorry, Dave, I can't do that\n";
}

If you’re writing a plugin, or some extension code that has the current
Template::Context in scope (you can safely skip this section if this
means nothing to you) then you can also raise an exception by calling
the context throw() method. You can pass it an Template::Exception
object reference, a pair of "($type, $info)" parameters or just an
$info string to create an exception of ’"undef"’ type.

$context->throw($e); # exception object
$context->throw('Denied'); # 'undef' type
$context->throw('user.passwd', 'Bad Password');

NEXT
The "NEXT" directive can be used to start the next iteration of a
"FOREACH" or "WHILE" loop.

[% FOREACH user IN users %]
[% NEXT IF user.isguest %]
Name: [% user.name %] Email: [% user.email %]
[% END %]

LAST
The "LAST" directive can be used to prematurely exit a "FOREACH" or
"WHILE" loop.

[% FOREACH user IN users %]
Name: [% user.name %] Email: [% user.email %]
[% LAST IF some.condition %]
[% END %]

"BREAK" can also be used as an alias for "LAST".

RETURN
The "RETURN" directive can be used to stop processing the current
template and return to the template from which it was called, resuming
processing at the point immediately after the "INCLUDE", "PROCESS" or
"WRAPPER" directive. If there is no enclosing template then the
Template process() method will return to the calling code with a true
value.

Before
[% INCLUDE half_wit %]
After

[% BLOCK half_wit %]
This is just half...
[% RETURN %]
...a complete block
[% END %]

Output:

Before
This is just half...
After

STOP
The "STOP" directive can be used to indicate that the processor should
stop gracefully without processing any more of the template document.
This is a planned stop and the Template process() method will return a
true value to the caller. This indicates that the template was
processed successfully according to the directives within it.

[% IF something.terrible.happened %]
[% INCLUDE fatal/error.html %]
[% STOP %]
[% END %]

[% TRY %]
[% USE DBI(mydsn) %]
...
[% CATCH DBI.connect %]
<h1>Cannot connect to the database: [% error.info %]</h1>
<p>
We apologise for the inconvenience.
</p>
[% INCLUDE footer %]
[% STOP %]
[% END %]

CLEAR
The "CLEAR" directive can be used to clear the output buffer for the
current enclosing block. It is most commonly used to clear the output
generated from a "TRY" block up to the point where the error occurred.

[% TRY %]
blah blah blah # this is normally left intact
[% THROW some 'error' %] # up to the point of error
...
[% CATCH %]
[% CLEAR %] # clear the TRY output
[% error %] # print error string
[% END %]

Miscellaneous
META
The "META" directive allows simple metadata items to be defined within
a template. These are evaluated when the template is parsed and as such
may only contain simple values (e.g. it’s not possible to interpolate
other variables values into "META" variables).

[% META
title = 'The Cat in the Hat'
author = 'Dr. Seuss'
version = 1.23
%]

The "template" variable contains a reference to the main template being
processed. These metadata items may be retrieved as attributes of the
template.

<h1>[% template.title %]</h1>
<h2>[% template.author %]</h2>

The "name" and "modtime" metadata items are automatically defined for
each template to contain its name and modification time in seconds
since the epoch.

[% USE date %] # use Date plugin to format time
...
[% template.name %] last modified
at [% date.format(template.modtime) %]

The "PRE_PROCESS" and "POST_PROCESS" options allow common headers and
footers to be added to all templates. The "template" reference is
correctly defined when these templates are processed, allowing headers
and footers to reference metadata items from the main template.

$template = Template->new({
PRE_PROCESS => 'header',
POST_PROCESS => 'footer',
});

$template->process('cat_in_hat');

header:

<html>
<head>
<title>[% template.title %]</title>
</head>
<body>

cat_in_hat:

[% META
title = 'The Cat in the Hat'
author = 'Dr. Seuss'
version = 1.23
year = 2000
%]

The cat in the hat sat on the mat.

footer:

<hr>
© [% template.year %] [% template.author %]
</body>
</html>

The output generated from the above example is:

<html>
<head>
<title>The Cat in the Hat</title>
</head>
<body>
The cat in the hat sat on the mat.
<hr>
© 2000 Dr. Seuss
</body>
</html>

TAGS
The "TAGS" directive can be used to set the "START_TAG" and "END_TAG"
values on a per-template file basis.

[% TAGS <+ +> %]

<+ INCLUDE header +>

The TAGS directive may also be used to set a named "TAG_STYLE"

[% TAGS html %]


See the TAGS and TAG_STYLE configuration options for further details.

DEBUG
The "DEBUG" directive can be used to enable or disable directive debug
messages within a template. The "DEBUG" configuration option must be
set to include "DEBUG_DIRS" for the "DEBUG" directives to have any
effect. If "DEBUG_DIRS" is not set then the parser will automatically
ignore and remove any "DEBUG" directives.

The "DEBUG" directive can be used with an "on" or "off" parameter to
enable or disable directive debugging messages from that point forward.
When enabled, the output of each directive in the generated output will
be prefixed by a comment indicate the file, line and original directive
text.

[% DEBUG on %]
directive debugging is on (assuming DEBUG option is set true)
[% DEBUG off %]
directive debugging is off

The "format" parameter can be used to change the format of the
debugging message.

[% DEBUG format '' %]

perl v5.10.1 2013-07-23 Template::Manual::Directives(3)

</pre>

TemplateManualDirective

2014-02-28T18:48:44Z

50.45.173.59: Created page with " <h2>TemplateManualDirective Ref for the template commands </h2> man Template::Manual::Directives <pre> NAME Template::Manual::Directives - Template directives Acce..."

<h2>TemplateManualDirective Ref for the template commands </h2>

man Template::Manual::Directives

<pre>

NAME
Template::Manual::Directives - Template directives

Accessing and Updating Template Variables
GET
The "GET" directive retrieves and outputs the value of the named
variable.

[% GET foo %]

The "GET" keyword is optional. A variable can be specified in a
directive tag by itself.

[% foo %]

The variable can have an unlimited number of elements, each separated
by a dot. Each element can have arguments specified within parentheses.

[% foo %]
[% bar.baz %]
[% biz.baz(10) %]
...etc...

See Template::Manual::Variables for a full discussion on template
variables.

You can also specify expressions using the logical ("and", "or", "not",
"?", ":") and mathematic operators ("+", "-", "*", "/", "%", "mod",
"div").

[% template.title or default.title %]

[% score * 100 %]

[% order.nitems ? checkout(order.total) : 'no items' %]

The "div" operator returns the integer result of division. Both "%"
and "mod" return the modulus (i.e. remainder) of division.

[% 15 / 6 %] # 2.5
[% 15 div 6 %] # 2
[% 15 mod 6 %] # 3

CALL
The "CALL" directive is similar to "GET" in evaluating the variable
named, but doesn’t print the result returned. This can be useful when
a variable is bound to a sub-routine or object method which you want to
call but aren’t interested in the value returned.

[% CALL dbi.disconnect %]

[% CALL inc_page_counter(page_count) %]

SET
The "SET" directive allows you to assign new values to existing
variables or create new temporary variables.

[% SET title = 'Hello World' %]

The "SET" keyword is also optional.

[% title = 'Hello World' %]

Variables may be assigned the values of other variables, unquoted
numbers (2.718), literal text (’single quotes’) or quoted text ("double
quotes"). In the latter case, any variable references within the text
will be interpolated when the string is evaluated. Variables should be
prefixed by "$", using curly braces to explicitly scope the variable
name where necessary.

[% foo = 'Foo' %] # literal value 'Foo'
[% bar = foo %] # value of variable 'foo'
[% cost = '$100' %] # literal value '$100'
[% item = "$bar: ${cost}.00" %] # value "Foo: $100.00"

Multiple variables may be assigned in the same directive and are
evaluated in the order specified. Thus, the above could have been
written:

[% foo = 'Foo'
bar = foo
cost = '$100'
item = "$bar: ${cost}.00"
%]

Simple expressions can also be used, as per "GET".

[% ten = 10
twenty = 20
thirty = twenty + ten
forty = 2 * twenty
fifty = 100 div 2
six = twenty mod 7
%]

You can concatenate strings together using the ' _ ' operator. In Perl
5, the "." is used for string concatenation, but in Perl 6, as in the
Template Toolkit, the "." will be used as the method calling operator
and ' _ ' will be used for string concatenation. Note that the
operator must be specified with surrounding whitespace which, as Larry
says, is construed as a feature:

[% copyright = '(C) Copyright' _ year _ ' ' _ author %]

You can, of course, achieve a similar effect with double quoted string
interpolation.

[% copyright = "(C) Copyright $year $author" %]

DEFAULT
The "DEFAULT" directive is similar to "SET" but only updates variables
that are currently undefined or have no "true" value (in the Perl
sense).

[% DEFAULT
name = 'John Doe'
id = 'jdoe'
%]

This can be particularly useful in common template components to ensure
that some sensible default are provided for otherwise undefined
variables.

[% DEFAULT
title = 'Hello World'
bgcol = '#ffffff'
%]
<html>
<head>
<title>[% title %]</title>
</head>
<body bgcolor="[% bgcol %]">
...etc...

Processing Template Files and Blocks
INSERT
The "INSERT" directive is used to insert the contents of an external
file at the current position.

[% INSERT myfile %]

No attempt to parse or process the file is made. The contents,
possibly including any embedded template directives, are inserted
intact.

The filename specified should be relative to one of the "INCLUDE_PATH"
directories. Absolute (i.e. starting with "/") and relative (i.e.
starting with ".") filenames may be used if the "ABSOLUTE" and
"RELATIVE" options are set, respectively. Both these options are
disabled by default.

my $template = Template->new({
INCLUDE_PATH => '/here:/there',
});

$template->process('myfile');

myfile:

[% INSERT foo %] # looks for /here/foo then /there/foo
[% INSERT /etc/passwd %] # file error: ABSOLUTE not set
[% INSERT ../secret %] # file error: RELATIVE not set

For convenience, the filename does not need to be quoted as long as it
contains only alphanumeric characters, underscores, dots or forward
slashes. Names containing any other characters should be quoted.

[% INSERT misc/legalese.txt %]
[% INSERT 'dos98/Program Files/stupid' %]

To evaluate a variable to specify a filename, you should explicitly
prefix it with a "$" or use double-quoted string interpolation.

[% language = 'en'
legalese = 'misc/legalese.txt'
%]

[% INSERT $legalese %] # misc/legalese.txt
[% INSERT "$language/$legalese" %] # en/misc/legalese.txt

Multiple files can be specified using "+" as a delimiter. All files
should be unquoted names or quoted strings. Any variables should be
interpolated into double-quoted strings.

[% INSERT legalese.txt + warning.txt %]
[% INSERT "$legalese" + warning.txt %] # requires quoting

INCLUDE
The "INCLUDE" directive is used to process and include the output of
another template file or block.

[% INCLUDE header %]

If a "BLOCK" of the specified name is defined in the same file, or in a
file from which the current template has been called (i.e. a parent
template) then it will be used in preference to any file of the same
name.

[% INCLUDE table %] # uses BLOCK defined below

[% BLOCK table %]
<table>
...
</table>
[% END %]

If a "BLOCK" definition is not currently visible then the template name
should be a file relative to one of the "INCLUDE_PATH" directories, or
an absolute or relative file name if the "ABSOLUTE"/"RELATIVE" options
are appropriately enabled. The "INCLUDE" directive automatically
quotes the filename specified, as per "INSERT" described above. When a
variable contains the name of the template for the "INCLUDE" directive,
it should be explicitly prefixed by "$" or double-quoted

[% myheader = 'my/misc/header' %]
[% INCLUDE myheader %] # 'myheader'
[% INCLUDE $myheader %] # 'my/misc/header'
[% INCLUDE "$myheader" %] # 'my/misc/header'

Any template directives embedded within the file will be processed
accordingly. All variables currently defined will be visible and
accessible from within the included template.

[% title = 'Hello World' %]
[% INCLUDE header %]
<body>
...

header:

<html>
<title>[% title %]</title>

output:

<html>
<title>Hello World</title>
<body>
...

Local variable definitions may be specified after the template name,
temporarily masking any existing variables. Insignificant whitespace
is ignored within directives so you can add variable definitions on the
same line, the next line or split across several line with comments
interspersed, if you prefer.

[% INCLUDE table %]

[% INCLUDE table title="Active Projects" %]

[% INCLUDE table
title = "Active Projects"
bgcolor = "#80ff00" # chartreuse
border = 2
%]

The "INCLUDE" directive localises (i.e. copies) all variables before
processing the template. Any changes made within the included template
will not affect variables in the including template.

[% foo = 10 %]

foo is originally [% foo %]
[% INCLUDE bar %]
foo is still [% foo %]

[% BLOCK bar %]
foo was [% foo %]
[% foo = 20 %]
foo is now [% foo %]
[% END %]

output:

foo is originally 10
foo was 10
foo is now 20
foo is still 10

Technical Note: the localisation of the stash (that is, the process by
which variables are copied before an "INCLUDE" to prevent being
overwritten) is only skin deep. The top-level variable namespace
(hash) is copied, but no attempt is made to perform a deep-copy of
other structures (hashes, arrays, objects, etc.) Therefore, a "foo"
variable referencing a hash will be copied to create a new "foo"
variable but which points to the same hash array. Thus, if you update
compound variables (e.g. "foo.bar") then you will change the original
copy, regardless of any stash localisation. If you’re not worried
about preserving variable values, or you trust the templates you’re
including then you might prefer to use the "PROCESS" directive which is
faster by virtue of not performing any localisation.

You can specify dotted variables as "local" variables to an "INCLUDE"
directive. However, be aware that because of the localisation issues
explained above (if you skipped the previous Technical Note above then
you might want to go back and read it or skip this section too), the
variables might not actually be "local". If the first element of the
variable name already references a hash array then the variable update
will affect the original variable.

[% foo = {
bar = 'Baz'
}
%]

[% INCLUDE somefile foo.bar='Boz' %]

[% foo.bar %] # Boz

This behaviour can be a little unpredictable (and may well be improved
upon in a future version). If you know what you’re doing with it and
you’re sure that the variables in question are defined (nor not) as you
expect them to be, then you can rely on this feature to implement some
powerful "global" data sharing techniques. Otherwise, you might prefer
to steer well clear and always pass simple (undotted) variables as
parameters to "INCLUDE" and other similar directives.

If you want to process several templates in one go then you can specify
each of their names (quoted or unquoted names only, no unquoted
$variables) joined together by "+". The "INCLUDE" directive will then
process them in order.

[% INCLUDE html/header + "site/$header" + site/menu
title = "My Groovy Web Site"
%]

The variable stash is localised once and then the templates specified
are processed in order, all within that same variable context. This
makes it slightly faster than specifying several separate "INCLUDE"
directives (because you only clone the variable stash once instead of n
times), but not quite as "safe" because any variable changes in the
first file will be visible in the second, third and so on. This might
be what you want, of course, but then again, it might not.

PROCESS
The PROCESS directive is similar to "INCLUDE" but does not perform any
localisation of variables before processing the template. Any changes
made to variables within the included template will be visible in the
including template.

[% foo = 10 %]

foo is [% foo %]
[% PROCESS bar %]
foo is [% foo %]

[% BLOCK bar %]
[% foo = 20 %]
changed foo to [% foo %]
[% END %]

output:

foo is 10
changed foo to 20
foo is 20

Parameters may be specified in the "PROCESS" directive, but these too
will become visible changes to current variable values.

[% foo = 10 %]
foo is [% foo %]
[% PROCESS bar
foo = 20
%]
foo is [% foo %]

[% BLOCK bar %]
this is bar, foo is [% foo %]
[% END %]

output:

foo is 10
this is bar, foo is 20
foo is 20

The "PROCESS" directive is slightly faster than "INCLUDE" because it
avoids the need to localise (i.e. copy) the variable stash before
processing the template. As with "INSERT" and "INCLUDE", the first
parameter does not need to be quoted as long as it contains only
alphanumeric characters, underscores, periods or forward slashes. A
"$" prefix can be used to explicitly indicate a variable which should
be interpolated to provide the template name:

[% myheader = 'my/misc/header' %]
[% PROCESS myheader %] # 'myheader'
[% PROCESS $myheader %] # 'my/misc/header'

As with "INCLUDE", multiple templates can be specified, delimited by
"+", and are processed in order.

[% PROCESS html/header + my/header %]

WRAPPER
It’s not unusual to find yourself adding common headers and footers to
pages or sub-sections within a page. Something like this:

[% INCLUDE section/header
title = 'Quantum Mechanics'
%]
Quantum mechanics is a very interesting subject wish
should prove easy for the layman to fully comprehend.
[% INCLUDE section/footer %]

[% INCLUDE section/header
title = 'Desktop Nuclear Fusion for under $50'
%]
This describes a simple device which generates significant
sustainable electrical power from common tap water by process
of nuclear fusion.
[% INCLUDE section/footer %]

The individual template components being included might look like
these:

section/header:

<p>
<h2>[% title %]</h2>

section/footer:

</p>

The "WRAPPER" directive provides a way of simplifying this a little. It
encloses a block up to a matching "END" directive, which is first
processed to generate some output. This is then passed to the named
template file or "BLOCK" as the "content" variable.

[% WRAPPER section
title = 'Quantum Mechanics'
%]
Quantum mechanics is a very interesting subject wish
should prove easy for the layman to fully comprehend.
[% END %]

[% WRAPPER section
title = 'Desktop Nuclear Fusion for under $50'
%]
This describes a simple device which generates significant
sustainable electrical power from common tap water by process
of nuclear fusion.
[% END %]

The single ’section’ template can then be defined as:

<h2>[% title %]</h2>
<p>
[% content %]
</p>

Like other block directives, it can be used in side-effect notation:

[% INSERT legalese.txt WRAPPER big_bold_table %]

It’s also possible to specify multiple templates to a "WRAPPER"
directive. The specification order indicates outermost to innermost
wrapper templates. For example, given the following template block
definitions:

[% BLOCK bold %]<b>[% content %]</b>[% END %]
[% BLOCK italic %]<i>[% content %]</i>[% END %]

the directive

[% WRAPPER bold+italic %]Hello World[% END %]

would generate the following output:

<b><i>Hello World</i></b>

BLOCK
The "BLOCK"..."END" construct can be used to define template component
blocks which can be processed with the "INCLUDE", "PROCESS" and
"WRAPPER" directives.

[% BLOCK tabrow %]
<tr>
<td>[% name %]<td>
<td>[% email %]</td>
</tr>
[% END %]

<table>
[% PROCESS tabrow name='Fred' email='fred@nowhere.com' %]
[% PROCESS tabrow name='Alan' email='alan@nowhere.com' %]
</table>

A "BLOCK" definition can be used before it is defined, as long as the
definition resides in the same file. The block definition itself does
not generate any output.

[% PROCESS tmpblk %]

[% BLOCK tmpblk %] This is OK [% END %]

You can use an anonymous "BLOCK" to capture the output of a template
fragment.

[% julius = BLOCK %]
And Caesar's spirit, ranging for revenge,
With Ate by his side come hot from hell,
Shall in these confines with a monarch's voice
Cry 'Havoc', and let slip the dogs of war;
That this foul deed shall smell above the earth
With carrion men, groaning for burial.
[% END %]

Like a named block, it can contain any other template directives which
are processed when the block is defined. The output generated by the
block is then assigned to the variable "julius".

Anonymous "BLOCK"s can also be used to define block macros. The
enclosing block is processed each time the macro is called.

[% MACRO locate BLOCK %]
The [% animal %] sat on the [% place %].
[% END %]

[% locate(animal='cat', place='mat') %] # The cat sat on the mat
[% locate(animal='dog', place='log') %] # The dog sat on the log

Conditional Processing
IF / UNLESS / ELSIF / ELSE
The "IF" and "UNLESS" directives can be used to process or ignore a
block based on some run-time condition.

[% IF frames %]
[% INCLUDE frameset %]
[% END %]

[% UNLESS text_mode %]
[% INCLUDE biglogo %]
[% END %]

Multiple conditions may be joined with "ELSIF" and/or "ELSE" blocks.

[% IF age < 10 %]
Hello [% name %], does your mother know you're
using her AOL account?
[% ELSIF age < 18 %]
Sorry, you're not old enough to enter
(and too dumb to lie about your age)
[% ELSE %]
Welcome [% name %].
[% END %]

The following conditional and boolean operators may be used:

== != < <= > >= && || ! and or not

Conditions may be arbitrarily complex and are evaluated with the same
precedence as in Perl. Parenthesis may be used to explicitly determine
evaluation order.

# ridiculously contrived complex example
[% IF (name == 'admin' || uid <= 0) && mode == 'debug' %]
I'm confused.
[% ELSIF more > less %]
That's more or less correct.
[% END %]

The "and", "or" and "not" operator are provided as aliases for "&&",
"||" and "!", respectively. Unlike Perl, which treats "and", "or" and
"not" as separate, lower-precedence versions of the other operators,
the Template Toolkit performs a straightforward substitution of "and"
for "&&", and so on. That means that "and", "or" and "not" have the
same operator precedence as "&&", "||" and "!".

SWITCH / CASE
The "SWITCH" / "CASE" construct can be used to perform a multi-way
conditional test. The "SWITCH" directive expects an expression which
is first evaluated and then compared against each CASE statement in
turn. Each "CASE" directive should contain a single value or a list of
values which should match. "CASE" may also be left blank or written as
"[% CASE DEFAULT %]" to specify a default match. Only one "CASE"
matches, there is no drop-through between "CASE" statements.

[% SWITCH myvar %]
[% CASE 'value1' %]
...
[% CASE ['value2', 'value3'] %] # multiple values
...
[% CASE myhash.keys %] # ditto
...
[% CASE %] # default
...
[% END %]

Loop Processing
FOREACH
The "FOREACH" directive will iterate through the items in a list,
processing the enclosed block for each one.

[% foo = 'Foo'
items = [ 'one', 'two', 'three' ]
%]

Things:
[% FOREACH thing IN [ foo 'Bar' "$foo Baz" ] %]
* [% thing %]
[% END %]

Items:
[% FOREACH i IN items %]
* [% i %]
[% END %]

Stuff:
[% stuff = [ foo "$foo Bar" ] %]
[% FOREACH s IN stuff %]
* [% s %]
[% END %]

output:

Things:
* Foo
* Bar
* Foo Baz

Items:
* one
* two
* three

Stuff:
* Foo
* Foo Bar

You can use also use "=" instead of "IN" if you prefer.

[% FOREACH i = items %]

When the "FOREACH" directive is used without specifying a target
variable, any iterated values which are hash references will be
automatically imported.

[% userlist = [
{ id => 'tom', name => 'Thomas' },
{ id => 'dick', name => 'Richard' },
{ id => 'larry', name => 'Lawrence' },
]
%]

[% FOREACH user IN userlist %]
[% user.id %] [% user.name %]
[% END %]

short form:

[% FOREACH userlist %]
[% id %] [% name %]
[% END %]

Note that this particular usage creates a localised variable context to
prevent the imported hash keys from overwriting any existing variables.
The imported definitions and any other variables defined in such a
"FOREACH" loop will be lost at the end of the loop, when the previous
context and variable values are restored.

However, under normal operation, the loop variable remains in scope
after the "FOREACH" loop has ended (caveat: overwriting any variable
previously in scope). This is useful as the loop variable is secretly
an iterator object (see below) and can be used to analyse the last
entry processed by the loop.

The "FOREACH" directive can also be used to iterate through the entries
in a hash array. Each entry in the hash is returned in sorted order
(based on the key) as a hash array containing ’key’ and ’value’ items.

[% users = {
tom => 'Thomas',
dick => 'Richard',
larry => 'Lawrence',
}
%]

[% FOREACH u IN users %]
* [% u.key %] : [% u.value %]
[% END %]

Output:

* dick : Richard
* larry : Lawrence
* tom : Thomas

The "NEXT" directive starts the next iteration in the "FOREACH" loop.

[% FOREACH user IN userlist %]
[% NEXT IF user.isguest %]
Name: [% user.name %] Email: [% user.email %]
[% END %]

The "LAST" directive can be used to prematurely exit the loop. "BREAK"
is also provided as an alias for "LAST".

[% FOREACH match IN results.nsort('score').reverse %]
[% LAST IF match.score < 50 %]
[% match.score %] : [% match.url %]
[% END %]

The "FOREACH" directive is implemented using the Template::Iterator
module. A reference to the iterator object for a "FOREACH" directive
is implicitly available in the "loop" variable. The following methods
can be called on the "loop" iterator.

size() number of elements in the list
max() index number of last element (size - 1)
index() index of current iteration from 0 to max()
count() iteration counter from 1 to size() (i.e. index() + 1)
first() true if the current iteration is the first
last() true if the current iteration is the last
prev() return the previous item in the list
next() return the next item in the list

See Template::Iterator for further details.

Example:

[% FOREACH item IN [ 'foo', 'bar', 'baz' ] -%]
[%- "<ul>\n" IF loop.first %]
<li>[% loop.count %]/[% loop.size %]: [% item %]
[%- "</ul>\n" IF loop.last %]
[% END %]

Output:

<ul>
<li>1/3: foo
<li>2/3: bar
<li>3/3: baz
</ul>

Nested loops will work as expected, with the "loop" variable correctly
referencing the innermost loop and being restored to any previous value
(i.e. an outer loop) at the end of the loop.

[% FOREACH group IN grouplist;
# loop => group iterator
"Groups:\n" IF loop.first;

FOREACH user IN group.userlist;
# loop => user iterator
"$loop.count: $user.name\n";
END;

# loop => group iterator
"End of Groups\n" IF loop.last;
END
%]

The "iterator" plugin can also be used to explicitly create an iterator
object. This can be useful within nested loops where you need to keep
a reference to the outer iterator within the inner loop. The iterator
plugin effectively allows you to create an iterator by a name other
than "loop". See Template::Plugin::Iterator for further details.

[% USE giter = iterator(grouplist) %]

[% FOREACH group IN giter %]
[% FOREACH user IN group.userlist %]
user #[% loop.count %] in
group [% giter.count %] is
named [% user.name %]
[% END %]
[% END %]

WHILE
The "WHILE" directive can be used to repeatedly process a template
block while a conditional expression evaluates true. The expression
may be arbitrarily complex as per "IF" / "UNLESS".

[% WHILE total < 100 %]
...
[% total = calculate_new_total %]
[% END %]

An assignment can be enclosed in parenthesis to evaluate the assigned
value.

[% WHILE (user = get_next_user_record) %]
[% user.name %]
[% END %]

The "NEXT" directive can be used to start the next iteration of a
"WHILE" loop and "BREAK" can be used to exit the loop, both as per
"FOREACH".

The Template Toolkit uses a failsafe counter to prevent runaway "WHILE"
loops which would otherwise never terminate. If the loop exceeds 1000
iterations then an "undef" exception will be thrown, reporting the
error:

WHILE loop terminated (> 1000 iterations)

The $Template::Directive::WHILE_MAX variable controls this behaviour
and can be set to a higher value if necessary.

Filters, Plugins, Macros and Perl
FILTER
The "FILTER" directive can be used to post-process the output of a
block. A number of standard filters are provided with the Template
Toolkit. The "html" filter, for example, escapes the ’<’, ’>’ and ’&’
characters to prevent them from being interpreted as HTML tags or
entity reference markers.

[% FILTER html %]
HTML text may have < and > characters embedded
which you want converted to the correct HTML entities.
[% END %]

output:

HTML text may have < and > characters embedded
which you want converted to the correct HTML entities.

The "FILTER" directive can also follow various other non-block
directives. For example:

[% INCLUDE mytext FILTER html %]

The "|" character can also be used as an alias for "FILTER".

[% INCLUDE mytext | html %]

Multiple filters can be chained together and will be called in
sequence.

[% INCLUDE mytext FILTER html FILTER html_para %]

or

[% INCLUDE mytext | html | html_para %]

Filters come in two flavours, known as ’static’ or ’dynamic’. A static
filter is a simple subroutine which accepts a text string as the only
argument and returns the modified text. The "html" filter is an
example of a static filter, implemented as:

sub html_filter {
my $text = shift;
for ($text) {
s/&/&/g;
s/</</g;
s/>/>/g;
}
return $text;
}

Dynamic filters can accept arguments which are specified when the
filter is called from a template. The "repeat" filter is such an
example, accepting a numerical argument which specifies the number of
times that the input text should be repeated.

[% FILTER repeat(3) %]blah [% END %]

output:

blah blah blah

These are implemented as filter ’factories’. The factory subroutine is
passed a reference to the current Template::Context object along with
any additional arguments specified. It should then return a subroutine
reference (e.g. a closure) which implements the filter. The "repeat"
filter factory is implemented like this:

sub repeat_filter_factory {
my ($context, $iter) = @_;
$iter = 1 unless defined $iter;

return sub {
my $text = shift;
$text = '' unless defined $text;
return join('\n', $text) x $iter;
}
}

The "FILTERS" option, described in Template::Manual::Config, allows
custom filters to be defined when a Template object is instantiated.
The define_filter() method allows further filters to be defined at any
time.

When using a filter, it is possible to assign an alias to it for
further use. This is most useful for dynamic filters that you want to
re-use with the same configuration.

[% FILTER echo = repeat(2) %]
Is there anybody out there?
[% END %]

[% FILTER echo %]
Mother, should I build a wall?
[% END %]

Output:

Is there anybody out there?
Is there anybody out there?

Mother, should I build a wall?
Mother, should I build a wall?

The "FILTER" directive automatically quotes the name of the filter. As
with "INCLUDE" et al, you can use a variable to provide the name of the
filter, prefixed by "$".

[% myfilter = 'html' %]
[% FILTER $myfilter %] # same as [% FILTER html %]
...
[% END %]

A template variable can also be used to define a static filter
subroutine. However, the Template Toolkit will automatically call any
subroutine bound to a variable and use the value returned. Thus, the
above example could be implemented as:

my $vars = {
myfilter => sub { return 'html' },
};

template:

[% FILTER $myfilter %] # same as [% FILTER html %]
...
[% END %]

To define a template variable that evaluates to a subroutine reference
that can be used by the "FILTER" directive, you should create a
subroutine that, when called automatically by the Template Toolkit,
returns another subroutine reference which can then be used to perform
the filter operation. Note that only static filters can be implemented
in this way.

my $vars = {
myfilter => sub { \&my_filter_sub },
};

sub my_filter_sub {
my $text = shift;
# do something
return $text;
}

template:

[% FILTER $myfilter %]
...
[% END %]

Alternately, you can bless a subroutine reference into a class (any
class will do) to fool the Template Toolkit into thinking it’s an
object rather than a subroutine. This will then bypass the automatic
"call-a-subroutine-to-return-a-value" magic.

my $vars = {
myfilter => bless(\&my_filter_sub, 'anything_you_like'),
};

template:

[% FILTER $myfilter %]
...
[% END %]

Filters bound to template variables remain local to the variable
context in which they are defined. That is, if you define a filter in a
"PERL" block within a template that is loaded via "INCLUDE", then the
filter definition will only exist until the end of that template when
the stash is delocalised, restoring the previous variable state. If you
want to define a filter which persists for the lifetime of the
processor, or define additional dynamic filter factories, then you can
call the define_filter() method on the current Template::Context
object.

See Template::Manual::Filters for a complete list of available filters,
their descriptions and examples of use.

USE
The "USE" directive can be used to load and initialise "plugin"
extension modules.

[% USE myplugin %]

A plugin is a regular Perl module that conforms to a particular object-
oriented interface, allowing it to be loaded into and used
automatically by the Template Toolkit. For details of this interface
and information on writing plugins, consult Template::Plugin.

A number of standard plugins are included with the Template Toolkit
(see below and Template::Manual::Plugins). The names of these standard
plugins are case insensitive.

[% USE CGI %] # => Template::Plugin::CGI
[% USE Cgi %] # => Template::Plugin::CGI
[% USE cgi %] # => Template::Plugin::CGI

You can also define further plugins using the "PLUGINS" option.

my $tt = Template->new({
PLUGINS => {
foo => 'My::Plugin::Foo',
bar => 'My::Plugin::Bar',
},
});

The recommended convention is to specify these plugin names in lower
case. The Template Toolkit first looks for an exact case-sensitive
match and then tries the lower case conversion of the name specified.

[% USE Foo %] # look for 'Foo' then 'foo'

If you define all your "PLUGINS" with lower case names then they will
be located regardless of how the user specifies the name in the "USE"
directive. If, on the other hand, you define your "PLUGINS" with upper
or mixed case names then the name specified in the "USE" directive must
match the case exactly.

If the plugin isn’t defined in either the standard plugins
($Template::Plugins::STD_PLUGINS) or via the "PLUGINS" option, then the
"PLUGIN_BASE" is searched.

In this case the plugin name is case-sensitive. It is appended to each
of the "PLUGIN_BASE" module namespaces in turn (default:
"Template::Plugin") to construct a full module name which it attempts
to locate and load. Any periods, ’"."’, in the name will be converted
to ’"::"’.

[% USE MyPlugin %] # => Template::Plugin::MyPlugin
[% USE Foo.Bar %] # => Template::Plugin::Foo::Bar

The "LOAD_PERL" option (disabled by default) provides a further way by
which external Perl modules may be loaded. If a regular Perl module
(i.e. not a "Template::Plugin::*" or other module relative to some
"PLUGIN_BASE") supports an object-oriented interface and a "new()"
constructor then it can be loaded and instantiated automatically. The
following trivial example shows how the IO::File module might be used.

[% USE file = IO.File('/tmp/mydata') %]

[% WHILE (line = file.getline) %]

[% END %]

Any additional parameters supplied in parenthesis after the plugin name
will be also be passed to the "new()" constructor. A reference to the
current Template::Context object is passed as the first parameter.

[% USE MyPlugin('foo', 123) %]

equivalent to:

Template::Plugin::MyPlugin->new($context, 'foo', 123);

The only exception to this is when a module is loaded via the
"LOAD_PERL" option. In this case the $context reference is not passed
to the "new()" constructor. This is based on the assumption that the
module is a regular Perl module rather than a Template Toolkit plugin
so isn’t expecting a context reference and wouldn’t know what to do
with it anyway.

Named parameters may also be specified. These are collated into a hash
which is passed by reference as the last parameter to the constructor,
as per the general code calling interface.

[% USE url('/cgi-bin/foo', mode='submit', debug=1) %]

equivalent to:

Template::Plugin::URL->new(
$context,
'/cgi-bin/foo'
{ mode => 'submit', debug => 1 }
);

The plugin may represent any data type; a simple variable, hash, list
or code reference, but in the general case it will be an object
reference. Methods can be called on the object (or the relevant
members of the specific data type) in the usual way:

[% USE table(mydata, rows=3) %]

[% FOREACH row IN table.rows %]
<tr>
[% FOREACH item IN row %]
<td>[% item %]</td>
[% END %]
</tr>
[% END %]

An alternative name may be provided for the plugin by which it can be
referenced:

[% USE scores = table(myscores, cols=5) %]

[% FOREACH row IN scores.rows %]
...
[% END %]

You can use this approach to create multiple plugin objects with
different configurations. This example shows how the format plugin is
used to create sub-routines bound to variables for formatting text as
per "printf()".

[% USE bold = format('<b>%s</b>') %]
[% USE ital = format('<i>%s</i>') %]
[% bold('This is bold') %]
[% ital('This is italic') %]

Output:

<b>This is bold</b>
<i>This is italic</i>

This next example shows how the URL plugin can be used to build dynamic
URLs from a base part and optional query parameters.

[% USE mycgi = URL('/cgi-bin/foo.pl', debug=1) %]
<a href="[% mycgi %]">...
<a href="[% mycgi(mode='submit') %]"...

Output:

<a href="/cgi-bin/foo.pl?debug=1">...
<a href="/cgi-bin/foo.pl?mode=submit&debug=1">...

The CGI plugin is an example of one which delegates to another Perl
module. In this case, to Lincoln Stein’s "CGI" module. All of the
methods provided by the "CGI" module are available via the plugin.

[% USE CGI;
CGI.start_form;
CGI.checkbox_group( name = 'colours',
values = [ 'red' 'green' 'blue' ] );
CGI.popup_menu( name = 'items',
values = [ 'foo' 'bar' 'baz' ] );
CGI.end_form
%]

See Template::Manual::Plugins for more information on the plugins
distributed with the toolkit or available from CPAN.

MACRO
The "MACRO" directive allows you to define a directive or directive
block which is then evaluated each time the macro is called.

[% MACRO header INCLUDE header %]

Calling the macro as:

[% header %]

is then equivalent to:

[% INCLUDE header %]

Macros can be passed named parameters when called. These values remain
local to the macro.

[% header(title='Hello World') %]

equivalent to:

[% INCLUDE header title='Hello World' %]

A "MACRO" definition may include parameter names. Values passed to the
macros are then mapped to these local variables. Other named
parameters may follow these.

[% MACRO header(title) INCLUDE header %]
[% header('Hello World') %]
[% header('Hello World', bgcol='#123456') %]

equivalent to:

[% INCLUDE header title='Hello World' %]
[% INCLUDE header title='Hello World' bgcol='#123456' %]

Here’s another example, defining a macro for display numbers in comma-
delimited groups of 3, using the chunk and join virtual method.

[% MACRO number(n) GET n.chunk(-3).join(',') %]
[% number(1234567) %] # 1,234,567

A "MACRO" may precede any directive and must conform to the structure
of the directive.

[% MACRO header IF frames %]
[% INCLUDE frames/header %]
[% ELSE %]
[% INCLUDE header %]
[% END %]

[% header %]

A "MACRO" may also be defined as an anonymous "BLOCK". The block will
be evaluated each time the macro is called.

[% MACRO header BLOCK %]
...content...
[% END %]

[% header %]

If you’ve got the "EVAL_PERL" option set, then you can even define a
"MACRO" as a "PERL" block (see below):

[% MACRO triple(n) PERL %]
my $n = $stash->get('n');
print $n * 3;
[% END -%]

PERL
(for the advanced reader)

The "PERL" directive is used to mark the start of a block which
contains Perl code for evaluation. The "EVAL_PERL" option must be
enabled for Perl code to be evaluated or a "perl" exception will be
thrown with the message ’"EVAL_PERL not set"’.

Perl code is evaluated in the "Template::Perl" package. The $context
package variable contains a reference to the current Template::Context
object. This can be used to access the functionality of the Template
Toolkit to process other templates, load plugins, filters, etc. See
Template::Context for further details.

[% PERL %]
print $context->include('myfile');
[% END %]

The $stash variable contains a reference to the top-level stash object
which manages template variables. Through this, variable values can be
retrieved and updated. See Template::Stash for further details.

[% PERL %]
$stash->set(foo => 'bar');
print "foo value: ", $stash->get('foo');
[% END %]

Output:

foo value: bar

Output is generated from the "PERL" block by calling "print()". Note
that the "Template::Perl::PERLOUT" handle is selected (tied to an
output buffer) instead of "STDOUT".

[% PERL %]
print "foo\n"; # OK
print PERLOUT "bar\n"; # OK, same as above
print Template::Perl::PERLOUT "baz\n"; # OK, same as above
print STDOUT "qux\n"; # WRONG!
[% END %]

The "PERL" block may contain other template directives. These are
processed before the Perl code is evaluated.

[% name = 'Fred Smith' %]

[% PERL %]
print "[% name %]\n";
[% END %]

Thus, the Perl code in the above example is evaluated as:

print "Fred Smith\n";

Exceptions may be thrown from within "PERL" blocks using "die()". They
will be correctly caught by enclosing "TRY" blocks.

[% TRY %]
[% PERL %]
die "nothing to live for\n";
[% END %]
[% CATCH %]
error: [% error.info %]
[% END %]

output:
error: nothing to live for

RAWPERL
(for the very advanced reader)

The Template Toolkit parser reads a source template and generates the
text of a Perl subroutine as output. It then uses "eval()" to evaluate
it into a subroutine reference. This subroutine is then called to
process the template, passing a reference to the current
Template::Context object through which the functionality of the
Template Toolkit can be accessed. The subroutine reference can be
cached, allowing the template to be processed repeatedly without
requiring any further parsing.

For example, a template such as:

[% PROCESS header %]
The [% animal %] sat on the [% location %]
[% PROCESS footer %]

is converted into the following Perl subroutine definition:

sub {
my $context = shift;
my $stash = $context->stash;
my $output = '';
my $error;

eval { BLOCK: {
$output .= $context->process('header');
$output .= "The ";
$output .= $stash->get('animal');
$output .= " sat on the ";
$output .= $stash->get('location');
$output .= $context->process('footer');
$output .= "\n";
} };
if ($@) {
$error = $context->catch($@, \$output);
die $error unless $error->type eq 'return';
}

return $output;
}

To examine the Perl code generated, such as in the above example, set
the $Template::Parser::DEBUG package variable to any true value. You
can also set the $Template::Directive::PRETTY variable true to have the
code formatted in a readable manner for human consumption. The source
code for each generated template subroutine will be printed to "STDERR"
on compilation (i.e. the first time a template is used).

$Template::Parser::DEBUG = 1;
$Template::Directive::PRETTY = 1;

$template->process($file, $vars)
|| die $template->error(), "\n";

The "PERL" ... "END" construct allows Perl code to be embedded into a
template when the "EVAL_PERL" option is set. It is evaluated at
"runtime" using "eval()" each time the template subroutine is called.
This is inherently flexible, but not as efficient as it could be,
especially in a persistent server environment where a template may be
processed many times.

The "RAWPERL" directive allows you to write Perl code that is
integrated directly into the generated Perl subroutine text. It is
evaluated once at compile time and is stored in cached form as part of
the compiled template subroutine. This makes "RAWPERL" blocks more
efficient than "PERL" blocks.

The downside is that you must code much closer to the metal. For
example, in a "PERL" block you can call print() to generate some
output. "RAWPERL" blocks don’t afford such luxury. The code is inserted
directly into the generated subroutine text and should conform to the
convention of appending to the $output variable.

[% PROCESS header %]

[% RAWPERL %]
$output .= "Some output\n";
...
$output .= "Some more output\n";
[% END %]

The critical section of the generated subroutine for this example would
then look something like:

...
eval { BLOCK: {
$output .= $context->process('header');
$output .= "\n";
$output .= "Some output\n";
...
$output .= "Some more output\n";
$output .= "\n";
} };
...

As with "PERL" blocks, the $context and $stash references are pre-
defined and available for use within "RAWPERL" code.

Exception Handling and Flow Control
TRY / THROW / CATCH / FINAL
(more advanced material)

The Template Toolkit supports fully functional, nested exception
handling. The "TRY" directive introduces an exception handling scope
which continues until the matching "END" directive. Any errors that
occur within that block will be caught and can be handled by one of the
"CATCH" blocks defined.

[% TRY %]
...blah...blah...
[% CALL somecode %]
...etc...
[% INCLUDE someblock %]
...and so on...
[% CATCH %]
An error occurred!
[% END %]

Errors are raised as exceptions (objects of the Template::Exception
class) which contain two fields: "type" and "info". The exception
"type" is used to indicate the kind of error that occurred. It is a
simple text string which can contain letters, numbers, ’"_"’ or ’"."’.
The "info" field contains an error message indicating what actually
went wrong. Within a catch block, the exception object is aliased to
the "error" variable. You can access the "type" and "info" fields
directly.

[% mydsn = 'dbi:MySQL:foobar' %]
...

[% TRY %]
[% USE DBI(mydsn) %]
[% CATCH %]
ERROR! Type: [% error.type %]
Info: [% error.info %]
[% END %]

output (assuming a non-existent database called ’"foobar"’):

ERROR! Type: DBI
Info: Unknown database "foobar"

The "error" variable can also be specified by itself and will return a
string of the form ""$type error - $info"".

...
[% CATCH %]
ERROR: [% error %]
[% END %]

Output:

ERROR: DBI error - Unknown database "foobar"

Each "CATCH" block may be specified with a particular exception type
denoting the kind of error that it should catch. Multiple "CATCH"
blocks can be provided to handle different types of exception that may
be thrown in the "TRY" block. A "CATCH" block specified without any
type, as in the previous example, is a default handler which will catch
any otherwise uncaught exceptions. This can also be specified as "[%
CATCH DEFAULT %]".

[% TRY %]
[% INCLUDE myfile %]
[% USE DBI(mydsn) %]
[% CALL somecode %]
[% CATCH file %]
File Error! [% error.info %]
[% CATCH DBI %]
[% INCLUDE database/error.html %]
[% CATCH %]
[% error %]
[% END %]

Remember that you can specify multiple directives within a single tag,
each delimited by ’";"’. So the above example can be written more
concisely as:

[% TRY;
INCLUDE myfile;
USE DBI(mydsn);
CALL somecode;
CATCH file;
"File Error! $error.info";
CATCH DBI;
INCLUDE database/error.html;
CATCH;
error;
END
%]

The "DBI" plugin throws exceptions of the "DBI" type (in case that
wasn’t already obvious). The other specific exception caught here is
of the "file" type.

A "file" exception is automatically thrown by the Template Toolkit when
it can’t find a file, or fails to load, parse or process a file that
has been requested by an "INCLUDE", "PROCESS", "INSERT" or "WRAPPER"
directive. If "myfile" can’t be found in the example above, the "[%
INCLUDE myfile %]" directive will raise a "file" exception which is
then caught by the "[% CATCH file %]" block. The output generated
would be:

File Error! myfile: not found

Note that the "DEFAULT" option (disabled by default) allows you to
specify a default file to be used any time a template file can’t be
found. This will prevent file exceptions from ever being raised when a
non-existent file is requested (unless, of course, the "DEFAULT" file
your specify doesn’t exist). Errors encountered once the file has been
found (i.e. read error, parse error) will be raised as file exceptions
as per usual.

Uncaught exceptions (i.e. if the "TRY" block doesn’t have a type
specific or default "CATCH" handler) may be caught by enclosing "TRY"
blocks which can be nested indefinitely across multiple templates. If
the error isn’t caught at any level then processing will stop and the
Template process() method will return a false value to the caller. The
relevant Template::Exception object can be retrieved by calling the
error() method.

[% TRY %]
...
[% TRY %]
[% INCLUDE $user.header %]
[% CATCH file %]
[% INCLUDE header %]
[% END %]
...
[% CATCH DBI %]
[% INCLUDE database/error.html %]
[% END %]

In this example, the inner "TRY" block is used to ensure that the first
"INCLUDE" directive works as expected. We’re using a variable to
provide the name of the template we want to include, "user.header", and
it’s possible this contains the name of a non-existent template, or
perhaps one containing invalid template directives. If the "INCLUDE"
fails with a "file" error then we "CATCH" it in the inner block and
"INCLUDE" the default "header" file instead. Any "DBI" errors that
occur within the scope of the outer "TRY" block will be caught in the
relevant "CATCH" block, causing the "database/error.html" template to
be processed. Note that included templates inherit all currently
defined template variable so these error files can quite happily access
the <error> variable to retrieve information about the currently caught
exception. For example, the "database/error.html" template might look
like this:

<h2>Database Error</h2>
A database error has occurred: [% error.info %]

You can also specify a "FINAL" block. This is always processed
regardless of the outcome of the "TRY" and/or "CATCH" blocks. If an
exception is uncaught then the "FINAL" block is processed before
jumping to the enclosing block or returning to the caller.

[% TRY %]
...
[% CATCH this %]
...
[% CATCH that %]
...
[% FINAL %]
All done!
[% END %]

The output from the "TRY" block is left intact up to the point where an
exception occurs. For example, this template:

[% TRY %]
This gets printed
[% THROW food 'carrots' %]
This doesn't
[% CATCH food %]
culinary delights: [% error.info %]
[% END %]

generates the following output:

This gets printed
culinary delights: carrots

The "CLEAR" directive can be used in a "CATCH" or "FINAL" block to
clear any output created in the "TRY" block.

[% TRY %]
This gets printed
[% THROW food 'carrots' %]
This doesn't
[% CATCH food %]
[% CLEAR %]
culinary delights: [% error.info %]
[% END %]

Output:

culinary delights: carrots

Exception types are hierarchical, with each level being separated by
the familiar dot operator. A "DBI.connect" exception is a more
specific kind of "DBI" error. Similarly, an "example.error.barf" is a
more specific kind of "example.error" type which itself is also a
"example" error.

A "CATCH" handler that specifies a general exception type (such as
"DBI" or "example.error") will also catch more specific types that have
the same prefix as long as a more specific handler isn’t defined. Note
that the order in which "CATCH" handlers are defined is irrelevant; a
more specific handler will always catch an exception in preference to a
more generic or default one.

[% TRY %]
...
[% CATCH DBI ;
INCLUDE database/error.html ;
CATCH DBI.connect ;
INCLUDE database/connect.html ;
CATCH ;
INCLUDE error.html ;
END
%]

In this example, a "DBI.connect" error has it’s own handler, a more
general "DBI" block is used for all other "DBI" or "DBI.*" errors and a
default handler catches everything else.

Exceptions can be raised in a template using the "THROW" directive.
The first parameter is the exception type which doesn’t need to be
quoted (but can be, it’s the same as "INCLUDE") followed by the
relevant error message which can be any regular value such as a quoted
string, variable, etc.

[% THROW food "Missing ingredients: $recipe.error" %]
[% THROW user.login 'no user id: please login' %]
[% THROW $myerror.type "My Error: $myerror.info" %]

It’s also possible to specify additional positional or named parameters
to the "THROW" directive if you want to pass more than just a simple
message back as the error info field.

[% THROW food 'eggs' 'flour' msg='Missing Ingredients' %]

In this case, the error "info" field will be a hash array containing
the named arguments and an "args" item which contains a list of the
positional arguments.

type => 'food',
info => {
msg => 'Missing Ingredients',
args => ['eggs', 'flour'],
}

In addition to specifying individual positional arguments as "[%
error.info.args.n %]", the "info" hash contains keys directly pointing
to the positional arguments, as a convenient shortcut.

[% error.info.0 %] # same as [% error.info.args.0 %]

Exceptions can also be thrown from Perl code which you’ve bound to
template variables, or defined as a plugin or other extension. To
raise an exception, call "die()" passing a reference to a
Template::Exception object as the argument. This will then be caught
by any enclosing "TRY" blocks from where the code was called.

use Template::Exception;
...
my $vars = {
foo => sub {
# ... do something ...
die Template::Exception->new('myerr.naughty',
'Bad, bad error');
},
};

Template:

[% TRY %]
[% foo %]
[% CATCH myerr ;
"Error: $error" ;
END
%]

Output:

Error: myerr.naughty error - Bad, bad error

The "info" field can also be a reference to another object or data
structure, if required.

die Template::Exception->new('myerror', {
module => 'foo.pl',
errors => [ 'bad permissions', 'naughty boy' ],
});

Later, in a template:

[% TRY %]
...
[% CATCH myerror %]
[% error.info.errors.size or 'no';
error.info.errors.size == 1 ? ' error' : ' errors' %]
in [% error.info.module %]:
[% error.info.errors.join(', ') %].
[% END %]

Generating the output:

2 errors in foo.pl:
bad permissions, naughty boy.

You can also call "die()" with a single string, as is common in much
existing Perl code. This will automatically be converted to an
exception of the ’"undef"’ type (that’s the literal string ’"undef"’,
not the undefined value). If the string isn’t terminated with a
newline then Perl will append the familiar " at $file line $line"
message.

sub foo {
# ... do something ...
die "I'm sorry, Dave, I can't do that\n";
}

If you’re writing a plugin, or some extension code that has the current
Template::Context in scope (you can safely skip this section if this
means nothing to you) then you can also raise an exception by calling
the context throw() method. You can pass it an Template::Exception
object reference, a pair of "($type, $info)" parameters or just an
$info string to create an exception of ’"undef"’ type.

$context->throw($e); # exception object
$context->throw('Denied'); # 'undef' type
$context->throw('user.passwd', 'Bad Password');

NEXT
The "NEXT" directive can be used to start the next iteration of a
"FOREACH" or "WHILE" loop.

[% FOREACH user IN users %]
[% NEXT IF user.isguest %]
Name: [% user.name %] Email: [% user.email %]
[% END %]

LAST
The "LAST" directive can be used to prematurely exit a "FOREACH" or
"WHILE" loop.

[% FOREACH user IN users %]
Name: [% user.name %] Email: [% user.email %]
[% LAST IF some.condition %]
[% END %]

"BREAK" can also be used as an alias for "LAST".

RETURN
The "RETURN" directive can be used to stop processing the current
template and return to the template from which it was called, resuming
processing at the point immediately after the "INCLUDE", "PROCESS" or
"WRAPPER" directive. If there is no enclosing template then the
Template process() method will return to the calling code with a true
value.

Before
[% INCLUDE half_wit %]
After

[% BLOCK half_wit %]
This is just half...
[% RETURN %]
...a complete block
[% END %]

Output:

Before
This is just half...
After

STOP
The "STOP" directive can be used to indicate that the processor should
stop gracefully without processing any more of the template document.
This is a planned stop and the Template process() method will return a
true value to the caller. This indicates that the template was
processed successfully according to the directives within it.

[% IF something.terrible.happened %]
[% INCLUDE fatal/error.html %]
[% STOP %]
[% END %]

[% TRY %]
[% USE DBI(mydsn) %]
...
[% CATCH DBI.connect %]
<h1>Cannot connect to the database: [% error.info %]</h1>
<p>
We apologise for the inconvenience.
</p>
[% INCLUDE footer %]
[% STOP %]
[% END %]

CLEAR
The "CLEAR" directive can be used to clear the output buffer for the
current enclosing block. It is most commonly used to clear the output
generated from a "TRY" block up to the point where the error occurred.

[% TRY %]
blah blah blah # this is normally left intact
[% THROW some 'error' %] # up to the point of error
...
[% CATCH %]
[% CLEAR %] # clear the TRY output
[% error %] # print error string
[% END %]

Miscellaneous
META
The "META" directive allows simple metadata items to be defined within
a template. These are evaluated when the template is parsed and as such
may only contain simple values (e.g. it’s not possible to interpolate
other variables values into "META" variables).

[% META
title = 'The Cat in the Hat'
author = 'Dr. Seuss'
version = 1.23
%]

The "template" variable contains a reference to the main template being
processed. These metadata items may be retrieved as attributes of the
template.

<h1>[% template.title %]</h1>
<h2>[% template.author %]</h2>

The "name" and "modtime" metadata items are automatically defined for
each template to contain its name and modification time in seconds
since the epoch.

[% USE date %] # use Date plugin to format time
...
[% template.name %] last modified
at [% date.format(template.modtime) %]

The "PRE_PROCESS" and "POST_PROCESS" options allow common headers and
footers to be added to all templates. The "template" reference is
correctly defined when these templates are processed, allowing headers
and footers to reference metadata items from the main template.

$template = Template->new({
PRE_PROCESS => 'header',
POST_PROCESS => 'footer',
});

$template->process('cat_in_hat');

header:

<html>
<head>
<title>[% template.title %]</title>
</head>
<body>

cat_in_hat:

[% META
title = 'The Cat in the Hat'
author = 'Dr. Seuss'
version = 1.23
year = 2000
%]

The cat in the hat sat on the mat.

footer:

<hr>
© [% template.year %] [% template.author %]
</body>
</html>

The output generated from the above example is:

<html>
<head>
<title>The Cat in the Hat</title>
</head>
<body>
The cat in the hat sat on the mat.
<hr>
© 2000 Dr. Seuss
</body>
</html>

TAGS
The "TAGS" directive can be used to set the "START_TAG" and "END_TAG"
values on a per-template file basis.

[% TAGS <+ +> %]

<+ INCLUDE header +>

The TAGS directive may also be used to set a named "TAG_STYLE"

[% TAGS html %]


See the TAGS and TAG_STYLE configuration options for further details.

DEBUG
The "DEBUG" directive can be used to enable or disable directive debug
messages within a template. The "DEBUG" configuration option must be
set to include "DEBUG_DIRS" for the "DEBUG" directives to have any
effect. If "DEBUG_DIRS" is not set then the parser will automatically
ignore and remove any "DEBUG" directives.

The "DEBUG" directive can be used with an "on" or "off" parameter to
enable or disable directive debugging messages from that point forward.
When enabled, the output of each directive in the generated output will
be prefixed by a comment indicate the file, line and original directive
text.

[% DEBUG on %]
directive debugging is on (assuming DEBUG option is set true)
[% DEBUG off %]
directive debugging is off

The "format" parameter can be used to change the format of the
debugging message.

[% DEBUG format '' %]

perl v5.10.1 2013-07-23 Template::Manual::Directives(3)

</pre>

Historic:CssWork

2014-02-28T18:45:07Z

50.45.173.59:

<h2>Related pages </h2>

* Official docs
** [[InstallDoc]] - original INSTALL document
** [[SlashGuide]] - this is the guide (from htdocs) you are supposed to read immediately after installing slashcode
** [[SlashChart]] Png chart of slashcode organization
** [[SlashManPages]] Man pages available by typing man PAGENAME
** [[TemplateManPages]] Man pages for the template library used to deliver the html

* [[SlashHelperProgramsInBin]] - provided admin helpers in slash/bin
* [[SlashGlossary]] Glossary of terms used in Slash code
* [[FileLocations]] Locations of important files on disk. Has Main Libraries called by all routines
* [[FileLocations2]] Locations of files on disk continued. This is the stuff in local/slash.
* [[FileLocations3]] Locations of files on disk continued. This is the stuff in /usr/local/share/perl5/Slash/
* [[FileLocationsMisc]] Has Apache, Man pages,...
* [[SqlSchema]] - tables used in the database
* [[SqlDefaults]] - defaults for those tables
* [[PerlModuleDisplay]] - this is what actually sends a single template out to the broswer (through Apache)

* [[AvailableThemes]] and how they are organized
* [[ThemesAnatomy]] Overview - "A theme is a website design." (includes HOWTO-THemes doc)
** [[TemplateAnatomy]] - All html in these. "parsed by Perl Template Toolkit" (HOWTO-Templates)
*** [[TemplateTutorialWeb]] - man page
*** [[TemplateManualDirective]] - man page, has all the keywords used by template library
** [[ThePartsOfTemplateLibraryActuallyUsedInSlashCode]] - knowing this can save time reading docs
** [[TemplateLists]] - lists of the template in our Theme, some descriptions fm src
**[[TasksAnatomy]] -

* [[TagboxesAnatomy]] - I don't realy know what these are yet. But there are a lot of them ;-)
* [[PluginsAnatomy]] - (HOWTO-plugins)

* [[ChangelogForCss]] - Put final finished change here
* [[HowSlashCssWorks]] Overview
* [[CssFilesUsedEachPage]] Which css files are used on different pages

* [[http://dev.soylentnews.org/plugins/scmgit/cgi-bin/gitweb.cgi?p=soylentnews/soylentnews.git;a=tree;f=themes;hb=refs/heads/master]] git - themes

http://www.mediawiki.org/wiki/Help:Images

<h2>Unanswered Questions</h2>
* The templates are individually output by routine slashDisplay(), but how is the order of delivery determined, and how does one insure a new template goes to the right place on the page?

<h2>Got tired of scrolling through pages of perl code just to see what subs were in a module</h2>

So wrote this, now in /usr/local/sbin/listsubs.sh:
<pre>
[root@slashcode Slash]# listsubs.sh Admin.pm
Admin.pm:
addSpriteForSid, ajax_authorbox, ajax_learnword, ajax_neverdisplay,
ajax_perfbox, ajax_signoff, ajax_signoffbox, ajax_slashdbox,
ajax_storyadminbox, ajax_sub_memory, DESTROY, extractRelatedStoriesFromForm,
findTheTime, getAccesslogAbusersByID, getAccesslogMaxID, get_ispell_comments,
getRecentSubs, getRecentWebheads, getRelated, getSignoffData,
getStorySignoffs, getStoryThumbLargeLink, grantStoryPostingAchievements, otherLinks,
relatedLinks, showAdminTodo, showAuthorActivityBox, showPerformanceBox,
showSignoffBox, showSlashdBox, showStoryAdminBox, write_to_temp_file,
</pre>

Also will work from a list, as in
<pre>
ls *.pm > list.tst
listsubs.sh < list.txt
</pre>

Maybe someone else will find it useful as well.

<h2>Order css files are loaded when simple switch on user prefs page is selected viewing main page main page</h2>

* base.css?T_2_5_0_272 The numbers are the slash verion number (from one of the docs).
* slashcode.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272
* slashcode_lite.css?T_2_5__0_272 (appears to be loading this twice,why?)
* print.cssT_2_5__0_272

<h2>Follow a page link from the main page to an individual article page </h2>

* Link: http://soylentnews.org/article.pl?sid=14/02/18/0336229
* article.pl is foind in slash/themes/slashcode/htdocs/article.pl So 'slashcode' is treated as a theme.

<h2>article.pl</h2>
The stuff of interest to us

<pre>

use Slash; -------- located in /local/lib64/perl5/slash.pm
use Slash::Display;
use Slash::Utility;

sub main {
my $slashdb = getCurrentDB();
my $constants = getCurrentStatic();
my $user = getCurrentUser();
my $form = getCurrentForm();
my $gSkin = getCurrentSkin();

my $story;
my $reader = getObject('Slash::DB', { db_type => 'reader' });

# Make sure the reader is viewing this story in the
# proper skin.
my $cur_skid = determineCurrentSkin();
if ($story->{primaryskid} != $cur_skid) {
my $cur_skin = $reader->getSkin($cur_skid);
my $story_skin = $reader->getSkin($story->{primaryskid});
if ($story_skin && $story_skin->{rootdir}
&& $story_skin->{rootdir} ne $cur_skin->{rootdir})$
redirect("$story_skin->{rootdir}$ENV{REQUEST_URI}"$
return;

# XXXSECTIONTOPICS this needs to be updated
my $SECT = $reader->getSection($story->{section});
# This should be a getData call for title
my $title = "$constants->{sitename} | $story->{title}";
if ($gSkin->{name} && $gSkin->{name} eq "idle") {
$title = "$gSkin->{hostname} | $story->{title}";

if (my $pollbooth_db = getObject('Slash::PollBooth')) {

slashDisplay('display', {
poll => $pollbooth,
section => $SECT,
section_block => $reader->getBlock($SECT->{secti$
show_poll => $pollbooth ? 1 : 0,
story => $story,
stories => \%stories,
});

my $called_pc = 0;
if ($story->{discussion}) {
# Still not happy with this logic -Brian
my $discussion = $reader->getDiscussion($story->{discussio$

}
# If no comments ever have existed and commentstatus is di$
# just skip the display of the comment header bar -Brian

&& $discussion->{commentstatus} eq 'disabled'
)) {
printComments($discussion);
$called_pc = 1;
}
if (!$called_pc && $form->{ssi} && $form->{ssi} eq 'yes' && $form-$
# This is a real hack, we're kind of skipping down
# two levels of code. But the cchp printing is an
# important optimization; we avoid having to do
# multiple expensive comment selects. One problem
# is that if there's no discussion with a story,
# printComments() doesn't get called, which means
# selectComments() doesn't get called, which means
# the cchp file won't be written. If article.pl
# is being called by slashd, and we need to write
# that file, then here's where we print an empty
# file that will satisfy slashd. - Jamie

Slash::Utility::Comments::_print_cchp({ stoid => "dummy" }$
}
} else {
header('Error', $form->{section}) or return;

my $plugins = $slashdb->getDescriptions('plugins');
if (!$user->{is_anon} && $plugins->{Tags} && $story) {
my $tagsdb = getObject('Slash::Tags');
$tagsdb->markViewed($user->{uid},
$reader->getGlobjidCreate('stories', $story->{stoid}));
}

footer();
if ($story) {
writeLog($story->{sid} || $sid);
} else {
writeLog($sid);

createEnvironment();
main();
1;

(EOF)

</pre>

<h2>Slash/DB/MySQL/MySQL.pm</h2>

<pre>

479 sub getCSS {
480 my($self, $layout) = @_;
481 my $user = getCurrentUser();
482 my $page = $user->{currentPage};
483 my $skin = getCurrentSkin('name');
484 my $admin = $user->{is_admin};
485 my $theme = ($user->{simpledesign} || $user->{pda}) ? "light" : $user->{css_theme};
486 my $secure = apacheConnectionSSL();
487 $layout ||= '';
488 my $constants = getCurrentStatic();
489
490 my $expire_time = $constants->{css_expire} || 3600;
491 $expire_time += int(rand(60)) if $expire_time;
492 _genericCacheRefresh($self, 'css', $expire_time);
493 _genericCacheRefresh($self, 'css_pages', $expire_time);
494 _genericCacheRefresh($self, 'css_skins', $expire_time);
495 _genericCacheRefresh($self, 'css_themes', $expire_time);
496
497 my $css_ref = $self->{_css_cache} ||= {};
498 my $css_pages_ref = $self->{_css_pages_cache};
499 my $css_skins_ref = $self->{_css_skins_cache};
500 my $css_themes_ref = $self->{_css_themes_cache};
501 my $css_layouts_ref = $self->{_css_layouts_cache};
502
503 $css_pages_ref = $self->getCSSValuesHashForCol('page') if !$css_pages_ref;
504 $css_skins_ref = $self->getCSSValuesHashForCol('skin') if !$css_skins_ref;
505 $css_themes_ref = $self->getCSSValuesHashForCol('theme') if !$css_themes_ref;
506 $css_layouts_ref = $self->getCSSValuesHashForCol('layout') if !$css_layouts_ref;
507
508 my $lowbandwidth = ($user->{lowbandwidth} || $user->{pda}) ? "yes" : "no";
509
510 $page = '' if !$css_pages_ref->{$page};
511 $skin = '' if !$css_skins_ref->{$skin};
512 $theme = '' if !$css_themes_ref->{$theme};
513 $layout = '' if !$css_layouts_ref->{$layout};
514
515 return $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure}
516 if exists $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure};
517
518 my @clauses;
519
520 my $page_q = $self->sqlQuote($page);
521 my $page_in = $page ? "(page = '' or page = $page_q)" : "page = ''";
522 push @clauses, $page_in;
523
524 my $skin_in = $skin ? "(skin = '' or skin = '$skin')" : "skin = ''";
525 push @clauses, $skin_in;
526
527 push @clauses, "admin='no'" if !$admin;
528
529 my $theme_q = $self->sqlQuote($theme);
530 my $theme_in = $theme ? "(theme='' or theme=$theme_q)" : "theme=''";
531 push @clauses, $theme_in;
532
533 push @clauses, "lowbandwidth='$lowbandwidth'" if $lowbandwidth eq "no";
534
535 my $layout_q = $self->sqlQuote($layout);
536 push @clauses, "layout=$layout_q";
537
538 my $where = "css.ctid=css_type.ctid AND ";
539 $where .= join ' AND ', @clauses;
540
541 my $css = $self->sqlSelectAllHashrefArray("rel,type,media,file,title,ie_cond,skin",
542 "css, css_type", $where, "ORDER BY css_type.ordernum, css.ordernum");
543 if ($secure) {
544 for my $hr (@$css) { $hr->{file} =~ s/\.css/.ssl.css/ }
545 }
546
547 $css_ref->{$skin}{$page}{$admin}{$theme}{$lowbandwidth}{$layout}{$secure} = $css;
548 return $css;
549 }
550
</pre>

<h2>Slash/Apache/User/User.pm</h2>

<pre>

548 {
549 my %ops_my = (
550 inbox => { args => 'op=list', uri => 'messages.pl' },
551 # XXX change messages to be same as /inbox, move this to /my/preferences/messages
552 messages => { args => 'op=display_prefs', uri => 'messages.pl' },
553 comments => { args => 'op=editcomm' },
554 homepage => { args => 'op=edithome' },
555 password => { args => 'op=changeprefs', uri => 'login.pl' },
556 logout => { args => 'op=userclose', uri => 'login.pl' },
557 misc => { args => 'op=editmiscopts' },
558 amigos => { args => 'op=friendview', uri => 'journal.pl' },
559 bookmarks => { args => 'op=showbookmarks' },
560 firehose => { args => 'op=userfirehose' },
561 preferences => { args => 'op=displayprefs', uri => 'preferences.pl' },
562 tags => { args => 'op=showtags' },
563 journal => { args => 'op=list', uri => 'journal.pl' },
564
565 friends => { args => 'op=friends', uri => 'zoo.pl' },
566 fans => { args => 'op=fans', uri => 'zoo.pl' },
567 freaks => { args => 'op=freaks', uri => 'zoo.pl' },
568 foes => { args => 'op=foes', uri => 'zoo.pl' },
569 zoo => { args => 'op=all', uri => 'zoo.pl' },
570
571 default => { args => 'op=edituser' }
572 );
</pre>

<h2>sql/mysql/defaults.sql</h2>

<pre>
134 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','base.css','','','','no','',1,0, "","no");
135 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','comments','no','',2,0, "","no");
136 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','article','no','',2,0, "","no");
137 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','print','print.css','','','','no','',5,0, "","no");
138 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','admin.css','','','','yes','',1,0, "","no");
139 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','pollBooth','no','',2,0, "","no");
140 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
141 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
142 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_lite.css','','','','no','light',4,0, "","no");
143 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','journal','no','',2,0, "","no");
144 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode.css','','','','no','',3,0, "","no");
145 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','metamod','no','',2,0, "","no");
146 INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond, lowbandwidth) VALUES ('stylesheet','text/css','screen, projection','slashcode_low_bw.css','','','','no','',4,99, "","yes");
147
148 #
149 # Dumping data for table 'css_type'
150 #
151 INSERT INTO css_type (ctid, name, ordernum) VALUES (1,'base',1);
152 INSERT INTO css_type (ctid, name, ordernum) VALUES (2,'page',2);
153 INSERT INTO css_type (ctid, name, ordernum) VALUES (3,'theme',3);
154 INSERT INTO css_type (ctid, name, ordernum) VALUES (4,'user_theme',5);
155 INSERT INTO css_type (ctid, name, ordernum) VALUES (5,'print',6);
156 INSERT INTO css_type (ctid, name, ordernum) VALUES (6,'skin',4);
157 INSERT INTO css_type (ctid, name, ordernum) VALUES (7,'handheld',7);
158
</pre>

<h2>plugins/FireHose/mysql_dump.sql </h2>
<pre>
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','calendar.css','','','firehose','no','',2,0, '');
==> INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','users','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','comments.css','','','firehose','no','',2,0, '');
INSERT INTO css (rel, type, media, file, title, skin, page, admin, theme, ctid, ordernum, ie_cond) VALUES ('stylesheet','text/css','screen, projection','firehose.css','','','index2','no','',2,0, '');
</pre>

<p>I believe that we are not using FireHose but it was needed to make the site work. As can be seen in the db dump above, it adds the firehose.css file to any of the user pages. Need to verify and then see if we can get the db purged of these values.</p>

<p>
Good work. The question in my mind is why the heck css for one module has any effect *at all* on any other module. Talk about lack of localization...-AG
</p>

<p>I think there was some firehose slashboxes that showed up in the users pages. They needed to be wider than the default, so they patched those pages with the firehose.css. Next step is to get a current dump of the two css tables. The important part is I know what files are for what parts of the code. Slashcode.css is the theme css file slashcode-lite.css is the style file that is called by a user pref. This means I need to fix comments.css to remove the theme elements I inserted and put them in the theme file. I still need to make sure that the changes that benefited the Simplified theme stay intact. -EP</p>

<h2>fonts</h2>

<pre>
This is what I usually start with:
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;

Too many can lead to a LOT of testing being required. As can the wrong order. ;-)

Others I have used in the past:
font-family: Geneva,Arial,Verdana,Helvetica,Chicago,sans-serif;
font-family: Helvetica,Arial,Geneva,Chicago,Verdana,sans-serif;
font-family: Helvetica,Geneva,Arial,Verdana,sans-serif;
-AG

I have used:
font-family: Verdana, Geneva, "Bitstream Vera Sans", "DejaVu Sans", sans-serif;

Note this has Linux fonts as well to help with these users.
-EP
</pre>

<h2>User Menu</h2>

<pre>
INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Logout','logout','/my/logout',1,0,10);
124 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Preferences','preferences','/users.pl?op=edituser',1,0,20);
125 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','Password','password','[% constants.real_rootdir %]/my/password',1,0,40);
126 INSERT INTO menus (menu, label, sel_label, value, seclev, showanon, menuorder) VALUES ('users','~[% user.nickname | strip_literal %] ([% user.uid %])','me','/~[% user.nickname | fixparam %]',1,0,50);
</pre>
<p> This code sets up the upper menu on http://slashcott.org/users.pl which is linked from your userid on the home page. The Preferences is wrong, as it needs to be all three links: Info, Homepage, Comments. This will allow users with low-bandwidth option set to easily get to the setting to unset low-bandwidth. -EP</p>

<h2>Refernces to css in the man pages in /usr/local/share/man/man3</h2>
<pre>
grep -i css *

HTML::CalendarMonth.3pm:.IP "enable_css" 4
HTML::CalendarMonth.3pm:.IX Item "enable_css"
HTML::CalendarMonth.3pm:Set some handy \s-1CSS\s0 class attributes on elements, enabled by default.
HTML::CalendarMonth.3pm:.IP "semantic_css" 4
HTML::CalendarMonth.3pm:.IX Item "semantic_css"
HTML::CalendarMonth.3pm:Sets some additional \s-1CSS\s0 class attributes on elements, disabled by
HTML::CalendarMonth.3pm:.IP "\fIdefault_css()\fR" 4
HTML::CalendarMonth.3pm:.IX Item "default_css()"
HTML::CalendarMonth.3pm:document in conjunction with the classes assigned to elements when css
HTML::ElementSuper.3pm:might be when you'd like to assign multiple \s-1CSS\s0 classes to a single
HTML::PopupTreeSelect.3pm:.IP "include_css (optional)" 4
HTML::PopupTreeSelect.3pm:.IX Item "include_css (optional)"
HTML::PopupTreeSelect.3pm:Set this to 0 and the default \s-1CSS\s0 will not be included in the widget
HTML::PopupTreeSelect.3pm:output. This allows you to include your own \s-1CSS\s0 which will be used by
HTML::PopupTreeSelect.3pm:your widget. Modifying the \s-1CSS\s0 will allow you to control the fonts,
HTML::PopupTreeSelect.3pm:If you run the widget with include_css set to 1 then you can use that
HTML::Tree::Scanning.3pm:tagging, such is as useful in \s-1CSS\s0 \*(-- note the
Module::Build::API.3pm:.IP "\fIhtml_css()\fR" 4
Module::Build::API.3pm:.IX Item "html_css()"
TAP::Parser::YAMLish::Reader.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
TAP::Parser::YAMLish::Writer.3pm:YAML::Tiny, \s-1YAML\s0, YAML::Syck, Config::Tiny, CSS::Tiny,
Template::Iterator.3pm:You can then style the \f(CW\*(C`tr.odd\*(C'\fR and \f(CW\*(C`tr.even\*(C'\fR elements using \s-1CSS:\s0
Template::Toolkit.3pm:kind of text documents: \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0, Javascript, Perl code, plain text,
Template::Tutorial::Web.3pm:kind of content they contain. So you can use \s-1TT\s0 to generate \s-1HTML\s0, \s-1XML\s0, \s-1CSS\s0,
</pre>

<h2>CSS commit for Feb 23</h2>

<p>
Changes to most of the css files to set all sizes to em (some were in px and broke flow). Changed the font-family to a more friendly chain for all platforms, and remove all other font-faimily calls from the code. Changed font sizes from % to ems and adjusted size for some of the main elements. Fix a issue with the middle column size caused by firehose.css. Many small fixes to spacing over many places.</p><p>

Moved all of the slashcode theme items into the slashcode.cssraw file. Some were in comments.cssraw due to some previous work I did.</p><p>

On article body and comment body, made the font size a bit smaller. Also on comments body set the margins to be smaller.
</p><p>-EP</p>

ThePartsOfTemplateLibraryActuallyUsedInSlashCode

2014-02-28T18:42:16Z

50.45.173.59:

[[CssWork]] parent

<h2>The Parts Of Template Library Actually Used In Slash Code</h2>

Knowing this can save some time reading docs.

The template language keywords are always first and appear to be always uppercase. The normal variables all appear to be lowercase.

<h3>Most commonly used feature</h3>

The most commonly used feature is simply using the template library to print a variables value

<h3>The specific template library keywords found in Slash templates</h3>

(the numbers roughly correspond to frequency of use)
<pre>
1 ELSE
1 FOR
1 INCLUDE
2 ELSE
3 BLOCK
3 FOREACH
3 SWITCH
4 ELSIF
4 FOR
6 UNLESS
8 END
8 PROCESS
72 CASE
176 IF
</pre>

Most of these are common straightforward programming constructs, except:

BLOCK - (man Template::Manual::Directives)
<pre>
The "BLOCK"..."END" construct can be used to define template component
blocks which can be processed with the "INCLUDE", "PROCESS" and "WRAPPER"
directives.

[% BLOCK tabrow %]
<tr>
<td>[% name %]<td>
<td>[% email %]</td>
</tr>
[% END %]

<table>
[% PROCESS tabrow name='Fred' email='fred@nowhere.com' %]
[% PROCESS tabrow name='Alan' email='alan@nowhere.com' %]
</table>

A "BLOCK" definition can be used before it is defined, as long as the
definition resides in the same file. The block definition itself does not
generate any output.
</pre>

PROCESS - (man Template::Manual::Directives)
<pre>
The PROCESS directive is similar to "INCLUDE" but does not perform any
localisation of variables before processing the template. Any changes made
to variables within the included template will be visible in the including
template." from man Template::Manual::Directives
</pre>