From 0546c2824cac06a0e66e767e958ba664d8eda5d1 Mon Sep 17 00:00:00 2001
From: Clifford Wolf <clifford@clifford.at>
Date: Wed, 7 Jul 2004 12:28:45 +0000
Subject: [PATCH] Clifford Wolf: 	Added misc/archive/gnomecheck.pl 
 (a helper for creating scripts/dep_fixes.txt entries)

[2004062914083304299] (https://www.rocklinux.net/submaster)



git-svn-id: http://www.rocklinux.org/svn/rock-linux/trunk@3524 c5f82cb5-29bc-0310-9cd0-bff59a50e3bc
---
 misc/archive/gnomecheck.pl | 120 +++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100644 misc/archive/gnomecheck.pl

diff --git a/misc/archive/gnomecheck.pl b/misc/archive/gnomecheck.pl
new file mode 100644
index 000000000..54aacf3dd
--- /dev/null
+++ b/misc/archive/gnomecheck.pl
@@ -0,0 +1,120 @@
+#!/usr/bin/perl -w
+#
+# This script checks the ROCK Linux dependency database
+# against the proposed build order from the GNOME release
+# notes and creates scripts/dep_fixes.txt entries based on
+# the results.
+
+use strict;
+
+# this is fetched from
+# http://www.gnome.org/start/2.6/notes/rninstallation.html
+my @proposed_order = qw(
+libxml2
+libxslt
+gtk-doc
+glib
+libidl
+orbit2
+intltool
+libbonobo
+fontconfig
+Render
+Xrender
+Xft
+pango
+atk
+shared-mime-info
+gtk+
+gconf
+gnome-mime-data
+gnome-vfs
+esound
+libgnome
+libart_lgpl23
+libglade
+libgnomecanvas
+libbonoboui
+hicolor-icon-theme
+gnome-icon-theme
+gnome-keyring
+libgnomeui
+startup-notification
+gtk-engines
+gnome-themes
+gnome-desktop
+libwnck
+scrollkeeper
+gnome-panel
+gnome-session
+vte
+gnome-terminal
+libgtop
+gail
+gnome-applets
+metacity
+libgsf
+libcroco
+librsvg
+eel
+nautilus
+control-center
+gtkhtml
+yelp
+bug-buddy
+libgnomeprint
+libgnomeprintui
+gtksourceview
+gedit
+eog
+ggv
+file-roller
+gconf-editor
+gnome-utils
+gal
+gnome-system-monitor
+gstreamer
+gst-plugins
+gnome-media
+nautilus-media
+gnome-netstatus
+gcalctool
+gpdf
+gucharmap
+nautilus-cd-burner
+zenity
+gnome-speech
+at-spi
+gnome-mag
+gnopernicus
+gok
+epiphany
+gnomemeeting
+gnome-games
+gnome2-user-docs
+);
+
+my %deps;
+my %bogus;
+
+open(F, "<scripts/dep_db.txt") or die;
+while (<F>) {
+	my @list = split /[: \n]+/;
+	my $p = shift @list;
+	$deps{$p}{$_} = 1 foreach (@list);
+}
+close F;
+
+while ($#proposed_order >= 0) {
+	my $p = shift @proposed_order;
+
+	foreach (@proposed_order) {
+		$bogus{$p}{$_} = 1
+			if defined $deps{$p}{$_};
+	}
+}
+
+foreach my $p (sort keys %bogus) {
+	print "$p\tdel\t", join(" ", sort keys %{$bogus{$p}}), "\n";
+}
+