<?
	/*
		file.php
		
		File processing function library

		Copyright (C) 2000 Contributors of the QuakeForge Project
		Please see the file "AUTHORS" for a list of contributors

		This program is free software; you can redistribute it and/or
		modify it under the terms of the GNU General Public License
		as published by the Free Software Foundation; either version 2
		of the License, or (at your option) any later version.

		This program is distributed in the hope that it will be useful,
		but WITHOUT ANY WARRANTY; without even the implied warranty of
		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  

		See the GNU General Public License for more details.

		You should have received a copy of the GNU General Public License
		along with this program; if not, write to:

		Free Software Foundation, Inc.
		59 Temple Place - Suite 330
		Boston, MA  02111-1307, USA.
	*/

	/*
		fileTranslateUrl

		Display a file with email addresses and URLs translated to links.
	*/
	function fileTranslateUrl( $filename ) {
	
		$file = fopen( $filename, "r");
	
		while ($line = fgets( $file, 2048 )) {
			if ( preg_match( "/\</", $line )) {
				$words = preg_split( "/\</", $line );
				$words[1] = preg_replace( "/>/", "", $words[1]);
				echo '<A href="mailto:' . $words[1] . '">' . $words[0] . '</A><BR>';
			} else {
				$line = preg_replace( "/http:\/\/(.*)/", "<A href=\"http://\\1\">http://\\1</A><BR>", $line );
				echo $line;
			}
		}
		fclose( $file );
	}
?>