Index: trunk/MagicSoft/Mars/Changelog
===================================================================
--- trunk/MagicSoft/Mars/Changelog	(revision 7940)
+++ trunk/MagicSoft/Mars/Changelog	(revision 7941)
@@ -76,4 +76,7 @@
    * msql/Makefile, msql/SqlLinkDef.h:
      - added MSQLMagic
+
+   * mbase/MLog.[h,cc]:
+     - added new member function Intro()
 
 
Index: trunk/MagicSoft/Mars/mbase/MLog.cc
===================================================================
--- trunk/MagicSoft/Mars/mbase/MLog.cc	(revision 7940)
+++ trunk/MagicSoft/Mars/mbase/MLog.cc	(revision 7941)
@@ -101,4 +101,5 @@
 
 #include <TROOT.h>      // gROOT->GetListOfCleanups()
+#include <TSystem.h>
 
 #ifdef _REENTRANT
@@ -108,4 +109,5 @@
 
 #include "MArgs.h"
+#include "MTime.h"
 #include "MParContainer.h"
 
@@ -718,2 +720,27 @@
     plug->SetBit(kMustCleanup);
 }
+
+// --------------------------------------------------------------------------
+//
+// Returns "yyyy-mm-dd user@host gROOT->GetName()[pid]"
+//
+TString MLog::Intro()
+{
+    UserGroup_t *user = gSystem->GetUserInfo();
+
+    TString rc;
+    rc += MTime(-1).GetSqlDateTime();
+    rc += " ";
+    rc += user->fUser;
+    rc += "@";
+    rc += gSystem->HostName();
+    rc += " ";
+    rc += gROOT->GetName();
+    rc += "[";
+    rc += gSystem->GetPid();
+    rc += "] ";
+
+    delete user;
+
+    return rc;
+}