Merge branch 'master' of github.com:kivitendo/kivitendo-erp
[kivitendo-erp.git] / SL / System / Process.pm
1 package SL::System::Process;
2
3 use strict;
4
5 use parent qw(Rose::Object);
6
7 use English qw(-no_match_vars);
8 use File::Spec;
9 use File::Basename;
10
11 sub exe_dir {
12   my $dir        = dirname(File::Spec->rel2abs($PROGRAM_NAME));
13   my $system_dir = File::Spec->catdir($dir, 'SL', 'System');
14   return $dir if -d $system_dir && -f File::Spec->catfile($system_dir, 'TaskServer.pm');
15
16   my @dirs = reverse File::Spec->splitdir($dir);
17   shift @dirs;
18   $dir        = File::Spec->catdir(reverse @dirs);
19   $system_dir = File::Spec->catdir($dir, 'SL', 'System');
20   return File::Spec->curdir unless -d $system_dir && -f File::Spec->catfile($system_dir, 'TaskServer.pm');
21
22   return $dir;
23 }
24
25 1;
26 __END__
27
28 =pod
29
30 =encoding utf8
31
32 =head1 NAME
33
34 SL::System::Process - assorted system-relevant functions
35
36 =head1 SYNOPSIS
37
38   # Get base path to kivitendo scripts
39   my $path = SL::System::Process->exe_dir;
40
41 =head1 FUNCTIONS
42
43 =over 4
44
45 =item C<exe_dir>
46
47 Returns the absolute path to the directory the kivitendo executables
48 (C<login.pl> etc.) and modules (sub-directory C<SL/> etc.) are located
49 in.
50
51 =back
52
53 =head1 BUGS
54
55 Nothing here yet.
56
57 =head1 AUTHOR
58
59 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
60
61 =cut