Tweetin - Poste tweets pelo terminal
Publicado por Danillo Souza (última atualização em 02/09/2010)
[ Hits: 6.502 ]
Script que te possibilita enviar tweets pelo terminal, oferecendo proteção na hora da digitação da senha (igual a senha do comando 'su' por exemplo).
#!/usr/bin/perl -w # Author: Danillo Souza # Email: danillo012@gmail.com # Version: 0.1 # # Small quick script to post tweets while working in the terminal # or for use on systems that do not use graphical user interface (eg servers). # # I hope you use and like ;D use strict; use Net::Twitter; use Term::ReadKey; # get the password sub get_pass { my($msg, $tmp) = (shift, ''); print $msg; ReadMode 'noecho'; $tmp = ReadLine 0; chomp $tmp; ReadMode 'normal'; print "\n"; return $tmp; } sub tweetin { # catch the username, password and the text f tweet my($user, $passwd, $tweet) = @_; # verifications if ($user !~ /^.{1,15}$/) {die "Invalid username.\n";} if ($passwd !~ /^.{6,}$/){die "Invalid password.\n";} if ($tweet !~ /^.+$/) {die "Invalid tweet.\n"} if ($tweet !~ /^.{1,140}$/){$tweet = substr($tweet, 0, 140);} # create the twitter object my $twitter = Net::Twitter->new( traits => [qw/API::REST/], username => $user, password => $passwd ); # try to tweet it eval {$twitter->update($tweet)}; die "Autentication failed.\n" if $@; # if sucesful.. print "Tweeted at ".scalar(localtime).":\n"; } # checking the number of parameters die "Usage: tweetin.pl <user> <tweet>\n" if (scalar(@ARGV) < 2); # catching command line arguments my $user = shift(@ARGV); my $tweet = shift(@ARGV); my $passwd = get_pass "Password autentication:"; tweetin($user, $passwd, $tweet);
Gmail::SendMail - Enviando emails usando gmail
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Synner Novo Sys(TCP) Flooder em Perl
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
A escola é altamente ineficiente e ineficaz! (10)
Software livre - será que eu estou tão errado assim? (5)