From a2c4da6c6d7651cbd09564ea6f5ad49e471f3afd Mon Sep 17 00:00:00 2001 From: Bertrand Jacquin Date: Tue, 25 Oct 2005 20:06:16 +0000 Subject: Some new ebuilds --- app-misc/gcfilms/Manifest | 3 + app-misc/gcfilms/files/digest-gcfilms-5.3-r1 | 1 + app-misc/gcfilms/files/install-gcfilms | 450 +++++++++++++++++++++++++++ app-misc/gcfilms/gcfilms-5.3-r1.ebuild | 35 +++ 4 files changed, 489 insertions(+) create mode 100644 app-misc/gcfilms/Manifest create mode 100644 app-misc/gcfilms/files/digest-gcfilms-5.3-r1 create mode 100644 app-misc/gcfilms/files/install-gcfilms create mode 100644 app-misc/gcfilms/gcfilms-5.3-r1.ebuild (limited to 'app-misc') diff --git a/app-misc/gcfilms/Manifest b/app-misc/gcfilms/Manifest new file mode 100644 index 00000000..d965f7bb --- /dev/null +++ b/app-misc/gcfilms/Manifest @@ -0,0 +1,3 @@ +MD5 ac8a9dd287a4005d3276c4de67bb05b5 files/digest-gcfilms-5.3-r1 63 +MD5 ca62ea554553eaa1ffaa1a0d29fcd46d files/install-gcfilms 11690 +MD5 86edb73a5ed575429f7e709574a44e9b gcfilms-5.3-r1.ebuild 968 diff --git a/app-misc/gcfilms/files/digest-gcfilms-5.3-r1 b/app-misc/gcfilms/files/digest-gcfilms-5.3-r1 new file mode 100644 index 00000000..bace19ce --- /dev/null +++ b/app-misc/gcfilms/files/digest-gcfilms-5.3-r1 @@ -0,0 +1 @@ +MD5 58743009cb2d5a821f33205efa8d4346 gcfilms-5.3.tar.gz 529393 diff --git a/app-misc/gcfilms/files/install-gcfilms b/app-misc/gcfilms/files/install-gcfilms new file mode 100644 index 00000000..1452c03f --- /dev/null +++ b/app-misc/gcfilms/files/install-gcfilms @@ -0,0 +1,450 @@ +#!/usr/bin/perl + +################################################### +# +# Copyright 2005 Tian +# +# This file is part of GCfilms. +# +# GCfilms 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. +# +# GCfilms 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 GCfilms; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +################################################### + +use strict; +use FindBin qw($RealBin); +use File::Copy; +use File::Path; + +use lib "$RealBin/lib/gcfilms"; +use GCLang; + +our $binName = 'gcfilms'; +$binName .= '.pl' if ($^O =~ /win32/i); + +chdir $RealBin; + +our %lang; + +if ($ENV{LANG} =~ /fr/i) +{ + %lang = %{$GCLang::langs{'FR'}}; +} +elsif ($ENV{LANG} =~ /es/i) +{ + %lang = %{$GCLang::langs{'ES'}}; +} +elsif ($ENV{LANG} =~ /it/i) +{ + %lang = %{$GCLang::langs{'IT'}}; +} +else +{ + %lang = %{$GCLang::langs{'EN'}}; +} + +our $type = 'graphic'; + +$type = 'text' if ($ARGV[0]); + +sub checkDependancies; + +our ($mand, $opt) = checkDependancies('GC'); + +sub clean +{ + my $baseDir = shift; + + foreach (glob $baseDir.'/lib/gcfilms/*') + { + unlink if -f $_; + if (-d _) + { + unlink foreach (glob "$_"); + } + } + + foreach (glob $baseDir.'/share/gcfilms/*') + { + unlink if -f $_; + if (-d _) + { + unlink foreach (glob "$_"); + } + } + + unlink $baseDir.'/bin/'.$binName; +} + +sub doInstall +{ + my ($baseDir, $baseDir2) = @_; + $baseDir = $baseDir2->get_text if $baseDir2; + + print $lang{InstallDirInfo}.$baseDir."\n"; + + mkpath $baseDir.'/bin'; + copy 'bin/gcfilms', $baseDir.'/bin/'.$binName; + + chmod 0755, $baseDir.'/bin/'.$binName; + + mkpath $baseDir.'/lib/gcfilms'; + foreach (glob 'lib/gcfilms/*') + { + copy $_, $baseDir.'/lib/gcfilms'; + } + mkpath $baseDir.'/lib/gcfilms/GCLang'; + foreach (glob 'lib/gcfilms/GCLang/*') + { + copy $_, $baseDir.'/lib/gcfilms/GCLang'; + } + mkpath $baseDir.'/lib/gcfilms/GCPlugins'; + foreach (glob 'lib/gcfilms/GCPlugins/*') + { + copy $_, $baseDir.'/lib/gcfilms/GCPlugins'; + } + mkpath $baseDir.'/lib/gcfilms/GCExport'; + foreach (glob 'lib/gcfilms/GCExport/*') + { + copy $_, $baseDir.'/lib/gcfilms/GCExport'; + } + mkpath $baseDir.'/lib/gcfilms/GCImport'; + foreach (glob 'lib/gcfilms/GCImport/*') + { + copy $_, $baseDir.'/lib/gcfilms/GCImport'; + } + + mkpath $baseDir.'/share/gcfilms'; + foreach (glob 'share/gcfilms/*') + { + copy $_, $baseDir.'/share/gcfilms'; + } + mkpath $baseDir.'/share/gcfilms/plugins'; + foreach (glob 'share/gcfilms/plugins/*') + { + copy $_, $baseDir.'/share/gcfilms/plugins'; + } + mkpath $baseDir.'/share/gcfilms/icons'; + foreach (glob 'share/gcfilms/icons/*') + { + copy $_, $baseDir.'/share/gcfilms/icons'; + } + mkpath $baseDir.'/share/gcfilms/xml_models'; + foreach (glob 'share/gcfilms/xml_models/*') + { + copy $_, $baseDir.'/share/gcfilms/xml_models'; + } + mkpath $baseDir.'/share/gcfilms/html_models'; + foreach (glob 'share/gcfilms/html_models/*') + { + copy $_, $baseDir.'/share/gcfilms/html_models'; + } + mkpath $baseDir.'/share/gcfilms/style'; + foreach (glob 'share/gcfilms/style/*') + { + next if /CVS/; + mkpath $baseDir.'/'.$_; + foreach my $style(glob $_.'/*') + { + copy $style, $baseDir."/".$_; + } + } +} + +if ($type eq 'text') +{ + print "\n".$lang{InstallMandatory}."\n\n"; + my %mand = %$mand; + my @missing = (); + foreach (sort keys %mand) + { + print $_, ' 'x(30-length($_)), $mand{$_}, "\n"; + push @missing, $_ if ($mand{$_} eq 'KO'); + } + + print "\n".$lang{InstallOptional}."\n\n"; + my %opt = %$opt; + foreach (sort keys %opt) + { + print $_, ' 'x(30-length($_)), $opt{$_}, "\n"; + } + + if (scalar(@missing)) + { + print "\n".$lang{InstallErrorMissing}."\n\n"; + print "$_\n" foreach (@missing); + exit 1; + } + + my $dir; + if (($ARGV[0] =~ /--prefix=(.*)/) || ($ARGV[1] =~ /--prefix=(.*)/)) + { + $dir = $1; + } + else + { + print $lang{InstallPrompt}; + + $| = 1; + $_ = ; + chomp; + $dir = ($_ ? $_ : '/usr/local/'); + } + + clean $dir unless ($ARGV[0] eq '--noclean') || ($ARGV[1] eq '--noclean'); + doInstall $dir; + + print $lang{InstallEnd}."\n".$lang{InstallNoError}."\n".$lang{InstallLaunch}.$dir."/bin/".$binName."\n"; + + exit 0; +} + +sub checkDependancies +{ + my $pref = shift; + + my @dependancies = (); + my @optionals = (); + + my @files = glob 'lib/gcfilms/*'; + push @files, glob 'lib/gcfilms/GCLang/*'; + push @files, glob 'lib/gcfilms/GCPlugins/*'; + push @files, glob 'lib/gcfilms/GCExport/*'; + push @files, glob 'lib/gcfilms/GCImport/*'; + foreach my $file(@files) + { + open FILE, $file; + while () + { + push (@dependancies, $1) if ((/^\s*use\s*(.*?);/) && ($1 !~ /base|vars|locale|^lib|utf8|strict|^$pref/)); + push (@optionals, $1) if ((/eval.*?[\"\']use\s*(.*?)[\"\'];/) && ($1 !~ /base|vars|locale|^lib|utf8|strict|^$pref/)); + #" + } + } + + my %saw1; + @saw1{@dependancies} = (); + @dependancies = sort keys %saw1; + + my %saw2; + @saw2{@optionals} = (); + @optionals = sort keys %saw2; + + my %mandatoryResults = (); + my %optionalResults = (); + + foreach (@dependancies) + { + $mandatoryResults{$_} = 'OK'; + eval "use $_"; + $mandatoryResults{$_} = 'KO' if ($@); + } + foreach (@optionals) + { + $optionalResults{$_} = 'OK'; + eval "use $_"; + $optionalResults{$_} = 'KO' if ($@); + } + + return \%mandatoryResults, \%optionalResults; +} + +eval +' + use Gtk2 \'-init\'; + use GCDialogs; +'; + +#our $path; +our $installDialog = Gtk2::Window->new('toplevel'); + +sub graphicInstall +{ + my $widget = shift; + + clean($installDialog->{path}->get_text) + if $installDialog->{clean}->get_active; + doInstall($installDialog->{path}->get_text); + + my $dialog = Gtk2::MessageDialog->new($installDialog, + [qw/modal destroy-with-parent/], + 'info', + 'ok', + $lang{InstallEnd}."\n\n".$lang{InstallNoError}."\n\n".$lang{InstallLaunch}.$installDialog->{path}->get_text."bin/".$binName); + $dialog->run(); + $dialog->destroy ; + + Gtk2->main_quit; +} + +sub browse +{ + my $widget = shift; + my $dialog = new GCFileChooserDialog($lang{InstallDirectory}, $installDialog, 'select-folder'); + $dialog->set_filename($installDialog->{path}->get_text); + my $response = $dialog->run; + if ($response eq 'ok') + { + $installDialog->{path}->set_text($dialog->get_filename); + } + $dialog->destroy; + +} + +$installDialog->set_title($lang{InstallTitle}); + +my $vbox = new Gtk2::VBox(0,0); + +my $panelDepend; +eval { my $dialog = new Gtk2::Expander() }; +my $hasExpander = ($@ ? 0 : 1); +if ($hasExpander) +{ + $panelDepend = new Gtk2::Expander($lang{InstallDependancies}); + $panelDepend->set_expanded(0); +} +else +{ + $panelDepend = new Gtk2::VBox(); + $panelDepend->set_border_width(0); + my $button = new Gtk2::Button($lang{InstallToggleDependancies}); + $panelDepend->add($button); + $button->signal_connect(clicked => sub { + my ($widget, $panel) = @_; + my @children = $panel->get_children; + my $table = $children[1]; + if ($table->visible) + { + $table->hide; + } + else + { + $table->show; + } + $panelDepend->get_parent->get_parent->resize(1,1); + }, $panelDepend); +} + +my %mand = %$mand; +my %opt = %$opt; +my $tableDepend = new Gtk2::Table(3 + scalar(keys %mand) + scalar(keys %opt),2, 0); +$tableDepend->set_row_spacings(10); +$tableDepend->set_col_spacings(20); +$tableDepend->set_border_width(10); + +my @missing = (); +my $labelMand = new Gtk2::Label($lang{InstallMandatory}); +$labelMand->set_alignment(0.5, 0.0); +$tableDepend->attach($labelMand, 0, 2, 0, 1, 'fill', 'fill', 0, 10); +my $i = 1; +foreach (sort keys %mand) +{ + my $label1 = new Gtk2::Label($_); + my $label2 = new Gtk2::Label($mand{$_}); + + $tableDepend->attach($label1, 0, 1, $i, $i+1, 'fill', 'fill', 0, 0); + $tableDepend->attach($label2, 1, 2, $i, $i+1, 'fill', 'fill', 0, 0); + + push @missing, $_ if ($mand{$_} eq 'KO'); + $i++; +} + +%opt = %$opt; +my $labelOpt = new Gtk2::Label($lang{InstallOptional}); +$tableDepend->attach(new Gtk2::HSeparator, 0, 2, $i, $i+1, 'fill', 'fill', 0, 10); +$i++; +$tableDepend->attach($labelOpt, 0, 2, $i, $i+1, 'fill', 'fill', 0, 10); + +$i++; +foreach (sort keys %opt) +{ + my $label1 = new Gtk2::Label($_); + my $label2 = new Gtk2::Label($opt{$_}); + + $tableDepend->attach($label1, 0, 1, $i, $i+1, 'fill', 'fill', 0, 0); + $tableDepend->attach($label2, 1, 2, $i, $i+1, 'fill', 'fill', 0, 0); + + $i++; +} + +my $scrollDepend = new Gtk2::ScrolledWindow; +$scrollDepend->set_policy ('automatic', 'automatic'); +$scrollDepend->set_shadow_type('none'); +$scrollDepend->add_with_viewport($tableDepend); +$scrollDepend->set_size_request(200, 300); +$panelDepend->add($scrollDepend); + + +my $hboxActions = new Gtk2::HBox(0,0); +my $hboxControls = new Gtk2::HBox(0,0); +my $vboxClean = new Gtk2::VBox(0,0); +my $ok = new Gtk2::Button->new_from_stock('gtk-ok'); +my $cancel = new Gtk2::Button->new_from_stock('gtk-cancel'); + +my $label; + +if (scalar(@missing)) +{ + $hboxActions->set_border_width(10); + $label = new Gtk2::Label($lang{InstallErrorMissing}); + my $vboxMissings = new Gtk2::VBox(0,0); + + $vboxMissings->pack_start(new Gtk2::Label($_),0,0,0) foreach (@missing); + + $hboxActions->pack_start($vboxMissings,0,0,0); +} +else +{ + $installDialog->{clean} = new Gtk2::CheckButton($lang{InstallWithClean}); + $installDialog->{clean}->set_active(1); + $vboxClean->pack_start($installDialog->{clean},0,0,10); + + $hboxControls->pack_end($ok, 0, 0, 10); + $hboxActions->set_border_width(20); + $label = new Gtk2::Label($lang{InstallSelectDirectory}); + $installDialog->{path} = new Gtk2::Entry; + $installDialog->{path}->set_text('/usr/local/'); + $hboxActions->pack_start($installDialog->{path},1,1,5); + my $imagesButton = Gtk2::Button->new_from_stock('gtk-open'); + $imagesButton->signal_connect('clicked', \&browse, $installDialog); + $hboxActions->pack_start($imagesButton,0,0,5); +} + +$hboxControls->pack_end($cancel, 0, 0, 10); + +my $sep1 = new Gtk2::HSeparator; +my $sep2 = new Gtk2::HSeparator; + +$vbox->pack_start($panelDepend,1,1,10); +$vbox->pack_start($sep1,0,0,0); +$vbox->pack_start($vboxClean,0,0,10); +$vbox->pack_start($label,0,0,5); +$vbox->pack_start($hboxActions,0,0,10); +$vbox->pack_start($sep2,0,0,0); +$vbox->pack_start($hboxControls,0,0,5); + +$installDialog->add($vbox); + +$ok->signal_connect('clicked' => \&graphicInstall); +$cancel->signal_connect('clicked' => sub { Gtk2->main_quit; }); +$installDialog->signal_connect(destroy => sub { Gtk2->main_quit; }); + +$installDialog->show_all; +$installDialog->resize(1,1); + +$tableDepend->hide if ! ($hasExpander); + +Gtk2->main; + +0; diff --git a/app-misc/gcfilms/gcfilms-5.3-r1.ebuild b/app-misc/gcfilms/gcfilms-5.3-r1.ebuild new file mode 100644 index 00000000..395bec90 --- /dev/null +++ b/app-misc/gcfilms/gcfilms-5.3-r1.ebuild @@ -0,0 +1,35 @@ +# Copyright 1999-2004 Gentoo Foundation +# Distributed under the terms of the GNU General Public License v2 +# $Header: $ +# Nonofficial ebuild by Ycarus. For new version look here : http://gentoo.zugaina.org/ + +inherit eutils + +DESCRIPTION="catalogue films" +DESCRIPTION_FR="Une application permettant de gérer un catalogue de films" +HOMEPAGE="http://www.c-sait.net/gcfilms/" +SRC_URI="http://download.gna.org/gcfilms/${P}.tar.gz" + +SLOT="0" +LICENSE="GPL-2" +KEYWORDS="~x86 ~amd64" +IUSE="" +RESTRICT="nomirror" + +S=${WORKDIR}/${PN} +DEPEND="dev-perl/gtk2-perl + dev-perl/libwww-perl" + + +src_install() { + cp -f ${FILESDIR}/install-gcfilms ${S}/install + chmod u+x install + dodir /usr + ./install --prefix=${D}/usr --nomenu --noclean || die + fperms 755 /usr/bin/gcfilms + dodir /usr/share/applications /usr/share/pixmaps + insinto /usr/share/applications + doins share/applications/gcfilms.desktop + insinto /usr/share/pixmaps + newins share/gcfilms/icons/gcfilms_logo128.png gcilms.png +} -- cgit v1.2.3