#!/usr/bin/perl 

###############################################################################
# index.pl - this code displays the index page 
#
# Copyright (C) 1997 Rob "CmdrTaco" Malda
# malda@slashdot.org
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
#
#  $Id: index.pl,v 1.2 2000/01/28 14:49:25 CaptTofu Exp $
###############################################################################
# pre stories cache update
use lib ("../");
use strict 'vars';
use Slash;

my $SECT;

#################################################################
sub main
{
	getSlash();

        #$$F{mode}=$$U{mode}="dynamic" if $ENV{SCRIPT_NAME};

	if($$F{op} eq "u") { upBid($$F{bid}) 
	} elsif($$F{op} eq "d") { dnBid($$F{bid})
	} elsif($$F{op} eq "x") { rmBid($$F{bid})
	}

	$SECT=getSection(lc($$F{section}));
	
        $$SECT{mainsize}=int($$SECT{artcount} / 3);
	my $title=$$SECT{title};
	$title="$sitename:$title" unless $$SECT{isolate};
	
	header($title,$$SECT{section});

#	($$U{points}) = sqlSelect("points","users_comments","uid=$$U{uid}");
	checkForM2(); # if $$U{uid}==1;
	checkForQ(); # AJC
		
        my $block=Slash::getEvalBlock("index");
        my $execme=Slash::prepEvalBlock($block);

        eval $execme;

        if($@) { print "\n<H1>Error:$@<h1>\n"; }

	footer();

	# zero the refresh flag 
	# and undef sid sequence array
	if($story_refresh) {
		$story_refresh = 0;
		# garbage collection
		undef @sid_array;
	}	
	# zero the order count
	$StoryCount = 0;

	writelog("index",($$F{section}||"index")) unless $$F{ssi};
}

#################################################################
sub saveUserBoxes
{
	my(@a)=@_;

	$$U{exboxes}=@a?"'".join("','", @a)."'":"";
	sqlUpdate("users_index",{exboxes=>$$U{exboxes}},"uid=$$U{uid}",1) 
		if $$U{uid} > 0;
}

#################################################################
sub getUserBoxes
{
	my $boxes=$$U{exboxes};
	$boxes=~s/'//g;
	return split(",",$boxes);
}

#################################################################
sub upBid
{
	my($bid)=@_;
	my @a=getUserBoxes();

	if($a[0] eq $bid) {
		($a[0],$a[@a-1])=($a[@a-1],$a[0]);
	} else {
		for(my $x=1; $x<@a; $x++) {
			($a[$x-1],$a[$x])=($a[$x],$a[$x-1]) if($a[$x] eq $bid);
		}
	}

	saveUserBoxes(@a);
}

#################################################################
sub dnBid
{
	my($bid)=@_;
	my @a=getUserBoxes();
	if($a[@a-1] eq $bid) {
		($a[0],$a[@a-1])=($a[@a-1],$a[0]);
	} else {
		for(my $x=@a-1; $x>-1; $x--) {
			($a[$x],$a[$x+1])=($a[$x+1],$a[$x]) if($a[$x] eq $bid);
		}
	}

	saveUserBoxes(@a);
}


#################################################################
sub rmBid
{
	my($bid)=@_;
	my @a=getUserBoxes();
	foreach(my $x=@a;$x>=0;$x--) { splice @a, $x, 1 if $a[$x] eq $bid}
	saveUserBoxes(@a);
}

