blob: 369d76e55d4b278e3afd2c99e55d41a787627c18 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/bin/perl
# Update documents to the Samba DTD V1.0
undef $/;
while(<>) {
s/<smbconfoption><name>(.*?)<\/name><value>(.*?)<\/value><\/smbconfoption>/<smbconfoption name=\"\1\">\2<\/smbconfoption>/g;
s/<smbconfoption><name>(.*?)<\/name><\/smbconfoption>/<smbconfoption name=\"\1\"\/>/g;
s/xmlns:samba=\"http:\/\/samba.org\/common\"/xmlns:samba=\"http:\/\/www.samba.org\/samba\/DTD\/samba-doc\"/g;
print $_;
}
|
