#!/usr/bin/perl # Update documents to the Samba DTD V1.0 undef $/; while(<>) { s/(.*?)<\/name>(.*?)<\/value><\/smbconfoption>/\2<\/smbconfoption>/g; s/(.*?)<\/name><\/smbconfoption>//g; s/xmlns:samba=\"http:\/\/samba.org\/common\"/xmlns:samba=\"http:\/\/www.samba.org\/samba\/DTD\/samba-doc\"/g; print $_; }