Planeta Linux España

jailbreak · ciberactivismo

  $ autoretweet -u usuario -p lksnfd -k linux
  
#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Getopt::Std;
use HTML::TokeParser;
use LWP::Simple;
use Net::Twitter;
use XML::Feed;

local $| = 1; # auto flush stdout
binmode STDOUT, ':utf8';

my $username;
my $password;
my $keyword;
my $status;

my $num_results = 5;
my $poll_frequency = 100;
my $delay_updates = 60;

my $random = 0;
my $verbose = 0;

my @feeds;
my @goods = ();

# Get command line options
my %opts=();
getopts("u:p:k:f:s:n:q:d:r:v",\%opts);

# Parse command line options, die if any not defined
if (defined $opts{u}) {
    $username = $opts{u};
}
else {
    die "username not defined!";
}

if (defined $opts{p}) {
    $password = $opts{p};
}
else {
    die "password not defined!";
}

if (defined $opts{k}) {
    $keyword = $opts{k};
}
else {
    die "keyword not defined!";
}

if (defined $opts{f}) {
    my $url = $opts{f};
    @feeds = XML::Feed->find_feeds($url);

    if ($feeds[0]) {
        my $feed = XML::Feed->parse(URI->new($feeds[0]));
        my @entries = $feed->entries();

        foreach my $entry (@entries) {
            if ($entry->link() =~ m/$keyword/) {
                push (@goods, $entry->link());
            }
        }
    }
}

if (defined $opts{s}) {
    $status = $opts{s};
    if (length($status) > 140) {
        die "status too long!";
    }
}

if (defined $opts{n}) {
    $num_results = $opts{n};
}

if (defined $opts{q}) {
    $poll_frequency = $opts{q};
}

if (defined $opts{d}) {
    $delay_updates = $opts{d};
}

if (defined $opts{r}) {
    $random = $opts{r};
}

if (defined $opts{v}) {
    $verbose = 1;
}

printf "get %d search results on keyword \"%s\" each %d seconds\n",
    $num_results, $keyword, $poll_frequency;
printf "retweet from user %s password %s each %d seconds\n",
    $username, $password, $delay_updates;
if (scalar (@goods)) {
    printf "use random status relevant for keyword \"%s\"\nfrom feed %s\n",
    $keyword, $feeds[0];
}
elsif ($status) {
    printf "use status \"%s\"\n", $status;
}
if ($verbose) {
    print "be verbose\n";
}

# Create a Net:Twitter object
my $nt = Net::Twitter->new({
    username => $username,
    password => $password,
    traits => [qw/API::REST/, qw/API::Search/]
});

# So only new search results are retweeted
my $since_id = 0;
my $max_id = 0;

while (1) {

    # Get search results on keyword
    printf "searching ";
    my $tweets = $nt->search({
        q => $keyword,
        rpp => $num_results,
        lang => 'es',
        $since_id ? (since_id => $since_id) : ()
    });

    if (defined $tweets) {
        print "ok\n";
    }
    else {
        print "failed!\n";
    }   

    # For each search result...
    for my $t (@{$tweets->{results}}) {
        next unless $t->{id} > $since_id;
        if ($t->{id} > $max_id) {
            $max_id = $t->{id};
        }
        # Don't retweet if an own tweet or from user is the keyword
        # also if already a retweet when no status is given
        if (
            ($t->{from_user} ne $username) &&
            ($t->{from_user} ne $keyword) &&
            (($status) || ($t->{text} !~ m/^RT/))
            ) {
            # Build retweet string
            my $s;
            # Prepend a random hashtag
            if ($random > 0) {
                $s .= "#";
                my @chars=('a'..'z','0'..'9');
                foreach (1..$random)
                {
                    $s .= $chars[rand @chars];
                }
                $s .= " ";
            }
            # Use feed entry with given keyword if any
            if (scalar(@goods) > 0) {
                $s .= "@" . $t->{from_user} . " ";

                my $uri = $goods [rand @goods];
                my $content = get($uri);
                utf8::decode($content);

                my $p = HTML::TokeParser->new(\$content);
                if ($p->get_tag('title')) {
                    my $title = $p->get_trimmed_text();
                    $title =~ s/&/&amp;/g;
                    $s .= $title . ". ";
                }
                $s .= $uri;
            }
            # Use specified status if any
            elsif ($status) {
                $s .= "@" . $t->{from_user} . " " . $status;
            }
            # Use a simple retweet
            else {
                $s .= "RT @" . $t->{from_user} . ": " . $t->{text};
            }

            if ($verbose) {
                printf "%s\n", $s;
            }
            printf "%s retweet", $t->{from_user};

            # Send update
            if ($nt->update($s)) {
                print "ed ok\n";
            }
            else {
                print " failed!\n";
            }
            sleep $delay_updates;
        }
    }

    # Set last received search result and sleep for a while
    $since_id = $max_id;
    sleep $poll_frequency;
}

                        $href = $path . "/" . $file;
			$tn_file = "thumbnail-" . $file;
			$orig_file = $full_path . "/" . $file;

			/* generate thumbnail if it does not exist */
			if (file_exists ($tn_file) == false) {
				$im = @imagecreatefromjpeg ($orig_file);
				if (!$im) {
				        $im = @imagecreatefrompng ($orig_file);
					if (!$im)
						continue;
					$is_png = 1;
				} else
					$is_png = 0;

				if (imagesx ($im) < imagesy ($im)) {
					$new_width = round (imagesx ($im) / (imagesy ($im) / 240));
					$new_height = 240;
				} else {
					$new_width = 240;
					$new_height = round (imagesy ($im) / (imagesx ($im) / 240));
				}

				$copy_im = imagecreatetruecolor ($new_width, $new_height);
				imagecopyresampled ($copy_im, $im, 0, 0, 0, 0,
					$new_width, $new_height, imagesx ($im), imagesy ($im));
				if (is_png == 1)
				        imagepng ($copy_im, $tn_file);
				else
				        imagejpeg ($copy_im, $tn_file);

				imagedestroy ($copy_im);
				imagedestroy ($im);
			}

			//$get_url = "/images/thumbnail-" . $file;
			$get_url = $tn_file;

haters

Planeta Linux España

Ismael Valladolid: Desafiando a GIMP

Miguel Parada: Docky; instalación, efecto 3d y uso sin compiz.

Iyán Méndez: Dale un poco de vida a la terminal

Lorenzo Moreno: Activistas por la red: Habla ahora o lamenta para siempre

Introducción: Ciberactivistas

Activistas por los derechos en la red

Actúa

Lorenzo Moreno: La lista de Sinde

Alvaro del Castillo: Mi primera aplicación en Android

Samuel Arroyo: Feliz Navidad y Año 2010 por adelantado

David Moreno: Caching and optimization for WordPress talk

Ismael Valladolid: El mejor mensaje de error de la historia del iPhone

Miguel Peris: Curiosidad: Cerrillas del SIMO de 1974 y 1975

Ismael Valladolid: Tu propio bot para Twitter en Perl

Iyán Méndez: Wallpapers

Lorenzo Moreno: Instalar Thunderbird 3 en Ubuntu

Añadir los repositorios de Thunderbird 3

Miguel Parada: 25 de Diciembre, todos al cine. Estreno de ZombieLand

Miguel Parada: Advertencia: Visitar este sitio puede dañar tu equipo.

Iyán Méndez: Top 5 (20-12-09)

Sergio García Mondaray: Wifi en Ubuntu Karmic, en miniportátil UCLM (LG x130)

Miguel Peris: Revista Linux +, ahora libre y en formato PDF

Raúl González Duque: Mark Shuttleworth dimite como CEO de Canonical

Raúl González Duque: Recuperar GRUB 2

Jordi Mas: Calaix de sastre: Termens, Guia d'estil i Guinardó

Juan Manuel Méndez: Videos del Hackmeeting 2009

Jesus Roncero: La verdadera historia de Silvio Berlusconi

Rosa Guillén: Habilitar Ctrl+Alt+Backspace en Karmic Koala

Como en la anterior version de Ubuntu,en el Karmic Koala también viene desabilitado por defecto el reinicio de las X y como a mi suele servirme bastante he buscado como habilitarlo.

En el blog de TuXapuntes he encontrado la solución,tan sencilla como irse a Sistema/Preferencias/Teclado/Distribución/Opciones distribución/Secuencia de teclado para matar servidor X y seleccionas Control+alt+retroceso y ya lo tienes!!

Alvaro Lopez Ortega: Configuring Cherokee

Juanjo Amor: Un buscador de torrents muy rápido

Alvaro Lopez Ortega: Cherokee has got Unicode support

David Santo Orcero: Plan Bolonia explicado sin rodeos

Samuel Arroyo: 10 extensiones recomendadas para Chromium / Google Chrome

Samuel Arroyo: Malware en un salvapantallas alojado en Gnome-Look

Ramón Miranda: girl80s_low

Rodrigo Moya: Google Wave invitations

Alvaro del Castillo: Sevilla, Madrid, Vitoría, Cáceres: Vulcano, ESLE y Android

Alvaro del Castillo: Llegando a una nueva comunidad: Android

Iñaki Rodríguez: Malware Hash Checker

Ramón Miranda: Video de Instalacion de GPS en gimp 2.6 by Alberto alias reeceyamato

Rodrigo Moya: Social network[ing] services clients

David Santo Orcero: Encuestas de alumnos

Rodrigo Moya: PHP Help

Ramón Miranda: Firing Gimp with GPS

Pere Benavent: SkyNet T-Shirt

Miguel Peris: RetroLinux: SuSE 6.2

Juanjo Amor: Presentación en Cáceres sobre la migración a OpenSolaris para Gnome-Hispano

Juan Manuel Méndez: Manifiesto en defensa de los derechos fundamentales en internet

Sergio García Mondaray: Manifiesto “En defensa de los derechos fundamentales en Internet”

Gorka Urrutia: Manifiesto “En defensa de los derechos fundamentales en Internet”

Juanjo Amor: En defensa de los derechos fundamentales

Pere Benavent: Spanish declaration about internet rights

Raúl González Duque: Linux Mint 8 “Helena”

Rosa Guillén: Como aprender Poker

Aprovechando que a casi todos los hombres de mi familia les ha dado por jugar al poker,desde aqui quiero recomendarles varios sitios,para que aprendan un poquito y no se gasten los cuartos apostando sin saber

Quien sabe si en estos dias navideños aprendamos tambien las chicas de la familia como jugar poker y nos hagamos unas timbas entre todos.

Con estos tiempos de crisis,entre lo que ganemos con jugar poker y lo que ahorremos por no salir de fiesta,quizas la notemos menos

Aunque nunca he sido muy jugadora me están picando ya con la cosita del poker por internet,es cómodo,puedes hacerlo desde cualquier sitio,sí,incluso desde casita junto a la estufa o la chimenea.

Bueno,sin más dilaciones os dejo los 3 proyectos para que podais visitarlos:

Pacopoker.com 1a Sala de poker en español. pokersapiens.es 1a universidad de poker en español. Noticiaspoker.es la web de noticias con mas ritmo de actualizacion de europa.

Iñaki Rodríguez: Cambio de blog