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 vars qw($VERSION %IRSSI);
$VERSION = "1.0";
%IRSSI = (
authors => "Pedro de Oliveira",
contact => "falsovsky\@gmail.com",
name => "aup",
description => "AUP",
license => "BSD"
);
use Irssi;
use Irssi::Irc;
sub my_aup {
my ( $message, $server, $window ) = @_;
my $c = ("\003"); # control c
my $b = ("\002"); # control b
my $who = ""; # to check if its directed to someone
if ( $message =~ m/-who (\S+)/ ) {
$who = $b . $1 . $b . " - ";
$message =~ s/-who \S+//g;
}
if ($message eq "") {
$message = "Nao saber usar o script";
}
my $encoded_message = $message;
$encoded_message =~ s/([^A-Za-z0-9 ]+)//g;
$encoded_message =~ s/ /%20/g;
$message =~ s/^\s+|\s+$//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!";
$window->command( "say " . $aup );
}
Irssi::command_bind( 'aup', 'my_aup' );
Irssi::command_set_options( 'aup', '-who' );
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "1.0";
%IRSSI = (
authors => "Pedro de Oliveira",
contact => "falsovsky\@gmail.com",
name => "aup",
description => "AUP",
license => "BSD"
);
use Irssi;
use Irssi::Irc;
sub my_aup {
my ( $message, $server, $window ) = @_;
my $c = ("\003"); # control c
my $b = ("\002"); # control b
my $who = ""; # to check if its directed to someone
if ( $message =~ m/-who (\S+)/ ) {
$who = $b . $1 . $b . " - ";
$message =~ s/-who \S+//g;
}
if ($message eq "") {
$message = "Nao saber usar o script";
}
$message =~ s/^\s+|\s+$//g;
my $encoded_message = $message;
$encoded_message =~ s/([^A-Za-z0-9 ]+)//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!";
$window->command( "say " . $aup );
}
Irssi::command_bind( 'aup', 'my_aup' );
Irssi::command_set_options( 'aup', '-who' );