blob: 22797171fafd56a7da7436e5ceac1f361dcb7e15 (
plain)
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#!/usr/bin/env perl
#
# vim: set ts=4:noet
#
# sbocheck
# script to update the local sbo tree and check for updates
#
# authors: Jacob Pipkin <j@dawnrazor.net>
# Luke Williams <xocel@iquidus.org>
# license: WTFPL <http://sam.zoy.org/wtfpl/COPYING>
use 5.16.0;
use strict;
use warnings FATAL => 'all';
use SBO::Lib;
use Getopt::Long;
use File::Basename;
my $self = basename($0);
sub show_usage() {
print <<EOF
Usage: $self
Options:
-h|--help:
this screen.
-v|--version:
version information.
EOF
}
my ($help, $vers);
GetOptions('help|h' => \$help, 'version|v' => \$vers);
show_usage and exit 0 if $help;
show_version and exit 0 if $vers;
update_tree;
# retrieve and format list of available updates
sub get_update_list() {
print "Checking for updated SlackBuilds...\n";
my $updates = get_available_updates;
# consistent formatting - determine longest version string, which will tell
# us the max minimum length of the left side of the output for stuff that
# fits in 80 chars; stuff that doesn't will overflow.
my @up_lengths;
push @up_lengths, length $$updates[$_]{update} for keys @$updates;
my @s_up_lengths = sort {$b <=> $a} @up_lengths;
my $up_length = $s_up_lengths[0];
# "needs updating" bit without version is 30 characters
my $remaining = 80 - ($up_length + 30);
my @lengths;
push @lengths, length "$$updates[$_]{name}-$$updates[$_]{installed}"
for keys @$updates;
my @s_lengths = sort {$b <=> $a} @lengths;
my $min;
FIRST: for my $len (@s_lengths) {
if ($len < $remaining) {
$min = $len;
last FIRST;
}
}
$min = $remaining unless $min;
my @listing;
for my $update (@$updates) {
push(@listing, sprintf "%-${min}s < needs updating (SBo has %s)",
"$$update{name}-$$update{installed}", "$$update{update}");
}
return \@listing;
}
# print list of updates
sub print_output($) {
exists $_[0] or script_error 'print_output requires an argument';
my $listing = shift;
if (exists $$listing[0]) {
print "\n";
say $_ for @$listing;
print "\n";
# save a log of available updates
my $logfile = '/var/log/sbocheck.log';
unlink $logfile if -f $logfile;
my ($log_fh, $exit) = open_fh($logfile, '>');
# non-fatal
if ($exit) {
warn $log_fh if $exit;
} else {
say {$log_fh} $_ for @$listing;
close $log_fh;
say "A copy of the above result is kept in $logfile\n";
}
} else {
say "\nNo updates available.";
}
}
my $output = get_update_list;
print_output $output;
exit 0;
|
