- print "# $filename size:", -s $filename, " ";
+ print "# ",strftime("%Y-%m-%dT%H:%M:%S",localtime($t)), " $filename size:", -s $filename, " ";
$up_down = 'down' if $up_down eq 'sent';
my $hash = protocol_decode( $up_down, $raw );
warn "hash = ",dump($hash) if $debug;
$up_down = 'down' if $up_down eq 'sent';
my $hash = protocol_decode( $up_down, $raw );
warn "hash = ",dump($hash) if $debug;
my $function_code = $hash->{function_code} || die "no function_code";
my $fc_desc = $function_code_description->{$up_down}->{$function_code} || die "no function_code_description for $up_down $function_code";
print " function_code=$function_code ",
my $function_code = $hash->{function_code} || die "no function_code";
my $fc_desc = $function_code_description->{$up_down}->{$function_code} || die "no function_code_description for $up_down $function_code";
print " function_code=$function_code ",
$hash->{up_down},
unpack('H*', chr($data_id)),
$protocol->{$data_id}->{description},
$hash->{up_down},
unpack('H*', chr($data_id)),
$protocol->{$data_id}->{description},