Author: pebender
Date: Sat Sep 6 16:09:21 2008
New Revision: 3714
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/rc
Log:
- Commited file missing from previous commit.
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/rc
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/rc
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/rc
Sat Sep 6 16:09:21 2008
@@ -8,6 +8,7 @@
use feature "switch";
require Cwd;
+require Date::Manip;
require File::Basename;
require File::Spec;
require MiniMyth;
@@ -140,6 +141,14 @@
rc_script_list_run($minimyth, 1, 'start', [EMAIL PROTECTED]) ||
return 0;
$minimyth->splash_halt();
+
+ if (open(FILE, '>>', '/init.log'))
+ {
+ Date::Manip::Date_Init("ConvTZ=UTC");
+ my $date =
Date::Manip::UnixDate('now', '%Y-%m-%d %H:%M:%S %Z');
+ print FILE "end date and time: $date\n";
+ close (FILE);
+ }
}
when (/^0$/)
{
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"minimyth-commits" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/minimyth-commits?hl=en
-~----------~----~----~----~------~----~------~--~---
