Einfaches Perl-Script

[Fireball22]

Hallo,

ich habe leider gar keine Ahnung von den Perl-Syntaxen und würde nun gerne ganz einfach dieses Script so modifizieren, dass er mit dem Befehl "cat /etc/psa/.psa.shadow" das Plesk-Passwort ausliest und dieses für den DB-Zugriff verwendet.

#!/usr/bin/perl -w
use strict;

use constant DBD => 'DBI:mysql:qmail:localhost:xxxx';
use constant DBUSER => 'xxxxxxx';
use constant DBPASS => 'xxxxxxx';

use DBI;

system ('cat /dev/null > /tmp/greylist_dbg.txt');

my $dbh = DBI->connect(DBD,DBUSER,DBPASS) or die "can't connect to db ", $DBI::errstr, ":$!";

$dbh->do("DELETE FROM relaytofrom WHERE record_expires < NOW() - INTERVAL 1 HOUR AND origin_type = 'AUTO'");
$dbh->do("OPTIMIZE TABLE relaytofrom");

$dbh->disconnect;

Ich habe es schon anfänglich probiert, nur habe ich gesehen, dass er mir fast ne halbe Seite an Fehlermeldungen ausspuckt...

Würde mich sehr über Hilfe freuen! =)

MfG
Michael

 

[elias5000]

Wie sieht den .psa.shadow aus?

 

[LinuxAdmin]

1 Zeile mit Passwort im Klartext ohne '\n'

GeHeiM03

 

[Huschi]

use constant DBPASS => `cat /etc/psa/.psa.shadow`;

(Die richtigen Backticks sind das Geheimnis.)

huschi.

 

[Fireball22]

Das ist ja klasse, vielen Dank!

Ich dachte man benötigt dazu extra eine System-Funktion mit der man dann die Ausgabe in eine Variable liest.

MfG
Michael