Attachment 32386 Details for Bug 53530 – query-pr.cgi.patch

[patch] query-pr.cgi.patch

query-pr.cgi.patch (text/plain), 967 bytes, created by Oliver Eikemeier on 2003-06-20 04:40:11 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Oliver Eikemeier

Created: 2003-06-20 04:40:11 UTC

Size: 967 bytes

patch

obsolete

>--- query-pr.cgi.orig	Mon Jun  9 16:58:00 2003
>+++ query-pr.cgi	Fri Jun 20 04:52:47 2003
>@@ -219,13 +219,23 @@
> }
> 
> sub fixline {
>-    local($line) = shift;
>-    
>-    $line =~ s/&/&amp;/g;
>-    $line =~ s/</&lt;/g;
>-    $line =~ s/>/&gt;/g;
>-    $line =~ s%((http|ftp)://[^\s"\)\>,;]+)%<A HREF="$1">$1</A>%gi;
>-    $line =~ s%(\WPR[:s# \t]+)([a-z3486]+\/)?([0-9]+)%$1<A HREF="query-pr.cgi?pr=$3">$2$3</A>%ig; 
>-    
>-    return &srcref($line);
>+    local(@splitline) = split(/((?:https?|ftp):\/\/[^\s"<>,;]+)/, shift);
>+
>+    local($isurl) = 0;
>+    foreach (@splitline) {
>+	if ($isurl) {
>+	    local($href) = local($html) = $_;
>+	    $href =~ s/&/%26/g;
>+	    $html =~ s/&/&amp;/g;
>+	    $_ = "<A HREF=\"$href\">$html</A>";
>+	} else {
>+	    s/&/&amp;/g;
>+	    s/</&lt;/g;
>+	    s/>/&gt;/g;
>+	    s%(\WPR[:s# \t]+)([a-z3486]+\/)?([0-9]+)%$1<A HREF="query-pr.cgi?pr=$3">$2$3</A>%ig;
>+	}
>+	$isurl = ! $isurl;
>+    }
>+
>+    return &srcref(join('', @splitline));
> }

Actions: View | Diff

Attachments on bug 53530: 32386