Aquí os pongo el código php del script comentado en el post anterior (http://blog.fotodng.com/2008/05/avisos-al-mvil-de-fallos-del-servidor-i.html), en el siguiente post finalizaremos este ejemplo.
1
2
3 // (c) Carlos Longarela Abril 2008
4 // http://www.fotodng.com
5
6 function creaEventoCal ($cliente, $titulo = 'Evento por defecto',
7 $descrip='Evento por defecto de la funcion creaEventoCal', $donde = 'Madrid',
8 $FechaIni = null, $HoraIni = null,
9 $FechaFin = null, $HoraFin = null, $tzOffset = '+02',
10 $metodo_recordatorio = 'sms', $tiempo_recordatorio=5){
11
12 if (empty($FechaIni)){
13 $FechaIni=date('Y-m-d');
14 }
15
16 if (empty($FechaFin)){
17 $FechaFin=date('Y-m-d');
18 }
19
20 if (empty($HoraIni)){
21 $HoraIni=date('H');
22 $minutos=date('i')+7;
23 $minutos=str_pad($minutos, 2, '0', STR_PAD_LEFT);
24 $HoraIni.=':'.$minutos;
25 }
26
27 if (empty($HoraFin)){
28 $HoraFin=$HoraIni;
29 }
30
31 $gc = new Zend_Gdata_Calendar($cliente);
32 $nuevaEntrada = $gc->newEventEntry();
33 $nuevaEntrada->title = $gc->newTitle(trim($titulo));
34 $nuevaEntrada->where = array($gc->newWhere($donde));
35
36 $nuevaEntrada->content = $gc->newContent($descrip);
37 $nuevaEntrada->content->type = 'text';
38
39 $cuando = $gc->newWhen();
40 $cuando->startTime = "{$FechaIni}T{$HoraIni}:00.000{$tzOffset}:00";
41 $cuando->endTime = "{$FechaFin}T{$HoraFin}:00.000{$tzOffset}:00";
42 $nuevaEntrada->when = array($cuando);
43
44 //Creamos un nuevo evento de recordatorio
45 $recordatorio = $gc->newReminder();
46 $recordatorio->method = $metodo_recordatorio;
47 $recordatorio->minutes = $tiempo_recordatorio;
48
49 //Aplicamos el recordatorio a un evento cuando
50 $cuando->reminders = array($recordatorio);
51
52 $EntradaCreada = $gc->insertEvent($nuevaEntrada,CALENDARIO_SERVERS);
53
54 return $EntradaCreada->id->text;
55 }
56
57 function conecta_socket($ip, $puerto){
58 $texto=null;
59 if (($socket = @socket_create(AF_INET, SOCK_STREAM, SOL_TCP)) === false) {
60 $texto='FALLO en socket_create(); Causa: '.socket_strerror(socket_last_error())."n";
61 $GLOBALS['error']=true;
62 return $texto;
63 }else{
64 //Conexion a la IP en el puerto dado
65 $texto="Conectando a [$ip:$puerto]=>";
66 $res = @socket_connect($socket, $ip, $puerto);
67 if ($res === false) {
68 $texto.='FALLO en socket_connect(); Causa: '.socket_strerror(socket_last_error($socket))."n";
69 $GLOBALS['error']=true;
70 return $texto;
71 } else {
72 $texto.="OK.n";
73 return $texto;
74 }
75 socket_close($socket);
76 }
77 }
78
79 function conecta_db($server_bd,$usuario_db,$clave_db,$db){
80 $texto=null;
81 $texto= "Conectando a [$server_bd -> $db]=>";
82 if (@mysql_connect($server_bd,$usuario_db,$clave_db)) {
83 if (@mysql_select_db($db)) {
84 $texto.="OK.n";
85 mysql_close();
86 return $texto;
87 }else{
88 $texto.=mysql_errno().": ".mysql_error();
89 $GLOBALS['error']=true;
90 mysql_close();
91 return $texto;
92 }
93 }else{
94 $texto.=mysql_errno().": ".mysql_error();
95 $GLOBALS['error']=true;
96 return $texto;
97 }
98 }
99
100 //Permitir al script ejecutarse durante 2 minutos para esperar por las conexiones
101 set_time_limit(120);
102
103 //Volcar la salida al navegador para ir viendo los resultados
104 ob_implicit_flush();
105
106 //Incluimos el path de la liberia Zend Gdata
107 set_include_path('/ruta/liberia/gdata/library');
108
109 require_once 'Zend/Loader.php';
110 Zend_Loader::loadClass('Zend_Gdata');
111 Zend_Loader::loadClass('Zend_Gdata_ClientLogin');
112 Zend_Loader::loadClass('Zend_Gdata_Calendar');
113 Zend_Loader::loadClass('Zend_Http_Client');
114
115 //Parametros de servidores
116 $ip = '11.11.11.11';
117 $ip_blog = gethostbyname('nombre.web.com');
118 $ip_site2 = gethostbyname('nombre2.web.com');
119 $puerto_web = 80;
120 $puerto_mysql = 3306;
121 $puerto_ssh = 22;
122
123 $server_bd=$ip;
124 $usuario_db='usuariobd';
125 $clave_db='clavebd';
126 $db='bd';
127
128 $texto=null;
129 $error=false;
130
131 //Parametros de la hora
132 date_default_timezone_set('Europe/Madrid');
133 $zona_horaria=date_default_timezone_get();
134 $dia=date('d');
135 $mes=date('m');
136 $anhio=date('Y');
137 $hora=date('H');
138 $minutos=date('i');
139 $fecha=$dia.'/'.$mes.'/'.$anhio.' '.$hora.':'.$minutos;
140
141 // Parametros para la autentificacion del cliente al calendario
142 $servicio = Zend_Gdata_Calendar::AUTH_SERVICE_NAME;
143 $usuario = "usuario.gmail.calendario@gmail.com";
144 $clave = "clave_usuario_gmail";
145 $id_calenadrio_servers='idcalendario@group.calendar.google.com';
146 $calenadrio_servers='http://www.google.com/calendar/feeds/'.$id_calenadrio_servers.'/private/full';
147 define('CALENDARIO_SERVERS', $calenadrio_servers);
148
149 header('Content-Type: text/plain; charset=utf-8');
150
151
152 // Creamos un cliente de autentificacion HTTP
153 try {
154 $cliente = Zend_Gdata_ClientLogin::getHttpClient($usuario, $clave, $servicio);
155 } catch (Zend_Gdata_App_AuthException $e) {
156 $texto='Error de autentificacion del usuario '.$usuario." en los servicios de Google.n";
157 die ((texto));
158 }
159
160 // Creamos una nueva instancia del servicio de Calendario
161 $servicio = new Zend_Gdata_Calendar($cliente);
162
163 //Intentamos las diferentes conexiones
164 $texto.=$fecha.' ('.$zona_horaria.")n";
165 //$texto.=conecta_socket($ip,$puerto_ssh);
166 $texto.=conecta_socket($ip,$puerto_web);
167 $texto.=conecta_socket($ip_blog,$puerto_web);
168 $texto.=conecta_socket($ip_site2,$puerto_web);
169 $texto.=conecta_socket($ip,$puerto_mysql);
170 $texto.=conecta_socket($ip_site2,$puerto_mysql);
171 $texto.=conecta_db($server_bd,$usuario_db,$clave_db,$db);
172
173 echo $texto;
174
175 if ($error===true){//Ha habido algun fallo
176 $titulo_evento='Fallo en el servidor '.$hora.':'.$minutos;
177 $recordatorio='sms';
178 $envio_mail=true;
179 }else{//Todo correcto
180 $titulo_evento='Servidor OK '.$hora.':'.$minutos;
181 $recordatorio='none';
182 $envio_mail=false;
183 }
184
185 creaEventoCal ($cliente, $titulo = $titulo_evento,
186 $descrip=$texto, $donde = null,
187 $FechaIni = null, $HoraIni = null,
188 $FechaFin = null, $HoraFin = null, $tzOffset = '+02',
189 $metodo_recordatorio = $recordatorio, $tiempo_recordatorio=5);
190
191 if ($envio_mail){
192 mail($usuario, $titulo_evento, $texto);
193 }
194
195 ?>
Ganador: Objetivo TAMRON AF70-300mm F/4-5.6 Di LD MACRO 1:2 dedicado para la marca, cortesía de Rodolfo Biber 
Primer Finalista: Metz mecablitz 36 AF-4 dedicado para la marca, cortesía de Rodolfo Biber 
Segundo Finalista: Kit de limpieza de sensores GREEN CLEAN SC-4200 para sensores APS-C, cortesía de Rodolfo Biber 
Tercer Finalista: Tarjeta de memoria takeMS SD o CF de 4Gb., cortesía de Rodolfo Biber 
