eval 'exec /usr/dist/exe/perl -S $0 ${1+"$@"} ' if 0; $page = 0; $started = 0; while (<>) { $line++; if (//) { &endit(0); $page++; &startit(); } elsif (//) { if ($mode != 1) { print "Missing /mycode $line\n"; } $mode=3; print FILE "
\n";
	} elsif (/<.mycode>/) {
		if ($mode != 3) {
			print "Missing mycode $line\n";
		}
		$mode = 1;
		print FILE "
\n"; } elsif ($mode==0) { $mode=1; print FILE "\n"; print FILE "\n"; print FILE "\n"; print FILE "\n"; if ($page != 1) { print FILE "\n"; } print FILE "\n"; print FILE "
\n"; print FILE "

\n"; print FILE $_; print FILE "

\n"; print FILE "		\n"; print FILE "Start\n"; print FILE "\n"; print FILE "Prev\n"; print FILE "\n"; print FILE "Next\n"; print FILE "
\n"; print FILE "\"\"

\n"; } else { print FILE $_; } } &endit(1); sub startit { open("FILE",">page".$page.".html") || die("can't open page"); print FILE "Page $page\n"; print FILE "\n"; $started = 1; $mode=0; } sub endit { local($last) = @_; if ($started) { if ($mode != 1) { print "bad mode "+$mode+"\n"; } print FILE "

\n"; print FILE "\n"; close(FILE); } }