--- /usr/tmp/TmpDir.869035-0/src/packaging/SGI/sambalp_1.1	Mon Nov 10 14:25:48 2003
+++ src/packaging/SGI/sambalp	Mon Nov 10 14:12:22 2003
@@ -50,8 +50,9 @@
 EOF
 $ENV{'PATH'} = join(':',@PATH);
 
-if ($#ARGV < 3) {
-    print STDERR "usage: $PROG printer file user system\n";
+        print "$#ARGV ".scalar(@ARGV)."\n";
+if (scalar(@ARGV) < 2) {
+    print STDERR "usage: $PROG printer file [user] [system]\n";
     exit;
 }
 
@@ -59,6 +60,9 @@
 $file    = $ARGV[1];
 $user    = $ARGV[2];
 $system  = $ARGV[3];
+
+$user = "nobody" unless($user);
+$system = `hostname` unless($system);
 
 open(LPSTAT,"/usr/bin/lpstat -t|") || die("Can't get printer list.\n");
 @printers = ();