mkmotd.pl

#! /usr/local/system/perl/bin/perl
use strict;
use warnings;

#
# Mutter: https://github.molgen.mpg.de/mariux64/mxtools/tree/master/mkmotd
#

my ($os_release) = `/bin/os-release`;
chomp($os_release);

my @hostconfig = split  " ",`hostconfig`;

our $TEMPLATE;

if ( $os_release eq 'mariux_x86_64' || $os_release eq 'mariux_i686' ) {
    $TEMPLATE = <<'EOF';

  #     #                  ###         #     #  %HOST%
  ##   ##    ##    #####    #   #    #  #   #
  # # # #   #  #   #    #   #   #    #   # #    cpu    %NCPU%x %CPU%
  #  #  #  #    #  #    #   #   #    #    #     ram    %MEM%
  #     #  ######  #####    #   #    #   # #    arch   %ARCH% / %BITS%-bit
  #     #  #    #  #   #    #   #    #  #   #   glibc  %GLIBC%
  #     #  #    #  #    #  ###   ####  #     #  kernel %KERNEL%

      beyond the return of the next followed generation

  http://twiki.molgen.mpg.de/twiki/bin/view/Edv/MarIuXNews

EOF
}
elsif ( $os_release eq 'mariux64' ) {
    $TEMPLATE = <<'EOF';

  #     #                  ###         #     #  %HOST%
  ##   ##    ##    #####    #   #    #  #   #   system %SYSTEM%
  # # # #   #  #   #    #   #   #    #   # #    cpu    %NCPU%x %CPU%
  #  #  #  #    #  #    #   #   #    #    # 64  ram    %MEM%
  #     #  ######  #####    #   #    #   # #    arch   %ARCH% / %BITS%-bit
  #     #  #    #  #   #    #   #    #  #   #   glibc  %GLIBC%
  #     #  #    #  #    #  ###   ####  #     #  kernel %KERNEL%

EOF

    $TEMPLATE .= "    / to bee or not to bee /   tags: ".join(" ",@hostconfig)."\n";
}
else {
    die "$os_release : unknown os_release\n";
}

sub readstr {
    my $f = shift;
    if ( -e $f ) {
        open I, '<', $f or die "cannot readstr $f: $!";
        my $str = <I>;
        chomp($str);
        close I;
        return $str;
    }
    return undef;
}

sub policy {    # policy('theinternet') --> ('zeile1,'zeile2',....)
    my ($hostname) = @_;
    open IN, '<', '/etc/mxpolicy' or return ();
    my @out;
    while (<IN>) {
LOOP:
        my ( $tag ) = /^\@(\S+)/;
        if ( defined($tag) && grep { $tag eq $_ } @hostconfig ) {
            while (<IN>) {
                /^\S/ and goto LOOP;
                /\s+\*\s*(.+)/ and push @out, $1;
                if (/\s+\`\s*(.+)/) {
                    my $x = `$1`;
                    chomp($x);
                    push @out, split( /\n/, $x );
                }
            }
        }

        if ( /^\S/ && /\b$hostname\b/) {
            while (<IN>) {
                /^\S/ and goto LOOP;
                /\s+\*\s*(.+)/ and push @out, $1;
                if (/\s+\`\s*(.+)/) {
                    my $x = `$1`;
                    chomp($x);
                    push @out, split( /\n/, $x );
                }
            }
        }
    }
    return @out;
}

my %T;

my @un = split( / /, `uname -a` );
chomp(@un);
$_ = $un[1];
s/\.molgen\.mpg\.de//;
$T{HOST}   = $_;
$T{KERNEL} = "$un[2] $un[3]";
$T{BITS}   = 32;                # default (may change sometime...)
$T{ARCH}   = 'i686';
if ( $T{KERNEL} =~ /x86_64|mx64/ ) {
    $T{BITS} = 64;
    $T{ARCH} = 'x86_64';
}

$_ = `/lib/libc.so.6`;
/version (\d\S+)[\.,]/;
$T{GLIBC} = $1;

my @pc = `cat /proc/cpuinfo`;
my $mn = 'unknown CPU';
$T{NCPU} = grep { /model name/ and $mn = $_; /processor/ } @pc;
$mn =~ s/\(.*?\)|\d+-Core Processor|xeon|Virtual|Athlon|model name\s*:|six.core|quad.core|dual.core|intel|Processor|cpu|core| with Radeon Vega Graphics//ig;
$mn =~ s/\s(E\d\-)\s/$1/;
$mn =~ s/\s\d\s\@/ \@/;
$mn =~ s/version\s+/v/g;
$mn =~ s/\s+/ /g;
$mn =~ s/^\s+|\s+$//g;
$T{CPU} = $mn;

$T{SYSTEM} = '';
{
    my $sys = '';

    #  for i in /sys/devices/virtual/dmi/id/*_{name,vendor,version}; do echo -en "$i\t"; cat $i; done
    #  for i in /sys/devices/virtual/dmi/id/{product_{name,version},sys_vendor}; do echo -en "$i\t"; cat $i; done

    #  /sys/devices/virtual/dmi/id

    my $pn = readstr('/sys/devices/virtual/dmi/id/product_name');
    if ( $pn =~ m/All Series|empty/ ) {
        $pn = readstr('/sys/devices/virtual/dmi/id/board_name');
        $pn =~ s/^TYAN Transport\s+//;
    }

    my $mf = readstr('/sys/devices/virtual/dmi/id/sys_vendor');
    if ( $mf =~ m/(empty|NVIDIA)/ ) {
        $mf = readstr('/sys/devices/virtual/dmi/id/board_vendor');
    }

    ( $mf eq 'Supermicro' ) and $pn =~ s/^AS -//;
    ( $mf =~ /^Gigabyte/ )  and $pn =~ s/^GA-//;

    $mf =~ s/( Inc.| Computer Corporation)//;

    my $vn = readstr('/sys/devices/virtual/dmi/id/product_version');
    if ( $vn =~ m/empty/ ) {
        $vn = undef;
    }

    if ( defined($pn) and $pn eq 'CK8 ' ) {
        $mf = $vn;
        $pn = '';
    }
    ( $mf eq 'QEMU' ) and $pn = '';

    ( $pn ne '' ) and $pn = " $pn";
    $T{SYSTEM} = "$mf$pn";
    $T{SYSTEM} =~ s/_/ /g;
    $T{SYSTEM} =~ s{(^HP | WorkStation| Transport| Tower|Hewlett-Packard |/S2932-E/S2932-SI| Thunder| Computer Corp|Technology Co., Ltd. | Standard PC)}{}i;
}

my %BC = (
    'bugblatterbeastoftraal' => 'TYAN VX50 B4985',

    #  'crap03' => 'TYAN GT20-B2925/B2925-E',
    'keineahnung' => 'FUJITSU ESPRIMO P756',
    'furunkel'    => 'HP Z200 Workstation',
);
if ( exists( $BC{ $T{HOST} } ) and $BC{ $T{HOST} } ne $T{SYSTEM} ) {
    system("banner WRONG");
    die "$BC{$T{HOST}} ne $T{SYSTEM}";
}
my @mem = `cat /proc/meminfo`;
my $mem = '??';
for (@mem) {
    if (/MemTotal:\s+(\d+)/) {
        my $mm = $1;
        if ( int( $mm / 1024 / 1000 ) >= 1 ) {
            $mem = ( int( $mm / 1024 / 100 ) / 10 ) + 0;
            $mem .= ' GB';
        }
        elsif ( int( $mm / 1000 ) >= 1 ) {
            $mem = ( int( $mm / 100 ) / 10 ) + 0;
            $mem .= ' MB';
        }
        else {
            $mem = "$mm kB";
        }
        last;
    }
}
$T{MEM} = $mem;

$TEMPLATE =~ s/%(\S+?)%/$T{$1}||$1/eg;
open O, '>', '/etc/motd' or die "/etc/motd: $!\n";
print O $TEMPLATE, ( join( "\n", map ( "  ** $_ **", policy( $T{HOST} ) ) ) || "  ** **" ), "\n\n";
close O;