| version 1.5 | | version 1.6 |
|---|
| | |
| sub archsOut { | | sub archsOut { |
| foreach $arch (@archs) { | | foreach $arch (@archs) { |
| open(ARC,$arch) || &die("cannot open ".$arch); | | open(ARC,$arch) || &die("cannot open ".$arch); |
| | | $pathto = $arch; |
| | | $pathto =~ s@[^/]*/@@; |
| | | $pathto =~ s@(.*)/.*arc@$1@; |
| line: while(<ARC>) { | | line: while(<ARC>) { |
| chop; | | chop; |
| ($var,@values) = split; | | ($var,@values) = split; |
| | |
| $lbg = $values[0]; | | $lbg = $values[0]; |
| next line; | | next line; |
| } | | } |
| | | if ($var eq "end") { |
| | | print ARCH "editor_folder $pathto\n"; |
| | | } |
| if ($var eq "visibility") { | | if ($var eq "visibility") { |
| $lvis = $values[0]; | | $lvis = $values[0]; |
| next line; | | next line; |