#!/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 . my $disk_size = `df -h | awk 'NR==2 {print \$2; exit}'`; my $disk_usage = `df -h | awk 'NR==2 {print \$3; exit}'`; my $disk_free = `df -h | awk 'NR==2 {print \$4; exit}'`; my $disk_percentage = `df -h | awk 'NR==2 {print \$5; exit}'`; print "Content-type: text/html\n\n"; print " lainsafe

lainsafe

cool lain
"; print $disk_free ." available from ". $disk_size ." total";