Also, did you restart your web server after restored the original script?
--
Andy
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention." -- Larry Wall
libdb is the berkley db library, see sleepycat.com
libgdbm is the GNU database manager. See the gdbm page.
--
Andy
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention." -- Larry Wall
Whoa whoa... reinstall perl, change httpd.conf.... hold up. Let's start simple.
This is usually caused by something like $foo->[0] when it should be $foo[0]. Or even something like: for ( @$foo ) { ... } when $foo is not an array ref. Or, a bit more subtle, using @$foo when $foo is...
Crude an inaccurate. Just because the port doesn't show up as closed doesn't mean the service is responding. I'd recommend something like the nagios plugins. You can install them without even installing nagios, and the check_dns utility is much more accurate at determining the state of dns...
Where does it say which part? Since my response pertains to almost every line of the original post, I'm not sure which part you're confused about...
--
Andy
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention." -- Larry Wall
What is the error message in the web server log?
--
Andy
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention." -- Larry Wall
Umm... So let's get this straight. You want a DBMS, but you don't want to: A) Install a DBMS, B) Install perl modules, yet, despite A and B, you don't want to reinvent the wheel?
I guess you'll have to turn to the force for that one... ;)
Seriously, though. Go to cpan and look for SQLite...
This is totally untested, but I'd probably give something like this a try.
use strict;
use warnings;
my $db =
new Win32::ODBC(
'Driver={SQL Server};Server=$newdb;Database=$dbname;uid=$uid;pwd=$pw')
or die "Unable to connect to database";
my $sql_statement; # use your sql query...
Simple enough. Just search the monastary for hash duplicates or something like that and you'll see plenty of responses.
--
Andy
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention." -- Larry Wall
Whenever you find yourself treating keys as values, realize that it's a BadIdea(tm).
For this case, I would do:
my %foo = (
$id => {
last => 'harrison',
first => 'andy',
phone => 'myphone',
dob => 'bday'
}
);
Then you can do things like:
print...
Another thing you could do...
Instead of command > diskfile you could do command | yourscript.pl
Then this should work:
#!/usr/local/bin/perl -lnw
for ( <> ) {
chomp;
next if m/^$/;
next if m/^\-+/;
print;
#
# your code
#
...
}
--
Andy...
You probably ought to have a look at File::Slurp. It's pretty simple and would probably fit the bill nicely.
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
FYI, for future reference, it is generally not a good idea to post your password in public forums.
You really need to trash this code and start again.
First, use CGI to parse forms.
Second, do not trust user input. If you allow the user to insert any text they want in a form field and don't...
The script. Especially, but not limited to, the sql.
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
We aren't dentists.
Post all relevent portions of the script, error messages, versions, module versions, etc...
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
Just quote only what you need to quote...
F:\>start C:\"test folder"\file.html
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
Did you perform the ifconfig qfe0:1 up?
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
I'd probably have a look at URI::Escape. If there's a comma being passed to your script from the form, it's not being passed as a comma, it's being passed as its ascii equiv.
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their...
man patch
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
No need to complicate things unnecessarily.
diff file1 file2 > files.diff
You can then use it as a patch.
--
Andy
http://www.nachoz.com
"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.