From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 27 Oct 2009 14:35:07 +0000 (+0100)
Subject: Time::HiRes um Zeit Stats im Footer anzuzeigen.
X-Git-Tag: release-2.6.1beta1~140
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c95194b8c708e02f581424029de09e7459ece3f5;p=kivitendo-erp.git

Time::HiRes um Zeit Stats im Footer anzuzeigen.
---

diff --git a/am.pl b/am.pl
index a70e45233..0df30277a 100755
--- a/am.pl
+++ b/am.pl
@@ -32,9 +32,15 @@
 
 use strict;
 
+use Time::HiRes qw(gettimeofday tv_interval);
+
+my $time;
+
 BEGIN {
   unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
   push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
+
+  $time = [gettimeofday];
 }
 
 # setup defaults, DO NOT CHANGE
@@ -172,5 +178,8 @@ sub _show_error {
   exit;
 }
 
+END {
+  print "<!-- time elapsed: ", tv_interval($time), "s -->";
+}
 # end