KildClient

Code: Select all

package speaker;
#: Version: 1 
#: Description: Pipes received text to the system clipboard
#: Author: A S Lewis

use strict;
use diagnostics;
use warnings;

BEGIN {

    # Minimum standards for Perl
    require 5.008;

    use Clipboard;
}

# Add a hook event to capture text received from the mud
$::world->hook(
    'OnReceivedText' . '',                       # Hook event
    '/speaker->recvText("$hookdata");' . '',     # Action
    {
        name => 'speaker_hook',
    },
);

# Ready to go!
$::world->echonl('Speaker plugin ready to go!');

sub recvText {

    my ($plugin, $hookdata) = @_;

    # Local variables
    my @list;
    
    # Split $hookdata into lines (assuming it's not an empty string)
    if ($hookdata) {
        
        @list = split(/\n/, $hookdata);

        foreach my $line (@list) {

            # Strip ANSI codes from the line. The TTS engine obviously doesn't need them
            $line = ::stripansi($line);
                
            # Ignore empty lines and lines that don't contain any alphanumeric characters
            if (
                $line
                && ($line =~ m/[a-zA-Z0-9]/)
                # (If you want to ignore other kinds of line, you could add another Perl regex here)
            ) {
                # Send the line to the TTS engine
                Clipboard->copy($line);

                # Uncomment the following line to write to the terminal, too - if you want to check
                #   that the plugin is working the way you expect
#                print "line: $line\n";
            }
        }
    }
    
    # All my functions deliver a distinct return value ;)
    return 1;
}