opt
/
kaspersky
/
kav4fs
/
src
/
kernel
/
config
➕ New
📤 Upload
✎ Editing:
os_detect.pl
← Back
#!/usr/bin/perl -w sub os_determ() { my $distrib = "unknown"; my $os=`uname`; if ( $os =~ /linux/i ) { my ($linux, $version); if ( defined(glob("/etc/*release")) ) { $linux = glob("/etc/*release"); $distrib =`head -1 $linux`; } if ( $distrib =~ /(\d\.\d)/ ) { $version=$1; } elsif (defined(glob("/etc/debian*"))) { $linux = glob("/etc/debian*"); $distrib = "Debian" ; $version = `head -1 /etc/debian_version`; $distrib="Debian $version"; } else { if (defined(glob("/etc/slackware*"))) { $linux = glob("/etc/slackware*"); $distrib = "Slackware" ; $version = `head -1 /etc/slackware-version`; if ( $version =~ /(\d\.\d)/ ) { $version=$1; } $distrib = "$distrib $version"; } } } elsif ( $os =~ /sunos/i ) { $distrib=`uname -prs`; } elsif ($os =~ /[hp-ux,bsd]/i ) { $distrib=`uname -rs`; } else { print "$os: unknown operation system"; } chomp $distrib; return $distrib; } $system = os_determ(); print "$system"; exit 0;
💾 Save Changes
Cancel
📤 Upload File
×
Select File
Upload
Cancel
➕ Create New
×
Type
📄 File
📁 Folder
Name
Create
Cancel
✎ Rename Item
×
Current Name
New Name
Rename
Cancel
🔐 Change Permissions
×
Target File
Permission (e.g., 0755, 0644)
0755
0644
0777
Apply
Cancel