Como dice el apartado 5.777 del codigo de tatita escriva “la ociosidad es la madre de todos los vicios”… Este hecho irrefutable pone en evidencia la pecaminosidad de los sistemas libres… nuestro equipo de investigacion ha puesto al descubierto la ociosidad de los frikis linuxeros, este programa maligno en perl agarra la informacion y postea automaticamente en twitter que musica pecaminosa esta escuchando en el reproductor AMAROK y dependiendo del genero del tag del MP3 le pone comentarios y acciones..

#!/usr/bin/perl

use DCOP::Amarok::Player;
$player = DCOP::Amarok::Player->new();

my $comm="";
my $genero=$player->genre();
# Default action
my $action="Listenin 2 ";

if ($genero =~ /(a|u)eton/) {
        $action="GET A LIFE LOSER ";
}

if (($genero =~ /(M|m)etal/)||($genero =~ /(M|m)ETAL/)) {
        $action="Headbangin with ";
        $comm="\\m\/";
}

if ($genero =~ /(P|p)unk/) {
        $action="Pogo dancin with ";
}

if ($genero =~ /(S|s)ka/) {
        $action="Skankin with ";
}

if (($genero =~ /(6|7|8)0s/)||($genero =~ /(P|p)(O|o)(P|p)(6|7|8)0/)) {
        $action="Remembering with ";
}

if ($genero =~ /(h|H)ardcore/) {
        $action="Windmillin with ";
}

if ($genero =~ /(O|o)ther/) {
        $action="Cash, taguea bien loser: ";
}

if ($genero =~ /(A|a)lternativ/) {
        $action="Rockin with: ";
}

if (($genero =~ /popsp/)||($genero =~ /atin/)) {
        $action="Freseando with: ";
        $comm="(que gay)";
}

if ($genero =~ /(b|B)anda/) {
        $action="De caballitO with: ";
}

if ($genero =~ /ariachi/) {
        $action="F0lkloreando with: ";
}

my $artist=$player->artist();

if ($artist =~ /MAIDEN/) {
        $action="UP T FUCKN IRONS!: ";
}

my $twup = $action."\"".$player->title()."\" of ".$player->artist()." from \"".$player->album()."\" $comm (autopost powered by perl) ";
print "\n $twup \n";

$player->showOSD();
use Net::Twitter;

my $nt = Net::Twitter->new(
      traits   => [qw/API::REST/],
      username => "tuusernamedeltwitter",
      password => "tupassdeltwitter"
);

if ( length($player->title()) gt 1 ) {
        my $result = $nt->update($twup);
} else {
        print "me niego a postear con artista vacio";
}

Se instalo un sistema con linux que despues de la demostracion tiraremos a la basura pues se contamino con codigo pecaminoso… para correr el script

cash@influenza:~$ perl zamarok.pl
Headbangin with “Twist Of Cain” of Danzig from “Danzig” \m/ (autopost powered by perl)

Y he aqui la salida…

fb

Para hacer mas triste la ociocidad, lo ponen en el crontab para que se ejecute solo diariamente a cierta hora del dia y ponga en evidencia al pobre si lo agarran escuchando a musica metelera como Lucia Mendez o a New Kids on the block

Se le pregunto al friki, porque no uso switch en vez de tanto IF, y el devergonzado contesto: me dio hueva



Incoherencias parecidas y calificaciones a este post:
0 votos Vota!!
  • To those who hate Amarok 2…
  • Pana + AMSN Music plugin (on ubuntu)
  • Redescubriendo la musica con Amarok
  • CGI’s en Perl en UBUNTU Dapper for Dummies
  • Perl Podbrowse
    •