Type: \hostname - Hostname, \os - OS Info, \processor - Processor Info, \hhostname \hprocessor \hsystem <<< Same but using echo! /hsystem - Displays all config. #############################################################################
#!/usr/bin/perl
#include<time.h>

use warnings;
use Xchat qw( :all );

#############################################################################
my $version = "1.0";
Xchat::register("System Info Plugin", $version, "Displays System Info, Pump it Up!.","");
#############################################################################

Xchat::hook_command("hostname", "hostname");
Xchat::hook_command("os", "os");
Xchat::hook_command("processor", "processor");

Xchat::hook_command("hhostname", "hhostname");
Xchat::hook_command("hos", "hos");
Xchat::hook_command("hprocessor", "hprocessor");
Xchat::hook_command("hsystem", "hsystem");

#############################################################################

Xchat::print('Type: \hostname - Hostname, \os - OS Info, \processor - Processor Info, \hhostname \hprocessor \hsystem <<< Same but using echo! /hsystem - Displays all config.');

#############################################################################

sub hostname {
my $hostname = ` hostname`;
Xchat::command("me Hostname: $hostname");
}

#############################################################################

sub os {
my $systeminfo = ` systeminfo`;
my @songsplit = split(/ \s*/,$systeminfo);

my $systema1 = $songsplit[2];
my $systema2 = $songsplit[3];

my $systemb1 = reverse $systema1;
my $systemb2 = reverse $systema2;

my $systemc1 = substr($systemb1, 12, 100);
my $systemc2 = substr($systemb2, 17, 100);

my $systemd1 = reverse $systemc1;
my $systemd2 = reverse $systemc2;

Xchat::command("me - OS: $systemd1 - Version: $systemd2 ");
}

#############################################################################

sub processor {
my $systeminfo = ` systeminfo`;
my @songsplit = split(/ \s*/,$systeminfo);

my $systema1 = $songsplit[16];;

my $systemb1 = reverse $systema1;

my $systemc1 = substr($systemb1, 14, 100);

my $systemd1 = reverse $systemc1;

Xchat::command("me - Processor: $systemd1 ");
}

#############################################################################

sub hhostname{
my $hostname = ` hostname`;
Xchat::command("echo Hostname: $hostname");
}

#############################################################################

sub hos {
my $systeminfo = ` systeminfo`;
my @songsplit = split(/ \s*/,$systeminfo);

my $systema1 = $songsplit[2];
my $systema2 = $songsplit[3];

my $systemb1 = reverse $systema1;
my $systemb2 = reverse $systema2;

my $systemc1 = substr($systemb1, 12, 100);
my $systemc2 = substr($systemb2, 17, 100);

my $systemd1 = reverse $systemc1;
my $systemd2 = reverse $systemc2;

Xchat::command("echo OS: $systemd1 - Version: $systemd2 ");
}

#############################################################################

sub hprocessor {
my $systeminfo = ` systeminfo`;
my @songsplit = split(/ \s*/,$systeminfo);

my $systema1 = $songsplit[16];

my $systemb1 = reverse $systema1;

my $systemc1 = substr($systemb1, 14, 100);

my $systemd1 = reverse $systemc1;

Xchat::command("echo - Processor: $systemd1 ");
}

#############################################################################

sub hsystem {
my $hostname = ` hostname`;
my $systeminfo = ` systeminfo`;
my @songsplit = split(/ \s*/,$systeminfo);

my $systema1 = $songsplit[2];
my $systema2 = $songsplit[3];
my $systema3 = $songsplit[16];

my $systemb0 = reverse $hostname;
my $systemb1 = reverse $systema1;
my $systemb2 = reverse $systema2;
my $systemb3 = reverse $systema3;

my $systemc0 = substr($systemb0, 1, 100);
my $systemc1 = substr($systemb1, 12, 100);
my $systemc2 = substr($systemb2, 17, 100);
my $systemc3 = substr($systemb3, 14, 100);

my $systemd0 = reverse $systemc0;
my $systemd1 = reverse $systemc1;
my $systemd2 = reverse $systemc2;
my $systemd3 = reverse $systemc3;

Xchat::command("echo Hostname: $systemd0 - OS: $systemd1 - Version: $systemd2 - Processor: $systemd3 ");
}

#############################################################################