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

5
aup.pl
View File

@ -30,13 +30,12 @@ sub my_aup {
$message = "Nao saber usar o script"; $message = "Nao saber usar o script";
} }
$message =~ s/^\s+|\s+$//g;
my $encoded_message = $message; my $encoded_message = $message;
$encoded_message =~ s/([^A-Za-z0-9 ]+)//g; $encoded_message =~ s/([^A-Za-z0-9 ]+)//g;
$encoded_message =~ s/ /%20/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!"; 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 );