use SL::LXDebug;
use Data::Dumper;
use List::Util qw(max);
+use Time::HiRes;
# this is a cleaned up version of am.pl
# it lacks redirection, some html setup and most of the authentication process.
die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login);
- $::form->{login} = $login; # normaly implicit at login
-
die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode});
$::instance_conf->init;
Spezielle Kommandos:
- help - zeigt diese Hilfe an.
- lxinit 'login' - lädt das kivitendo-Environment für den User 'login'.
- reload - lädt modifizierte Module neu.
- pp DATA - zeigt die Datenstruktur mit Data::Dumper an.
- quit - beendet die Konsole
+ help - zeigt diese Hilfe an.
+ lxinit 'login' - lädt das kivitendo-Environment für den User 'login'.
+ reload - lädt modifizierte Module neu.
+ pp DATA - zeigt die Datenstruktur mit Data::Dumper an.
+ clock { CODE } - zeigt die gebrauchte Zeit für die Ausführung von CODE an
+ quit - beendet die Konsole
- part - shortcuts auf die jeweilige SL::DB::{...}::find_by
+ part - shortcuts auf die jeweilige SL::DB::{...}::find_by
customer, vendor,
order, invoice,
+ purchase_invoice,
chart
EOL
SL::DB::Manager::Invoice->find_by(@_)
}
+sub purchase_invoice {
+ require SL::DB::PurchaseInvoice;
+ SL::DB::Manager::PurchaseInvoice->find_by(@_)
+}
+
sub customer {
require SL::DB::Customer;
SL::DB::Manager::Customer->find_by(@_)
SL::DB::Manager::Chart->find_by(@_)
}
+sub clock (&) {
+ my $s = [Time::HiRes::gettimeofday()];
+ $_[0]->();
+ Time::HiRes::tv_interval($s);
+}
+
+
1;
__END__