Lines Matching refs:system
4 # valid on this system. Written as a secure Perl script. To enable,
9 # If setuidshells is not enabled on your system, you must also do this:
55 print STDERR "usage: $PROG printer file [user] [system]\n";
62 $system = $ARGV[3];
65 $system = `hostname` unless($system);
87 # Untaint the file and system names (pretend to filter them)
89 $system = $system =~ /^(.*)/ ? $1 : die("Bad system: $system\n");
100 # Check out the user -- if the user is a real user on this system,
121 $lpcommand = "/usr/bin/lp -c -d$printer -t'$name on $system'";
150 system("$lpcommand $file");