From 5dbd30002acaa971a84b6d917f9dc06d7f118836 Mon Sep 17 00:00:00 2001
From: John Terpstra <jht@samba.org>
Date: Sun, 30 Jul 2000 06:33:30 +0000
Subject: Adding files provided by Klaus Singvogel of Caldera (This used to be
 commit ab6d01bdccf3106c00563173bfb3e3b3d7c3a64c)

---
 packaging/Caldera/OpenLinux/updatesmbpasswd.perl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 packaging/Caldera/OpenLinux/updatesmbpasswd.perl

(limited to 'packaging/Caldera/OpenLinux/updatesmbpasswd.perl')

diff --git a/packaging/Caldera/OpenLinux/updatesmbpasswd.perl b/packaging/Caldera/OpenLinux/updatesmbpasswd.perl
new file mode 100755
index 0000000000..60f572b490
--- /dev/null
+++ b/packaging/Caldera/OpenLinux/updatesmbpasswd.perl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+while ( <> ) {
+  print;
+  @V = split(/:/);
+  $_ = $V[3];
+  if ( $V[0] !~ /^\#/ && !(/^[0-9A-F]{32}$/ || /^X{32}$/ || /^\*{32}$/) ) {
+    $V[3] = "X" x 32;
+  }
+  print( join( ':', @V));
+}
-- 
cgit