From f0572ea86ceda0f5df29bb7f05c279092ae7e495 Mon Sep 17 00:00:00 2001
From: Arianit Kukaj <arianit@hax.al>
Date: Mon, 26 May 2025 17:35:15 +0000
Subject: Localizing REPOS

---
 random.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 random.pl

(limited to 'random.pl')

diff --git a/random.pl b/random.pl
new file mode 100644
index 0000000..92cf168
--- /dev/null
+++ b/random.pl
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+use IO::Socket;
+
+my @nicks = qw(jett Bardha Endrita Mirja Omla);
+
+while (1) {
+  my $nick = $nicks[rand @nicks];
+  my $socket = new IO::Socket::INET (
+    PeerAddr => 'irc.shoqni.net',
+    PeerPort => 6667,
+    Proto => 'tcp',
+  );
+  
+  if ($socket) {
+    print $socket "NICK $nick\r\n";
+    print $socket "USER $nick 0 * :Vizitor nga Shoqni.com\r\n";
+    
+
+    while (my $input = <$socket>) {
+      print $input;
+      print $socket "JOIN #chat\r\n";
+      if ($input =~ /^PING(.*)$/i) {
+        print $socket "PONG $1\r\n";
+	}
+    }
+
+    close $socket;
+  }
+
+  sleep 20 * 60;
+}
-- 
cgit v1.2.3