Als je vindt dat dit onterecht is, vraag dan aan erikt(at)xs4all.nl om te worden toegelaten. THEEND exit(0); } } close(INFILE); } if (not defined $args{"NICKNAME"} or $args{"NICKNAME"} eq "") { print "

\nFout: Naam niet gedefinieerd.\n"; exit(0); } # host check $nickname = $args{"NICKNAME"}; if (open(INFILE,"$baseDir/blocked.user")) { while () { $line = $_; chomp($line); $line =~ s/\s+//; if (lc($nickname) eq lc($line)) { print < Dit account ($nickname) is geblokkeerd.

Als je vindt dat dit onterecht is, vraag dan aan erikt(at)xs4all.nl om te worden toegelaten. THEEND exit(0); } } close(INFILE); } # ip logging &ipLogger(); # check for candidates that dropped out %left = (); %leftOrder = (); $left = 0; if (open(INFILE,"$baseDir/LEFT")) { while () { $line = $_; chomp($line); $line =~ s/^\s+//; $line =~ s/\s+.*//; $line = lc($line); $left{"$line+mol"} = 1; $left{"$line+kandidaat"} = 1; $leftOrder{"$line+mol"} = $left; $leftOrder{"$line+kandidaat"} = $left; $left++; } close(INFILE); } # obtain rankings %rankings = (); &readRankings; $nickname = $args{"NICKNAME"}; $file = "$baseDir/users/".lc($nickname); if (not open(INFILE,$file)) { print "

\nFout: onbekende nickname: $nickname\n"; exit(0); } # check if graph exists $graph = ""; $image = "images/rankings/".lc($nickname); if (defined $args{"SCORE"} and $args{"SCORE"} eq "1") { $image .= "2"; } $image .= ".jpg"; if (open(IMGFILE,"$baseDir/www/$image")) { $graph = "

\n $\"$nickname\"$
Plaatje: plaats | score\n"; close(IMGFILE); } # get score of previous day $prevScore = &getPreviousScore($nickname); # intro $nickname =~ s/\+/ /g; print < Molbeurs: $nickname

THEEND # show current users &ipShow(); print <

THEEND &menu(); print <

THEEND $hostR = ""; $dateR = ""; $nickname = ""; @trades = (); %stocks = (); %history = (); $money = 0; $sold = 0; $bought = 0; while () { $line = $_; chomp($line); if ($line =~ /^HOST\s+(\S+)/) { $hostR = $1; } elsif ($line =~ /^DATE\s+(\S+)/) { $dateR = $1; } elsif ($line =~ /^NICKNAME\s+(\S+)/) { $nickname = $1; } elsif ($line =~ /^TRADE\s+(.*)$/) { push(@trades,$1); @f = split(/\s+/,$line); if ($f[1] eq "sell" and $f[4] =~ /^\d+$/) { $sold += $f[4]; } elsif ($f[1] eq "buy" and $f[3] ne "salaris" and $f[4] =~ /^\d+$/) { $bought += $f[4]; } } elsif ($line =~ /^SALARY\s+(.*)$/) { push(@trades,$1); } elsif ($line =~ /^dukaten\s+(\S+)/) { $money = $1; } elsif ($line =~ /^([a-z\-]+\+mol)\s+(\S+)/) { $stocks{$1} = $2; } elsif ($line =~ /^([a-z\-]+\+kandidaat)\s+(\S+)/) { $stocks{$1} = $2; } elsif ($line =~ /^BONUS ([a-z\-]+\+(mol|kandidaat))\s+(\d+)/) { $history{$1} = defined $history{$1} ? $history{$1}+$3 : $3; } elsif ($line !~ /^(BONUS|HISTORY|MAIL|PASSWORD|TSHIRT)\s/) { print "\n"; } } close(INFILE); $dateR =~ s/\./-/; $dateR =~ s/\./-/; $dateR =~ s/\./ /; # read number of stocks for bank if (lc($nickname) eq "de+bank") { $users = 0; if (opendir(DIR,"$baseDir/users")) { @dir = readdir(DIR); closedir(DIR); $users = -2+$#dir; } $sold = $users*20; # not ok for users that joined later $bought = 0; %stocks = (); if (open(LOGFILE,"$baseDir/logs/logfile")) { while () { $line = $_; chomp($line); if ($line =~ /^(skip|kick)/) { next; } @fields = split(/\s+/,$line); # 2009.01.01.00:00:04 anniek+mol sell 1 29.97 29.97 29.97 Erik+TKS if (defined $fields[2] and $fields[2] =~ /^(buy|sell)$/) { $stock = $fields[1]; $amount = $fields[3]; if ($fields[2] eq "sell") { $bought += $amount; $amount = -$amount; } else { $sold += $amount; } $stocks{$stock} = defined $stocks{$stock} ? $stocks{$stock}+$amount : $amount+$users; } } close(LOGFILE); } } &readPrices(); print <

