#! /usr/bin/perl


# line 1 = input
# line 2 = output
# line 1 = inpu..
# line 2 = ..

# http://www.thisisatest.com/~home/index.php?file=testfile.html&test=1
# <A href="http://www.thisisatest.com/~home/index.php?file=testfile.html&test=1">www.thisisatest.com/~home/index.php?file=testfile.html&test=1</A>
# image://www.test.be/test.jpg
# <IMG src="www.test.be/test.jpg"></IMG>
# image://http://www.test.be/test.jopg
# <IMG src="http://www.test.be/test.jopg"></IMG>
# ftp://test
# <A href="ftp://test">test</A>
# ftp://username:apasswrd@hostname:2000
# <A href="ftp://username:apasswrd@hostname:2000">username:apasswrd@hostname:2000</A>
# mailto:username@host.cn
# <A href="mailto:username@host.cn">username@host.cn</A>


while ($line = <>) {

	if (	$line =~ s/(image:\/\/)([A-Za-z0-9.~\/=&?:@%_-]+)/<IMG src="$2">/g ) {
		print $line;
	} else {
		if (	$line =~ s/(ftp:\/\/|http:\/\/|mailto:)([A-Za-z0-9.~\/=&?:@%_-]+)/<A href="$1$2">$2<\/A>/g ) {
			print $line;
		} else  {
			print $line;
		}
	}
}