foreach (@wm) {
autoscript($package,"postinst","postinst-wm","s:#WM#:$_:;s/#PRIORITY#/$dh{PRIORITY}/",);
autoscript($package,"prerm","prerm-wm","s:#WM#:$_:");
foreach (@wm) {
autoscript($package,"postinst","postinst-wm","s:#WM#:$_:;s/#PRIORITY#/$dh{PRIORITY}/",);
autoscript($package,"prerm","prerm-wm","s:#WM#:$_:");