Extension:Mails/es

From MediaWiki.org
Jump to navigation Jump to search
MediaWiki extensions manual
Crystal Clear action run.svg
Mails
Release status: estable
Mails.png
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?[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