#################################################################
sub getAllSlashBoxes
{
	return if defined $Slash::boxBank;
	undef $Slash::sectionBoxes;

	my $c=sqlSelectMany("blocks.bid as bid,title,url,
			     section,portal,ordernum",	
			    "sectionblocks,blocks",
			    "sectionblocks.bid=blocks.bid
			     ORDER BY ordernum ASC");

	my %tmp;
	while(my $SB=$c->fetchrow_hashref()) {
		$Slash::boxBank{$$SB{bid}}=$SB;	# Set the Slashbox
		next unless $$SB{ordernum} > 0;	# Set the index if applicable
                push @{$tmp{$$SB{section}}},$$SB{bid};
                # push @{$Slash::sectionBoxes{$$SB{section}}},$$SB{bid};

	}
	%Slash::sectionBoxes=%tmp;
	$c->finish;
}

#################################################################
sub displayStandardBlocks
{
        my ($SECT,$olderStuff) = @_;
        return if $$U{noboxes};
        
        my $getblocks=$$SECT{section} || "index";
        my @boxes;
	getAllSlashBoxes();

        if($$U{exboxes} and $getblocks eq "index") {
		$$U{exboxes}=~s/\'//g;
        	@boxes=split ",",$$U{exboxes};
        } else {
		@boxes=@{$Slash::sectionBoxes{$getblocks}};
        }

	foreach my $bid (@boxes) {
                if($bid eq "mysite") {
                        print portalbox(200,
                                "$$U{nickname}",
                                $$U{mylinks} || "Este é o seu espaço de utilização. Trate-o bem.", $bid);
                } elsif ($bid eq "more") {
                        print portalbox(200,"Antiguidades",
                                getOlderStories($olderStuff,$SECT),
                                $bid) if $olderStuff;
                } elsif ($bid eq "userlogin" and $$U{uid} > 0) {
                        # Don't do nuttin'
                } else {
			my $SB=$Slash::boxBank{$bid};
			my $B=$Slash::blockBank{$bid};
                        print portalbox(200,$$SB{title},$B,$$SB{bid},$$SB{url});
                }
        }
}

#################################################################
# pass it how many, and what.
sub displayStories
{
        my $cursor=shift;
        my ($today,$x)=("",0);
	my $cnt=$cursor?(int $cursor->rows / 3):0;
        
        DAY:while(my ($sid,$thissection,$title,$time,$cc,$d,$hp)=$cursor->fetchrow()) {
		my @threshComments=split(",",$hp);


		# Prefix story with section if section != this section and no
		# colon
                my ($S)=displayStory($sid,'','index');

        	my $execme=Slash::getEvalBlock("story_link");

		print eval $execme;

		if($@) {
			print "<!-- story_link eval failed!\n$@\n-->\n";
		}

		print linkStory({link=>"<B>Desenvolvimento...</B>",
				    sid=>$sid,
				    section=>$thissection});

                if($$S{bodytext} or $cc) {
                        print " | ", linkStory( {
				link=>length($$S{bodytext})." bytes na cont.",
				sid=>$sid,
				mode=>"nocomment" } )
                                if($$S{bodytext});
		
			$cc=$threshComments[0];
                        print " | <B>" if $cc;

			if($cc and $$U{threshold} > -1 && $cc ne 
				$threshComments[$$U{threshold}] + 1) {
			    print linkStory( { 
                                sid=>$sid, 
				threshold=>$$U{threshold},
				link=>$threshComments[$$U{threshold} + 1] } );
			    print " de ";
			}

			print linkStory({
    				sid=>$sid, 
				threshold=>'-1', 
				link=>$cc}) if $cc;

				
			print " </B>comentário",$cc>1?"s":"" if $cc;

                }
        
                if (($thissection ne "articles") && ($$SECT{isolate} != 1) && ($thissection ne "")) {
                 
                 print " | <A
                        href=/index.pl?section=$thissection>$thissection</a>"
                        if (($thissection ne $$SECT{section}) )|| ($thissection eq "");
                }

	        print " | <A 
	          	href=$rootdir/admin.pl?op=edit\&sid=$sid>Edit</A>" 
			if $$U{aseclev} > 100;

		$execme= Slash::getEvalBlock ("story_trailer");
		print eval $execme; 

		if($@) {
			print "<!-- story_trailer eval failed!\n$@\n-->\n";
		}

                my ($w, @junk)=split(" ",$time);
                last DAY if (++$x >= $cnt and $today ne $w );
                $today||=$w;
        }
}

#################################################################
sub checkForM2
{
	return unless $$U{points}=0;	# Only non-moderators
	return unless $$U{willing};
	return if $$U{uid} < 1;
	return if $$U{karma} < 0;
	my ($d)=sqlSelect("to_days(now()) - to_days(lastmm)","users_info","uid=$$U{uid}");
	return unless $d;
	print "Já  <A href=$rootdir/metamod.pl>Meta-moderou</A> Hoje?<BR>";
}

#################################################################
sub checkForQ
{
	my ($points) = sqlSelect("points","users_comments","uid=$$U{uid}");
print STDERR "checkForQ (".($points).",".($$U{uid}).",".($$U{karma}).")\n";
	return unless $points>0;	# Only moderators
	return if $$U{uid} < 1;
	return if $$U{karma} < 0;
	print "<b>É moderador. Por favor veja as <A href=$rootdir/quarantine.pl>quarentenas</A>.</b><BR>";
}



main;