#!/usr/bin/perl
# This file is part of lainsafe.
# lainsafe is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# lainsafe is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with lainsafe. If not, see .
$disk_size = `df -h | awk 'NR==2 {print \$2; exit}'`;
$disk_usage = `df -h | awk 'NR==2 {print \$3; exit}')`;
$disk_free = `df -h | awk 'NR==2 {print \$4; exit}'`;
$disk_percentage = `df -h | awk 'NR==2 {print \$5; exit}'`;
my $currently_used = `du -h files`;
$currently_used =~ s/files//;
my $total = "32GB"; # Put here what you use.
print "
lainsafe
lainsafe
";
print $disk_free ." available from ". $disk_size ." total";