IndexPlWalkthroughNotes - Revision history

50.45.173.141 at 22:17, 5 March 2014

2014-03-05T22:17:21Z

← Older revision		Revision as of 22:17, 5 March 2014
Line 51:		Line 51:
	elsif ($form->{op} eq 'd') { dnBid($form->{bid}) }		elsif ($form->{op} eq 'd') { dnBid($form->{bid}) }
	else { rmBid($form->{bid}) }		else { rmBid($form->{bid}) }
	redirect($ENV{HTTP_REFERER} \|\| $ENV{SCRIPT_NAME}); [~~where~~ is ~~redirect function?~~]		redirect($ENV{HTTP_REFERER} \|\| $ENV{SCRIPT_NAME}); [redirect is in Utility Anchor.pm]
	return;		return;
	}		}

2014-03-05T22:14:03Z

← Older revision		Revision as of 22:14, 5 March 2014
Line 33:		Line 33:
	sub main {		sub main {
	my $start_time = Time::HiRes::time;		my $start_time = Time::HiRes::time;
	my $constants = getCurrentStatic();		my $constants = getCurrentStatic(); [in slash utility - Environment.pm]
	my $user = getCurrentUser();		my $user = getCurrentUser(); [in slash utility - Environment.pm]
	my $form = getCurrentForm();		my $form = getCurrentForm(); [in slash utility - Environment.pm]
	my $slashdb = getCurrentDB();		my $slashdb = getCurrentDB(); [in slash utility - Environment.pm]
	my $reader = getObject('Slash::DB', { db_type => 'reader' });		my $reader = getObject('Slash::DB', { db_type => 'reader' }); [in slash utility - Environment.pm]

	return if redirect_home_if_necessary();		return if redirect_home_if_necessary(); [subroutine below.]

	my($stories, $Stories); # could this be MORE confusing please? kthx		my($stories, $Stories); # could this be MORE confusing please? kthx

	# why is this commented out? -- pudge		# why is this commented out? -- pudge
Line 51:		Line 51:
	elsif ($form->{op} eq 'd') { dnBid($form->{bid}) }		elsif ($form->{op} eq 'd') { dnBid($form->{bid}) }
	else { rmBid($form->{bid}) }		else { rmBid($form->{bid}) }
	redirect($ENV{HTTP_REFERER} \|\| $ENV{SCRIPT_NAME});		redirect($ENV{HTTP_REFERER} \|\| $ENV{SCRIPT_NAME}); [where is redirect function?]
	return;		return;
	}		}

2014-03-05T20:51:57Z

← Older revision		Revision as of 20:51, 5 March 2014
Line 1:		Line 1:
	[[CssWork]]<br>		[[CssWork]]<br>
	[[SlashDocumentationIndex]]		[[SlashDocumentationIndex]]

			* Subroutines in index.pl
			** sub main
			** sub redirect_home_if_necessary
			** sub getDispModesForStories
			** sub getDispModeForStory
			** sub getSidFromRemark
			** sub do_rss
			** sub saveUserBoxes
			** sub upBid
			** sub dnBid
			** sub rmBid
			** sub displayStories

	<h2>index.pl</h2>		<h2>index.pl</h2>
Line 409:		Line 422:
	@$stories = grep { getDispModeForStory($_, $stories_data_cache->{$_->{stoid}}, \%mp_dispmode_nexus, \%sec_dispmode_nexus, \@story_always_topic, $story_to_dispmode_hr) ne "none" } @$stories;		@$stories = grep { getDispModeForStory($_, $stories_data_cache->{$_->{stoid}}, \%mp_dispmode_nexus, \%sec_dispmode_nexus, \@story_always_topic, $story_to_dispmode_hr) ne "none" } @$stories;
	}		}


	sub getDispModeForStory {		sub getDispModeForStory {
Line 460:		Line 472:

	}		}

	sub getSidFromRemark {		sub getSidFromRemark {
	my($remark) = @_;		my($remark) = @_;

2014-03-05T20:40:17Z

← Older revision		Revision as of 20:40, 5 March 2014
Line 10:		Line 10:
	# $Id$		# $Id$

	use strict;		use strict; [strict type checking ?]
	use Slash;		use Slash; [These are the modules whose routines we will use]
	use Slash::Display;		use Slash::Display;
	use Slash::Utility;		use Slash::Utility;

2014-03-05T20:37:58Z

← Older revision		Revision as of 20:37, 5 March 2014
Line 3:		Line 3:

	<h2>index.pl</h2>		<h2>index.pl</h2>
			<pre>
	#!/usr/bin/perl -w		#!/usr/bin/perl -w
	# This code is a part of Slash, and is released under the GPL.		# This code is a part of Slash, and is released under the GPL.

2014-03-05T20:37:21Z

2014-03-05T20:36:59Z

2014-03-05T20:36:11Z