#! /srvtools/http/bin/perl
#############################################################################
#  
#   File:         PrintFile.pl
#
#   Author:       Jungmin Kim
#
#   Created:      03/05/95
#   Modified:     
#   Version:      
#
#   Input:        path name, file name, date, user name, title of massage
#   Output:       HTML text
#          
#
#   Description:  Read a message ( ./path/filename ).
#
#############################################################################

sub PrintFile{
    local($dir, $filename) = @_;
    local($message);

    #### print the message
    open(INFILE,"$dir/$filename");
    while(<INFILE>) {
	$message .= $_;
    }
    $message;
}
1;
