#!/usr/local/bin/perl5 # # insert-move: Given a move filename, we're going to insert an # HTML link to it in the master.html file at the point marked by # # # Usage: insert-move master.html # Input is on stdin, in this format: # filename (format is: Player[ext]-DD-MM-YY.html) # move # # Anchors should be: #
  • # (Reparsed to look nicer) # die if eof(STDIN); $file = $ARGV[0]; chop($fname = ); chop($moveno = ); $tmp = "/tmp/insert-move.$$"; $marker = "\