tumoheat:

but I cannot get my code below to work

Perhaps if you'd give some details, someone could help you. When it "doesn't work", precisely what do you mean? After reviewing Ask questions the smart way, I know what I mean. Why don't you? and How (Not) To Ask A Question, you can update your node and probably get a response you can work with.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

You ask a question about parallel ports but show code that is mostly CGI oriented. Why is that? What are you actually trying to do and what is actually failing?

It may help to focus on one problem at a time!

I don't know how different Ubuntu and Linux are. This is low level device driver stuff and the "flavor" of Unix can make a considerable difference. What happened when you installed the Linux driver on Ubuntu? Device::ParallelPort::drv::linux or Device::ParallelPort::drv::parport ? I don't know for sure, but suspect that there was some problem with that.

Device::ParallelPort is a front end to the appropriate driver (the ...drv::xxxx module) and won't work without a driver. There are a couple of "dummy drivers", drv::dummy_byte and drv::dummy_bit. Did you make any tests with one of those?

I tried to figure out what "parport" is but didn't find much in a quick look. Sounds like it is something different than a regular device driver. I'd be curious to the C code/driver that you used, there may be a useful clue there. You can put it inbetween <readmore></readmore> tags so it doesn't clutter up things.

#!/usr/bin/perl

use strict;
use warnings; 
use Device::ParallelPort; 
use Device::ParallelPort::drv::parport;

my $parport = Device::ParallelPort->new;
$parport->set_bit(3, 1);
print $parport->get_bit(3), "\n",
ord($parport->get_byte(0)), "\n",
ord($parport->get_byte(1)), "\n",
ord($parport->get_byte(2)), "\n";
[download]

Thanks Khen1950fx,

I actually got it to work using the code below. I changed auto:0 to auto:1 and that did it.

require "subparseform.lib";
&Parse_Form;

print "Set-cookie: cart_id=1234; user_id=123;\n";   
print "Content-type: text/html\n\n";

use strict;
use CGI;

use Device::ParallelPort; 
# use Device::ParallelPort::drv::linux
# Set up your parallel port object and tell it what driver to use.
my $parport = Device::ParallelPort->new('auto:1');

# $parport->set_bit(0,1);
# $parport->set_bit(1, 1);
$parport->set_bit(2, 1);
$parport->set_bit(3, 1);
$parport->set_bit(4, 1);
$parport->set_bit(5, 1);
$parport->set_bit(6, 1);
$parport->set_bit(7, 1);
[download]

If I don't comment out the CGI lines I get an Internal Server Error, that's why I have them. Is there a serious problem with doing it this way?

tumoheat:

If you check your server logs, I bet it's complaining about permissions. If so, talk to your system administrator about getting permission to access the parallel port for your web server account.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Thanks Khen1950fx, I actually got it to work using the code below. I changed auto:0 to auto:1 and that did it. require "subparseform.lib"; &Parse_Form; print "Set-cookie: cart_id=1234; user_id=123;\n"; print "Content-type: text/html\n\n"; use strict; use CGI; use Device::ParallelPort; # use Device::ParallelPort::drv::linux # Set up your parallel port object and tell it what driver to use. my $parport = Device::ParallelPort->new('auto:1'); # $parport->set_bit(0,1); # $parport->set_bit(1, 1); $parport->set_bit(2, 1); $parport->set_bit(3, 1); $parport->set_bit(4, 1); $parport->set_bit(5, 1); $parport->set_bit(6, 1); $parport->set_bit(7, 1); If I comment out the CGI lines I get an Internal Server Error, that's why I have them. Is there a serious problem with doing it this way?

But without error messages it is just guessing.