| … | |
… | |
| 117 | $self->feed_newmap; |
117 | $self->feed_newmap; |
| 118 | } |
118 | } |
| 119 | |
119 | |
| 120 | sub feed_addme_success { |
120 | sub feed_addme_success { |
| 121 | my ($self, $data) = @_; |
121 | my ($self, $data) = @_; |
|
|
122 | |
|
|
123 | $self->addme_success ($data); |
| 122 | } |
124 | } |
| 123 | |
125 | |
| 124 | sub feed_addme_failure { |
126 | sub feed_addme_failure { |
| 125 | my ($self, $data) = @_; |
127 | my ($self, $data) = @_; |
| 126 | # maybe should notify user |
128 | |
|
|
129 | $self->addme_failure ($data); |
| 127 | } |
130 | } |
| 128 | |
131 | |
| 129 | =back |
132 | =back |
| 130 | |
133 | |
| 131 | =head2 METHODS THAT CAN/MUST BE OVERWRITTEN |
134 | =head2 METHODS THAT CAN/MUST BE OVERWRITTEN |
| 132 | |
135 | |
| 133 | =over 4 |
136 | =over 4 |
| 134 | |
137 | |
|
|
138 | =item $self->addme_success |
|
|
139 | |
|
|
140 | =item $self->addme_failure |
|
|
141 | |
| 135 | =cut |
142 | =cut |
|
|
143 | |
|
|
144 | sub addme_success { } |
|
|
145 | sub addme_failure { } |
| 136 | |
146 | |
| 137 | sub feed_face1 { |
147 | sub feed_face1 { |
| 138 | my ($self, $data) = @_; |
148 | my ($self, $data) = @_; |
| 139 | |
149 | |
| 140 | my ($num, $chksum, $name) = unpack "nNa*", $data; |
150 | my ($num, $chksum, $name) = unpack "nNa*", $data; |
