autolink footnotes, careful on read

2 files changed, 2 insertions, 1 deletions

diff --git a/bin/prep b/bin/prep
index eb88768..5be73f3 100755
--- a/bin/prep
+++ b/bin/prep
@@ -47,7 +47,7 @@ if ($file) {
 } else {
         my $save = $/;
         undef $/;
-        $data = <>;
+        $data = <<>>;
         $/ = $save;
 }
 
diff --git a/lib/prep/html/util.pl b/lib/prep/html/util.pl
index 87e8de5..318e1c2 100644
--- a/lib/prep/html/util.pl
+++ b/lib/prep/html/util.pl
@@ -125,6 +125,7 @@ sub do_fn {
         my $t = shift;
 # this hack isn't actually needed:
 #       $t =~ tr:[]:(): if $VAR{LQFB};
+        $t = '<a href="'.$t.'">'.$t.'</a>' if $t =~ /^http\S+$/;
         $fn[++$FN] = $t;
         # using () instead of [] so that i can mousepaste it into LQFB
         return "<sup class='fn'>(<a name='bn$FN' href='#fn$FN'>$FN</a>)</sup>";