PSD-Tutorials.de
Forum für Design, Fotografie & Bildbearbeitung
Tutkit
Agentur
Hilfe
Kontakt
Start
Forum
Aktuelles
Besonderer Inhalt
Foren durchsuchen
Tutorials
News
Anmelden
Kostenlos registrieren
Aktuelles
Suche
Suche
Nur Titel durchsuchen
Von:
Menü
Anmelden
Kostenlos registrieren
App installieren
Installieren
JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder einen
alternativen Browser
verwenden.
Antworten auf deine Fragen:
Neues Thema erstellen
Start
Forum
Sonstiges
Webdesign, Webentwicklung & Programmierung
PHP, Javascript, jQuery, Ajax, nodeJS, MySQL...
Perl Script per Cronjob starten bei 1und1
Beitrag
<blockquote data-quote="strichcode" data-source="post: 2374332" data-attributes="member: 131073"><p>Hallo, ich brauche wieder Eure Hilfe:</p><p></p><p>Ich habe ein perlscript auf dem server liegen, welches mir die Datenbank sichert und als Mail zuschickt.</p><p>Nun möchte ich per Cronjob (bei einsundeins) das Script jede nacht um 5.30 Uhr starten.</p><p></p><p>Ich scheitere an der Eingabe im Putty-Editor:</p><p>mailto=<a href="mailto:meineemailadresse@hier.de">meineemailadresse@hier.de</a></p><p>30 5 * * * /kunden/homepages/XX/XXXXXXXXXXX/htdocs/backup.pl</p><p></p><p>Ergibt: -bash: 30: command not found</p><p></p><p>Gebe ich die Adresse meines Scriptes im Browser direkt ein, funktioniert es.</p><p>Meine Anrufe bei 1und1 brachten nicht das gewünschte Ergebnis, sie haben diesen Support nicht vorgesehen.</p><p>Googlen brachte mich auch nicht weiter, ich übersehe was, oder gebe nicht die richtigen Zauberwörter ein.</p><p></p><p>Könnt Ihr mir weiterhelfen?</p><p></p><p>Hier das Script:</p><p>#! /usr/bin/perl -w</p><p>use CGI::Carp qw(fatalsToBrowser);</p><p>use CGI;</p><p>use DBI;</p><p>use MIME::Lite;</p><p>use Cwd;</p><p>sub mysqldb_einlesen();</p><p>sub sqlkomplettdump();</p><p>print "Content-type: text/html\n\n";</p><p></p><p>&mysqldb_einlesen();</p><p>&sqlkomplettdump();</p><p>print "erledigt";</p><p></p><p>################################################################# mysql##################################################################</p><p>sub mysqldb_einlesen()</p><p>{</p><p> $verbinden1 = "DBI:mysql:XXX.1and1.com:3306";</p><p> $user = "XXX";</p><p> $pw = "XXX";</p><p> $dbh = DBI->connect( "$verbinden1","$user","$pw") || die "$! Database connection not made: $DBI::errstr";</p><p>};</p><p></p><p>sub sqlkomplettdump()</p><p>{</p><p> my $db = "XXX";</p><p> my $user = "XXX";</p><p> my $host = "XXX.db.1and1.com";</p><p> my $pass = "XXX";</p><p> my $savefile = "dump_sql.sql.gz";</p><p> system("mysqldump --all -l --user=$user --host=$host --password=$pass $db | gzip > $savefile") == 0 or die("Konnte Dump nicht anlegen: $! ($?)");</p><p>print "sqlDump wurde angelegt<br/>\n";</p><p>#########################################################################################################################</p><p>my $mailto = '<a href="mailto:meineemailadresse@hier.de">meineemailadresse@hier.de</a>';</p><p>my $mailfrom = 'Servermail@1&1.de';</p><p>my $subject = 'Automatisches komplettes Daten-Backup';</p><p>my $Sendmail_Prog = "/usr/lib/sendmail";</p><p>my $localdir = cwd;</p><p>open(MAIL,"|$Sendmail_Prog -t") or print "Mailprogramm konnte nicht gestartet werden\n";</p><p>my $backupmail = new MIME::Lite ;</p><p>$backupmail = build MIME::Lite From => $mailfrom, To => $mailto, Subject => $subject , Type => 'TEXT', Data => "Automatisches komplettes Backup." ;</p><p>my $kpath = "$localdir"."/"."$savefile";</p><p>attach $backupmail Type => 'x-gzip', Path => $kpath, Encoding => "base64", Filename => "ttgsqlbackup.sql.gz";</p><p>$backupmail -> print(\*MAIL) or die $!;</p><p>close(MAIL) or die $!;</p><p>print "Mail an $mailto wurde versendet.<br/>\n";</p><p></p><p></p><p>};</p><p></p><p>Vielen Dank schon mal!</p></blockquote><p></p>
[QUOTE="strichcode, post: 2374332, member: 131073"] Hallo, ich brauche wieder Eure Hilfe: Ich habe ein perlscript auf dem server liegen, welches mir die Datenbank sichert und als Mail zuschickt. Nun möchte ich per Cronjob (bei einsundeins) das Script jede nacht um 5.30 Uhr starten. Ich scheitere an der Eingabe im Putty-Editor: mailto=[email]meineemailadresse@hier.de[/email] 30 5 * * * /kunden/homepages/XX/XXXXXXXXXXX/htdocs/backup.pl Ergibt: -bash: 30: command not found Gebe ich die Adresse meines Scriptes im Browser direkt ein, funktioniert es. Meine Anrufe bei 1und1 brachten nicht das gewünschte Ergebnis, sie haben diesen Support nicht vorgesehen. Googlen brachte mich auch nicht weiter, ich übersehe was, oder gebe nicht die richtigen Zauberwörter ein. Könnt Ihr mir weiterhelfen? Hier das Script: #! /usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); use CGI; use DBI; use MIME::Lite; use Cwd; sub mysqldb_einlesen(); sub sqlkomplettdump(); print "Content-type: text/html\n\n"; &mysqldb_einlesen(); &sqlkomplettdump(); print "erledigt"; ################################################################# mysql################################################################## sub mysqldb_einlesen() { $verbinden1 = "DBI:mysql:XXX.1and1.com:3306"; $user = "XXX"; $pw = "XXX"; $dbh = DBI->connect( "$verbinden1","$user","$pw") || die "$! Database connection not made: $DBI::errstr"; }; sub sqlkomplettdump() { my $db = "XXX"; my $user = "XXX"; my $host = "XXX.db.1and1.com"; my $pass = "XXX"; my $savefile = "dump_sql.sql.gz"; system("mysqldump --all -l --user=$user --host=$host --password=$pass $db | gzip > $savefile") == 0 or die("Konnte Dump nicht anlegen: $! ($?)"); print "sqlDump wurde angelegt<br/>\n"; ######################################################################################################################### my $mailto = '[email]meineemailadresse@hier.de[/email]'; my $mailfrom = 'Servermail@1&1.de'; my $subject = 'Automatisches komplettes Daten-Backup'; my $Sendmail_Prog = "/usr/lib/sendmail"; my $localdir = cwd; open(MAIL,"|$Sendmail_Prog -t") or print "Mailprogramm konnte nicht gestartet werden\n"; my $backupmail = new MIME::Lite ; $backupmail = build MIME::Lite From => $mailfrom, To => $mailto, Subject => $subject , Type => 'TEXT', Data => "Automatisches komplettes Backup." ; my $kpath = "$localdir"."/"."$savefile"; attach $backupmail Type => 'x-gzip', Path => $kpath, Encoding => "base64", Filename => "ttgsqlbackup.sql.gz"; $backupmail -> print(\*MAIL) or die $!; close(MAIL) or die $!; print "Mail an $mailto wurde versendet.<br/>\n"; }; Vielen Dank schon mal! [/QUOTE]
Bilder bitte
hier hochladen
und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.
Zitate einfügen…
Authentifizierung
Wenn ▲ = 7, ▼ = 3, ◇ = 2 und die Summe von ▲ und ▼ durch ◇ geteilt wird, was ist das Ergebnis?
Antworten
Start
Forum
Sonstiges
Webdesign, Webentwicklung & Programmierung
PHP, Javascript, jQuery, Ajax, nodeJS, MySQL...
Perl Script per Cronjob starten bei 1und1
Oben