Extension:Mails/es
Mails Release status: estable |
|||
---|---|---|---|
![]() |
|||
Implementación | Special page | ||
Descripción | Para crear Correos Electronicos al Azar | ||
Autor(es) | Hidalgo Rionda (Hsilamottalk) | ||
Última versión | 1.1.84 (03 Dic 2007) | ||
MediaWiki | 1.10.0 | ||
Licencia | Ninguna licencia especificó | ||
Descarga | Desde el sitio del Autor | ||
Ejemplo | aqui | ||
|
|||
Translate the Mails extension if it is available at translatewiki.net | |||
Verificar uso y versión de la matriz. |
¿Qué hace esta extensión?[edit]
Genera una lista de Correos Electronicos al azar, con opciones personalizables
Uso[edit]
Como cualquier otra página especial [[Especial:Mails]]
Instalación[edit]
Solo extrae el contenido del Zip y añade la siguiente linea
require_once( "{$IP}/extensions/Mails/Mails.php" );
a tu archivo LocalSettings.php.
Parameters[edit]
$wgMailsTotal = 1024;
Correos electronicos a generar
$wgMailsURand = true;
¿La cantidad de caracteres en el correo es al azar?
$wgMailsURandMin = 5;
si $wgMailsURand es positivo este es el minimo de caracteres en el correo
$wgMailsURandMax = 12;
Si $wgMailsURand es positivo este es el maximo de caracteres en el correo, si es negativo esta es la cantidad de caracteres en cada correo
$wgMailsDRand = true;
¿La cantidad de caracteres en el dominio del correo es al azar?
$wgMailsDRandMin = 5;
si $wgMailsURand es positivo este es el minimo de caracteres en el dominio del correo
$wgMailsDRandMax = 12;
Si $wgMailsURand es positivo este es el maximo de caracteres en el dominio del correo, si es negativo esta es la cantidad de caracteres en cada dominio de cada correo
$wgMailsTldRand = true;
¿El TLD debe ser al azar?
$wgMailsTlds = array("com", "net", "org", "us", "co.uk", "com.mx", "org.mx",);
si $wgMailsTldRand es verdadero, esta es la lista de TLD's de los cuales se deberá seleccionar uno al azar
$wgMailsTld = "com";
si $wgMailsTldRand es falso entonces se usara este TLD en todos los correos
Cambios a LocalSettings.php[edit]
require_once( "{$IP}/extensions/Mails/Mails.php" );
Código[edit]
En "Correos" hay tres archivos:
Mails.php
<?php
if (!defined('MEDIAWIKI')) die();
# Not a valid entry point, skip unless MEDIAWIKI is defined
/**
* Add random Mails to bother SPAM Bots who look for Html in mails
*/
$wgExtensionCredits['specialpage'][] = array(
'name' => 'Mails 1.1.84',
'author' => 'Hidalgo Rionda',
'url' => 'http://www.mediawiki.org/wiki/Extension:Mails',
'description' => 'Simple random Mails Generator, Those mails are for Spam bots.',
);
$wgAutoloadClasses['Mails'] = dirname(__FILE__) . '/Mails_body.php';
$wgSpecialPages['Mails'] = 'Mails';
$wgExtensionFunctions[] = 'efLoadeaMails';
function efLoadeaMails() {
global $wgLang, $wgMessageCache;
$f= dirname( __FILE__ ) . '/Mails.i18n.php';
include( $f );
foreach( efMails() as $lang => $messagess ) {
$wgMessageCache->addMessages( $messagess , $lang );
}
}
?>
Mails.i18n.php
<?php
if (!defined('MEDIAWIKI')) die();
function efMails() {
$messages = array(
'en' => array(
'mails' => 'Mails',
'mails-welcome' => 'Welcome, next i will generate a lot of random mails for those bots who look for Spam, remember: the mails does not exist, are Random.',
'mails-startnow' => 'Mailing list',
'mails-goodbye' => 'Hope you enjoy',
'mails-title' => 'Mailing List',
),
'es' => array(
'mails' => 'Correos',
'mails-welcome' => 'Bienvenido, voy a generar un montón de correos al azar, son para bots que buscan correos para andar spam, no existen ¿ok?.',
'mails-startnow' => 'Lista de correo',
'mails-goodbye' => 'Espero disfrutes',
'mails-title' => 'Lista de Correo',
),
);
return $messages;
}
?>
Mails_body.php
<?php
if (!defined('MEDIAWIKI')) die();
class Mails extends SpecialPage {
function __construct() {
SpecialPage::SpecialPage("Mails", '', true);
}
function execute( $par ) {
global $wgRequest, $wgOut, $wgMailsTotal, $wgMailsURand, $wgMailsURandMin, $wgMailsURandMax, $wgMailsDRand, $wgMailsDRandMin, $wgMailsDRandMax, $wgMailsTldRand, $wgMailsTlds, $wgMailsTld;
if (!$wgMailsTotal) { $wgMailsTotal = 1024; }
if (!$wgMailsURand) { $wgMailsURand = true; }
if (!$wgMailsURandMin) { $wgMailsURandMin = 5; }
if (!$wgMailsURandMax) { $wgMailsURandMax = 12; }
if (!$wgMailsDRand) { $wgMailsDRand = true; }
if (!$wgMailsDRandMin) { $wgMailsDRandMin = 5; }
if (!$wgMailsDRandMax) { $wgMailsDRandMax = 12; }
if (!$wgMailsTldRand) { $wgMailsTldRand = true; }
if (!$wgMailsTlds) { $wgMailsTlds = array("com", "net", "org", "us", "co.uk", "com.mx", "org.mx",); }
if (!$wgMailsTld) { $wgMailsTld = "com"; }
$fname = "SpecialMails::execute";
$this->setHeaders();
# Do stuff
$wgOut->addWikiText( wfMsg( 'Mails-welcome' ) );
$wgOut->addHTML( wfMsg( 'Mails-startnow' ) );
$Actual = 0;
while ($Actual < $wgMailsTotal) {
$mailg = "";
if ($wgMailsURand == true) {
$Hechos = 0;
$PorHacer = rand($wgMailsURandMin,$wgMailsURandMax);
while ($Hechos < $PorHacer) {
$mailg .= chr(rand(97,122));
$Hechos = $Hechos + 1;
}
}
else {
$Hechos = 0;
while ($Hechos < $wgMailsURandMax) {
$mailg .= chr(rand(97,122));
$Hechos = $Hechos + 1;
}
}
$mailg .= "@";
if ($wgMailsDRand == true) {
$Hechos = 0;
$PorHacer = rand($wgMailsDRandMin,$wgMailsDRandMax);
while ($Hechos < $PorHacer) {
$mailg .= chr(rand(97,122));
$Hechos = $Hechos + 1;
}
}
else {
$Hechos = 0;
while ($Hechos < $wgMailsDRandMax) {
$mailg .= chr(rand(97,122));
$Hechos = $Hechos + 1;
}
}
if ($wgMailsTldRand == true) {
$Totales = 0;
foreach( $wgMailsTlds as $currenteado ) {
$Totales = $Totales + 1;
$TLDA[$Totales] = $currenteado;
}
$mailg .= ".".$TLDA[rand(1,$Totales)];
}
else {
$mailg .= ".".$wgMailsTld;
}
$wgOut->addHTML(", <a href=\"mailto:".$mailg."\">".$mailg."</a>");
$Actual = $Actual + 1;
}
$wgOut->addWikiText( wfMsg( 'Mails-goodbye' ) );
# Output
$wgOut->setPagetitle( wfMsg( "Mails-title" ) );
}
}
?>
See also[edit]
Véase También[edit]
También en versión de Vinculos
Otros idiomas: | English • español |
---|