perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 31
Click for quality!




10.02.2012 / 10:23

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragPHP mit Mysql und Javascript in Perl importieren
Seitenanfang
Moin....
bisher habe ich folgende Seite in PHP geschrieben:


<?php
error_reporting(0);
session_start();
require_once('_Connections/organizer.php');
if(strlen($_COOKIE['dfgoelkiriutrucbfgjkfghvnrhtcbasssss'])> 0) {
$dfgoelkiriutrucbfgjkfghvnrhtcbasssss = $_COOKIE["dfgoelkiriutrucbfgjkfghvnrhtcbasssss"];
}else{ ?>
<script>document.location="../index1.php";</script>
<?php
}
$pben = base64_decode($dfgoelkiriutrucbfgjkfghvnrhtcbasssss);
$datumakt = date("y-m-d",time());
$dienst = @mysql_query("SELECT termine.privat,termine.von,termine.bis,termine.auto,termine.bensl,mitarbeiter.nachname,termine.termin,mitarbeiter.farbe FROM organizer.termine,mitarbeiter.mitarbeiter WHERE mitarbeiter.bensl = termine.bensl AND tag = '$datumakt' AND erinner='' ORDER BY termine.von,termine.bis");
mysql_data_seek($dienst, 0);

while ($line = mysql_fetch_array($dienst,MYSQL_ASSOC)){
$name = $line["nachname"];
$dienstp = stripslashes($line["termin"]);
$farbe = $line["farbe"];
$auto = $line["auto"];
$von = substr($line["von"],0,5);
$bis = substr($line["bis"],0,5);
$privat = $line["privat"];

$bensl = $line["bensl"];
$jetzt = date("U",time());
$jetztplus = $jetzt +310;
$vonb = date("U",strtotime("$von"));
//msgbox($vonb.",".$jetzt.",".$jetztplus);
if ($vonb > $jetzt and $vonb < $jetztplus){
mysql_select_db("organizer", $organizer) or die(mysql_error());
$sql ="UPDATE `termine` SET `erinner`='j' WHERE auto = '$auto'";
@mysql_query($sql)or mysql_error();
?>

<EMBED SRC="erinner.wav" HIDDEN="TRUE" AUTOSTART="true" MASTERSOUND NAME="musik">
<?php
msgbox("Um ".$von." haben Sie folgenden Termin:\\n\\n".$von."-".$bis." ".$dienstp);
}elseif ($vonb < $jetzt and $vonb < $jetztplus){
mysql_select_db("organizer", $organizer) or die(mysql_error());
$sql ="UPDATE `termine` SET `erinner`='j' WHERE auto = '$auto'";
@mysql_query($sql)or mysql_error();
?>

<EMBED SRC="erinner.wav" HIDDEN="TRUE" AUTOSTART="true" MASTERSOUND NAME="musik">
<?php
msgbox("Sie haben heute bereits folgenden Termin verpasst:\\n\\n".$von."-".$bis." ".$dienstp);
}
}
?>
<html>
<head>
<title>Erinnerung !</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>

</html>
<?php
//msgbox($pben);
//MSGBOX Funktiion für PHP
function MsgBox($str)
{
$language = "language=\"javascript\"";

echo "<script $language>\n";
echo " alert('$str');\n";
echo "</script>\n";
}
mysql_free_result($rsandere);
?>

Nun möchte ich diese Seite per Cronjob mit Perl zum laufen bringen....

Wenn die Seite aufgerufen wird, wird in einer Mysql-Datenbank nachgeschaut, ob ein Eintrag vorhanden ist, wenn ja dann wird eine Msgbox ausgegeben.....
Diese muß ich nun irgendwie mit Perl hinbekommen, da ich das ganze per Cronw laufen lassen möchte....

Vielen Dank schon mal im vorraus....

Datum: 09.09.2005-13:14

Beitragre: PHP mit Mysql und Javascript in Perl importieren
Seitenanfang
Hallo,

wenn ich das richtig verstanden habe, gehts Dir darum, zyklisch die Datenbank abzufragen !?!

Dann nimm Perl mit DBI und DBD::MySQl und greife Dir die Daten direkt in der Datenbank ab...

Das Skript kannst Du dann als CronJob laufen lassen.

gruß Ralf

Datum: 09.09.2005-14:08

-






-
-