[project @ 2000-05-01 23:28:02 by doogie]

[debbugs.git] / Debbugs / DBase.pm

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 6927faee53eb3d5b1ffcdda3d96533382d1dd2fa..67e97d3cc8cb3a9cbc9f7606fc2f178167723589 100644 (file)
--- a/Debbugs/DBase.pm
+++ b/Debbugs/DBase.pm
@@ -26,6 +26,11 @@ use Fcntl ':flock';
 use Debbugs::Config;
 use Debbugs::Email;
 use Debbugs::Common;
+use Debbugs::DBase::Log;
+use Debbugs::DBase::Log::Html;
+use Debbugs::DBase::Log::Message;
+use Debbugs::DBase::Log::Mail;
+
 use FileHandle;
 use File::Basename qw(&dirname);
 use File::Path;
@@ -176,6 +181,17 @@ sub OpenLogfile
     }
 }
 
+sub ReadLogfile
+{
+    my $record = $_[0];
+    if ( $record eq $OpenedLog )
+    {
+       seek( $LogfileHandle, 0, 0 );
+       my $log = new Debbugs::DBase::Log;
+       $log->Load($LogfileHandle);
+    }
+}
+
 sub CloseLogfile
 {
     print "V: Closing log $OpenedLog\n" if $Globals{ 'verbose' };