--- loncom/pwchange	2001/11/15 18:13:32	1.2
+++ loncom/pwchange	2001/11/15 18:22:04	1.4
@@ -1,19 +1,17 @@
 #!/usr/bin/perl
 
-# The Learning Online Network
+# The Learning Online Network with CAPA
 #
 # pwchange - setuid script to change unix passwords
 #
 # YEAR=2001
 # 10/23,11/13,11/15 Scott Harrison
 #
-# $Id: pwchange,v 1.2 2001/11/15 18:13:32 harris41 Exp $
+# $Id: pwchange,v 1.4 2001/11/15 18:22:04 harris41 Exp $
 ###
 
 use strict;
 
-my $VERSION = 1.1;
-
 # ------------------------------------------------------------------ Untainting
 $ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information.
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints