Riverworld PBEM: \u$player, Turn $ARGV[0]

#!/usr/local/bin/perl5 -T # # spewturn: CGI script that, given a turn # and a player name, # will attempt to present that turn from that player's pov # push(@INC,'/home/alansz/rw'); require 'rw-lib.ph'; &header; $turn = $ARGV[0]; &puke("turn") unless $turn =~ /\d+/; $turn =~ /(\d+)/; $turn = "turn$1"; $player = "\L$ARGV[1]"; &puke("player") unless $player =~ /[-a-z ]+/; $player =~ /(.*)/; $player = $1; print < Riverworld PBEM: \u$player, Turn $ARGV[0]

EOP

open(IN,"/home/alansz/rw/turns/$turn") or &puke("$turn");
print join("",&turnify($player,1,));
close(IN);

print "

\n"; &footer; exit 0; #----------------------------------- sub header { print < EOP } sub puke { print "No can do.\n"; print "0 = $ARGV[0]\n"; print "1 = $ARGV[1]\n"; print "I puked at $_[0]\n"; exit 0; }