usrbinsam

WeeChat users can use the following to re-print relayed Discord messages to appear as a regular IRC user.

Special thanks to @aaronmdjones for the regex expertise.

Example

Instead of

  +relaybot | <discord-user> hi!
 +relaybot |  I'm on discord

usrbinsam

"AWT-EventQueue-0" prio=0 tid=0x0 nid=0x0 waiting on condition
     java.lang.Thread.State: TIMED_WAITING
 on java.util.concurrent.FutureTask@15d3a497
	at java.base@11.0.13/jdk.internal.misc.Unsafe.park(Native Method)
	at java.base@11.0.13/java.util.concurrent.locks.LockSupport.parkNanos(LockSupport.java:234)
	at java.base@11.0.13/java.util.concurrent.FutureTask.awaitDone(FutureTask.java:444)
	at java.base@11.0.13/java.util.concurrent.FutureTask.get(FutureTask.java:203)
	at com.jetbrains.python.sdk.poetry.PoetryKt.getPoetryVersion(poetry.kt:680)
	at com.jetbrains.python.sdk.poetry.PyProjectTomlWatcher.<init>(poetry.kt:409)
	at java.base@11.0.13/java.lang.invoke.DirectMethodHandle$Holder.newInvokeSpecial(DirectMethodHandle$Holder)

usrbinsam

https://i.gentoo.party/file/usrbinsam/p/2022/01/Hurg0ftrn5.jpg

usrbinsam

#!/usr/bin/perl
# see https://metacpan.org/pod/POE::Component::IRC

use strict;
use warnings;

use POE qw/
    Component::IRC
    Component::IRC::Plugin::FollowTail
/;

usrbinsam

Keybase proof

I hereby claim:

• I am minicruzer on github.
• I am cruzr (https://keybase.io/cruzr) on keybase.
• I have a public key ASCF5rOfTehfqoQX0LkHLID3WhBXr8IoiODx_FIBtZ78MQo

To claim this, I am signing this object:

usrbinsam

[19:11:14] <miniCruzer> script
[19:11:14] -OperServ(OperServ@services.int)- Insufficient parameters for SCRIPT.
[19:11:14] -OperServ(OperServ@services.int)- Syntax: SCRIPT LOAD <filename>|UNLOAD <filename>|LIST
[19:11:16] <miniCruzer> script load
[19:11:16] -OperServ(OperServ@services.int)- Invalid command. Use /msg OperServ help for a command listing.
[19:11:22] <miniCruzer> script load /home/sam/services/modules/scripting/examples/catserv.pl
[19:11:22] -OperServ(OperServ@services.int)- Invalid command. Use /msg OperServ help for a command listing.

--

usrbinsam

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;

my $net = $ARGV[0];
my $nickname = 'ircwiki'.$$;

my $irc = IO::Socket::INET->new(
	PeerAddr	=>		$net,