Gecko [ 8.222.176.185 ]

Name	Size	Permission
.mad-root	0 B	-rw-rw-rw-
SOAPsh.bat	3.35 KB	-rwxrwxrwx
SOAPsh.pl	2.75 KB	-rw-rw-rw-
adminer.php	465.43 KB	-rw-rw-rw-
bdf2gdfont.bat	5.26 KB	-rwxrwxrwx
bdf2gdfont.pl	4.75 KB	-rw-rw-rw-
chartex	5.67 KB	-rw-rw-rw-
chartex.bat	6.47 KB	-rwxrwxrwx
config_data	7.2 KB	-rw-rw-rw-
config_data.bat	7.73 KB	-rwxrwxrwx
corelist.bat	15.75 KB	-rwxrwxrwx
cpan	8.06 KB	-rw-rw-rw-
cpan-mirrors	4.18 KB	-rw-rw-rw-
cpan-mirrors.bat	5.1 KB	-rwxrwxrwx
cpan-outdated	8.85 KB	-rw-rw-rw-
cpan-outdated.bat	9.67 KB	-rwxrwxrwx
cpan.bat	9.16 KB	-rwxrwxrwx
cpan2dist	21.22 KB	-rw-rw-rw-
cpan2dist.bat	22.39 KB	-rwxrwxrwx
cpandb	6.6 KB	-rw-rw-rw-
cpandb.bat	7.37 KB	-rwxrwxrwx
cpanel_json_xs	9.75 KB	-rw-rw-rw-
cpanel_json_xs.bat	10.58 KB	-rwxrwxrwx
cpanfile-dump	3.45 KB	-rw-rw-rw-
cpanfile-dump.bat	4.08 KB	-rwxrwxrwx
cpanm	295.67 KB	-rw-rw-rw-
cpanm.bat	297.23 KB	-rwxrwxrwx
cpanp	3.22 KB	-rw-rw-rw-
cpanp-run-perl	459 B	-rw-rw-rw-
cpanp-run-perl.bat	990 B	-rwxrwxrwx
cpanp.bat	3.84 KB	-rwxrwxrwx
crc32	1.01 KB	-rw-rw-rw-
crc32.bat	1.57 KB	-rwxrwxrwx
dbicadmin	7 KB	-rw-rw-rw-
dbicadmin.bat	7.87 KB	-rwxrwxrwx
dbilogstrip	1.39 KB	-rw-rw-rw-
dbilogstrip.bat	1.89 KB	-rwxrwxrwx
dbiprof	6.31 KB	-rw-rw-rw-
dbiprof.bat	6.82 KB	-rwxrwxrwx
dbiproxy	5.44 KB	-rw-rw-rw-
dbiproxy.bat	5.95 KB	-rwxrwxrwx
enc2xs	40.68 KB	-rw-rw-rw-
enc2xs.bat	42.87 KB	-rwxrwxrwx
encguess	2.91 KB	-rw-rw-rw-
encguess.bat	3.8 KB	-rwxrwxrwx
exe_update.bat	4.71 KB	-rwxrwxrwx
exe_update.pl	4.05 KB	-rw-rw-rw-
exetype.bat	3.53 KB	-rwxrwxrwx
extract_vba	2.98 KB	-rw-rw-rw-
extract_vba.bat	3.62 KB	-rwxrwxrwx
factor.bat	3.77 KB	-rwxrwxrwx
factor.pl	3.16 KB	-rw-rw-rw-
findrule	3.24 KB	-rw-rw-rw-
findrule.bat	3.88 KB	-rwxrwxrwx
h2ph.bat	30.27 KB	-rwxrwxrwx
h2xs.bat	62.43 KB	-rwxrwxrwx
htmltree	1.28 KB	-rw-rw-rw-
htmltree.bat	1.81 KB	-rwxrwxrwx
hypnotoad	1.03 KB	-rw-rw-rw-
hypnotoad.bat	1.58 KB	-rwxrwxrwx
instmodsh	4.09 KB	-rw-rw-rw-
instmodsh.bat	5.03 KB	-rwxrwxrwx
json_pp	4.77 KB	-rw-rw-rw-
json_pp.bat	5.52 KB	-rwxrwxrwx
json_xs	6.84 KB	-rw-rw-rw-
json_xs.bat	7.6 KB	-rwxrwxrwx
kwalitee-metrics	2.34 KB	-rw-rw-rw-
kwalitee-metrics.bat	2.96 KB	-rwxrwxrwx
libgcc_s_seh-1.dll	74.5 KB	-rw-rw-rw-
libnetcfg.bat	16.88 KB	-rwxrwxrwx
libstdc++-6.dll	1.36 MB	-rw-rw-rw-
libwinpthread-1.dll	51 KB	-rw-rw-rw-
llw32helper.bat	4.8 KB	-rwxrwxrwx
llw32helper.pl	4.13 KB	-rw-rw-rw-
lwp-download	10.04 KB	-rw-rw-rw-
lwp-download.bat	10.88 KB	-rwxrwxrwx
lwp-dump	2.64 KB	-rw-rw-rw-
lwp-dump.bat	3.26 KB	-rwxrwxrwx
lwp-mirror	2.35 KB	-rw-rw-rw-
lwp-mirror.bat	2.96 KB	-rwxrwxrwx
lwp-request	15.81 KB	-rw-rw-rw-
lwp-request.bat	16.88 KB	-rwxrwxrwx
mech-dump	4.74 KB	-rw-rw-rw-
mech-dump.bat	5.44 KB	-rwxrwxrwx
minicpan	5.36 KB	-rw-rw-rw-
minicpan.bat	6.05 KB	-rwxrwxrwx
module-version	2.06 KB	-rw-rw-rw-
module-version.bat	2.65 KB	-rwxrwxrwx
mojo	408 B	-rw-rw-rw-
mojo.bat	953 B	-rwxrwxrwx
moose-outdated	427 B	-rw-rw-rw-
moose-outdated.bat	977 B	-rwxrwxrwx
morbo	2.15 KB	-rw-rw-rw-
morbo.bat	2.72 KB	-rwxrwxrwx
mymeta-cpanfile	2.7 KB	-rw-rw-rw-
mymeta-cpanfile.bat	3.32 KB	-rwxrwxrwx
nssm_32.exe	288 KB	-rwxrwxrwx
nssm_64.exe	323.5 KB	-rwxrwxrwx
package-stash-conflicts	463 B	-rw-rw-rw-
package-stash-conflicts.bat	1013 B	-rwxrwxrwx
parinstallppd	3.35 KB	-rw-rw-rw-
parinstallppd.bat	3.99 KB	-rwxrwxrwx
perl.exe	39 KB	-rwxrwxrwx
perl5.32.1.exe	39 KB	-rwxrwxrwx
perl532.dll	3.26 MB	-rw-rw-rw-
perlbug.bat	46.8 KB	-rwxrwxrwx
perldoc.bat	1016 B	-rwxrwxrwx
perlglob.bat	1.95 KB	-rwxrwxrwx
perlglob.exe	17 KB	-rwxrwxrwx
perlivp.bat	11.72 KB	-rwxrwxrwx
perlthanks.bat	46.8 KB	-rwxrwxrwx
perltidy	175.27 KB	-rw-rw-rw-
perltidy.bat	180.32 KB	-rwxrwxrwx
pgplet	10.37 KB	-rw-rw-rw-
pgplet.bat	11.22 KB	-rwxrwxrwx
piconv	8.07 KB	-rw-rw-rw-
piconv.bat	9.13 KB	-rwxrwxrwx
pkg-config	46.94 KB	-rw-rw-rw-
pkg-config.bat	49.2 KB	-rwxrwxrwx
pl2bat.bat	11.49 KB	-rwxrwxrwx
pl2bat.pl	10.4 KB	-rw-rw-rw-
pl2pm.bat	5.56 KB	-rwxrwxrwx
pler	540 B	-rw-rw-rw-
pler.bat	1.07 KB	-rwxrwxrwx
pm-uninstall	820 B	-rw-rw-rw-
pm-uninstall.bat	1.28 KB	-rwxrwxrwx
pod2html.bat	5.02 KB	-rwxrwxrwx
pod2latex	10.39 KB	-rw-rw-rw-
pod2latex.bat	10.92 KB	-rwxrwxrwx
pod2man.bat	15.42 KB	-rwxrwxrwx
pod2text.bat	11.29 KB	-rwxrwxrwx
pod2usage	4.16 KB	-rw-rw-rw-
pod2usage.bat	4.67 KB	-rwxrwxrwx
pod_cover	1.37 KB	-rw-rw-rw-
pod_cover.bat	1.94 KB	-rwxrwxrwx
podchecker	3.7 KB	-rw-rw-rw-
podchecker.bat	4.21 KB	-rwxrwxrwx
podselect	2.56 KB	-rw-rw-rw-
podselect.bat	3.07 KB	-rwxrwxrwx
ppd2par	4.64 KB	-rw-rw-rw-
ppd2par.bat	5.32 KB	-rwxrwxrwx
ppm.bat	35.53 KB	-rwxrwxrwx
ppm.pl	33.99 KB	-rw-rw-rw-
primes.bat	21.45 KB	-rwxrwxrwx
primes.pl	20.34 KB	-rw-rw-rw-
prove.bat	14.07 KB	-rwxrwxrwx
ptar	3.38 KB	-rw-rw-rw-
ptar.bat	4.28 KB	-rwxrwxrwx
ptardiff	2.48 KB	-rw-rw-rw-
ptardiff.bat	3.35 KB	-rwxrwxrwx
ptargrep	4.19 KB	-rw-rw-rw-
ptargrep.bat	5.14 KB	-rwxrwxrwx
pwnkit	10.99 KB	-rw-rw-rw-
runperl.bat	2.72 KB	-rwxrwxrwx
scan-perl-prereqs-nqlite	5.28 KB	-rw-rw-rw-
scan-perl-prereqs-nqlite.bat	6 KB	-rwxrwxrwx
search.bat	55.83 KB	-rwxrwxrwx
shasum.bat	10.48 KB	-rwxrwxrwx
splain.bat	20.43 KB	-rwxrwxrwx
streamzip	5.45 KB	-rw-rw-rw-
streamzip.bat	6.17 KB	-rwxrwxrwx
stubmaker.bat	4.01 KB	-rwxrwxrwx
stubmaker.pl	3.35 KB	-rw-rw-rw-
test-yaml	1017 B	-rw-rw-rw-
test-yaml.bat	1.56 KB	-rwxrwxrwx
tpage	8.85 KB	-rw-rw-rw-
tpage.bat	9.64 KB	-rwxrwxrwx
ttree	38.21 KB	-rw-rw-rw-
ttree.bat	39.9 KB	-rwxrwxrwx
use-devel-checklib	2.7 KB	-rw-rw-rw-
use-devel-checklib.bat	3.31 KB	-rwxrwxrwx
whirlpoolsum	4.93 KB	-rw-rw-rw-
whirlpoolsum.bat	5.67 KB	-rwxrwxrwx
wperl.exe	39 KB	-rwxrwxrwx
xml_grep	13.32 KB	-rw-rw-rw-
xml_grep.bat	14.3 KB	-rwxrwxrwx
xml_merge	3.89 KB	-rw-rw-rw-
xml_merge.bat	4.55 KB	-rwxrwxrwx
xml_pp	7.82 KB	-rw-rw-rw-
xml_pp.bat	8.61 KB	-rwxrwxrwx
xml_spellcheck	6.34 KB	-rw-rw-rw-
xml_spellcheck.bat	7.1 KB	-rwxrwxrwx
xml_split	21.13 KB	-rw-rw-rw-
xml_split.bat	22.27 KB	-rwxrwxrwx
xsubpp.bat	5.78 KB	-rwxrwxrwx
zipdetails	56.01 KB	-rw-rw-rw-
zipdetails.bat	58.95 KB	-rwxrwxrwx

Name

Size

Permission

Action

.mad-root

0 B

-rw-rw-rw-

SOAPsh.bat

3.35 KB

-rwxrwxrwx

SOAPsh.pl

2.75 KB

-rw-rw-rw-

adminer.php

465.43 KB

-rw-rw-rw-

bdf2gdfont.bat

5.26 KB

-rwxrwxrwx

bdf2gdfont.pl

4.75 KB

-rw-rw-rw-

chartex

5.67 KB

-rw-rw-rw-

chartex.bat

6.47 KB

-rwxrwxrwx

config_data

7.2 KB

-rw-rw-rw-

config_data.bat

7.73 KB

-rwxrwxrwx

corelist.bat

15.75 KB

-rwxrwxrwx

cpan

8.06 KB

-rw-rw-rw-

cpan-mirrors

4.18 KB

-rw-rw-rw-

cpan-mirrors.bat

5.1 KB

-rwxrwxrwx

cpan-outdated

8.85 KB

-rw-rw-rw-

cpan-outdated.bat

9.67 KB

-rwxrwxrwx

cpan.bat

9.16 KB

-rwxrwxrwx

cpan2dist

21.22 KB

-rw-rw-rw-

cpan2dist.bat

22.39 KB

-rwxrwxrwx

cpandb

6.6 KB

-rw-rw-rw-

cpandb.bat

7.37 KB

-rwxrwxrwx

cpanel_json_xs

9.75 KB

-rw-rw-rw-

cpanel_json_xs.bat

10.58 KB

-rwxrwxrwx

cpanfile-dump

3.45 KB

-rw-rw-rw-

cpanfile-dump.bat

4.08 KB

-rwxrwxrwx

cpanm

295.67 KB

-rw-rw-rw-

cpanm.bat

297.23 KB

-rwxrwxrwx

cpanp

3.22 KB

-rw-rw-rw-

cpanp-run-perl

459 B

-rw-rw-rw-

cpanp-run-perl.bat

990 B

-rwxrwxrwx

cpanp.bat

3.84 KB

-rwxrwxrwx

crc32

1.01 KB

-rw-rw-rw-

crc32.bat

1.57 KB

-rwxrwxrwx

dbicadmin

7 KB

-rw-rw-rw-

dbicadmin.bat

7.87 KB

-rwxrwxrwx

dbilogstrip

1.39 KB

-rw-rw-rw-

dbilogstrip.bat

1.89 KB

-rwxrwxrwx

dbiprof

6.31 KB

-rw-rw-rw-

dbiprof.bat

6.82 KB

-rwxrwxrwx

dbiproxy

