$head

THEEND $time1 = Time::HiRes::tv_interval($time0); # show current users (commented away in elib.pm at end of game) my $facebook = "yes"; if (defined $args{"BOT"}) { &ipShow("BOT"); } else { &ipShow("facebook"); } $time2 = Time::HiRes::tv_interval($time0); print <

THEEND # show navigation menu &menu(); print <

Molmarkt THEEND # check for candidates that dropped out %left = (); %leftOrder = (); $o = 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"} = $o; $leftOrder{"$line+kandidaat"} = $o; $o++; } close(INFILE); } # show mole market standings &readPrices(); foreach $name (sort {&sortMarket($prices{$a},$prices{$b},$a,$b)} keys %prices) { if ($name =~ /mol$/) { $fancyName = &fancyStock($name,1); print "

$fancyName

$prices{$name}\n"; } } # html code between mole market and candidate market tables print <

Kandidatenmarkt THEEND # show candidate market (data collected by readPrices) foreach $name (sort {&sortMarketReverse($prices{$a},$prices{$b},$a,$b)} keys %prices) { if ($name =~ /kandidaat$/) { $fancyName = &fancyStock($name,1); $fancyName =~ s/didaat		$fancyName	$prices{$name}\n"; } } print "

\n"; $time3 = Time::HiRes::tv_interval($time0); # show game standings &readRankings(); print "

\n"; # 20090108 $time4 = Time::HiRes::tv_interval($time0); # show recent trades &checkTrades(); $time5 = Time::HiRes::tv_interval($time0); # print "

\n\n"; # 20090108 print "

\n"; # check for trade stop if (open(INFILE,"$baseDir/STOP")) { print <

THEEND while () { print; } print "

\n"; close(INFILE); } # other messages if (open(INFILE,"$baseDir/MOTD")) { print <

THEEND while () { print; } print "

\n"; close(INFILE); } # web page introduction text $playerText = $nbrOfPlayers == 1 ? "is op dit moment 1 actieve speler" : "zijn op dit moment $nbrOfPlayers actieve spelers"; $bottext = "Molbeurshandel inclusief bots"; if (defined $args{"TRADED"} and defined $args{"BOT"}) { $bottext = "Molbeurshandel zonder bots"; } elsif (not defined $args{"TRADED"} and defined $args{"BOT"}) { $bottext = "Molbeurshandel zonder bots"; } elsif (defined $args{"TRADED"} and not defined $args{"BOT"}) { $bottext = "Molbeurshandel inclusief bots"; } print < Welkom! De Molbeurs is een spel waarin je kan handelen in aandelen van deelnemers aan het tv-programma Wie is de Mol?. Iedereen die een geldig e-mail-adres heeft, mag meedoen. Deelname is gratis. We spelen niet met echt geld maar met dukaten.

De Molbeurs heeft twee markten: de Molmarkt en de Kandidatenmarkt. Als je denkt dat iemand de Mol is, probeer dan zoveel mogelijk Molaandelen van deze persoon te kopen. Verwacht je dat iemand binnenkort gaat afvallen, koop dan zoveel mogelijk Kandidaataandelen van hem of haar.

Als een deelnemer aan het programma uitvalt dan zijn diens Molaandelen niks meer waard. De waarde van het bijbehorende Kandidaataandeel wordt dan precies 100 dukaten. Aan het einde van het programma zijn er maar tien aandelen die meetellen voor de eindscore: het Molaandeel van de Mol (heeft als eindwaarde ook 100 dukaten) en de Kandidaataandelen van de negen andere kandidaten. De eindscore van een speler is gelijk aan het totaal van de waarden van diens aandelen plus het aantal dukaten dat een speler heeft.

Het doel van het spel is om een groot mogelijke waarde in dukaten en aandelen te verzamelen. De vijf deelnemers met de hoogste scores aan het einde van het spel, winnen een prachtig t-shirt. Succes!

