user-tools/fixlogfiledatetime

   1 #!/bin/bash
   2
   3 true <<EOF
   4 =pod
   5
   6 =head1 NAME
   7
   8 fixlogfiledatetime - Set the target files modification time to their respective last log entry's timestamp
   9
  10 =cut
  11
  12 EOF
  13
  14
  15 set -e
  16
  17 anytail()
  18 {
  19         case ${1##*.} in
  20         gz) zcat "$1" | tail -n1;;
  21         bz|bz2) bzcat "$1" | tail -n1;;
  22         xz) xzcat "$1" | tail -n1;;
  23         Z) compress -d -c "$1" | tail -n1;;
  24         *) tail -n1 "$1";;
  25         esac
  26 }
  27
  28 help_text="Please give a perl(1) expression in DATETIME_PATTERN env variable to match and extract the datetime from log files. Example: 's/^[^>]+>((\S+\s+){3}).*/\$1/'"
  29
  30 for f in "$@"
  31 do
  32         dtstr=$(anytail "$f" | perl -ne "${DATETIME_PATTERN?$help_text} and print")
  33         echo "$f        $dtstr"
  34         touch "$f" -t $(date +%Y%m%d%H%M.%S -d "$dtstr")
  35 done