Advertisement
WacKEDmaN

Untitled

May 3rd, 2019
392
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.33 KB | None | 0 0
  1. if($showDistro) {
  2.         @distros = (
  3.         "Gentoo",       "/etc/gentoo-release",
  4.         "Fedora Core",  "/etc/fedora-release",
  5.         "SuSE",         "/etc/SuSE-release",
  6.         "Slackware",    "/etc/slackware-version",
  7.         "Cobalt",       "/etc/cobalt-release",
  8.         "Debian",       "/etc/debian_version",
  9.         "Mandrake",     "/etc/mandrake-release",
  10.         "Mandrake",     "/etc/mandrakelinux-release",
  11.         "Yellow Dog",   "/etc/yellowdog-release",
  12.         "OpenFiler",    "/etc/distro-release",
  13.         "Red Hat",      "/etc/redhat-release"
  14.         );
  15.         $distro = "";
  16.         $distrov = "";
  17.         do {
  18.             if (-e $distros[1]) {
  19.                 $distro = $distros[0];
  20.                 $distrov = `cat $distros[1] | head -n 1`;
  21.                 chomp($distrov);
  22.                 $distrov =~ s/[^0-9]*([0-9.]+)[^0-9.]{0,1}.*/$1/;
  23.             }
  24.             shift @distros; shift @distros;
  25.         } until (scalar @distros == 0) || (length $distro > 0);
  26.         if ($distro eq "Debian") {
  27.             if (-e "/etc/lsb-release") {
  28.                 $realdistro = `cat /etc/lsb-release | grep DISTRIB_DESCRIPTION`;
  29.                 if ($realdistro ne "") {
  30.                     chomp $realdistro;
  31.                     $realdistro =~ s/DISTRIB_DESCRIPTION="//;
  32.                     $realdistro =~ s/"$//;
  33.                     $distro     = $realdistro;
  34.                     $distrov    = $realdistro;
  35.                     $distro     =~ s/ [0-9.]+.*$//;
  36.                     $distrov    =~ s/$distro //;
  37.                 }
  38.             }
  39.         }
  40.         if ($distro eq "Red Hat") {
  41.             $realdistro = `cat /etc/redhat-release`;
  42.             if ($realdistro =~ "^CentOS") {
  43.                 $distro = "CentOS";
  44.             }
  45.         }
  46.     }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement