set 2024 07
Pac=tmp/Pac
MAIL2=tmp/MAIL2
SSMM=tmp/SSMM
LOG=MAIL.LOG
ihmq pacie h00^ d00^ | awk -F^ ' $1!= ant { li=0}
{ printf "%s^%.2d^%s\n",$1,li++,$2
ant=$1} ' > $Pac
ihmq agend h01^ h02^$2/$1 h03^ H04^ h05^$2/$1 h06^C h00^ h08^ |
awk -F^ ' FILENAME==ARGV[1] { Pac[$1$2]=$3;next } 
{
printf "%12.12s^%5.5s^%s^%2.2s^%2.2s^21\n",$4,$1,substr($5,7)"-"substr($5,4,2)"-"substr($5,1,2),Pac[substr($1,1,5)substr($3,1,2)],$3
} ' $Pac - >$MAIL2


egrep $1-$2 $LOG |
awk -F^ '
 FILENAME==ARGV[1] { x[substr($0,21)]++ ; y[substr($0,21)]++; next }
{
	z[$0]++;y[$0]++
}
END {
	#for (i in y) print i ,y[i],"x="x[i],"z="z[i]
	#for (i in y) if(y[i]!=2) print i ,y[i],"x="x[i],"z="z[i]
	for (i in y) if(y[i]!=2) if(z[i]) print i 
} ' - $MAIL2| sort > $SSMM
exit
cat $SSMM | while read ln
do
unic=MAIL/T`date +%s`
echo $ln | awk -F^ ' {  for (i=1;i<=NF;i++) printf "%s ",$i
print ""
} ' - >$unic
sleep 1
done



exit
2024-07-16 16:18:03^18.314.522-3^00799^2024-07-10^03^02^21
2024-07-16 16:18:03^18.314.522-3^00799^2024-07-10^03^02^21
2024-07-16 16:19:15^18.314.522-3^00835^2024-07-12^03^02^21
2024-07-16 16:19:49^18.314.522-3^00799^2024-07-12^03^02^21
2024-07-16 16:20:40^18.314.522-3^00835^2024-07-15^03^02^21
2024-07-16 16:21:22^18.314.522-3^00799^2024-07-15^03^02^21
2024-07-16 18:18:27^25.564.001-1^00799^2024-07-12^01^00^21
2024-07-16 18:45:19^25.564.001-1^00787^2024-07-12^01^08^21
2024-07-16 18:52:02^25.564.001-1^00854^2024-07-13^01^00^21
2024-07-16 19:14:14^25.615.237-1^00798^2024-07-12^01^00^21
2024-07-17 01:02:48^18.663.968-5^00863^2024-07-16^02^01^21

