buscar y remplazar en archivo

[Max13]

#!F:/Perl/bin/perl
#Arriba cambia la direccion de perl por la de tu servidor

###########################Variables a Configurar###########################
################################################## ##########################

#Cambia la URL de la siguiente linea por la URL de tu mensaje de confirmación
#de envio de la postal
print "Location: http://localhost/servicios/postales/enviada.htm\n\n";

#Cambia la URL de la siguiente linea por tu URL donde tengas almacenados las
#imagenes de fondo
$basefondos="http://localhost/servicios/postales/fondos/";

#Cambia la URL de la siguiente linea por la URL de las imagenes
$baseimagenes="http://localhost/servicios/postales/imagenes/";

#Cambia la ruta de la siguiente linea por la ruta absoluta donde se guardaran
#las postales enviadas, no olvides darle el Permiso 755
$basearchivos="/Sites/WebBolt/servicios/postales/archivos/";

#Cambia la URL de la siguiente linea por la URL donde tengas los midis
$basemidis="http://localhost/midis/";

#Cambia el ell numerdo de $EXPIREDAYS por el numero de dias a los que quieres
#que se borren las postales
$EXPIREDAYS=15;

#Para mandar mails con sistemas WinNT u otros que no posean sendmail, descomenta
#la siguiente linea y pon como comentario la segunda que empieza con $mailProg
#use Net::SMTP;
#Y si vas a usar sendmail descomenta la siguiente linea
#$mailProg = '/usr/sbin/sendmail';
###########################Fin de la congiguracion de variables##############
################################################## ###########################
#A partir de aqui ya no cambies nada exepto las lineas de Configuracion de envio
#de mail de notificación

use CGI;
use CGI::Carp qw/fatalsToBrowser/;