-xxx this section needs updating for new metadata
-
-sub propsfile_set_prop ($$$) {
- # set $value to undef to delete; returns old value
- my ($propsfile, $prop, $value) = @_;
- my $wf = wf_start(".topbloke/$propsfile");
- my $oldvalue;
- open FI, '<', ".topbloke/$propsfile" or die $!;
- while (<FI>) {
- chomp or die;
- m/ / or m/$/;
- if ($` eq $prop) {
- die "prop $prop repeated in $propsfile ?!" if defined $oldvalue;
- $oldvalue = $'; #';
- } else {
- wf($wf, "$_\n");
- }
- }
- FI->error and die $!;
- close FI or die $!;
- wf($wf, "$prop $value\n") if defined $value;
- wf_done($wf);
- return $oldvalue;
-}
-