Gossamer Forum: General: Perl Programming: Perl and unix commands

Jul 15, 2003, 1:37 PM

Kuberski

Novice (10 posts)

Jul 15, 2003, 1:37 PM

Post #1 of 8

Shortcut

Perl and unix commands - passing variables.

I want a form where a user can input a printer name (ie. STL-001) and get the status of that printer.

I can do the following by hard coding the printer name and it does return a status to a web page. My question is how can I make the printer name a variable to pass into the unix command of `lpstat -p STL-001`

#!/usr/bin/perl

$|= 1;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Fcntl;
use Shell;
use strict;

# print html header, doc root, PERL verions and module info
print "content-type: text/html \n\n";

my $prnt_stat = `lpstat -p STL-001`;

print " ";
print "Printer Status: $prnt_stat";

# print " ";
# my $foo = echo("howdy", "funny", "world");
# print $foo;

# print " ";
# my $passwd = cat("/etc/passwd");
# print $passwd;
exit;

Returns to my webpage:

Printer Status: printer STL-001 is idle. enabled since Jul 15 15:27 2003. available.

Jul 15, 2003, 2:28 PM

Andy

Veteran / Moderator (17364 posts)

Jul 15, 2003, 2:28 PM

Post #2 of 8

Shortcut

Re: [Kuberski] Perl and unix commands - passing variables. In reply to

Code:
#!/usr/bin/perl  

$|= 1;  
use CGI qw(:standard);  
use CGI::Carp qw(fatalsToBrowser);  
use Fcntl;  
use Shell;  
use strict;  
use CGI;

my $IN = new CGI;

# print html header, doc root, PERL verions and module info  
print "content-type: text/html \n\n";  

my $_printer = $IN->param('printer') || "STL-001"; 
my $query = "lpstat -p $printer"; 
my $prnt_stat = `$query`; 

print "<br><br>";  
print "<b>Printer Status: </b> $prnt_stat";  

# print "<br><br>";  
# my $foo = echo("howdy", "funny", "world");  
# print $foo;  

# print "<br><br>";  
# my $passwd = cat("/etc/passwd");  
# print $passwd;  
exit;

...bits in red are added, or modified.

Hope that helps.

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Jul 15, 2003, 2:52 PM

Paul

Veteran (19537 posts)

Jul 15, 2003, 2:52 PM

Post #3 of 8

Shortcut

Re: [Andy] Perl and unix commands - passing variables. In reply to

Remove the redundant code first though =)

Jul 15, 2003, 3:07 PM

Andy

Veteran / Moderator (17364 posts)