From: Tim Pope <code@tpope.net>
Date: Fri, 29 Apr 2005 04:00:43 +0000 (+0000)
Subject: Transcript parsing
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=5b7718beb78ff32f4f954c675a0934e9386badad

Transcript parsing
---

diff --git a/perl/sctweb b/perl/sctweb
index 597ce83..15ab1ef 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -615,7 +615,8 @@ sub do_transcripts {
     $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN&tserve_trans_config=rtranscr.cfg&CareerReqNum=1");
     foreach (split /\n/, $response->content) {
 	next unless s/^\&nbsp;|<pre>// || s/\&nbsp;/ /;
-	s/<\/?[Hh]\d>//g;
+	s/<\/?([Hh]\d|[Bb])>//g;
+	next if /<\/td>/;
 	print "$_\n";
     }
 }