perl/mysql/php? - Softwareontwikkeling

maandag 17 april 2000 12:25

Acties:

Topicstarter

wie kan een kort omschrijving geven van wat perl allemaal kan en of het bv handiger/makkelijker/beter met mysql omgaat dan php.

ik weet een beetje van php/mysql af maar helemaal nix van (list)perl

"I disagree with what you are saying, but I will defend to the death your right to say it." -- not clear who

maandag 17 april 2000 13:04

Acties:

Hans

Perl praat met MySQL via DBI. Ook al werk ik zelf met zowel PHP als Perl in combinatie met MySQL kan ik niet echt zeggen dat het één moeilijker is dan de ander. Tis allebei wel te doen.

maandag 17 april 2000 13:14

Acties:

Verwijderd

Is het niet zo dat DBI MySQL access met Perl niet door alle hosting providers ondersteund wordt? Ik krijg het bij Vuurwerk iig niet aan de gang.

maandag 17 april 2000 13:24

Acties:

Hans

Klopt. Daarvoor moeten ze een aantal Perl modules installeren (Perl: :DBI, DBD::mysql ea) en dat kan voor zover ik weet alleen als root.

dinsdag 19 februari 2002 17:04

Acties:

Verwijderd

Kheb vernomen dat het wel kan zonder root permission, maare dan ben je aan het hacken!
Ben ik niet zo'n voorstander van.

Je kan wel sniffen welke dingen er geïnstalleerd zijn.
Kheb 'm destijds ergens gedowned, maare weet niet meer waar, dus maar ff helemaal..

Misschien moet je perlpad aanpassen!?

#!/usr/bin/perl

$ver = "v1.06";

find_apache();
find_mail_prog();

print "Content-type: text/html\n\n";

$header = qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Widexl.com - Server Info script $ver</title>
<meta name="author" content="Henk Boonstra - http://widexl.com">
<meta name="robots" content="noindex,nofollow">

<style type="text/css"></style>
</head>
<body>
|;

print "$header\n\n";
print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"32\" align=\"left\" width=\"760\"><tr><td align=\"left\">\n\n";

if ($^O eq 'MSWin32') {
$win_ver = `ver`;
$host = `hostname`;
if ($ver) {$syst_exec = "1"}
}

if ($^O ne 'MSWin32') {
$whoami = `whoami`;
$machine = `uname -m`;
$processor = `uname -p`;
$release = `uname -r`;
$nodename = `uname -n`;
$sysname = `uname -s`;
$perl = `which perl`;
$whois = `which whois`;
$tar = `which tar`;
$gzip = `which gzip`;
$convert = `which convert`;

if ($perl) {$syst_exec = "1"}
}

print "Server info \n";

print "Operating system = $^O \n";
if (("$^O" eq "MSWin32") and ($syst_exec = "1")) {
print "Version = $win_ver; \n";
print "Hostname = $host \n";
}
if (("$^O" ne "MSWin32") and ($syst_exec = "1")) {
print "Kernel = $release \n";
print "Machine = $machine \n";
print "Processor type = $processor \n";
print "Whoami = $whoami \n";
print "Hostname = $nodename \n";
}
print "Server Name = $ENV{'SERVER_NAME'} \n";
print "Server IP = $ENV{'SERVER_ADDR'} \n\n";

if (("$^O" ne "MSWin32") and ($syst_exec = "1")) {
print "Server programs \n";

print "Mail program = $mail_prog \n";
print "Tar program = $tar \n";
print "Gzip program = $gzip \n";
print "Whois program = $whois \n";
print "ImageMagick convert = $convert \n\n";
}

print "Extra info \n";

if ($syst_exec) {print "Executing of system commands enabled \n \n"}
else {print "Executing of system commands not enabled \n \n"}

print "Perl info \n";

print "Perl location = $perl \n";
print "Perl version = $] \n";
print "Locations of Perl libraries = @INC \n\n";

print "Web server info \n";

print "HTTP address = $ENV{'HTTP_HOST'} \n";
if ($apache) {print "Apache lib = $apache \n"}
print "Document root = $ENV{'DOCUMENT_ROOT'} \n";
print "Administrator = $ENV{'SERVER_ADMIN'} \n";
print "Server software = $ENV{'SERVER_SOFTWARE'} \n\n";

print "Remote user info \n";

print "Remote IP = $ENV{'REMOTE_ADDR'} \n";
if ($ENV{'REMOTE_HOST'}) {print "Remote hostname = $ENV{'REMOTE_HOST'} \n"}
print "Language = $ENV{'HTTP_ACCEPT_LANGUAGE'} \n";
print "User agent = $ENV{'HTTP_USER_AGENT'} \n\n";

