diff options
Diffstat (limited to 'packaging/Caldera/OpenLinux/updatesmbpasswd.perl')
| -rwxr-xr-x | packaging/Caldera/OpenLinux/updatesmbpasswd.perl | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/packaging/Caldera/OpenLinux/updatesmbpasswd.perl b/packaging/Caldera/OpenLinux/updatesmbpasswd.perl deleted file mode 100755 index 60f572b490..0000000000 --- a/packaging/Caldera/OpenLinux/updatesmbpasswd.perl +++ /dev/null @@ -1,10 +0,0 @@ -#!/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)); -} |