commit - 542b90084803e1f9e355b86ea0f430854c364437
commit + dc9d5313c5704e6025c12898d3c6adf00b7584df
blob - 91f6d905d38a45097c6485b84619b9cb26c759d0
blob + f5b7f092c6cc63635fcba6e020e6a2196a58e99c
--- GotMArc.pm
+++ GotMArc.pm
@@ -104,6 +104,7 @@ sub thread_header {
 	print $fh "<a href='/'>Index</a>";
 	print $fh " | <a href='/thread/$enctid.html#$encmid'>Thread</a>"
 	    if defined $enctid;
+	print $fh " | <a href='/search'>Search</a>";
 	print $fh "</p>\n";
 
 	say $fh "<dl>";
blob - 3ca47853b31677e8c01e7f0be73391aefd350c67
blob + ad5a88859f2a7ce765c00e2adf4a80cb056cb44e
--- mkindex
+++ mkindex
@@ -86,6 +86,17 @@ sub nav {
 	say $pfh "</nav>";
 }
 
+sub search {
+	my $pfh = shift;
+
+	say $pfh <<'EOF' ;
+<form method="get" action="/search">
+  <label>Search: <input type="search" name="q" /></label>
+  <button type="submit">search</button>
+</form>
+EOF
+}
+
 sub copyfrom {
 	my ($path, $fh) = @_;
 
@@ -114,6 +125,7 @@ sub renderpages {
 		say $pfh "<main>";
 
 		nav $pfh, $i if $page > 1;
+		search $pfh;
 		copyfrom($path, $pfh);
 		nav $pfh, $i if $page > 1;
 
blob - 62afc1864a231ce0459c290e24327f06d8b34a78
blob + 7f5573d5dc153acf243d7eb865f3bf7f180293e8
--- style.css
+++ style.css
@@ -53,6 +53,10 @@ form {
     text-align: center;
 }
 
+input {
+    max-width: 180px;
+}
+
 main {
     padding: 5px;
 }