diff mbox

openSUSE hints for media_build

Message ID 4FEDDB7A.4060701@am.uni-duesseldorf.de (mailing list archive)
State New, archived
Headers show

Commit Message

Georg Jansing June 29, 2012, 4:44 p.m. UTC
Hello again,

sorry, attachment missing.

Kind regards,

Georg Jansing

Am 29.06.2012 18:26, schrieb Georg Jansing:
> Hello everybody,
>
> I was trying to install Linux TV Kernel Modules via your media_build 
> git repo/scripts. Since I am on openSUSE and there are no installation 
> hints yet, and I needed to look up the correct packages anyways, here 
> is a small patch that adds the corresponding infomation to your script.
>
> I hope, the formulation for adding the perl buildservice repository 
> (something like Ubuntu's PPAs) is clear enough. Please also be warned, 
> that I never did anything in perl yet, so I don't know if I chose the 
> best/perl way to add the repo message.
>
> Sadly, the media_build drivers did not work for me, but with the 
> script I could at least compile them correctly (I think ;-)).
>
> Kind regards,
>
> Georg Jansing
diff mbox

Patch

From 7c622ca8df674a5b39c3e6c60cc69000f021e395 Mon Sep 17 00:00:00 2001
From: Georg Jansing <jansing@am.uni-duesseldorf.de>
Date: Fri, 29 Jun 2012 18:38:46 +0200
Subject: [PATCH] Add installation hints for openSUSE.

---
 build |   37 +++++++++++++++++++++++++++++++++++++
 1 files changed, 37 insertions(+), 0 deletions(-)

diff --git a/build b/build
index e023f6b..3384fdd 100755
--- a/build
+++ b/build
@@ -91,6 +91,38 @@  sub give_ubuntu_hints()
 	printf("You should run:\n\tsudo apt-get install $install\n");
 }
 
+sub give_opensuse_hints()
+{
+	my $install;
+
+	my %map = (
+		"lsdiff"		=> "patchutils",
+		"Digest::SHA"		=> "perl-Digest-SHA1",
+		"Proc::ProcessTable"	=> "perl-Proc-ProcessTable",
+	);
+	
+	my $need_perl_repo = 0;
+	
+	foreach my $prog (@missing) {
+		print "ERROR: please install \"$prog\", otherwise, build won't work.\n";
+		if (defined($map{$prog})) {
+			$install .= " " . $map{$prog};
+		} else {
+			$install .= " " . $prog;
+		}
+		if ($prog eq "Proc::ProcessTable") {
+			$need_perl_repo = 1;
+		}
+	}
+	
+	printf("You should run:\n\tsudo zypper install $install\n");
+	
+	if ($need_perl_repo) {
+		printf("\nThe Proc::ProcessTable perl module can be found in the perl buildservice repository. ");
+		printf("Add with the command (replacing 12.1 with your openSUSE release version):\n");
+		printf("\tsudo zypper ar http://download.opensuse.org/repositories/devel:/languages:/perl/openSUSE_12.1/ perl\n");
+	}
+}
 
 sub give_arch_linux_hints()
 {
@@ -152,6 +185,10 @@  sub give_hints()
 		give_ubuntu_hints;
 		return;
 	}
+	if ($system_release =~ /openSUSE/) {
+		give_opensuse_hints;
+		return;
+	}
 	if ($system_release =~ /Arch Linux/) {
 		give_arch_linux_hints;
 		return;
-- 
1.7.7