Help for this page

Select Code to Download


  1. or download this
    @lines =~ s/<!DOCTYPE XMLDATA SYSTEM \"artist_royalty.dtd\">//; #????
  2. or download this
    print "<?xml version=\"1.0\"?>\n";
  3. or download this
                 
if ($doctype eq "m") {
print "<!DOCTYPE XMLDATA SYSTEM \"http://www.mydotcom.com/DRM/clients/
+XML_FORM/XML_DTD/mechanical_royalty_rightrax.dtd\">\n";
...
    #chop $line;
    print "$line";
}