Better commenting.

icculus · Jan 29, 2002 · a8edba0 · a8edba0
1 parent 3371319
commit a8edba0
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/IcculusFinger_planmove.pl b/IcculusFinger_planmove.pl
@@ -1,10 +1,26 @@
 #!/usr/bin/perl -w
 
 use strict;
+use warnings;
 
+#-----------------------------------------------------------------------------#
+#             CONFIGURATION VARIABLES: Change to suit your needs...           #
+#-----------------------------------------------------------------------------#
+
+# Where the home dirs reside. $homebasedir/username/.plan is where we look...
+# Note that THIS MUST NOT HAVE THE TRAILING DIR SEPARATOR!
 my $homebasedir = '/home';
+
+# This is the directory to move planfiles to. Note that THIS MUST NOT HAVE
+#  THE TRAILING DIR SEPARATOR!
 my $fingerspace = '/fingerspace';
 
+#-----------------------------------------------------------------------------#
+#     The rest is probably okay without you laying yer dirty mits on it.      #
+#-----------------------------------------------------------------------------#
+
+
+
 sub chown_by_name {
     my($user, $file) = @_;
     chown((getpwnam($user))[2], (getpwnam('root'))[3], $file) == 1 or