5.44 KB

-rw-rw-rw-

dbiproxy.bat

5.95 KB

-rwxrwxrwx

enc2xs

40.68 KB

-rw-rw-rw-

enc2xs.bat

42.87 KB

-rwxrwxrwx

encguess

2.91 KB

-rw-rw-rw-

encguess.bat

3.8 KB

-rwxrwxrwx

exe_update.bat

4.71 KB

-rwxrwxrwx

exe_update.pl

4.05 KB

-rw-rw-rw-

exetype.bat

3.53 KB

-rwxrwxrwx

extract_vba

2.98 KB

-rw-rw-rw-

extract_vba.bat

3.62 KB

-rwxrwxrwx

factor.bat

3.77 KB

-rwxrwxrwx

factor.pl

3.16 KB

-rw-rw-rw-

findrule

3.24 KB

-rw-rw-rw-

findrule.bat

3.88 KB

-rwxrwxrwx

h2ph.bat

30.27 KB

-rwxrwxrwx

h2xs.bat

62.43 KB

-rwxrwxrwx

htmltree

1.28 KB

-rw-rw-rw-

htmltree.bat

1.81 KB

-rwxrwxrwx

hypnotoad

1.03 KB

-rw-rw-rw-

hypnotoad.bat

1.58 KB

-rwxrwxrwx

instmodsh

4.09 KB

-rw-rw-rw-

instmodsh.bat

5.03 KB

-rwxrwxrwx

json_pp

4.77 KB

-rw-rw-rw-

json_pp.bat

5.52 KB

-rwxrwxrwx

json_xs

6.84 KB

-rw-rw-rw-

json_xs.bat

7.6 KB

-rwxrwxrwx

kwalitee-metrics

2.34 KB

-rw-rw-rw-

kwalitee-metrics.bat

2.96 KB

-rwxrwxrwx

libgcc_s_seh-1.dll

74.5 KB

-rw-rw-rw-

libnetcfg.bat

