Commit b23e16f0 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Primitive attempt at using a perl regex to strip html tags that mess

up search results page.
parent 7ed84a4d
#!/usr/bin/perl -w
# Copyright (c) 2000-2005 University of Utah and the Flux Group.
# Copyright (c) 2000-2006 University of Utah and the Flux Group.
# All rights reserved.
use English;
......@@ -154,8 +154,13 @@ foreach my $hit (@order) {
print "<li> $rank - <b><a href=$url>$path</a></b>, $mod<br>\n";
print "<ul>\n";
foreach my $line (@{ $lines{$hit} }) {
$line =~ s/<li>//ig;
$line =~ s/<\/li>//ig;
$line =~ s/<([^>]*)>//ig;
#$line =~ s/<.*>//ig;
#$line =~ s/<li>//ig;
#$line =~ s/<\/li>//ig;
if ($line eq "");
print "<li> $line\n";
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment