Extension:Mails/es

From MediaWiki.org

Jump to: navigation, search
MediaWiki Extension
Crystal Clear action run.png
Mails

Estado release: stable
Mails.png
Implementación Special page
Descripción Para crear Correos Electronicos al Azar
Autor(es) Hidalgo Rionda (Hsilamot talk)
Versión 1.1.84 (03 Dic 2007)
MediaWiki 1.10.0
Descarga Desde el sitio del Autor
Parámetros $wgMailsTotal

$wgMailsURand $wgMailsURandMin $wgMailsURandMax $wgMailsDRand $wgMailsDRandMin $wgMailsDRandMax $wgMailsTldRand $wgMailsTlds $wgMailsTld
Ejemplo aqui

[edit] ¿Qué hace esta extensión?

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

[edit] Uso

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

[edit] 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.

[edit] 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

[edit] Cambios a LocalSettings.php

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

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

[edit] See also

[edit] Véase También

También en versión de Vinculos

Languages Idioma: 

English  • Español
Retrieved from "http://www.mediawiki.org/wiki/Extension:Mails/es"