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