1 files changed, 15 insertions, 0 deletions
diff --git a/packaging/Caldera/OpenLinux/convertsmbpasswd.perl b/packaging/Caldera/OpenLinux/convertsmbpasswd.perl
new file mode 100755
index 0000000000..6b83886cd4
--- /dev/null
+++ b/packaging/Caldera/OpenLinux/convertsmbpasswd.perl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+#
+# Convert a Samba 1.9.18 smbpasswd file format into
+# a Samba 2.0 smbpasswd file format.
+# Read from stdin and write to stdout for simplicity.
+# Set the last change time to the time of conversion.
+while ( <> ) {
+  @V = split(/:/);
+  if ( ! /^\#/ ) {
+    $V[6] = $V[4] . "\n";
+    $V[5] = sprintf( "LCT-%X", time());
+    $V[4] = "[U          ]";
+  }
+  print( join( ':', @V));
+}