![]() ![]() | ![]() |
version 1.531.2.22, 2016/09/16 14:20:47 | version 1.531.2.22.2.1, 2017/11/16 23:54:43 |
---|---|
Line 2362 sub register_insert { | Line 2362 sub register_insert { |
sub dump_insertlist { | sub dump_insertlist { |
my ($ext) = @_; | my ($ext) = @_; |
open(XML,">/tmp/insertlist.xml.$ext"); | open(XML,">","/tmp/insertlist.xml.$ext"); |
print XML ("<insertlist>"); | print XML ("<insertlist>"); |
my $i=0; | my $i=0; |