last_log_line.cgi

#!/usr/bin/perl
############################################################ IDENT(1)
#
# $Title: CGI to get last line of logfile $
# $Copyright: 2017-2019 Devin Teske. All rights reserved. $
# $FrauBSD$
#
############################################################ INFORMATION
#
# For driving Vizceral.
#
############################################################ INCLUDES

use strict;
use warnings;
use CGI;
use File::ReadBackwards;

############################################################ CONFIGURATION

(my $script = $ENV{SCRIPT_NAME} || $0) =~ s{^.*/([^/]+)\.cgi$}{$1}i;
my $LOGFILE = "/var/log/$script.log";

############################################################ GLOBALS

#
# mod_perl/CGI
#
our $r    = $ENV{MOD_PERL} ? shift : undef;
our $html = $ENV{REQUEST_METHOD} ? 1 : 0;
our $cgi  = new CGI;

$| = 1 if $html; # Disable output buffering to browser(s)

############################################################ FUNCTIONS

sub lastline
{
        my ($file) = @_;
        return +( File::ReadBackwards->new($file)
                or die "$file: $!" )->readline();
}

############################################################ MAIN

print $cgi->header("application/javascript");
print &lastline($LOGFILE);
exit 0;

################################################################################
# END
################################################################################