restruc

public/home/contact/msg/b.pl

@@ -1,48 +0,0 @@
-#!/usr/bin/perl -s        
-use warnings;    
-use strict;    
-#---                      
-use Cwd 'abs_path';    
-use lib abs_path("../../")."/sibelius2/conf";    
-use Paths;
-use Init;    
-use ServerVars;    
-use Net::Telnet;    
-use MIME::Lite;
-use JSON;    
-#------------- 
-### MimeLite necesita sendmail, para arch, sendmail esta sin atender, 
-### puedes usar msmtp msmtp-mta para simular sendmail. este ultimo 
-### necesita configurarse con un correo. 
-
-my ($mod_name,$sid) =  @ARGV;
-my %var = (Init::modInit($sid),%ServerVars::sk);
-my $server_name = $var{'chat_srv'};
-
-my @arr;
-push (@arr,{name=>"one",tag=>"notag"});
-
-
-my $to = 'benjamuga@gmail.com';
-my $from = 'mensajes@vuelodegrulla.com';
-my $subject = "Mensaje de $var{'mname'}";
-my $message = "Enviado por:
-  <h1>$var{'mname'}</h1> 
-  <h2>correo:</br>$var{'mail'}<h2>
-  <p>$var{'msg'}</p>
-  ";
-
-my $msg = MIME::Lite->new(
-                 From     => $from,
-                 To       => $to,
-                 Subject  => $subject,
-                 Data     => $message
-                 );
-                 
-$msg->attr("content-type" => "text/html");
-$msg->send;
-
-print encode_json( \@arr ) ."\n";
-
-1
-__END__

public/home/contact/msg/qUpdate.q

@@ -1,14 +0,0 @@
-
- /* c#host localhost*/    
- /* c#database  #dbmsg */                    
- /* c#user  #dbmsg_w */   
- /* c#password  #dbmsg_wp */ 
- /* c#write write*/ 
-
-
-
-  insert into entrada 
-   (nombre,correo,pagina,texto,fecha)
-  values
-   ( q#mname , q#mail , q#wp , q#msg ,now() );
-