Viewing file:  file-monitor.pl (1.93 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
# file-monitor.pl
# Check the status of some file
sub get_file_status
{
local @files;
if ($_[0]->{'file'} =~ /\*|\?/) {
@files = glob($_[0]->{'file'});
}
else {
@files = ( $_[0]->{'file'} );
}
my $allup = 1;
my @allfiles;
my @allsizes;
foreach my $f (@files) {
local @st = stat($f);
local $size;
if ($_[0]->{'test'} >= 2) {
$size = -d $f ? &disk_usage_kb($f)*1024 : $st[7];
}
if ($_[0]->{'test'} == 0) {
$up = @st ? 1 : 0;
}
elsif ($_[0]->{'test'} == 1) {
$up = @st ? 0 : 1;
}
elsif ($_[0]->{'test'} == 2) {
$up = $size > $_[0]->{'greater'} ? 1 : 0;
}
elsif ($_[0]->{'test'} == 3) {
$up = $size < $_[0]->{'lesser'} ? 1 : 0;
}
if (!$up) {
$allup = 0;
push(@allfiles, $f);
}
push(@allsizes, $size) if (defined($size));
}
my $desc;
if (@files > 1 && @allfiles) {
$desc = join(" ", @allfiles);
if ($_[0]->{'test'} == 2) {
$desc = &text('file_esmall', $desc);
}
elsif ($_[0]->{'test'} == 3) {
$desc = &text('file_elarge', $desc);
}
}
my $rv = { 'up' => $up,
'desc' => $desc };
if (@allsizes == 1) {
$rv->{'value'} = $allsizes[0];
$rv->{'nice_value'} = &nice_size($allsizes[0]);
}
return $rv;
}
sub show_file_dialog
{
print &ui_table_row($text{'file_file'},
&ui_textbox("file", $_[0]->{'file'}, 50), 3);
print &ui_table_row($text{'file_test'},
&ui_radio("test", int($_[0]->{'test'}),
[ [ 0, $text{'file_test_0'}."<br>" ],
[ 1, $text{'file_test_1'}."<br>" ],
[ 2, $text{'file_test_2'}.
&ui_textbox("greater", $_[0]->{'greater'}, 10)." ".
$text{'file_bytes'}."<br>" ],
[ 3, $text{'file_test_3'}.
&ui_textbox("lesser", $_[0]->{'lesser'}, 10)." ".
$text{'file_bytes'}."<br>" ] ]), 3);
}
sub parse_file_dialog
{
$in{'file'} || &error($text{'file_efile'});
$_[0]->{'file'} = $in{'file'};
$_[0]->{'test'} = $in{'test'};
$in{'greater'} =~ /^\d*$/ && $in{'lesser'} =~ /^\d*$/ ||
&error($text{'file_esize'});
$_[0]->{'greater'} = $in{'greater'};
$_[0]->{'lesser'} = $in{'lesser'};
}
|