Cleaned up organization handling, added to .gitignore
This commit is contained in:
parent
df077bcfff
commit
6e621839da
|
@ -4,3 +4,7 @@
|
|||
*.tar
|
||||
*.pyc
|
||||
*.sw*
|
||||
work
|
||||
timetracker.py-pre-incident-fixup
|
||||
do_process.bak2017-11-06_file-test
|
||||
2017*
|
||||
|
|
40
do_process
40
do_process
|
@ -1,7 +1,8 @@
|
|||
#!/bin/bash
|
||||
#!/Users/tblancher/homebrew/bin/bash
|
||||
|
||||
ORGS=()
|
||||
declare -A ORGS
|
||||
|
||||
#set -x
|
||||
if [[ "x${1}" == "x" ]]; then
|
||||
DATE=$(date +%F)
|
||||
else
|
||||
|
@ -9,27 +10,40 @@ else
|
|||
fi
|
||||
|
||||
if [[ -f ${DATE}.log ]]; then
|
||||
find_existing_org () {
|
||||
for org in ${ORGS[@]}; do
|
||||
[[ "${org}" == "${1}" ]] && return 0
|
||||
done
|
||||
return 1
|
||||
}
|
||||
get_list_of_orgs () {
|
||||
while read; do
|
||||
org=$( grep -Po "\s+\[.*\]" <<< "${REPLY}" | tr -d '[][]' | xargs )
|
||||
[[ "${org}x" == "x" ]] && continue
|
||||
# org="${org##*( )}" # trim leading whitespace
|
||||
# org="${org%%*( )}" # trim trailing whitespace
|
||||
[[ "${ORGS[@]}" =~ "${org}" ]] || ORGS+=("${org}")
|
||||
# [[ "${ORGS[@]}" =~ "^${org}$" ]] || ORGS+=("${org}")
|
||||
# find_existing_org "${org}" || ORGS+=("${org}")
|
||||
ORGS["${org}"]=1
|
||||
done
|
||||
}
|
||||
|
||||
get_list_of_orgs < ${DATE}.log
|
||||
|
||||
IFS=$'\n'; ORGS=($(sort -f <<< "${ORGS[*]}")); unset IFS
|
||||
# IFS=$'\n'; KEYS=($(sort -f <<< "${!ORGS[@]}")); unset IFS
|
||||
KEYS=()
|
||||
while IFS= read -rd '' key; do
|
||||
KEYS+=( "${key}" )
|
||||
done < <(printf '%s\0' "${!ORGS[@]}" | sort -f -z)
|
||||
|
||||
for (( i=0; i < ${#ORGS[@]}; i++ )); do
|
||||
echo "ORGS[$i]=${ORGS[$i]}"
|
||||
# for (( i=0; i < ${#ORGS[@]}; i++ )); do
|
||||
for org in "${KEYS[@]}"; do
|
||||
echo "[${org}]"
|
||||
done
|
||||
|
||||
#for org in "${ORGS[@]}"; do
|
||||
# echo ${org}
|
||||
#done
|
||||
|
||||
# for org in "${!ORGS[@]}"; do
|
||||
# echo "[${org}]"
|
||||
# done
|
||||
|
||||
echo "--"
|
||||
echo ${DATE}
|
||||
|
@ -37,9 +51,9 @@ if [[ -f ${DATE}.log ]]; then
|
|||
echo
|
||||
echo
|
||||
WHOLE=""
|
||||
for pattern in "${ORGS[@]}"; do
|
||||
for pattern in "${KEYS[@]}"; do
|
||||
#echo "pattern=${pattern}" >&2
|
||||
grep -- "${pattern}" ${DATE}.log | timetracker
|
||||
grep -- "\[${pattern}\]" ${DATE}.log | timetracker
|
||||
echo
|
||||
if [[ "${WHOLE}x" == "x" ]]; then
|
||||
WHOLE="${pattern}"
|
||||
|
@ -55,3 +69,5 @@ if [[ -f ${DATE}.log ]]; then
|
|||
else
|
||||
echo "${DATE}.log does not exist" >&2
|
||||
fi
|
||||
|
||||
#set +x
|
||||
|
|
|
@ -0,0 +1,19 @@
|
|||
#!/usr/bin/python
|
||||
|
||||
import fileinput
|
||||
import math
|
||||
import re
|
||||
import sys
|
||||
import time
|
||||
|
||||
empty = re.compile("^\s*$")
|
||||
delim = re.compile(":\s{2}")
|
||||
stripped = {}
|
||||
|
||||
for line in fileinput.input():
|
||||
if empty.match(line):
|
||||
continue
|
||||
|
||||
print line
|
||||
stripped = delim.split(line.strip())
|
||||
print len(stripped)
|
|
@ -0,0 +1,16 @@
|
|||
#!/bin/bash
|
||||
|
||||
ORGS=()
|
||||
|
||||
get_list_of_orgs () {
|
||||
orgs=$( grep -Po "\s+\[.*\]" | tr -d '[][]' )
|
||||
for org in ${orgs}; do
|
||||
[[ "${ORGS[@]}" =~ "${org}" ]] || ORGS+=("${org}")
|
||||
done
|
||||
}
|
||||
|
||||
get_list_of_orgs < 2017-09-20.log
|
||||
|
||||
for (( i=0; i < ${#ORGS[@]}; i++)); do
|
||||
echo ${ORGS[$i]}
|
||||
done
|
|
@ -0,0 +1,173 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Date::Manip;
|
||||
use Math::Round;
|
||||
|
||||
my $datetime; # Stores date and time pulled from log
|
||||
my $entry; # Stores the log entry for processing
|
||||
my $action; # Stores the action for processing (this will be the key to the
|
||||
# hash).
|
||||
my $time; # the $datetime converted to UNIX timestamp
|
||||
my %begin; # Data structure for storing the beginning of a time frame
|
||||
my %end; # Data structure for storing the end of a time frame
|
||||
my %ind; # Data structure for storing individual timecards
|
||||
my %misc; # Data structure for storing miscellaneous (<0.25hrs) timecards
|
||||
|
||||
my ($bc,$ec); # variables for determining if we have a complete set.
|
||||
|
||||
while(<>) {
|
||||
if(/^\s*$/) { # If current line is an empty string, skip to next line
|
||||
next;
|
||||
}
|
||||
chomp;
|
||||
($datetime,$entry) = split /:\s{1,2}/;
|
||||
#print STDERR "$datetime: $entry\n";
|
||||
$time = UnixDate($datetime, "%s");
|
||||
#print STDERR "$time: $entry\n";
|
||||
if($entry =~ /^Begin/) {
|
||||
#print STDERR "DEBUG: Writing an BEGIN action\n";
|
||||
#print STDERR "$time: ";
|
||||
$action = $entry;
|
||||
$action =~ s/^Begin\s+(.+)\s*/$1/;
|
||||
$action =~ s/\s+$//; # trim off any whitespace at the end
|
||||
#print STDERR "$action\n";
|
||||
push(@{$begin{$action}},$time);
|
||||
}
|
||||
if($entry =~ /^End/) {
|
||||
#print STDERR "DEBUG: Writing an END action\n";
|
||||
#print STDERR "$time: ";
|
||||
$action = $entry;
|
||||
$action =~ s/^End\s+(.+)\s*/$1/;
|
||||
$action =~ s/\s+$//; # trim off any whitespace at the end
|
||||
#print STDERR "$action\n";
|
||||
push(@{$end{$action}},$time);
|
||||
}
|
||||
}
|
||||
|
||||
# We're here, begin processing
|
||||
|
||||
my $act;
|
||||
my $gtot = 0;
|
||||
foreach $act (sort keys %begin) { # For every activity we started.
|
||||
# error checking
|
||||
$bc = 0;
|
||||
$ec = 0;
|
||||
$bc = @{$begin{$act}}; # or die "Activity \"$act\" is incomplete. Missing Begin.\n";
|
||||
#print STDERR "$act\n";
|
||||
$ec = @{$end{$act}}; # or die "Activity \"$act\" is incomplete. Missing End.\n";
|
||||
|
||||
#print STDERR "DEBUG: \"$act\" bc=$bc,ec=$ec\n";
|
||||
|
||||
if(($bc - $ec) > 1) {
|
||||
# haven't logged more than one closing time
|
||||
# print STDERR "Activity \"$act\" is incomplete. Missing multiple Ends.\n";
|
||||
exit 2;
|
||||
} elsif($bc > $ec) { # should be exactly one greater
|
||||
# print STDERR "Activity \"$act\" is incomplete. Missing one End. Removing last from array.\n";
|
||||
pop(@{$begin{$act}});
|
||||
# GRATUITOUS USE OF GOTO HERE!
|
||||
goto THERE;
|
||||
# END GRATUITOUS USE OF GOTO HERE!
|
||||
} elsif($ec > $bc) {
|
||||
# have missed a begin time
|
||||
# print STDERR "Activity \"$act\" is incomplete. Missing Begin.\n";
|
||||
exit 1;
|
||||
} else {
|
||||
|
||||
THERE:
|
||||
my $sum = 0;
|
||||
# DOIT
|
||||
while(@{$begin{$act}} && @{$end{$act}}) {
|
||||
my $beg = shift @{$begin{$act}};
|
||||
my $en = shift @{$end{$act}};
|
||||
$sum += $en - $beg;
|
||||
}
|
||||
|
||||
#printf ("\"$act\": %10ds %3.2fhr\n", $sum, ($sum / 3600 >= 0.25)?nearest(0.25, $sum / 3600):$sum / 3600);
|
||||
#printf ("\"$act\":\t\t%10ds\t%3.2fhrs\n", $sum, $sum / 3600);
|
||||
# If sum is greater than fifteen minutes, put it individual list
|
||||
# otherwise, put it in
|
||||
# 2014-10-02: Remove miscellaneous, since we will no longer be reporting in
|
||||
# fifteen minute increments
|
||||
#$sum > 900?$ind{$act}=$sum:$misc{$act}=$sum;
|
||||
$ind{$act}=$sum;
|
||||
$gtot += $sum;
|
||||
}
|
||||
}
|
||||
|
||||
#my $spr;
|
||||
my $sec;
|
||||
my $hrs;
|
||||
my $min;
|
||||
my $fhrs;
|
||||
my $ctot = 0;
|
||||
my $utot = 0;
|
||||
|
||||
# DEBUGGING
|
||||
#foreach $act (sort keys %ind) {
|
||||
# print STDERR "Activity: " . $act . " ";
|
||||
# print STDERR "$ind{$act}s " . $ind{$act}/3600 . "hrs ";
|
||||
# print STDERR $ind{$act}%3600/60 . "min\n";
|
||||
#}
|
||||
|
||||
format STDOUT =
|
||||
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>>>>>>> @>>>>>>>>>> @>>>>>>>>>> @>>>>>>>>>>
|
||||
$act, $sec, $hrs, $min, $fhrs
|
||||
.
|
||||
foreach $act (sort keys %ind) {
|
||||
#$spr = sprintf("%3.2fhrs",nearest(0.25, $ind{$act}/3600));
|
||||
$min = sprintf("%dmin",nearest(1, $ind{$act}%3600/60));
|
||||
$hrs = sprintf("%dhrs",$ind{$act}/3600);
|
||||
$fhrs = sprintf("%.2fhrs",$ind{$act}/3600);
|
||||
$sec = "$ind{$act}s";
|
||||
write;
|
||||
if($act =~ /^\d{8}/) {
|
||||
#print STDERR "Got a case\n";
|
||||
$ctot += $ind{$act};
|
||||
} else {
|
||||
#print STDERR "Got a non-case\n";
|
||||
$utot += $ind{$act};
|
||||
}
|
||||
# } elsif($changed == 0) {
|
||||
# print "\n";
|
||||
# printf ("Case total: %10ds, %3.2fhrs, %3.2fhrs (rounded)\n", $ctot, $ctot / 3600, nearest(0.25, $ctot / 3600));
|
||||
# print "\n";
|
||||
# $changed = 1;
|
||||
#}
|
||||
# else {
|
||||
# $min = sprintf("%dmin",nearest(1, $ind{$act}%3600/60));
|
||||
# $hrs = sprintf("%dhrs",$ind{$act}/3600);
|
||||
# $fhrs = sprintf("%.2fhrs",$ind{$act}/3600);
|
||||
# $sec = "$ind{$act}s";
|
||||
# write;
|
||||
# $utot += $ind{$act};
|
||||
# }
|
||||
}
|
||||
print "\n";
|
||||
printf ("Case total: %10ds, %3.2fhrs, %3.2fhrs (rounded)\n", $ctot, $ctot / 3600, nearest(0.25, $ctot / 3600));
|
||||
print "\n";
|
||||
print "\n";
|
||||
printf ("Unnumbered total: %10ds, %3.2fhrs, %3.2fhrs (rounded)\n", $utot, $utot / 3600, nearest(0.25, $utot / 3600));
|
||||
print "\n";
|
||||
# REMOVED 2014-10-02
|
||||
#$tot = 0;
|
||||
#foreach $act (sort keys %misc) {
|
||||
# $spr = sprintf("%3.2fhrs", $misc{$act}/3600);
|
||||
# $sec = "$misc{$act}s";
|
||||
# write;
|
||||
# $tot += $misc{$act};
|
||||
#}
|
||||
#print "\n";
|
||||
#printf ("Miscellaneous total: %10ds, %3.2fhrs, %3.2fhrs (rounded)\n", $tot,$tot / 3600, nearest(0.25, $tot / 3600));
|
||||
#print "\n";
|
||||
|
||||
$gtot = $ctot + $utot;
|
||||
print "\n";
|
||||
printf "Grand Total: %10ds, %.02fhrs\n", $gtot, $gtot / 3600;
|
||||
|
||||
#my §ion_post {
|
||||
#
|
||||
#};
|
Loading…
Reference in New Issue