Link Here
|
103 |
sub dumpObject { |
103 |
sub dumpObject { |
104 |
my( $self ) = @_; |
104 |
my( $self ) = @_; |
105 |
my @dt = ( $self->dateTime =~ m/../g ); |
105 |
my @dt = ( $self->dateTime =~ m/../g ); |
106 |
my $obj = |
106 |
my $obj = |
107 |
"protocol:\n" |
107 |
"protocol:\n" |
108 |
. " type: '".$self->protocolType."'\n" |
108 |
. " type: '".$self->protocolType."'\n" |
109 |
. " version: '".$self->protocolVersion."'\n" |
109 |
. " version: '".$self->protocolVersion."'\n" |
110 |
. "terminal ID: '".$self->terminalID."'\n" |
110 |
. "terminal ID: '".$self->terminalID."'\n" |
111 |
. "date:\n" |
111 |
. "date:\n" |
112 |
. " year: '".$dt[0]."'\n" |
112 |
. " year: '".$dt[0]."'\n" |
113 |
. " month: '".$dt[1]."'\n" |
113 |
. " month: '".$dt[1]."'\n" |
114 |
. " day: '".$dt[2]."'\n" |
114 |
. " day: '".$dt[2]."'\n" |
115 |
. "time:\n" |
115 |
. "time:\n" |
116 |
. " hours: '".$dt[3]."'\n" |
116 |
. " hours: '".$dt[3]."'\n" |
117 |
. " minutes: '".$dt[4]."'\n" |
117 |
. " minutes: '".$dt[4]."'\n" |
118 |
. " seconds: '".$dt[5]."'\n" |
118 |
. " seconds: '".$dt[5]."'\n" |
119 |
. "tags: '".$self->tags."'\n" |
119 |
. "tags: '".$self->tags."'\n" |
120 |
. "length: '".$self->length."'\n" |
120 |
. "length: '".$self->length."'\n" |
121 |
. "crc: '".$self->crc."'\n"; |
121 |
. "crc: '".$self->crc."'\n"; |
122 |
|
122 |
|
123 |
return $obj; |
123 |
return $obj; |
124 |
} |
124 |
} |
125 |
|
125 |
|
126 |
- |
|
|