Molaandelen THEEND $owns = 0; $moleOwns = 0; $stocksM = 0; foreach $name (sort {&sortMarket($prices{$a},$prices{$b},$a,$b)} keys %prices) { if (not defined $stocks{$name}) { $stocks{$name} = 0; } if ($stocks{$name} >= 0 and $name =~ /mol$/) { $fancyName = &fancyStock($name,1); $owns += $stocks{$name}; $moleOwns += $stocks{$name}; $stocksM += $stocks{$name}*$prices{$name}; print "
$stocks{$name}x	$fancyName	$prices{$name}\n"; } } print < THEEND #"

\n"; print "

\n"; print <

Kandidaataandelen THEEND $stocksC = 0; foreach $name (sort {&sortMarketReverse($prices{$a},$prices{$b},$a,$b)} keys %prices) { if (not defined $stocks{$name}) { $stocks{$name} = 0; } if ($stocks{$name} >= 0 and $name =~ /kandidaat$/) { $fancyName = &fancyStock($name,1); #$fancyName =~ s/didaat(\*)?			$stocks{$name}x	$fancyName	$prices{$name}\n"; } } $stocksH = 0; foreach $stock (keys %history) { if (defined $prices{$stock}) { $stocksH += $history{$stock}*$prices{$stock}; } } # if ($hfactor > 0 and $historyEpisodes > 0) { if ($bonusFactor > 0) { $stocksH = sprintf "%0.2f",$stocksH/$bonusFactor; } else { $stocksH = 0; } $total = $money+$stocksC+$stocksM+$stocksH; $total = sprintf "%0.2f",$total; $stocksM = sprintf "%0.2f",$stocksM; $stocksC = sprintf "%0.2f",$stocksC; $money = sprintf "%0.2f",$money; print "

\n\n"; if (lc($nickname) ne "de+bank") { print <

Score: $total ( $stocksM + $stocksC + $money dukaten + $stocksH) THEEND } if ($nickname !~ /^(De.Bank|Het.Goede.Doel)$/i) { &checkTrades(); } if ($#trades >= 0) { print "

Laatste transacties:\n"; } for ($i=$#trades; (($i>=$#trades-$maxTrans or (defined $args{"MAX"} and $args{"MAX"} eq "1")) and $i >= 0);$i--) { @fields = split(/\s+/,$trades[$i]); if ($fields[2] eq "salaris") { $fields[0] = ""; } elsif ($fields[0] eq "buy") { $fields[0] = "gekocht"; } else { $fields[0] = "verkocht"; } $fields[5] =~ s/^.....(..).(..).(.*)...$/$2-$1 $3/; $fields[2] = &fancyStock($fields[2]); $fields[1] = "".&fancyUser($fields[1]).""; $fields[4] = sprintf "%0.2f",$fields[4]; if ($fields[3] >= $bigAmount) { $fields[3] = "$fields[3]x"; } else { $fields[3] .= "x"; } print "
$fields[5] $fields[0] $fields[3] $fields[2] à $fields[4]\n"; } if ($#trades > $maxTrans and (not defined $args{"MAX"} or $args{"MAX"} ne "1")) { print "
(alles)\n"; } if ($#trades >= 0) { print ""; } if (lc($nickname) ne "de+bank") { &printHistory(); } print "

\n"; print "

\n"; $nickname =~ s/\+/ /g; $tshirt = ""; $maxPrize = 5; #if (defined $rankings{"Erik TKS"} and $rankings{"Erik TKS"} <= $maxPrize) { # $maxPrize++; #} # 20090312 # ($rankings{$nickname} <= 6 and $rankings{$nickname} != 1)) { if (defined $rankings{$nickname} and $rankings{$nickname} <= $maxPrize and $nickname ne "Erik TKS not yet") { $tshirt = " $\"tshirt\"$ "; } if (defined $rankings{$nickname}) { $rankings{$nickname} .= "e"; } else { $rankings{$nickname} = "geen"; } if ($prevScore < 0) { $prevScoreLine = ""; } else { if ($total >= $prevScore) { $prevScoreLine = sprintf "
Winst vandaag: +%0.2f dukaten", $total-$prevScore; } else { $prevScoreLine = sprintf "
Verlies vandaag: %0.2f dukaten", $total-$prevScore; } } $bezit = "bezit"; if (lc($nickname) eq "de bank") { $bezit = "omloop"; } if ($moleOwns < $MINMOLE) { $moleOwns = sprintf "%d (%d te weinig!)", $moleOwns,$MINMOLE-$moleOwns; } print <

$nickname

Plaats: $rankings{$nickname} $tshirt
Registratie: $dateR
Aandelen gekocht: $bought
Aandelen verkocht: $sold
Aandelen in $bezit: $owns
Molaandelen in $bezit: $moleOwns $prevScoreLine THEEND # if ($lastActionDate ne "") { # print "
Laatste activiteit: $lastActionDate\n"; # } #
IP: $hostR # offer trade actions if ($nickname !~ /^(De Bank|Het Goede Doel)$/) { &buyAndSell(); &getShoutText(); } print <

Generated at $longDate. erikt(at)xs4all.nl

THEEND if (lc($nickname) ne "de bank") { &showShoutText(11); } else { &showShoutText(3); } print <

Bonusaandelen Kandidaat THEEND my $stocksC = 0; foreach my $name (sort {&sortMarketReverse($prices{$a},$prices{$b},$a,$b)} keys %prices) { if (not defined $history{$name}) { $history{$name} = 0; } if ($history{$name} >= 0 and $name =~ /kandidaat$/) { my $fancyName = &fancyStock($name,0); $owns += $history{$name}; $stocksC += $history{$name}*$prices{$name}; print "

$history{$name}x

$fancyName

$prices{$name}\n"; } } print "

Naam	$nickname
Aandeel
Actie
Aantal
Wachtwoord

Naam	$nickname
Aandeel
Actie
Aantal
Wachtwoord

$nickname

Kandidaataandelen verhandelen

Molaandelen verhandelen