if ($apache) {

@standard_mod = ('mod_env.so', 'mod_cgi.so', 'libperl.so', 'mod_python.so', 'libssl.so', 'mod_include.so', 'mod_unique_id.so');
@auth_mod = ('mod_auth.so', 'mod_digest.so', 'mod_auth_digest.so', 'mod_auth_mysql.so', 'mod_access.so', 'mod_auth_cookie.so', 'mod_auth_db.so', 'mod_auth_dbm.so', 'mod_auth_anon.so');
@ext_mod = ('libphp3.so', 'libphp4.so', 'mod_fastcgi.so', 'mod_gzip.so', 'mod_vhost_alias.so', 'mod_speling.so', 'mod_proxy.so', 'mod_expires.so');

print "Apache modules installed \n";

foreach $item(@standard_mod) {
if (-e "$apache/$item") {print "Module '$item' installed \n"}
else {print "Module '$item' is not installed \n"}
}

foreach $item(@auth_mod) {
if (-e "$apache/$item") {print "Module '$item' installed \n"}
else {print "Module '$item' is not installed \n"}
}

foreach $item(@ext_mod) {
if (-e "$apache/$item") {print "Module '$item' installed \n"}
else {print "Module '$item' is not installed \n"}
}
print " \n";
}

print "Perl libraries installed \n";
# installed library.
eval {require CGI};
if ($@) { print "The library CGI is not installed \n"}
else { print "Library CGI v$CGI::VERSION installed \n"}

eval {require mod_perl};
if ($@) { print "The library mod_perl is not installed \n"}
else { print "Library mod_perl v$mod_perl::VERSION installed \n"}

eval {require LWP};
if ($@) { print "The library www-perl is not installed \n"}
else { print "Library www-perl v$LWP::VERSION installed \n"}

eval {require DBI};
if ($@) { print "The library DBI is not installed \n"}
else { print "Library DBI v$DBI::VERSION installed \n"}

eval {require DBD::mysql};
if ($@) { print "The library DBD::mysql is not installed \n"}
else { print "Library DBD::mysql v$DBD::mysql::VERSION installed \n"}

eval {require URI};
if ($@) { print "The library URI is not installed \n"}
else { print "Library URI v$URI::VERSION installed \n"}

eval {require Apache};
if ($@) { print "The library Apache is not installed \n"}
else { print "Library Apache v$Apache::VERSION installed \n\n"}

eval {require Digest::MD5};
if ($@) { print "The library Digest::MD5 is not installed \n"}
else { print "Library Digest::MD5 v$Digest::MD5::VERSION installed \n"}

eval {require Crypt::SSLeay};
if ($@) { print "The library Crypt::SSLeay is not installed \n\n"}
else { print "Library Crypt::SSLeay v$Crypt::SSLeay::VERSION installed \n\n"}

eval {
$user = getpwent();
$group = getgrent();
$host = gethostent();
$net = getnetent();
$proto = getprotoent();
$serv = getservent();

print "user = $user \n";
print "group = $group \n";
print "host = $host \n";
print "network = $net \n";
print "protocol = $proto \n";
print "service = $serv \n\n";
};

print "Script file = $0 \n";
printf "Script file permissions = %04o \n\n", (stat($0))[2] & 07777;

print "Web server Env \n";

@keys = keys %ENV;
@values = values %ENV;

foreach $key (sort(@keys)) {
print $key, ' = ', $ENV{$key}, " \n";
}

print "</td></tr></table>";
print "</body></html>";

########################
## Find The Mail Program
########################
sub find_apache {

if (-e "/opt/lib/apache/mod_env.so") {$apache = "/opt/lib/apache"}
elsif (-e "/System/Library/Apache/Modules/mod_env.so") {$apache = "/System/Library/Apache/Modules"}# Mac
elsif (-e "/usr//lib/apache/modules/mod_env.so") {$apache = "/usr/lib/apache/modules"}# OpenBSD
elsif (-e "/usr/lib/apache/mod_env.so") {$apache = "/usr/lib/apache"}
else {$apache = ""}
}

########################
## Find The Mail Program
########################
sub find_mail_prog {

if (-e "/var/qmail/bin/qmail-inject") {$mail_prog = "/var/qmail/bin/qmail-inject"}
elsif (-e "/usr/sbin/sendmail") {$mail_prog = "/usr/sbin/sendmail"}
elsif (-e "/usr/lib/sendmail") {$mail_prog = "/usr/lib/sendmail"}
elsif (-e "/usr/bin/sendmail") {$mail_prog = "/usr/bin/sendmail"}
else {$mail_prog = "Found No Mail Program."}
}

Succes!

dinsdag 19 februari 2002 18:50

Acties:

GiLuX

Topicstarter

Op dinsdag 19 februari 2002 17:04 schreef loaded het volgende:
een heeeel lang verhaal

ehrrmmm,

tnx???

onder het mom van beter (2 jaar) laat dan nooit?

maar goed,
ik had inmiddels al mijn keuze gemaakt

"I disagree with what you are saying, but I will defend to the death your right to say it." -- not clear who

dinsdag 19 februari 2002 18:52

Acties:

D2k

beetje oud iid

Doet iets met Cloud (MS/IBM)