In de twee tabellen linksboven staan de huidige waarden van de aandelen. Daarnaast staat de huidige stand in het spel.

De Molbeurs is gestart op 1 januari 2012, 00:00. Recente koerschommelingen kan je bekijken op het weekoverzicht en de pagina met alle grafieken. Je kan ook kijken naar de koersgeschiedenis gedurende het hele spel. Er $playerText.

Grafieken | Weekoverzicht | Koersgeschiedenis

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

THEEND &showShoutText($maxShowShout); $time6 = Time::HiRes::tv_interval($time0); printf "\n",$time1,$time2,$time3,$time4,$time5,$time6; print < THEEND &count(); exit(0); sub menu { print < molbeurs

THEEND } sub fancyName { my ($line) = shift(@_); my ($upper); if ($line =~ /^([a-z])/) { $upper = $1; $upper =~ tr/a-z/A-Z/; $line =~ s/^./$upper/; } return($line); } sub readPrices { %prices = (); $file = "$baseDir/prices"; if (not open(INFILE,$file)) { print "Fout: prijzenbestand onleesbaar\n"; } else { $noPrices = 1; %prices = (); while () { $line = $_; chomp($line); $line =~ /^(\S+)\s(\S+)\s/; $prices{$1} = $2; $noPrices = 0; } close(INFILE); if ($noPrices) { if (not open(INFILE,$file)) { print "Fout: prijzenbestand onleesbaar\n"; } else { sleep(1); while () { $line = $_; chomp($line); $line =~ /^(\S+)\s(\S+)\s/; $prices{$1} = $2; } close(INFILE); } } } } sub fancyStock { my ($s,$noHTML) = @_; my ($color,@s,$stock,$left); if (not defined $noHTML) { $noHTML = 0; } $stock = $s; $stock =~ /^(.)(.*)\+(.)(.*)$/; @s = ($1,$2,$3,$4); $s[0] =~ tr/a-z/A-Z/; $s[2] =~ tr/a-z/A-Z/; if ($s[1] =~ /-([a-z])/) { $upper = $1; $upper =~ tr/a-z/A-Z/; $s[1] =~ s/-./-$upper/; } if ($stock =~ /mol$/) { $color = $colorM; } else { $color = $colorC; } $stock = "$s[0]$s[1] $s[2]$s[3]"; if (defined $left{$s}) { $left = "*"; } else { $left = ""; } if (not $noHTML) { $stock = "$stock$left"; } else { $stock = "$stock$left"; } return($stock); } sub fancyUser { my ($user,$html) = @_; my ($fancyUser); $fancyUser = $user; $fancyUser =~ s/\+/ /g; $fancyUser = lc($fancyUser); # if (defined $html and $html >= 0) { # $fancyUser = "$fancyUser"; # } else { $fancyUser = "$fancyUser"; # } return($fancyUser); } sub readRankings { my ($i,$place,$score,$nickname,$baseUser); print <

Stand (compleet) THEEND if (open(INFILE,"$baseDir/www/rankings.html")) { $i = 1; while () { $line = $_; chomp($line); if ($line =~ /^$/) { $place = $1; $score = int($2); $nickname = $6; $nickname =~ s/\s+\d+\.\d+\s*$//; # $nickname =~ s/\s/\+/; $nickname =~ tr/A-Z/a-z/; $baseUser = $nickname; $baseUser =~ s/\s/\+/g; $nickname =~ s/\s/ /g; print "
$place.	$nickname	$score\n" if ($i <= $nbrOfCandidates); $i++; #if ($i > 10) { last; } } } for ($j=$i;$j<=$nbrOfCandidates;$j++) { $j = ($j < $nbrOfCandidates) ? " $j" : $j; print "
$j.\n"; } # while () { # $line = $_; # chomp($line); # if ($line =~ /^$/) { $i++; } # } # close(INFILE); $nbrOfPlayers = $i-1; } print "

\n"; } sub readTrades { my (@files,$dir,$file,$line,$n,$s,$a,$p,$action,@out,$i); my $count = 0; my $nicknameSpace; @out = (); %bestBuyProp = (); %bestBuyPrice = (); %bestSellProp = (); %bestSellPrice = (); if (not open(INFILE,"grep . /dev/null $baseDir/trades/* 2>/dev/null |")) { print "Fout: kan transactiebestanden niet lezen\n"; } else { while () { $line = $_; chomp($line); $line =~ s/^([^:]*:[^:]*:[^:]*)://; $file = $1; $file =~ s/.*\///; ($d,$action,$n,$s,$a,$p) = split(/\s+/,$line); push(@out,"$file $d $action $n $s $a $p -"); if ($action =~ /buy/i and (not defined $bestBuyPrice{$s} or $p > $bestBuyPrice{$s})) { $bestBuyPrice{$s} = $p; $bestBuyProp{$s} = $#out; } if ($action =~ /sell/i and (not defined $bestSellPrice{$s} or $p < $bestSellPrice{$s})) { $bestSellPrice{$s} = $p; $bestSellProp{$s} = $#out; } } close(INFILE); } foreach $i (keys %bestBuyProp) { $out[$bestBuyProp{$i}] =~ s/.$/\+/; } foreach $i (keys %bestSellProp) { $out[$bestSellProp{$i}] =~ s/.$/\+/; } return(@out); } sub checkTrades { my (@buy,@sell,@buyPrice,@sellPrice,%othersBuy,%othersSell,@trades, $dir,$file,$line,$n,$s,$c,$p,$action,$i,$message); %othersBuy = (); %othersSell = (); #if (open(INFILE,"date '+%H:%M'|")) { # $now = ; # chomp($now); # close(INFILE); #} else { $now = ""; } if (not defined $args{"TRADED"}) { @trades = &readPastTrades(); # 20090312 # Recent verhandeld ($now): # Laatste handelingen: if (not defined $args{"BOT"}) { if (not defined $args{"BIG"}) { $message = "Recent verhandeld ($now): (voorstellen, groot)"; } else { $message = "Recent verhandeld ($now): (voorstellen, alles)"; } } else { if (not defined $args{"BIG"}) { $message = "Recent verhandeld ($now): (voorstellen, groot)"; } else { $message = "Recent verhandeld ($now): (voorstellen, alles)"; } } } else { @trades = &readTrades(); if (not defined $args{"BOT"}) { $message = "Recente voorstellen ($now): (handelingen, groot)"; } else { $message = "Recente voorstellen ($now): (handelingen, groot)"; } } $stock = lc($stock); print "

\n\n"; # if ($#trades >= $maxShowTrades) { print "

$message\n"; for ($i=$#trades;$i>=$#trades-$maxShowTrades;$i--) { if ($i<0) { last; } ($_,$orgDate,$action,$n,$s,$c,$p,$best) = split(/\s+/,$trades[$i]); $n = lc($n); $d = &summarizeDate($orgDate); $best = ($best eq "-") ? "" : " *"; if (not defined $args{"TRADED"}) { if ($action =~ /buy/i) { $action = "gekocht"; } elsif ($action =~ /sell/i) { $action = "verkocht"; } } else { if ($action =~ /buy/i) { $action = "gezocht"; } elsif ($action =~ /sell/i) { $action = "te koop"; } else { $action = ""; if (defined $args{"TRADED"} and $n ne "nobody") { $best = " (" . &fancyUser($n) . ")"; } } } $fancyStock = &fancyStock($s,0); $fancyStock =~ s/didaat(\*?)= $bigAmount) { $c = "${c}x"; } else { $c .= "x"; } printf "
%s: %s $c %s à %0.2f", $d,$action,$fancyStock,$p; # check for koopstop if (open(INFILE,"grep \"^skipping $orgDate\" $baseDir/logs/logfile|")) { $kline = ; if (defined $kline and $kline =~ /molecount/ and defined $args{"TRADED"}) { print " M"; } elsif (defined $kline and $kline ne "" and defined $args{"TRADED"}) { print " K"; } close(INFILE); } print "\n"; } } # for ($i=$maxShowTrades-$#trades;$i>=0;$i--) { print "
\n"; } if (not defined $args{"TRADED"} and not defined $args{"BIG"} and not defined $args{"MAX"}) { print "
(meer)\n"; } # added 20100131 if (defined $args{"TRADED"}) { $proposedTrades = $#trades+1; @trades = &readPastTrades(); for ($i=0;$i<10-$proposedTrades;$i++) { print "
"; } print "

Recent verhandeld ($now):\n"; $lastDate = ""; for ($i=$#trades;$i>=0;$i--) { if ($i<0) { last; } ($_,$d,$action,$n,$s,$c,$p,$best) = split(/\s+/,$trades[$i]); $n = lc($n); $d = &summarizeDate($d); if ($lastDate ne "" and $d ne $lastDate) { last; } $lastDate = $d; $best = ($best eq "-") ? "" : " *"; if ($action =~ /buy/i) { $action = "gekocht"; } elsif ($action =~ /sell/i) { $action = "verkocht"; } $fancyStock = &fancyStock($s,0); $fancyStock =~ s/didaat(\*?)= $bigAmount) { $c = "${c}x"; } else { $c .= "x"; } printf "
%s: %s $c %s à %0.2f\n", $d,$action,$fancyStock,$p; } } print "\n"; # } print "

\n"; } sub summarizeDate { my ($date) = shift(@_); if ($date =~ /^.....(..).(..).(..):(..):..$/) { $date = "$2-$1 $3:$4"; } return($date); } sub readPastTrades { my ($line,$date,$stock,$count,$price,$name,@pastTrades); @pastTrades = (); if (open(INFILE,"$baseDir/logs/logfile")) { # input line format: 2007.01.28.00:45:01 dick+mol total: 2 350 151 189 # 2007.12.29.21:20:01 edo+mol total: 1 49.99 49.99 49.99 - $i = 0; while () { $line = $_; chomp($line); $i++; # 20090118 skip early trades to speed up software: does not help # if ($i < 8000) { next; } if ($line =~ /^20.* (buy|sell) /) { ($date,$stock,$action,$count,$price,$_,$_,$name) = split(/\s+/,$line); if (not defined $price or $action !~ /^(buy|sell)$/ or $count <= 0) { next; } if (defined $args{"BIG"} and $count < $bigAmount) { next; } if (not defined $name) { $name = "nobody"; } $price /= $count; # output line format: $_,$d,$action,$n,$s,$c,$p,$best push(@pastTrades,"x $date $action $name $stock $count $price -"); } } close(INFILE); #splice(@pastTrades,0,$#pastTrades-$maxShowTrades); } return(@pastTrades); } # access counter sub count { my $baseDir = "/WWW/t/tjongkim/htdocs/counter"; my $pageName = "molbeurs"; my $count; # read counter value if (open(INFILE,"$baseDir/$pageName.js")) { $count = ; if (not defined $count) { $count = 0; } $count =~ s/^[^"]*"//; $count =~ s/"[^"]$"//; } else { $count = 0; } $count++; # write counter value open(OUTFILE,">$baseDir/$pageName.js") or exit(0); print OUTFILE "document.write(\"$count\");\n"; close(OUTFILE); return(); } # ip logger #sub ipLogger { # open(OUTFILE,">>$baseDir/logs/ips/now") or return(); # if (@_) { printf OUTFILE "%d %s %s\n",time(),$ENV{"REMOTE_ADDR"},$_[0]; } # else { printf OUTFILE "%d %s\n",time(),$ENV{"REMOTE_ADDR"}; } # close(OUTFILE); # return(); #}