… | |
… | |
16 | $size = cf::face::get_data_size $face; |
16 | $size = cf::face::get_data_size $face; |
17 | $ver = $meta->{exe_ver}; |
17 | $ver = $meta->{exe_ver}; |
18 | $md5 = $meta->{md5}; |
18 | $md5 = $meta->{md5}; |
19 | if (my $changes_face = cf::face::find "res/ota_update/Changes") { |
19 | if (my $changes_face = cf::face::find "res/ota_update/Changes") { |
20 | $changes = cf::face::get_data $changes_face; |
20 | $changes = cf::face::get_data $changes_face; |
21 | $changes =~ s/^\($exe_ver\).*$//sm; |
21 | $changes =~ s/^\(\Q$exe_ver\E\).*$//sm; |
22 | } |
22 | } |
23 | } |
23 | } |
24 | } |
24 | } |
25 | |
25 | |
26 | cf::info "ota update request for <$urlader, $exe_id, $exe_ver> replying <$face,$ver,$size,*>"; |
26 | cf::info "ota update request for <$urlader, $exe_id, $exe_ver> replying <$face,$ver,$size,*>"; |