Extension:Mails/es

MediaWiki extensions manual

Mails Release status: estable
Implementación	Special page
Descripción	Para crear Correos Electronicos al Azar
Autor(es)	Hidalgo Rionda (Hsilamottalk)
Latest version	1.1.84 (03 Dic 2007)
MediaWiki	1.10.0
Licencia	Ninguna licencia especificó
Descarga	Desde el sitio del Autor
Ejemplo	aqui
Parámetros $wgMailsTotal $wgMailsURand $wgMailsURandMin $wgMailsURandMax $wgMailsDRand $wgMailsDRandMin $wgMailsDRandMax $wgMailsTldRand $wgMailsTlds $wgMailsTld
Translate the Mails extension if it is available at translatewiki.net
Verificar uso y versión de la matriz.

¿Qué hace esta extensión?

Genera una lista de Correos Electronicos al azar, con opciones personalizables

Uso

Como cualquier otra página especial [[Especial:Mails]]

Instalación

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

$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

require_once( "{$IP}/extensions/Mails/Mails.php" );

Código

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" ) );
	}
}
?>

Véase También

También en versión de Vinculos

Otros idiomas:	English  • español