CODIGO:
Código:
#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n";
print "Iniciando backup!\n\n";
print "Espere por favor...\n\n";
# CUENTA (Ej. cuenta: elserver.com)
my $cuenta = "mipagina.com.ar";
# USUARIO DE MYSQL
my $usuario = "root";
# PASSWORD DE MYSQL
my $pass = "root";
# IP INTERNA DE MYSQL
my $ip = "192.168.xxx.xxx";
# BASE DE MYSQL
my $base = "midb";
my ($wkday,$month,$day,$time,$year) = split(/\s+/, localtime);
my $fecha = "$day-$month-$year";
system("/usr/local/mysql/bin/mysqldump $base -u $usuario --password='$pass' -h $ip > /www/$cuenta/mysql_backup/$cuenta-$fecha.sql");
print "Backup Finalizado!!!\n\n";
Bueno como podran ver este es un script sencillo, me hace un backup de la base de datos y la guarda automaticamente, lo guarda con el siguiente formato.
easyunlock.com.ar-31-Oct-2009.sql
Lo que e estoy deseando hacer es agregarle hora y minutos al archivo, porque el backup lo hago por varias horas al día. ejemplo:
easyunlock.com.ar-31-Oct-2009-10am.sql o easyunlock.com.ar-31-Oct-2009-10pm.sql
Se que hay qeu modificar la ultima sección del cosigo pero nos e como hacerlo.
Gracias.