Help for this page

Select Code to Download

Select or download this

sub get_arg {
    shift =~ /\W([^=]+)/;
...

my $reqid = get_arg(FCP_REQID=103806);  # returns 103806
my $login = get_arg(FCP_LOGIN="USER/PASS");  #returns "USER/PASS", des
+ire USER/PASS

Select or download this

(my $login = get_arg(FCP_LOGIN="USER/PASS") =~ tr/\"//d;

...
FCP_LOGIN="USER/PASS"
FCP_USERID=3944 
FCP_PRINTER="noprint"