#!/usr/bin/env perl -w #This is a sample script. Please test it thoroughly before using it on a production server. use strict; my $argc = @ARGV; if ($argc != 2) { die("Usage: getInfo.pl <logfile_name> <user_name>\n"); } my @output_files = qw/error.txt user_count.txt/; foreach my $output_file (@output_files) { if( -f $output_file) { unlink $output_file; } } open(INPUT, "< $ARGV[0]"); open(OUTPUT, "> ./error.txt"); open(OUTPUT2, "> ./user_count.txt"); my $error = 0; #boolean value my $user_count = 0; my $count_server_error = 0; while(<INPUT>) { chomp; if(/^Perforce server error.*$/) { $error = 1; $count_server_error++; } elsif(/^Perforce server info.*$/) { $error = 0; } elsif(/^.*\s$ARGV[1]\@.*$/) { print OUTPUT2 "$_\n"; $user_count++; } if($error == 1) { print OUTPUT "$_\n"; } } print OUTPUT "The count of " . $ARGV[1] . " actions on the database: " . $user_count . "\n"; print OUTPUT "The count of Perforce server error: " . $count_server_error; print "The count of " . $ARGV[1] . " actions on the database: " . $user_count . "\n"; print "The count of Perforce server error: " . $count_server_error . "\n"; close(INPUT); close(OUTPUT); close(OUTPUT2);
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#6 | 7769 | Stephen Moon | Added a check for an unfound user | ||
#5 | 7536 | Stephen Moon |
ignore previous revision. made a minor change in usage output and updated to-do list |
||
#4 | 7535 | Stephen Moon | Perl script to start and stop Samba server if the server is installed and configured from source | ||
#3 | 7337 | Stephen Moon | disclaimer added as well as some comments | ||
#2 | 7336 | Stephen Moon | rewrote the existing scrip to make username input argument optional | ||
#1 | 6486 | Stephen Moon | parse Perforce log and extract user error info |