9 lines
210 B
Perl
Executable file
9 lines
210 B
Perl
Executable file
#!/usr/bin/perl -np
|
|
# Copyright (c) Juli 1998 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
|
|
#
|
|
# clickable - Make URL clickable
|
|
#
|
|
# $FreeBSD$
|
|
|
|
s/</</g;
|
|
s%((http|ftp)://[^\s"\)\>,;]+)%<A HREF="$1">$1</A>%gi;
|