lib/PINGDOMFETCH/Utils.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

package PINGDOMFETCH::Utils;

use strict;
use warnings;

use Data::Dumper;
use Exporter;

use base 'Exporter';

our @EXPORT = qw (
  d
  dumper
  get_version
  get_version_full
  newline
  notnull
  null
  remove_spaces
  say
  sum
  trim
);

sub say (@) { print "$_\n" for @_; return undef }
sub newline () { say ''; return undef }
sub sum (@) { my $sum = 0; $sum += $_ for @_; return $sum }
sub null ($)    { defined $_[0] ? $_[0] : 0 }
sub notnull ($) { $_[0] != 0    ? $_[0] : 1 }
sub dumper (@)  { die Dumper @_ }
sub d (@)       { dumper @_ }

sub trim ($) {
    my $trimit = shift;

    $trimit =~ s/^[\s\t]+//;
    $trimit =~ s/[\s\t]+$//;

    return $trimit;
}

sub remove_spaces ($) {
    my $str = shift;

    $str =~ s/[\s\t]//g;

    return $str;
}

sub get_version () {
    my $versionfile = do {
        if ( -f '.version' ) {
            '.version';
        }
        else {
            '/usr/share/pingdomfetch/version';
        }
    };

    open my $fh, $versionfile or error("$!: $versionfile");
    my $version = <$fh>;
    close $fh;

    chomp $version;
    return $version;
}

sub get_version_full () {
    return "This is Pingdomfetch Version " . get_version() . "\n";
}

1;