Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
irssi /
scripts /
[ HOME SHELL ]
Name
Size
Permission
Action
autoop.pl
3.33
KB
-rw-r--r--
autorejoin.pl
2
KB
-rw-r--r--
buf.pl
4.51
KB
-rw-r--r--
command.pl
477
B
-rw-r--r--
dns.pl
5.41
KB
-rw-r--r--
kills.pl
2.84
KB
-rw-r--r--
mail.pl
12.11
KB
-rw-r--r--
mlock.pl
3.41
KB
-rw-r--r--
msg-event.pl
1.08
KB
-rw-r--r--
quitmsg.pl
896
B
-rw-r--r--
redirect.pl
982
B
-rw-r--r--
scriptassist.pl
37.14
KB
-rw-r--r--
usercount.pl
5.53
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : quitmsg.pl
# If quit message isn't given, quit with a random message # read from ~/.irssi/irssi.quit use Irssi; use Irssi::Irc; use strict; use vars qw($VERSION %IRSSI); $VERSION = "1.00"; %IRSSI = ( authors => 'Timo Sirainen', name => 'quitmsg', description => 'Random quit messages', license => 'Public Domain', changed => 'Sun Mar 10 23:18 EET 2002' ); my $quitfile = glob "~/.irssi/irssi.quit"; sub cmd_quit { my ($data, $server, $channel) = @_; return if ($data ne ""); open (f, "<", $quitfile) || return; my $lines = 0; while(<f>) { $lines++; }; my $line = int(rand($lines))+1; my $quitmsg; seek(f, 0, 0); $. = 0; while(<f>) { next if ($. != $line); chomp; $quitmsg = $_; last; } close(f); foreach my $server (Irssi::servers) { $server->command("/disconnect ".$server->{tag}." $quitmsg"); } } Irssi::command_bind('quit', 'cmd_quit');
Close
