120 |
foreach my $p ( keys %$param ) { |
foreach my $p ( keys %$param ) { |
121 |
next unless $p =~ m/^tag_(\S+)/; |
next unless $p =~ m/^tag_(\S+)/; |
122 |
my $tag = $1; |
my $tag = $1; |
123 |
my $content = $param->{$p}; |
my $content = "\x04\x11\x00\x01" . $param->{$p}; |
124 |
$status = 302; |
$status = 302; |
125 |
|
|
126 |
warn "PROGRAM $tag $content\n"; |
warn "PROGRAM $tag $content\n"; |
518 |
rename $path, $to; |
rename $path, $to; |
519 |
print ">> $to\n"; |
print ">> $to\n"; |
520 |
|
|
521 |
delete $tags_data->{$tag}; # force re-read of tag |
# force re-read of tag |
522 |
|
delete $tags_data->{$tag}; |
523 |
|
delete $visible_tags->{$tag}; |
524 |
} |
} |
525 |
|
|
526 |
sub secure_tag { |
sub secure_tag { |