#!/usr/bin/perl
#
# sql2php: Genera un fichero php que ejecute ciertas sentencias SQL a
#          partir de un volcado de MySQL.
#
#          Daniel Carrión Reinoso

die "Uso: $0 fichero_entrada fichero_salida servidor usuario contraseña" if ($#ARGV != 4);

($fichent, $fichsal, $servidor, $usuario, $clave) = @ARGV;

open(FICHENT, "$fichent") || die "No puedo abrir $fichent\n.";
open(FICHSAL, ">$fichsal") || die "No puedo abrir $fichsal\n.";

print FICHSAL "<?php\n".'
$servidor = '.$servidor.";\n".'
$usuario = '.$usuario.";\n".'
$clave = '.$clave.";\n".'
$db=mysql_connect("$servidor","$usuario","$clave");'."\n\n";

while(<FICHENT>) {
    if (/CREATE/) {
      print FICHSAL 'mysql_query("'.$_;
    }
    else{
      print FICHSAL;
      print FICHSAL '");'."\n" if (/;/);
    }
}

print FICHSAL '");'."\n";

close FICHSAL, FICHSAL;
