falso
/
irssi-scripts
mirror of https://github.com/falsovsky/irssi-scripts.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Fix bug and use unix newlines

This commit is contained in:
Pedro de Oliveira 2017-04-06 19:52:40 +01:00
parent 0f6a31c565
commit d8747eab58
1 changed files with 45 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
aup.pl
View File

@ -1,46 +1,45 @@
use strict; use strict;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
$VERSION = "1.0"; $VERSION = "1.0";
%IRSSI = ( %IRSSI = (
authors => "Pedro de Oliveira", authors => "Pedro de Oliveira",
contact => "falsovsky\@gmail.com", contact => "falsovsky\@gmail.com",
name => "aup", name => "aup",
description => "AUP", description => "AUP",
license => "BSD" license => "BSD"
); );
use Irssi; use Irssi;
use Irssi::Irc; use Irssi::Irc;
sub my_aup { sub my_aup {
my ( $message, $server, $window ) = @_; my ( $message, $server, $window ) = @_;
my $c = ("\003"); # control c my $c = ("\003"); # control c
my $b = ("\002"); # control b my $b = ("\002"); # control b
my $who = ""; # to check if its directed to someone my $who = ""; # to check if its directed to someone
if ( $message =~ m/-who (\S+)/ ) { if ( $message =~ m/-who (\S+)/ ) {
$who = $b . $1 . $b . " - "; $who = $b . $1 . $b . " - ";
$message =~ s/-who \S+//g; $message =~ s/-who \S+//g;
} }
if ($message eq "") { if ($message eq "") {
$message = "Nao saber usar o script"; $message = "Nao saber usar o script";
} }
my $encoded_message = $message; $message =~ s/^\s+|\s+$//g;
$encoded_message =~ s/([^A-Za-z0-9 ]+)//g;
$encoded_message =~ s/ /%20/g; my $encoded_message = $message;
$encoded_message =~ s/([^A-Za-z0-9 ]+)//g;
$message =~ s/^\s+|\s+$//g; $encoded_message =~ s/ /%20/g;
my $aup = "/!\\ Aviso: $who${c}13$message$c é uma violação da AUP da DeadBSD (consulte em: http://aup.deadbsd.org/$encoded_message ) e pode incorrer em sansões graves. Lembre-se de utilizar este serviço como um privilégio e nunca como um direito!";
my $aup = "/!\\ Aviso: $who${c}13$message$c é uma violação da AUP da DeadBSD (consulte em: http://aup.deadbsd.org/$encoded_message ) e pode incorrer em sansões graves. Lembre-se de utilizar este serviço como um privilégio e nunca como um direito!";
$window->command( "say " . $aup );
$window->command( "say " . $aup ); }
}
Irssi::command_bind( 'aup', 'my_aup' );
Irssi::command_bind( 'aup', 'my_aup' ); Irssi::command_set_options( 'aup', '-who' );
Irssi::command_set_options( 'aup', '-who' );