summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--app-misc/gcfilms/Manifest3
-rw-r--r--app-misc/gcfilms/files/digest-gcfilms-5.3-r11
-rw-r--r--app-misc/gcfilms/files/install-gcfilms450
-rw-r--r--app-misc/gcfilms/gcfilms-5.3-r1.ebuild35
4 files changed, 0 insertions, 489 deletions
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;
- $_ = <stdin>;
- 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 (<FILE>)
- {
- 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
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-09-19 23:51:03 +0000