… | |
… | |
12 | |
12 | |
13 | if ($face = cf::face::find "res/ota_update/$urlader,$exe_id.pck") { |
13 | if ($face = cf::face::find "res/ota_update/$urlader,$exe_id.pck") { |
14 | my $meta = cf::face::get_meta $face; |
14 | my $meta = cf::face::get_meta $face; |
15 | |
15 | |
16 | if ($meta->{exe_ver} gt $exe_ver) { |
16 | if ($meta->{exe_ver} gt $exe_ver) { |
17 | $size = cf::face::get_data_size $face; |
17 | $size = cf::face::get_size $face; |
18 | $ver = $meta->{exe_ver}; |
18 | $ver = $meta->{exe_ver}; |
19 | $md5 = $meta->{md5}; |
19 | $md5 = $meta->{md5}; |
20 | if (my $changes_face = cf::face::find "res/ota_update/Changes") { |
20 | if (my $changes_face = cf::face::find "res/ota_update/Changes") { |
21 | $changes = cf::face::get_data $changes_face; |
21 | $changes = cf::face::get_data $changes_face; |
22 | $changes =~ s/^\(\Q$exe_ver\E\).*$//sm; |
22 | $changes =~ s/^\(\Q$exe_ver\E\).*$//sm; |