Autres/Rivendellaudio
1
0
Fork 0
mirror of https://github.com/ElvishArtisan/rivendell.git synced 2025-10-14 22:51:13 +02:00
Code Issues Projects Releases Wiki Activity

2018-08-31 Fred Gleason <fredg@paravelsystems.com>

Browse Source 
* Added support for cross-compiling 'rivwebcapi' for Windows with
	the MingW64 environment.
This commit is contained in:
Fred Gleason
2018-08-31 08:31:39 -04:00
parent 6a71c397a2
commit fbb87ffed3
12 changed files with 439 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

148
apis/rivwebcapi/get_distro.pl Executable file
View File

@@ -0,0 +1,148 @@
#!/usr/bin/perl -W
# get_distro.pl
#
# Try to determine the distribution name and version of the host machine.
# Used as part of the AR_GET_DISTRO() macro.
#
# (C) Copyright 2012,2016 Fred Gleason <fredg@salemradiolabs.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public
# License along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#USAGE: get_distro.pl NAME|VERSION|MAJOR|MINOR|POINT
if($ARGV[0] eq "NAME") {
if(!system("test","-f","/etc/SuSE-release")) {
print "SuSE";
exit 0;
}
if(!system("test","-f","/etc/debian_version")) {
print "Debian";
exit 0;
}
if(!system("test","-f","/etc/redhat-release")) {
print "RedHat";
exit 0;
}
}
if($ARGV[0] eq "VERSION") {
if(!system("test","-f","/etc/SuSE-release")) {
print &GetVersion("/etc/SuSE-release");
exit 0;
}
if(!system("test","-f","/etc/debian_version")) {
print &GetVersion("/etc/debian_version");
exit 0;
}
if(!system("test","-f","/etc/redhat-release")) {
print &GetVersion("/etc/redhat-release");
exit 0;
}
}
if($ARGV[0] eq "MAJOR") {
if(!system("test","-f","/etc/SuSE-release")) {
print &GetMajor("/etc/SuSE-release");
exit 0;
}
if(!system("test","-f","/etc/debian_version")) {
print &GetMajor("/etc/debian_version");
exit 0;
}
if(!system("test","-f","/etc/redhat-release")) {
print &GetMajor("/etc/redhat-release");
exit 0;
}
}
if($ARGV[0] eq "MINOR") {
if(!system("test","-f","/etc/SuSE-release")) {
print &GetMinor("/etc/SuSE-release");
exit 0;
}
if(!system("test","-f","/etc/debian_version")) {
print &GetMinor("/etc/debian_version");
exit 0;
}
if(!system("test","-f","/etc/redhat-release")) {
print &GetMinor("/etc/redhat-release");
exit 0;
}
}
if($ARGV[0] eq "POINT") {
if(!system("test","-f","/etc/SuSE-release")) {
print &GetPoint("/etc/SuSE-release");
exit 0;
}
if(!system("test","-f","/etc/debian_version")) {
print &GetPoint("/etc/debian_version");
exit 0;
}
if(!system("test","-f","/etc/redhat-release")) {
print &GetPoint("/etc/redhat-release");
exit 0;
}
}
exit 256;
sub GetVersion
{
if(open VERSION,"<",$_[0]) {
my $version=<VERSION>;
my @f0=split " ",$version;
for(my $i=0;$i<@f0;$i++) {
my @f1=split "[.]",$f0[$i];
if(@f1>1) {
return $f0[$i];
}
}
}
return "";
}
sub GetMajor
{
my @f0=split "[.]",&GetVersion($_[0]);
return $f0[0];
}
sub GetMinor
{
my @f0=split "[.]",&GetVersion($_[0]);
if(@f0 ge 2) {
return $f0[1];
}
return "";
}
sub GetPoint
{
my @f0=split "[.]",&GetVersion($_[0]);
if(@f0 ge 3) {
return $f0[2];
}
return "";
}