Extension:Mails/es

From MediaWiki.org

Jump to: navigation, search
MediaWiki Extension
Mails

Release status: stable
Implementation Special page
Description Para crear Correos Electronicos al Azar
Author(s) Hidalgo Rionda (Hsilamot talk)
Version 1.1.84 (03 Dic 2007)
MediaWiki 1.10.0
Download Desde el sitio del Autor
Parameters $wgMailsTotal

$wgMailsURand $wgMailsURandMin $wgMailsURandMax $wgMailsDRand $wgMailsDRandMin $wgMailsDRandMax $wgMailsTldRand $wgMailsTlds $wgMailsTld
Example 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 Languages: 

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