Changeset 9955

Timestamp:

2005-05-25T17:12:39+12:00 (19 years ago)

Author:

davidb

Message:

new function, hyperlink_text added to util.pm

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -623 +623 @@
 }
 
+sub hyperlink_text
+{
+    my ($text) = @_;
+    
+    $text =~ s/(http:\/\/[^\s]+)/<a href=\"$1\">$1<\/a>/mg;
+    $text =~ s/(^|\s+)(www\.(\w|\.)+)/<a href=\"http:\/\/$2\">$2<\/a>/mg;
+
+    return $text;
+}
+
+
 1;