Here's a quick little perl script that'll do the job. Replace PM1, PM2
with the names of your Portmasters:
#!/usr/local/bin/perl
##
# userlog - this program prints a log of a user's activity based on
# RADIUS detail logs.
#
# Usage: userlog username PMname|all [mm.yy]
# where username = the login of the user in question
# PMname = the name of a PortMaster with a RADIUS file
# all = specifies the use of all PM's in servlist
# (Note - either a PMname or all MUST be specified)
# mm.yy = the numeric month and year of a previous period
# (optional - if omitted, the current detail file is
# used. To use this option, detail files from previous
# months must be named in the form detailmm.yy)
#
# Copyright (C) 1995
# -Dave Andersen <angio@aros.net>
#
# Modified from Dave's "Lineparser" to work with 1 user
# 1/1/96 - Joe Hartley <jh@brainiac.com>
#
# Modified to allow specification of a single portmaster
# 10/29/96 - Joe Hartley <jh@brainiac.com>
##
# set the user to look for from the command line
if ($ARGV[0]) {
$testuser = sprintf("%-8s", $ARGV[0]);
}
else {
die("Usage: userlog username PMname|all [mm.yy]\n");
}
# Set the server list
if ($ARGV[1] =~ "all") {
@servlist = ("PM1","PM2");
}
else {
@servlist = ($ARGV[1]);
}
# Set the period variable, if any
if ($ARGV[2]) {
$period = $ARGV[2];
}
else {
$period = '';
}
$servno = 0;
# Open the file for first PM
$server = $servlist[$servno];
$servno += 1;
while ($server) {
open(IN, "/usr/adm/radacct/$server/detail$period") ||
die "Could not open file $server/detail$period\n";
$begin_record = 1;
$end_record = 0;
# Variables
# $date - 09/11/75 format
# $daytime - hh:mm:ss format of _logout_ time
# $username
# $time - time online
print("\nActivity log for user $testuser on $server\n");
print(" Date Logout Username Minutes online TOTAL Hours Online\n");
print("------------------------------------------------------------------\n");
while (<IN>) {
chop;
if (!length($_)) {
if ($end_record) {
if ($username =~ $testuser) {
$totaltime += $time / 60;
printf("%-8.8s %-8.8s %-8.8s %-7.7s %-7.7s\n",
$date, $daytime, $username, $time, $totaltime);
}
}
$end_record = 0;
$begin_record = 1;
next;
}
if ($begin_record && /^[a-zA-Z]/) {
($wday, $month, $mday, $daytime, $year) = split;
$month = &convert_month($month);
$year =~ s/19//;
$date = sprintf("%2.2d/%2.2d/%2.2d",
$month, $mday, $year);
$begin_record = 0;
$end_record = 1;
next;
}
if ($begin_record) {
next;
}
if (/User-Name/) {
s/[^\"]*"([^\"]*).*/$1/;
s/\s+//g;
$username = sprintf("%-8s", $_);
next;
}
if (/Acct-Status-Type/) {
if (!/Stop/) {
$begin_record = $end_record = 0;
next;
}
}
if (/Acct-Session-Time/) {
s/Acct-Session-Time = //;
s/\s+//g;
$time = $_ / 60;
next;
}
}
$server = $servlist[$servno];
$servno += 1;
}
sub convert_month {
local($_) = $_[0];
if ($_ eq "Jan") { "01"; }
elsif ($_ eq "Feb") { "02"; }
elsif ($_ eq "Mar") { "03"; }
elsif ($_ eq "Apr") { "04"; }
elsif ($_ eq "May") { "05"; }
elsif ($_ eq "Jun") { "06"; }
elsif ($_ eq "Jul") { "07"; }
elsif ($_ eq "Aug") { "08"; }
elsif ($_ eq "Sep") { "09"; }
elsif ($_ eq "Oct") { "10"; }
elsif ($_ eq "Nov") { "11"; }
elsif ($_ eq "Dec") { "12"; }
else { "-1"; }
}
> o split the logfile into seperate months
> o also what would happen if a record goes over a 2 month
> period? ie they log on at 11pm on the 30th, log off next month
We run this at midnight on the 1st of the month from cron:
#!/bin/csh
#
# Move the detail files to their proper month.year
set DAT = `date +%m.%y`
cd /var/adm/radacct/PM1
mv detail detail$DAT
cd /var/adm/radacct/PM2
mv detail detail$DAT