From 3b34b7c30ff41764e762340a5112345dfacdf383 Mon Sep 17 00:00:00 2001 From: Bertrand Jacquin Date: Tue, 3 Jan 2006 04:26:50 +0000 Subject: del gcfilms --- 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 deletions(-) delete mode 100644 app-misc/gcfilms/Manifest delete mode 100644 app-misc/gcfilms/files/digest-gcfilms-5.3-r1 delete mode 100644 app-misc/gcfilms/files/install-gcfilms delete 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 deleted file mode 100644 index d965f7bb..00000000 --- a/app-misc/gcfilms/Manifest +++ /dev/null @@ -1,3 +0,0 @@ -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 deleted file mode 100644 index bace19ce..00000000 --- a/app-misc/gcfilms/files/digest-gcfilms-5.3-r1 +++ /dev/null @@ -1 +0,0 @@ -MD5 58743009cb2d5a821f33205efa8d4346 gcfilms-5.3.tar.gz 529393 diff --git a/app-misc/gcfilms/files/install-gcfilms b/app-misc/gcfilms/files/install-gcfilms deleted file mode 100644 index 1452c03f..00000000 --- a/app-misc/gcfilms/files/install-gcfilms +++ /dev/null @@ -1,450 +0,0 @@ -#!/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 deleted file mode 100644 index 395bec90..00000000 --- a/app-misc/gcfilms/gcfilms-5.3-r1.ebuild +++ /dev/null @@ -1,35 +0,0 @@ -# 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