bye bye github

This commit is contained in:
mynah
2018-07-13 19:06:08 -05:00
commit ee47c30aca
241 changed files with 26451 additions and 0 deletions

View File

@@ -0,0 +1,66 @@
section.contact{
background-color:white;
width:100%;
text-align: center;
position:relative;
}
section.cbanner{
background-color:#C22A39;
width:100%;
position: absolute;
text-align: center;
margin: 80px auto;
}
p.bsmall{font-size:1.5em; color:white; text-align:left;}
p.blarge{
font-size:4em; font-style: italic;
color:white;
margin: 15px 0px 45px;
}
article.textc{
display: inline-block;
}
div.bspace{
background-color:white;
width:100%;
height: 1px;
}
section.cform{
width:100%;
justify-content:center;
-webkit-justify-content:center;
}
article.cform{
flex:1;
background-color:#333333;
margin: 30px auto;
display: inline-block;
text-align: left;
width: 60vw;
max-width: 800px;
min-width:300px;
}
form.cform{
margin: 380px auto 70px;
width: 80%;
max-width: 500px;
min-width: 240px;
}
label{ color:white; width:100%; display:block;}
textarea{
width:100%;
height:25vh;
max-height:130px;
display:block;
font-size:1.2em;
}
input[type=text],
input[type=email]{
width:100%;
height:10vh;
font-size:2em;
max-height:50px;
}

View File

@@ -0,0 +1,36 @@
section.contact{
background-color:white;
width:100%;
text-align: center;
position:relative;
}
section.cbanner{
background-color:#C22A39;
width:100%;
position: absolute;
text-align: center;
margin: 80px auto;
}
p.bsmall{font-size:1.5em; color:white; text-align:left;}
p.blarge{
font-size:4em; font-style: italic;
color:white;
margin: 15px 0px 45px;
}
article.textc{
display: inline-block;
}
div.bspace{
background-color:white;
width:100%;
height: 1px;
}
section.cform{
background-color:#333333;
margin-top: 300px;
width:60vw;
margin: 30px auto;
padding: 300px 100px 70px;
display: inline-block;
text-align: left;
}

48
public/home/contact/msg/b.pl Executable file
View File

@@ -0,0 +1,48 @@
#!/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__

View File

@@ -0,0 +1,14 @@
/* 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() );