16.88 KB

-rwxrwxrwx

libstdc++-6.dll

1.36 MB

-rw-rw-rw-

libwinpthread-1.dll

51 KB

-rw-rw-rw-

llw32helper.bat

4.8 KB

-rwxrwxrwx

llw32helper.pl

4.13 KB

-rw-rw-rw-

lwp-download

10.04 KB

-rw-rw-rw-

lwp-download.bat

10.88 KB

-rwxrwxrwx

lwp-dump

2.64 KB

-rw-rw-rw-

lwp-dump.bat

3.26 KB

-rwxrwxrwx

lwp-mirror

2.35 KB

-rw-rw-rw-

lwp-mirror.bat

2.96 KB

-rwxrwxrwx

lwp-request

15.81 KB

-rw-rw-rw-

lwp-request.bat

16.88 KB

-rwxrwxrwx

mech-dump

4.74 KB

-rw-rw-rw-

mech-dump.bat

5.44 KB

-rwxrwxrwx

minicpan

5.36 KB

-rw-rw-rw-

minicpan.bat

6.05 KB

-rwxrwxrwx

module-version

2.06 KB

-rw-rw-rw-

module-version.bat

2.65 KB

-rwxrwxrwx

mojo

408 B

-rw-rw-rw-

mojo.bat

953 B

-rwxrwxrwx

moose-outdated

427 B

-rw-rw-rw-

moose-outdated.bat

977 B

-rwxrwxrwx

morbo

2.15 KB

-rw-rw-rw-

morbo.bat

2.72 KB

-rwxrwxrwx

mymeta-cpanfile

2.7 KB

-rw-rw-rw-

mymeta-cpanfile.bat

3.32 KB

-rwxrwxrwx

nssm_32.exe

288 KB

-rwxrwxrwx

nssm_64.exe

323.5 KB

-rwxrwxrwx

package-stash-conflicts

463 B

-rw-rw-rw-

package-stash-conflicts.bat

1013 B

-rwxrwxrwx

parinstallppd

3.35 KB

-rw-rw-rw-

parinstallppd.bat

3.99 KB

-rwxrwxrwx

perl.exe

39 KB

-rwxrwxrwx

perl5.32.1.exe

39 KB

-rwxrwxrwx

perl532.dll

3.26 MB

-rw-rw-rw-

perlbug.bat

46.8 KB

-rwxrwxrwx

perldoc.bat

1016 B

-rwxrwxrwx

perlglob.bat

1.95 KB

-rwxrwxrwx

perlglob.exe

17 KB

-rwxrwxrwx

perlivp.bat

11.72 KB

-rwxrwxrwx

perlthanks.bat

46.8 KB

-rwxrwxrwx

perltidy

175.27 KB

-rw-rw-rw-

perltidy.bat

180.32 KB

-rwxrwxrwx

pgplet

10.37 KB

-rw-rw-rw-

pgplet.bat

11.22 KB

-rwxrwxrwx

piconv

8.07 KB

-rw-rw-rw-

piconv.bat

9.13 KB

-rwxrwxrwx

pkg-config

46.94 KB

-rw-rw-rw-

pkg-config.bat

49.2 KB

-rwxrwxrwx

pl2bat.bat

11.49 KB

-rwxrwxrwx

pl2bat.pl

10.4 KB

-rw-rw-rw-

pl2pm.bat

5.56 KB

-rwxrwxrwx

pler

540 B

-rw-rw-rw-

pler.bat

1.07 KB

-rwxrwxrwx

pm-uninstall

820 B

-rw-rw-rw-

pm-uninstall.bat

1.28 KB

-rwxrwxrwx

pod2html.bat

5.02 KB

-rwxrwxrwx

pod2latex

10.39 KB

-rw-rw-rw-

pod2latex.bat

10.92 KB

-rwxrwxrwx

pod2man.bat

15.42 KB

-rwxrwxrwx

pod2text.bat

11.29 KB

-rwxrwxrwx

pod2usage

4.16 KB

-rw-rw-rw-

pod2usage.bat

4.67 KB

-rwxrwxrwx

pod_cover

1.37 KB

-rw-rw-rw-

pod_cover.bat

