| rjw | 6c1fd8f | 2022-11-30 14:33:01 +0800 | [diff] [blame] | 1 | #!/usr/bin/perl |
| 2 | #Change relative RELEASE_DIR path to absolute RELEASE_DIR path in info_custom_release.log. | ||||
| 3 | |||||
| 4 | system "dir $ARGV[0] |find \"Directory of\" > ~reldir.tmp"; | ||||
| 5 | open (FH,"~reldir.tmp"); | ||||
| 6 | while(<FH>){ | ||||
| 7 | if (index($_,"Directory") >= 0) { | ||||
| 8 | $_ =~ /Directory of (.+)/; | ||||
| 9 | print "RELEASE_DIR = $1\n"; | ||||
| 10 | } | ||||
| 11 | } | ||||
| 12 | close (FH); | ||||
| 13 | system "del ~reldir.tmp"; | ||||