#!/usr/local/bin/perl5
#
#
require '/home/alansz/rw/rw-lib.ph';

$move = $ARGV[0];

chdir("/home/alansz/www/rw-pbem/moves/$move");
chop(@files = `/bin/ls -tr1 *.html`);

open(OUT,">/home/alansz/rw/turns/turn${move}.src") || die;

foreach $grp (keys %groups) {
  print OUT "<<$grp>>\n";
  @grp = split(",",$groups{$grp});
  foreach (@files) {
    foreach $name (@grp) {
	next if $alan && $name =~ /alan/i;
	$alan++ if $name =~ /alan/i;
	  if (/^${name}(\d)*-/i) {
		print OUT `lynx -dump $_`;
		print OUT "\n";
	  }
        }
  }
}