Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Is it possible to call variables and subroutines that are... 2
- Thread starter Eloff
- Start date
-
1
- #2
Sure you can. All you need to do is use the require function.
Try this:
require "data.cgi";
#now you can use all the variables from data.cgi ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
-Aaron
----------------------------------------
Try this:
require "data.cgi";
#now you can use all the variables from data.cgi ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
-Aaron
----------------------------------------
- Thread starter
- #3
If you're depending your whole site on the data.cgi, then you can add more security stuff to make sure it's running smoothly.
require "data.cgi" or &error("Data File is missing!","Error"
;
sub error {
my($error, $title) = @_;
print "Error: $error<BR>";
exit;
}
You don't have to but hey, take advantage of it ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Companynot done yet)
-Aaron
----------------------------------------
require "data.cgi" or &error("Data File is missing!","Error"
;sub error {
my($error, $title) = @_;
print "Error: $error<BR>";
exit;
}
You don't have to but hey, take advantage of it
----------------------------------------There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Company
not done yet) -Aaron
----------------------------------------
Oh by the way, anybody know why i'm getting those "stars" automatically without anyone clicking on it? That happened last post, too. Don't worry, it's not counted. ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Companynot done yet)
-Aaron
----------------------------------------
----------------------------------------There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Company
not done yet) -Aaron
----------------------------------------
- Thread starter
- #7
I forgot to mention one thing. Open up the data.cgi and add this line at the very end of the script:
#add this to the end of script..
1;
#end of code
Do not delete that 1 and try again.
----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Companynot done yet)
-Aaron
----------------------------------------
#add this to the end of script..
1;
#end of code
Do not delete that 1 and try again.
----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Company
not done yet) -Aaron
----------------------------------------
- Thread starter
- #9
No good, it still just adds the origional cgi script to the one with the require code in it. check for yourself. I don't want it to run yahtzee.cgi again, but I do want roll.cgi to be able to use variables and subroutines from yahtzee.cgi.
-
1
- #10
Seeing as you are using a HTML form why dont you save results in hidden inputs, then just parse <STDIN> at the beginning of your script.
You could contain all of your code in one script, read this section on stars.com for a better idea of maintaining state.
You could contain all of your code in one script, read this section on stars.com for a better idea of maintaining state.
I found the problem. You need to add an exit function after the code Here's an example:
if ($FORM{'email'} eq "" {
print "error";
exit;
}
Yes, it's a bad example but I don't know how your subroutine looks like. If you could show me your code, then i'll show you where to add the exit function. ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Companynot done yet)
-Aaron
----------------------------------------
if ($FORM{'email'} eq ""
{print "error";
exit;
}
Yes, it's a bad example but I don't know how your subroutine looks like. If you could show me your code, then i'll show you where to add the exit function. ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Company
not done yet) -Aaron
----------------------------------------
- Thread starter
- #12
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
require "yahtzee.cgi"or &error("Data File is missing!","Error"
sub error {
my($error, $title) = @_;
print "Error: $error<BR>";
exit;
}
#still not sure what this part does exactly
#just know it works
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$input);
foreach $pair(@pairs){
($name, $value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g;
$value =~ s/\r//g;
$FORM{$name} = $value;
$mode = $FORM{'mode'};
}
print <<EOF;
<form method="POST" action="roll.cgi">
EOF
if ($FORM{'C1'} eq "ON" {
print <<EOF;
Dice one rolled
<input type="checkbox" name="C1" value="ON">
EOF
&dice;
$dice1 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C2'} eq "ON" {
print <<EOF;
Dice two rolled
<input type="checkbox" name="C2" value="ON">
EOF
&dice;
$dice2 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C3'} eq "ON" {
print <<EOF;
Dice three rolled
<input type="checkbox" name="C3" value="ON">
EOF
&dice;
$dice3 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C4'} eq "ON" {
print <<EOF;
Dice four rolled
<input type="checkbox" name="C4" value="ON">
EOF
&dice;
$dice4 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C5'} eq "ON" {
print <<EOF;
Dice five rolled
<input type="checkbox" name="C5" value="ON">
EOF
&dice;
$dice5 = $num[0];
print "<br>";
}
else {
#Continue
}
print <<EOF;
<input type="submit" value="Roll Selected Dice Again" name="B1">
</form>
EOF
print "Content-type: text/html\n\n";
require "yahtzee.cgi"or &error("Data File is missing!","Error"
;sub error {
my($error, $title) = @_;
print "Error: $error<BR>";
exit;
}
#still not sure what this part does exactly
#just know it works
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$input);
foreach $pair(@pairs){
($name, $value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g;
$value =~ s/\r//g;
$FORM{$name} = $value;
$mode = $FORM{'mode'};
}
print <<EOF;
<form method="POST" action="roll.cgi">
EOF
if ($FORM{'C1'} eq "ON"
{print <<EOF;
Dice one rolled
<input type="checkbox" name="C1" value="ON">
EOF
&dice;
$dice1 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C2'} eq "ON"
{print <<EOF;
Dice two rolled
<input type="checkbox" name="C2" value="ON">
EOF
&dice;
$dice2 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C3'} eq "ON"
{print <<EOF;
Dice three rolled
<input type="checkbox" name="C3" value="ON">
EOF
&dice;
$dice3 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C4'} eq "ON"
{print <<EOF;
Dice four rolled
<input type="checkbox" name="C4" value="ON">
EOF
&dice;
$dice4 = $num[0];
print "<br>";
}
else {
#Continue
}
if ($FORM{'C5'} eq "ON"
{print <<EOF;
Dice five rolled
<input type="checkbox" name="C5" value="ON">
EOF
&dice;
$dice5 = $num[0];
print "<br>";
}
else {
#Continue
}
print <<EOF;
<input type="submit" value="Roll Selected Dice Again" name="B1">
</form>
EOF
Sorry if i'm geting back to you late. I had school and stuff but it seems yo're having problem with the yahtzee.cgi. Can you email me the whole code in a zip file. I don't see any problems with the code listed above.
projectnet01@cs.com ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Companynot done yet)
-Aaron
----------------------------------------
projectnet01@cs.com ----------------------------------------
There is no Knowledge, That is not power.
Yes, i'm a MySQL Newbie.
Age: 16
E-mail: projectnet01@cs.com
Company
not done yet) -Aaron
----------------------------------------
- Thread starter
- #14
Sorry danieleloff@hotmail.com. Your mail to projectnet01 could not be delivered
because projectnet01 is not accepting mail with attachments or embedded images
#!/usr/local/bin/perl
#Yahtzee
print "Content-type: text/html\n\n";
&roll;
sub roll {
print <<EOF;
<form method="POST" action="roll.cgi">
Dice one rolled
<input type="checkbox" name="C1" value="ON">
EOF
&dice;
$dice1 = $num[0];
print "<br>";
print <<EOF;
Dice two rolled
<input type="checkbox" name="C2" value="ON">
EOF
&dice;
$dice2 = $num[0];
print "<br>";
print <<EOF;
Dice three rolled
<input type="checkbox" name="C3" value="ON">
EOF
&dice;
$dice3 = $num[0];
print "<br>";
print <<EOF;
Dice four rolled
<input type="checkbox" name="C4" value="ON">
EOF
&dice;
$dice4 = $num[0];
print "<br>";
print <<EOF;
Dice five rolled
<input type="checkbox" name="C5" value="ON">
EOF
&dice;
$dice5 = $num[0];
print "<br>";
print <<EOF;
<input type="submit" value="Roll Selected Dice Again" name="B1">
</form>
EOF
}
sub dice {
$rand = rand(5);
$rand += 1;
@num = split(/\./,$rand);
$round = substr($num[1],0,1);
if ($round > 4) {
$num[0] += 1;
print "$num[0]";
}
else {
print "$num[0]";
}
}
#add this to the end of script..
1;
#end of code
because projectnet01 is not accepting mail with attachments or embedded images
#!/usr/local/bin/perl
#Yahtzee
print "Content-type: text/html\n\n";
&roll;
sub roll {
print <<EOF;
<form method="POST" action="roll.cgi">
Dice one rolled
<input type="checkbox" name="C1" value="ON">
EOF
&dice;
$dice1 = $num[0];
print "<br>";
print <<EOF;
Dice two rolled
<input type="checkbox" name="C2" value="ON">
EOF
&dice;
$dice2 = $num[0];
print "<br>";
print <<EOF;
Dice three rolled
<input type="checkbox" name="C3" value="ON">
EOF
&dice;
$dice3 = $num[0];
print "<br>";
print <<EOF;
Dice four rolled
<input type="checkbox" name="C4" value="ON">
EOF
&dice;
$dice4 = $num[0];
print "<br>";
print <<EOF;
Dice five rolled
<input type="checkbox" name="C5" value="ON">
EOF
&dice;
$dice5 = $num[0];
print "<br>";
print <<EOF;
<input type="submit" value="Roll Selected Dice Again" name="B1">
</form>
EOF
}
sub dice {
$rand = rand(5);
$rand += 1;
@num = split(/\./,$rand);
$round = substr($num[1],0,1);
if ($round > 4) {
$num[0] += 1;
print "$num[0]";
}
else {
print "$num[0]";
}
}
#add this to the end of script..
1;
#end of code
- Status
Similar threads
