#!/usr/bin/perl -w print < My Quota HEADER my @myquota = `quota`; my ( $used, $avail ) = ( split /\s+/, $myquota[3] )[1,2]; print < TABLE print "

Quota for $ENV{SERVER_NAME}

\n"; my $used_h = &make_readable( $used ); my $avail_h = &make_readable( $avail ); my $p_used = $used / $avail; $p_used *= 100; $p_used = sprintf( "%.2f", $p_used ); my $font_color = ( $p_used >= 90 ) ? red : black; print "

Using $p_used%

"; print "Used: $used_h of $avail_h.\n"; print <   END sub make_readable { my $value = shift; my $modifier = "k"; if ( $value > 1024 ) { $value /= 1024; $modifier = "M"; } if ( $value > 1024 ) { $value /= 1024; $modifier = "G"; } $value = sprintf( "%.2f", $value ); $value .= $modifier; return $value; }