1.94 KB

-rwxrwxrwx

podchecker

3.7 KB

-rw-rw-rw-

podchecker.bat

4.21 KB

-rwxrwxrwx

podselect

2.56 KB

-rw-rw-rw-

podselect.bat

3.07 KB

-rwxrwxrwx

ppd2par

4.64 KB

-rw-rw-rw-

ppd2par.bat

5.32 KB

-rwxrwxrwx

ppm.bat

35.53 KB

-rwxrwxrwx

ppm.pl

33.99 KB

-rw-rw-rw-

primes.bat

21.45 KB

-rwxrwxrwx

primes.pl

20.34 KB

-rw-rw-rw-

prove.bat

14.07 KB

-rwxrwxrwx

ptar

3.38 KB

-rw-rw-rw-

ptar.bat

4.28 KB

-rwxrwxrwx

ptardiff

2.48 KB

-rw-rw-rw-

ptardiff.bat

3.35 KB

-rwxrwxrwx

ptargrep

4.19 KB

-rw-rw-rw-

ptargrep.bat

5.14 KB

-rwxrwxrwx

pwnkit

10.99 KB

-rw-rw-rw-

runperl.bat

2.72 KB

-rwxrwxrwx

scan-perl-prereqs-nqlite

5.28 KB

-rw-rw-rw-

scan-perl-prereqs-nqlite.bat

6 KB

-rwxrwxrwx

search.bat

55.83 KB

-rwxrwxrwx

shasum.bat

10.48 KB

-rwxrwxrwx

splain.bat

20.43 KB

-rwxrwxrwx

streamzip

5.45 KB

-rw-rw-rw-

streamzip.bat

6.17 KB

-rwxrwxrwx

stubmaker.bat

4.01 KB

-rwxrwxrwx

stubmaker.pl

3.35 KB

-rw-rw-rw-

test-yaml

1017 B

-rw-rw-rw-

test-yaml.bat

1.56 KB

-rwxrwxrwx

tpage

8.85 KB

-rw-rw-rw-

tpage.bat

9.64 KB

-rwxrwxrwx

ttree

38.21 KB

-rw-rw-rw-

ttree.bat

39.9 KB

-rwxrwxrwx

use-devel-checklib

2.7 KB

-rw-rw-rw-

use-devel-checklib.bat

3.31 KB

-rwxrwxrwx

whirlpoolsum

4.93 KB

-rw-rw-rw-

whirlpoolsum.bat

5.67 KB

-rwxrwxrwx

wperl.exe

39 KB

-rwxrwxrwx

xml_grep

13.32 KB

-rw-rw-rw-

xml_grep.bat

14.3 KB

-rwxrwxrwx

xml_merge

3.89 KB

-rw-rw-rw-

xml_merge.bat

4.55 KB

-rwxrwxrwx

xml_pp

7.82 KB

-rw-rw-rw-

xml_pp.bat

8.61 KB

-rwxrwxrwx

xml_spellcheck

6.34 KB

-rw-rw-rw-

xml_spellcheck.bat

7.1 KB

-rwxrwxrwx

xml_split

21.13 KB

-rw-rw-rw-

xml_split.bat

22.27 KB

-rwxrwxrwx

xsubpp.bat

5.78 KB

-rwxrwxrwx

zipdetails

56.01 KB

-rw-rw-rw-

zipdetails.bat

58.95 KB

-rwxrwxrwx

Code Editor : xml_merge.bat

@rem = '--*-Perl-*--
@set "ErrorLevel="
@if "%OS%" == "Windows_NT" @goto WinNT
@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
@set ErrorLevel=%ErrorLevel%
@goto endofperl
:WinNT
@perl -x -S %0 %*
@set ErrorLevel=%ErrorLevel%
@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
@goto endofperl
@rem ';
#!/usr/bin/perl -w
#line 30
# $Id: /xmltwig/trunk/tools/xml_merge/xml_merge 12 2007-04-22T06:04:54.627880Z mrodrigu  $
use strict;

use XML::Twig;
use FindBin qw( $RealBin $RealScript);
use Getopt::Std;

