Import mapivi-0.91

Picture Viewer and Organizer written in Perl/Tk. Mapivi supports adding,
viewing and editing of JPEG meta informations like:
EXIF, IPTC/IIM and JPEG comments.

Based on a submission by maintainer Giovanni Bechis on ports@.
This commit is contained in:
ajacoutot 2007-05-29 17:08:59 +00:00
parent a522c9bc3e
commit 94ad403f61
5 changed files with 174 additions and 0 deletions

43
graphics/mapivi/Makefile Normal file
View File

@ -0,0 +1,43 @@
# $OpenBSD: Makefile,v 1.1.1.1 2007/05/29 17:08:59 ajacoutot Exp $
COMMENT= "image viewer and organizer"
DISTNAME= mapivi091
PKGNAME= mapivi-0.91
CATEGORIES= graphics x11
HOMEPAGE= http://mapivi.de.vu/
MAINTAINER= Giovanni Bechis <g.bechis@snb.it>
# GPL
PERMIT_PACKAGE_CDROM= Yes
PERMIT_PACKAGE_FTP= Yes
PERMIT_DISTFILES_CDROM= Yes
PERMIT_DISTFILES_FTP= Yes
EXTRACT_SUFX= .tgz
MASTER_SITES= ${MASTER_SITE_SOURCEFORGE:=mapivi/}
RUN_DEPENDS= :p5-Tk->=804.025:x11/p5-Tk \
::graphics/p5-Image-Info \
::graphics/p5-Image-MetaData-JPEG \
::graphics/ImageMagick \
::graphics/jhead
USE_X11= Yes
NO_BUILD= Yes
NO_REGRESS= Yes
pre-configure:
@perl -pi -e 's,!!LOCALBASE!!,${LOCALBASE},g' ${WRKSRC}/mapivi
do-install:
${INSTALL_DATA_DIR} ${PREFIX}/share/mapivi
${INSTALL_DATA_DIR} ${PREFIX}/share/mapivi/PlugIns
${INSTALL_DATA} ${WRKSRC}/pics/* ${PREFIX}/share/mapivi/
${INSTALL_SCRIPT} ${WRKSRC}/PlugIns/* ${PREFIX}/share/mapivi/PlugIns
${INSTALL_SCRIPT} ${WRKSRC}/mapivi ${PREFIX}/bin
.include <bsd.port.mk>

5
graphics/mapivi/distinfo Normal file
View File

@ -0,0 +1,5 @@
MD5 (mapivi091.tgz) = fE+1RJKXhBffBa0bfrCcBw==
RMD160 (mapivi091.tgz) = UIFyUUhiSWuZUIDX5WBcHY4/Das=
SHA1 (mapivi091.tgz) = U9KFzUP9hBjKq8KYJ1oEcwioFkM=
SHA256 (mapivi091.tgz) = VlUJD7Sss1Ax8YgGsEMjLp5WT/F0hl3DT1uRBMsRUq0=
SIZE (mapivi091.tgz) = 359537

View File

@ -0,0 +1,95 @@
$OpenBSD: patch-mapivi,v 1.1.1.1 2007/05/29 17:08:59 ajacoutot Exp $
--- mapivi.orig Tue Oct 31 04:21:59 2006
+++ mapivi Tue May 29 18:56:03 2007
@@ -341,7 +341,7 @@ my $nrToConvert = 0;
my $maxCommentLength = 2**16 - 3; # a comment block may have max 64kB
my $trashdir = "$configdir/trash"; # the trashcan
-my $plugindir = "$configdir/PlugIns"; # the mapivi plugin dir
+my $plugindir = "!!LOCALBASE!!/share/mapivi/PlugIns"; # the mapivi plugin dir
my $iptcdir = "$configdir/IPTC_templates"; # the IPTC templates directory
my $configFile = "$configdir/mapivirc"; # the configuration file
my $file_Entry_values = "$configdir/Entry_values";
@@ -422,7 +422,7 @@ my %new_keywords;
my %ignore_keywords;
# external programs used by mapivi
-my %exprogs = qw/convert 0 composite 0 jhead 0 jpegtran 0 jpegpixi 0 mogrify 0 gimp-remote 0 gimp-win-remote 0 montage 0 xwd 0 identify 0 thunderbird 0 exiftool 0/;
+my %exprogs = qw/convert 0 composite 0 jhead 0 jpegtran 0 jpegpixi 0 mogrify 0 gimp-remote 0 montage 0 identify 0 exiftool 0/;
# short comment about the usage of the external programs
my %exprogscom = (
"convert" => "build thumbnails",
@@ -433,10 +433,7 @@ my %exprogscom = (
"mogrify" => "change the size/quality of pictures",
"montage" => "combine pictures to e.g. index prints",
"gimp-remote" => "edit pictures with The GIMP (only UNIX)",
- "gimp-win-remote"=> "edit pictures with The GIMP (only windows)",
- "xwd" => "make a screenshot of a window or desktop",
"identify" => "describe the format and characteristics of a picture",
- "thunderbird" => "send pictures via email",
"exiftool" => "Read/write meta information in image files",
);
# where to find the external programs (resources)
@@ -449,9 +446,7 @@ my %exprogsres = (
"mogrify" => "Image Magick http://www.imagemagick.org",
"montage" => "Image Magick http://www.imagemagick.org",
"gimp-remote" => "The GIMP http://www.gimp.org",
- "gimp-win-remote"=> "gimp-win-remote http://sourceforge.net/projects/gimp-win-remote/",
"identify" => "Image Magick http://www.imagemagick.org",
- "thunderbird" => "http://www.mozilla.org/projects/thunderbird/",
"exiftool" => "http://owl.phy.queensu.ca/~phil/exiftool/",
);
@@ -505,7 +500,7 @@ my %config = (
"ColorThumbBG" => "azure3",
"ColorProgress" => "#106dba",
"ColorPicker" => "red", # last color selected with color picker
- "DefaultThumb" => "$configdir/EmptyThumb.jpg",
+ "DefaultThumb" => "!!LOCALBASE!!/share/mapivi/EmptyThumb.jpg",
"Copyright" => "copyright (c) $copyright_year Herrmann",
"Comment" => "This picture was taken in south africa ...",
"MaxProcs" => 1,
@@ -1854,9 +1849,7 @@ sub startup {
if ($config{NrOfRuns} == 0) {
#whereIsPerl();
makeConfigDir();
- copyConfigPics();
copyOtherStuff();
- copyPlugIns();
}
$config{NrOfRuns}++;
gratulation() if (($config{NrOfRuns} % 1000 == 0) and ($config{NrOfRuns} > 0)); # modulo
@@ -13073,8 +13066,6 @@ sub createMenubar {
}
slideshow();
}, -accelerator => "<s>");
- $view_menu->command(-label => "use actual picture as desktop background",
- -command => \&setBackground);
$view_menu->command(-label => "smart update",
-command => sub { smart_update(); });
@@ -13217,7 +13208,6 @@ sub addFileActionsMenu {
$fop_menu->command(-label => "copy to ...", -command => sub { copyPicsDialog(COPY, $lb); } );
$fop_menu->command(-label => "link to ...", -command => \&linkPicsDialog) if (!$EvilOS);
$fop_menu->command(-label => "move to ...", -command => sub { movePicsDialog($lb); } );
- $fop_menu->command(-label => "send to ...", -command => sub { sendTo($lb); } );
$fop_menu->command(-label => "convert ...", -command => sub { convertPics($lb); } );
$fop_menu->command(-label => "copy to print ...", -command => sub { copyToPrint($lb); }, -accelerator => "<Ctrl-p>");
$fop_menu->command(-label => "rename ...", -command => sub { renamePic($lb); }, -accelerator => "<r>");
@@ -15630,7 +15620,7 @@ sub makeButton {
my $picName = shift;
my $func = shift;
- my $pic = "$configdir/$picName";
+ my $pic = "!!LOCALBASE!!/share/mapivi/$picName";
my $image = $parentWidget->Photo(-file => $pic) if -f $pic;
if ($image) {
@@ -17178,7 +17168,6 @@ If this option is enabled one viewer will be started l
"viewer pic1.jpg pic2.jpg pic3.jpg",
if not 3 viewers will be started like this:
"viewer pic1.jpg" "viewer pic2.jpg" "viewer pic3.jpg".');
- labeledEntry($dF, 'top', $w, "Tool to set the desktop background",\$tmpconf{ExtBGApp});
# ############### button frame ########################

View File

@ -0,0 +1,3 @@
Picture Viewer and Organizer written in Perl/Tk. Mapivi supports adding,
viewing and editing of JPEG meta informations like:
EXIF, IPTC/IIM and JPEG comments.

28
graphics/mapivi/pkg/PLIST Normal file
View File

@ -0,0 +1,28 @@
@comment $OpenBSD: PLIST,v 1.1.1.1 2007/05/29 17:08:59 ajacoutot Exp $
bin/mapivi
share/mapivi/
share/mapivi/EmptyThumb.jpg
share/mapivi/MapiviIcon.gif
share/mapivi/MapiviIcon32.gif
share/mapivi/MapiviIcon32.ico
share/mapivi/MiniPic.jpg
share/mapivi/MiniPicMulti.jpg
share/mapivi/PlugIns/
share/mapivi/PlugIns/Channel-Separator
share/mapivi/PlugIns/Channel-Separator.txt
share/mapivi/PlugIns/Join-RGB
share/mapivi/PlugIns/Join-RGB.txt
share/mapivi/PlugIns/checkDir-plugin
share/mapivi/PlugIns/checkDir-plugin.txt
share/mapivi/PlugIns/filelist-plugin
share/mapivi/PlugIns/filelist-plugin.txt
share/mapivi/PlugIns/test-plugin
share/mapivi/PlugIns/test-plugin.txt
share/mapivi/StopPic.gif
share/mapivi/add.gif
share/mapivi/delete.gif
share/mapivi/edit.gif
share/mapivi/exif.gif
share/mapivi/iptc.gif
share/mapivi/logo.jpg
share/mapivi/thumbExample.jpg