$Getopt::Std::STANDARD_HELP_VERSION=1; # twice to prevent warning with 5.6.1 (I know it's dumb!)
$Getopt::Std::STANDARD_HELP_VERSION=1; # to stop processing after --help or --version

use vars qw( $VERSION $USAGE);

$VERSION= "0.02";
$USAGE= "xml_merge [-o <output_file>] [-i] [-v] [-h] [-m] [-V] [file]\n";

{ # main block

my $opt={};
getopts('o:ivhmV', $opt);

if( $opt->{h}) { die $USAGE, "\n";            }
if( $opt->{m}) { exec "pod2text $RealBin/$RealScript"; }
if( $opt->{V}) { print "xml_merge version $VERSION\n"; exit; }

if( $opt->{o})
  { open( my $out, '>', $opt->{o}) or die "cannot create $opt->{o}: $!";
    $opt->{fh}= $out; # used to set twig_print_outside_roots
  }
else
  { $opt->{fh}= 1; }  # this way twig_print_outside_roots outputs to STDOUT

$opt->{subdocs} = 1;
$opt->{file}    = $ARGV[0];

$opt->{twig_roots}= $opt->{i} ? { 'xi:include' => sub { $opt->{file}= $_->att( 'href');
                                                        if( $_->att( 'subdocs')) { merge( $opt); }
                                                        else                     { spit(  $opt); }
                                                      },
                                }
                              : { '?merge'     => sub { $opt= parse( $_->data, $opt);
                                                        if( $opt->{subdocs}) { merge( $opt); }
                                                        else                 { spit(  $opt); }
                                                      },
                                }

;

merge( $opt);

if( $opt->{v}) { warn "done\n"; }

}

sub merge
  { my( $opt)= @_;
    my $t= XML::Twig->new( keep_encoding => 1, keep_spaces => 1,
                           twig_roots => $opt->{twig_roots},
                           twig_print_outside_roots => $opt->{fh},
                         );
    if( $opt->{v} && $opt->{file}) { warn "merging $opt->{file} (parsing)\n"; }
    if( $opt->{file}) { $t->parsefile( $opt->{file}); } else { $t->parse( \*STDIN); }
  }

sub spit
  { my( $opt)= @_;
    if( $opt->{v} && $opt->{file}) { warn "merging $opt->{file} (no parsing)\n"; }
    open( my $in, '<', $opt->{file}) or die "cannot open sub document '$opt->{file}': $!";
    while( <$in>)
      { next if( m{^\Q<?xml version} || m{^\s*</?xml_split:root});
        if( $opt->{o}) { print {$opt->{fh}} $_; } else { print $_; } 
      }
    close $in;
  }

# data is the pi data, 
# (ugly) format is keyword1 = val1 : keyword2 = val2 ... : filename
# ex: subdoc = 1 : file-01.xml

sub parse
  { my( $data, $opt)= @_;
    while( $data=~ s{^\s*(\S+)\s*=\s*(\S+)\s*:\s*}{}) { $opt->{$1}= $2; }
    $opt->{file}= $data;
    return $opt;
  }
    
   
# for Getop::Std
sub HELP_MESSAGE    { return $USAGE;   }
sub VERSION_MESSAGE { return $VERSION; }

__END__

=head1 NAME

xml_merge - merge back XML files split with C<xml_split>

=head1 DESCRIPTION

C<xml_merge> takes several xml files that have been split using
C<xml_split> and recreates a single file.

=head1 OPTIONS

=over 4

=item -o <output_file>

unless this option is used the program output goes to STDOUT

=item -i

the files use XInclude instead of processing instructions (they
were created using the C<-i> option in C<xml_split>)

=item -v

verbose output

=item -V

outputs version and exit

=item -h

short help

=item -m

man (requires pod2text to be in the path)

=back

=head1 EXAMPLES

xml_merge foo-00.xml             # output to stdout
  xml_merge -o foo.xml foo-00.xml  # output to foo.xml

=head1 SEE ALSO

XML::Twig, xml_split

=head1 TODO/BUGS

=head1 AUTHOR

Michel Rodriguez <mirod@cpan.org>

=head1 LICENSE

This tool is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

__END__
:endofperl
@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%

${this.title}

Code Editor : xml_merge.bat