mapivi097/html/light.css 0000744 0001750 0001750 00000005044 10120125150 015565 0 ustar herrmann herrmann body {
background-color: #dddddd;
}
p,ul,ol {
color: black;
font-size: 80%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
text-align: justify;
}
h1, h2, h3, h4, h5, h6, big
{
font-family: "Trebuchet MS", Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
big
{
color: #454545;
font-size: 130%;
font-weight: bold;
}
h1
{
color: #454545;
font-size: 130%;
font-weight: bold;
padding-bottom: 0px;
}
h2
{
color: #707070;
font-size: 120%;
font-weight: normal;
border: 1px solid #cccccc;
border-width: 0px 0px 1px 0px;
padding-bottom: 0px;
}
h3
{
color: #707070;
font-size: 110%;
font-weight: normal;
padding-bottom: 0px;
}
.right {
text-align: right;
}
.left {
text-align: left;
}
.center {
text-align: center;
}
.nav {
color: #000000;
font-weight: bold;
text-decoration: none;
font-size: 80%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
.title {
color: #000000;
font-weight: bold;
font-style: italic;
text-decoration: none;
font-size: 130%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
.boxtitle {
color: #000000;
font-weight: bold;
font-style: italic;
text-decoration: none;
font-size: 105%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
.box {
background-color: #eeeeee
}
.boxhead {
background-color: #aaaaaa
}
.small {
color: #000000;
font-size: 60%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
.footer {
color: #555555;
font-size: 60%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
text-align: center;
}
a {
color: black;
font-weight: bold;
text-decoration: none;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:active {
text-decoration: none;
}
a:hover {
color: #ff3300;
text-decoration: underline;
}
div.pic h1.headline {
margin-top: 0px;
margin-bottom: 2px;
}
div.pic h1.headline span.name {
float: left;
}
div.pic h1.headline span.index {
float: right;
}
div.pic p.pic {
margin-top: 2px;
margin-bottom: 2px;
}
div.pic p.caption {
margin-top: 2px;
}
p.byline,
p.location {
font-style: italic;
font-size: 67%;
}
p.byline {
margin-bottom: 0pt;
}
p.location {
margin-top: 0pt;
}
p.exif,
p.iptc {
color: #454545;
}
mapivi097/html/simple.html 0000644 0001750 0001750 00000003247 10014462522 016136 0 ustar herrmann herrmann
<!-- mapivi-galtitle -->
[home] / [galleries] / /
[Prev]
[Up]
[Next]
-
mapivi097/html/readme.txt 0000644 0001750 0001750 00000000776 10014462522 015761 0 ustar herrmann herrmann This directory contains two HTML page templates for mapivi and a style file:
simple.html is a simple page template which will produce pure HTML pages
light.html is a template with a clear style using tables. The colors can be changed by the style sheet light.css
the file light.css should be located two directories below the album pages e.g.:
/light.css
/albums/albumOne/pic1.html
/albums/albumOne/pic2.html
/albums/albumOne/pic3.html
mapivi097/html/light.html 0000644 0001750 0001750 00000011174 10120125150 015741 0 ustar herrmann herrmann
<!-- mapivi-galtitle --> - <!-- mapivi-title -->
/
mapivi097/html/fluid.css 0000644 0001750 0001750 00000004541 10320620726 015574 0 ustar herrmann herrmann * {
padding: 0;
margin: 0;
}
body {
color: #000000;
background-color: #dddddd;
font-size: 10pt;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
p,ul,ol {
text-align: justify;
}
h1, h2, h3, h4, h5, h6
{
font-family: "Trebuchet MS", Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
h1
{
color: #454545;
font-size: 160%;
font-weight: bold;
}
h2
{
color: #454545;
font-size: 140%;
font-weight: bold;
}
#head #path {
color: #000000;
font-weight: bold;
text-decoration: none;
font-size: 100%;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
a {
color: inherit;
text-decoration: inherit;
font-weight: bold;
}
a img {
border: 1px solid black;
}
a:link {
color: #0000FF;
text-decoration: underline;
}
a:visited {
color: #000080;
text-decoration: underline;
}
a:active {
color: red;
text-decoration: underline;
}
a:hover {
color: red;
text-decoration: underline;
}
#head,
#foot {
background: white;
border: 1px solid black;
margin: 1em;
padding: 0.5em 1em 0.5em 1em;
}
#mainspacer {
float: right;
margin: 0 1em 1em 0.5em;
padding-left: 2em;
border-left: 2px solid #dddddd;
}
#main {
float: right;
background: white;
border: 1px solid black;
padding: 0.5em 1em 0.5em 1em;
}
.thumbs {
margin: 1em 0.5em 1em 1em;
}
.thumb img {
width: 22%;
min-width: 6em;
vertical-align: top;
border: 1px solid black;
margin: 0 0.5em 0.5em 0;
}
#head,
#foot {
clear: both;
}
#main #name {
float: left;
}
#index {
float: none;
}
#main #index {
float: right;
color: #454545;
font-size: 140%;
font-weight: bold;
font-family: "Trebuchet MS", Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
}
#main img {
display: block;
clear: both;
border: none;
padding-top: 0.5em;
margin: 0 auto;
}
#main p + p {
margin: 1ex 0 0 0;
}
#main #byline,
#main #location {
font-style: italic;
font-size: 80%;
}
#main #location {
margin-top: 0;
}
#main #exif,
#main #iptc {
color: #454545;
}
#foot {
color: black;
font-family: Verdana, "Lucida Sans", Arial, Geneva, Helvetica, Helv, "Myriad Web", Syntax, sans-serif;
text-align: center;
}
#foot #copyright {
float: left;
}
#foot #date {
float: right;
}
#foot #hack {
clear: both;
}
mapivi097/html/fluid.html 0000644 0001750 0001750 00000004356 10320620772 015755 0 ustar herrmann herrmann
<!-- mapivi-galtitle -->: <!-- mapivi-headline -->
mapivi097/pics/thumbExample.jpg 0000644 0001750 0001750 00000044562 07750163735 017134 0 ustar herrmann herrmann JFIF H H F(c) 2003 Herrmann
Urlaub auf dem Bauernhof Allgaeu Weiler-Simmerberg'Exif II* ( 1 2 i TOSHIBA Exif JPEG TOSHIBA PDRM70 H H Digital Camera PDRM70 Ver1.30 2003:06:02 17:13:39 " ' d 0210
0 8
@ H | P 0100 d >
2003:06:02 17:13:39 2003:06:02 17:13:39 H
5
R98 0100 ( H H
!$! $
} !1AQa"q2#BR$3br
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz
w !1AQaq"2B #3Rbr
$4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz x ! ? *xҷc Vj;$[@ 3Lo^kh <@^{WijkSϧ{e 'B8cQR85-Y;zDv.qW OF#ͳuc|ltvRF6GѿxjkWe"& kz_
B\*+ 4f= MaOm+mҴ+TVeCS9T s[\[L洝h
OZ|=sy{ w6nvRMLˍ99$Z e[-j$@ouަnlXʅ9b>lb)Jw=e$dTp{WC 44Eg@efm7Y3T [:fdV{+S?Y0H9ɫ6lw&ưz˫Kõfl?ߊb
wj.U>ZlhL6$ >J;yIʟ^kK+5U۞5ZI .2c֣Ѣu;!Uq\lfR8XN}H%rxR G' I ܬSpJ[Ӛn5Z|1O~y隔ew6 6dV87bTc%!)D?ƿ[[@5
3!~c*r7g5h+u_]N<͑ +s#c ]**RGGo'" lm?zׁV5 dt@:U 3T\P`To:B3#F5{QkOӭf;|pRnVF2ĹSVx$;qjkJ{[I&i v (5sk)k| 8 ~ajKy5i*+#
`T$^eT3o;kPY/=ĉ `eA_NJ1Or4 %Cz r=Q-6j]ο^'Vn+ F2{I%{_e 8A%͚>Yo!; ck rTPO#+)˖_֦5RZ=NSpn0pc 1a^-L3Aި%ݔ'?t %k=B[ :܆`aU9V
mϛ`2TDOyۭ0;J;
v4 -/1nd 3;"'ռ1A, 5o31^ 빊!e>b,u6lm^ Y E Ԍ]S,B$ N-TwV իi˧fcȋ}
7(PUx&;-98 g#zɻ5R,+i-3%#Amqq99 Ԧ-0>6:H; kl$]
P!7ʮt:~{k5{.oGMZBw储}I
'u}/+Ot/jv2[V0Wqb#ܚҍ9έv1Uϓ'k").),\ hᲫ*'&)966l.dF !5d^\"I*MŴ~#qz (zנ] #
gֳh'4b# +Sn#T{4id=Kƞ8ԭbK.$]Y a#(W#YXA qhk/X)$@.3Bb#'uc((FMB(uIne!,a$p7g=Nx8kGܼ{6fzG-4{>JԥH._23,1$ nܨFGVCl#H@ƃj" t8v&[(-Vv =ŽxG`ļ b*ż<)JoRw |GO+Ofm$<1n 8OӞkcd Hv0#8 qzNH89 ڤK|pr3.Qē}ؼC* @9G*|+zۡV[̑5x NK(9Dfr˒W<i{-]I}I n-@Y]ehi5
|?SKX-w{EҌl06~,G
Z;k8`MM[7gP4x *rUkWrU~CðhFfayF9UNۻz溸0NU8$y.G:ίAo3 oẋ\Fk JU8aS="m'˱*\,; < r?:EC+hU8R9#p{qҾWmbF QFs۟Nz rb,ʹeLy9pP~T)ۀWs+ r \uH
20峁럮=黭ؖ+$ڀB͂ݰ~ D 2r 98tW,$z~YٲgR_ѭa%Rt:6wkر d 6;t+$J̒E F' ?5zW7I`jԋ]aeԺ*UC.*t{}jqMzfη.zN s5ʉ C2t8װ S7`bYHdW N;}v tl~0x q Ѥ1ubIZ֖>ԟ_̥nz>Y²eFI@9?C2$qK1 ,H OSVjqL
K
pPsREcqi$^IXry=4KrHi 3fヴӯC۷jcC,,RrH"5mZ$&0 v99QD0 J g9S+&Ymfݒ,8 sTgKp\ߕ?Z-~q#=I90< { JOA^RY 91x\c4?0o#a]}94+nCI3BKm Nl䅇7QK)nF[cxO"T Fs.kl4 ,` zT
i4e$ xq)j4Ѿۄ[z¹#1FZ6 s$oq[avd }8= O$qzǧ*b]JH g=
St &:c' <=^W+D r9#8 s:7 ꮵ Y#HX ݓߌ}qr՜IVSO<E5mt
0DO< _֢Ws1l T%Xv#oUA`|%={
cPQIzRUɎC߮HI .ߔ>H5>Lƥƥ]dg?\Sg[spH'~?Rl C
$.' ",# (7),01444 '9=82<.342 C
2! !22222222222222222222222222222222222222222222222222 " E !"12AQBaqR#br$3cs%5CSU % !1QAR"aq ? +xXLjhث
NƂֹdS2Mߵ.GĖ*WG
D74r Ib(7OiK&gݸ ~QZ(r4cڭbP{UsG
Ej LTPhT\IoB䜚nQiA=yWz>!;
CG,ZGݥ:To^ <.M1onjWW* ki7[pUJc|i M+-Aץ{UmH)9]S4e:tR;KhW?J;fFǕLSɥUʯ-FW$
Q h$
oٴs$|9wsF^Y&c+ {_
sݻJJ-24 2 mq땵g?w) B
rI SYe[a "Xg?\o3J͂{(̥I sSl}(ѡzCR +T հsY*RRVI5N'$&ʫ)bVjf]Jn@ |ʠ04%bhij7`Rŵ+,4,9J2Zk YWf z6Q
k|h ,RBnHКe#Eo/giwgV+X)TޟW
Nw. m)d@3EK3 qN'%nʫQ/Xc*аڛ&AK
MCS1&GV5ESJQZJ5]`:k5-6UP,LUZU28S :
[Qa' Ic]N "h Uޓ;̓DI4ZuvcsAqSjıX 1=ET4qޟӅYNHR}*WʑɹsҗRv4i P}Y `*JejZVaտ&ițZ5IEGMuJe J`ԮSɽQ
ɜb6jt 朄LirAǑUJ*U]JbR翺5^>uΏTgZdOY]?4pp1.~ f֭թ|)NaC4BdčO^]9yk
l!LA b>[DB hԑwS0:h*Th*T2cR19U)K$2sm F>T8fs>@b8_v#u4fBWoT];_8q> g9_?-
`5ӎDt Wm$gj^Vb" RQ(bı~^U
A82iy.s g̚7Yeuv첬q AG_vs./Yp@C6 :W:[1p ӵpt#cN#/f9Ax/sn.uՕaieV }ڎ=m}^Yq)H;.܉H F>]-H]]Wţ) cXf/?u6 U;' Dļz~ڦ8VD?kS4`]Qf ]MoݥeQB98իImOkor"hDf}}]Y]?fIpt-v
TrKo 6sD Votcn#H.G u4YuRm uK^
H)P"2s"\i8]Xv3;rJ&9
:WZMM 73[[Uj2ak*]9-:J_´\^^l%6IVҺ|ZKBӄ,mn_W/`8lҽb>Z +cOξ
4"ZU}G~8/0^WH ` ˝=+]=L GL93ݨnt 3PwRPFz[sZ(h$Bh)%v:yJeOr(Jd"6[;gm@ZĉR]Cc;ЧHr$MmYYYP' ¶22ԩR2;sޱ=FGzCVGzo[[2
іp&㸭ޔhXڝvN\51 zOIa:,s2˾0Ep*w89&ld v`VRҩeC#1ȑi]Z|Z{.iY崙ilNK1>\oӏSWmy
2 /hHnTGPV2Wqxv ں=*LEnO\͓IӷWQZɼK^qySFr; MA<0Y%eF,̽=o gg ^H/o- ]8g2UoHOm%+
q{p9-+%]=*u!:HU-u|-'e_ۤ1\=ʌȀ*fmYbp
ѫ?
\q {eonPNsI5Ԅ`#ڐťPdԒG@=<9) D Օp'T9|hJw\Y̿y}#n ܷlmJ YvSZzH\2*{yީ >ׁZIs kN-$Չ" Ć̇rC5;
̝ ?*! tA1 u<l-lc{U mJP6R>ʶ?_3{:%8"%W*9ex[gmP\acX*JsW*WKq{i_[ # RY^#Z_ԉS*,UpVͥw篮Krl/\,سjuTG[m. |AYې5%I\mUow v7ë#(3 `qQ/D5Κ_] ~/\p^)8C/Lu c?V\/ 6 6/ z[Ofe 7U PIh|u|>.K)"a&s)lieotfi<8 4~/uV9> |p7m"pUoYuW^{I"^#knVQ#u>-RiGOWK.mU%Hj6
++|:^-cHddxK2G+` yyGYVybfNcnڼ"7+q].wx@uڎi֝BZ|{lKUR0c +n sXq;>dqGV]>Uϭ;S3E]\kޤ\:GOB3\v`и\ ?J5G(:U ; ]$+kdszV7v1* z 0 7 \Z ۠V
%bvZ & /j Z
\N >V8' o5~խ[W4qnq h[ Cpq7EKi=_B@!I]uq|RV.%¯-nxㄎcmumV٥ X; Pz>o W-+ksҺtk+[S췲$
ɒK#̊ E_ҭUzW
=2nV+PcR. 4Y[FfHsMZzUKZx?[@ȱ{Ax-9XDƭUTV\ۤW &b|>KԶP++u,i1t}'I,7pB[V;a+kOR 2Ol8kD ڴjUT*cƪY叹bחn,V[JCcEalt|[ki+ 9g$#ӐUbWV' 䶑F=Cni qq
5Y;R[ȱ$]:~aow\=_gnz]^3IjvfFOIYt>x
Ceg3,Su+PKi鯦 -Û{%ebs¶ qYܨ__4,~(ُ Yjkh a
"ڷ[zWQChIߓ/'!}EM֣maH";QqPv]tAw'Z%VL]GΫSjih'Nw=jcA88Y ۬yNru3]<%zNcNf!7u.X{N| o u.H;FmqAg @?g#֩i#f
@mj +aΜp-ǧKt zzm'#ҍ2J[n9lH== GbOW8 襳LƢPB`7m (g F 2})m"]Yخݪj
f>%ebrGcQiO`R~艹zagQS87a==k z|u@Q; mѺ A@ # gZΤf ܪ0P Oa\
A@XHbWY 5A9Ѻd_qǕlLt x-'H :\
JW;Ls$Jvj.f +(\v'aޔdfkȎiNpki8M}.\~tpr5.=<`F*Fe4 q+Ķ'#տ ~%.::vk: UX{QǓx.:"ȼj8
.ն5|g BIw9 D5gUYkGqq^i"է2gNs*l;k?`I=# w#PnGεP7%l! @ӀFug(c/n=J| :lz
[-XӧH`LG __ơU>c֧ ) $U$B$ߤb0
sTC~Xz9
(ܮ0?UWlmʽN_%82MGX n R['u 98*VI9ޝ;O llY+ά~og ` &QNT7ڴU$NGM=+$
دle8??`Vn Zs ګV6z eZ" SY'In
5F>@ /Ƙ1KmoTApMl#JT UbBN7 ϑ; J6T
XFri ҡ 3 >s.{gF D
VL$7?JgN@EFcG@$>U1$a5\*d9L<9l:Nw+D:d @Tzp֛q>UzUu TZv\~ұeq
RY|ޣe Jsv #J ;b08Hz**T /j\?<ԩL !g}?:7'rsR(msuxT?r Ҁj)d8Ak$v\( 1;e }R9IҁJ65@Kz#ԩL5'j(
gc$tbO1c{3ldC@$_ثIfcq}9Hi%E
ޭ$ ?y *Բvs/)fMwm@8 RUSsi+ꐆ(BŀX'51
ղ
:[
q}⊛P=-~w~vº!B:uП¥ !i -.@ES3w<O >usgd XBKIKrHBO"X%WdTE}]ۅ \u61 ,B(҇Rځ yuǙB/o;LynB4Dqt
pT'Cm`nq
(~k1ynS;r-[~N~Q*D-_nBr4D:A [ ,f[i@W *0+EmOfR_zzN XАx 'jbcFKJ[ɷ*YMʭ{
A#cq )SZB:b-ۆĞ鰻Z*^8:î
J 9X+OZ0?OKna(\ *Q꾗߂UåOnrFvۏSqh&M?]TgKorx]zcE
s aw?MOUPNl 3?cy5&fVwpgGER Um,X;_/ +4^Q\r2S mݞlq89jV*[9<&XMx]P( ~LB$eIlvBX%H@ME1W
Y-\ߩW&(uؖT4Q0T.BѭPջE҉~Xغ:77Sq}C@A #1l)\{yw Ľ@IJ[7ғ)r0Uki>.ֽ1}2
k~==s4ʼX6; C s5nl)L ,݃ E/a厍{/9wֽ1=
kt=@vXV\KO{1
llZ#8-9vi k^]5L0iD_
tf:c@qs*e }̻ * T\
scGN`Zۛ="O mapivi097/pics/exif.gif 0000744 0001750 0001750 00000002613 07754145642 015412 0 ustar herrmann herrmann GIF89a
!!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~!Created by Martin , ] J =sY8gN
HQ ':q)TIęC)ĊٳT^Ɣ Ԣ=rx2R` ;@|څ !;w$:9QGA{ϝDXQ,^Ŝ=Kb\aǐE
È M~|έC^;8M I\ú5z屆Gk\|jei߾>h q<>D%7&P%Θdic{J*#ti5%̠\j|RW<$pn"=6<$ЃF)hDC@6P+b WG ,Ѕ_]T$J"f1>x>pa
3 a"i
)7B
Ъ
FlTRJ*4 z| 䆄 d" jl D & 6, 䞜 64 l F< JL nl ^\ & bd zt |& ., 4 & B4 \ t" D 2, &$ Z\ zl & >< FD fd & Ԣ tB< l vt *, < NL Ԇ " RL d &$ rt " 6$ NL ^\ & jl ~ & < & >< t& T 24 , " VT ND l" jd T :< t F4 rt ~| >< d L .4 ^\ BD JL B< ., & .$ $ 24 ZT ~| JL >4 VT & d" &$ fd l jl d 쪬 bd :, *$ "$ B4 \ nl D :, l J< fd 4 * d b\ * " L 6< nt &$ z| |& t" &$ >D FL v| NT " < t& V\ ^d .4 &$ s r N y s w w G TXbnn)nnb"TTXbnn)nbX"+nYpppYnb"T"+nYppY)bTT"pUUp)?XTTTXbpUUYn` IdYnX"TTT` dd$UpnaCf1m$UpnT""""T"a|v7wEp\|v^ xO[Un+X"X+X+XXZvj*[$,)Q6j=[Up)++b?)nn?b 6^B*q*[$pQ7tAk&[UbnYYpn 7ox=$,)w Bl [$p)nnYpUpYxqz.[$,w S* [U,Yggp[$Up4E.;.[$,)wB*eP[$pJR$[[wq;l; $pwko5[|tA= [U~w .y;[$,)wB*u8[$Uv1k*z
[MEqye= ,wBo]8[[fEj::qn[$w q=e[$p)wBo8 [Mtoq:: $[ME;=u& $,wB:0c UZ7&]B;zp$ME ;zu&[$,)w*: f:u_ƾ;&] pw*xrvtu>vw;-jy&e $,)w*x06wk2UGfvs>W^A=&0e[$,wo.5Hwtl},CfE |z܄ "dlj D &,646 lDFdf&Ԥ &t T42,"TVDN "ldj T<: t4Ftr|~<> d L4.\^DBLJTV& "d$&df llj ddb,:$*$"4B \ln D,: lLF|vTN " <&t\Vd^4.$& s r N y s w w G ! , I8PTXTBTRypSI OPt!)D(
ԀOdD5A`!Ã%hgQ"E˝*tYR@
pFU@d4 :*\a7?V<ϝPyԨd&7VOE
O<,0%,0`HI̩JwA:$ RNzj edJ'՟t#Xdy|
AL
˖*p|.":O j]vb1Jo4`";)# 4 ep $^%Խ }@r4qu8F qPz,l[(oP#HA}f H #W ( 0
w! U a ^у 0c- "YuLvܱpy`I w]Q @(&tap`:0 UhqC#
zABEti &8g(Ba l.t(x@E q8b]ĨƬqXzGe^Y
B P"᭡
*
đW;ot" JHU yXPnIqZQlg0
xpgp
ԩ +Bq)Fp S0pdJ.-z"FGk0s3̙ hȞ`6 Ј= + 1%6xam *|
|x<+`!y炍&Z0
L@C``F mh]0JSR"
w"$AF' zS1\3d&pTq?@Da!UbLI>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~!Created by Martin , ] J`>y$OBO
HQ ':r(dJ)MșC)Ċe\*V/cʌjH>L!Pkg/vu INNԃ+h t^=s'(V W1gʕX/W 1$(8kc*éRBDQhS%VE =z 3RBuCycȐkCTyuk.x>4BDŃKhN↶
5Ԉ>\Rb"`'8=͟#(R:
8∓ΜWSN┳LcBlKZG =3ُI=3ُI < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤ < ɟzH< ɟzH
|lǤ|lǤi7M-Ԧq[BRҥ ^]XOm{~Y G6am#4;^WV!1S' ~ B!i=̿_/ 5? 5?Cy Â:;mG>^$ jWÁ|^#v?^$Afx<1`^"B >A%J|1`o^ *D49||%K<1o}^ _W0||KĘxdW
TL {K
0փ\^$.Rjx<2Ok_WQ .sxo Z̀ }^ pAˣ ^$6Znx<3`?嫿_W)] 2'~ ߃u/-]7RA!i.sx jр}^ !ˣ.c/ /]7R 0σu/}!Aˣ ^% \7R pσu/vD6 -sx7EsKMsK\a BR,
[?&rx<5l ʗ09l)H9\} vs}cGE5 U& ~(8ꏠÎ?| U&.i?] q}cGAg + >)a m`Pa'⋫Ö?V>T} q±z")Bt 0ag⋷Þ T} 6mƯz"
L9QxtٷꏠæͿT}QАry0Efߌj >æͿT}QBZ )5/?6cW=Qxtٷꏠ2Аry0Ef>5eV?QE@`0aͧîU} vkʭ~"ɇ6/5eV?Qxuٯ*"| L9Q{v٧:ö?վ}P$ L\~(|;l[GBxv٧: ІQ& ~(|;l[GAf>(XCɇ6/4gV?Qxvٟ:%bEf*>3gV?QAsQ& ~(|;WGAf*>(KCa þ U~} gҫ~"Cɇ7=)vqeeTjFme5Jm*BTH6. XF( sOL IGtӽa:ԕF}kq}kq{ P?HÑbEw/aj 8r,Hc [^: h r{xZ@[褛^;^: h rO%Nq 2;$N!7[&ʷޟ?$v1+iBI `a,LrWV!Zsu6d3'Cy=Lgrۇ處jaąȾ2WMf:JqfH*'F_s.ʃI ~?YYTUwAQ~B?{Q0IdJI,Ci3HNWw wfe} p%Mf4+5wKR+sKU|{Q̽=Yqj_ kE=bza 8
1Q! ax p4&4C0 B4Z CKq80N$=4[7`T\jnn 5)Q|3VR.( l Z'Dy5D/{ Meq =13W"y[t;' [s'BM}Q.0qWh멉e`([C HJ1"҄L twhN2 ;UU.!
@$fMR;8}7 xG )7: k9 _uQ)"ҬR:$%GLs (:Eȱt-$;!F5 x) Ĭ ,H+O 3bli'CH
1A1CyÌ%m
DHC Z R? n2 qMnl?6
Jj]!R%Ut( %q"4jfK
T\}Ljc&`ojxߨXG}F8uv=?y|H&gfG`-`eRi2Y+ZN]C?v.Y]⥩>b:%!',\̽Acy`)Yg+UjlM& -w!$Q1匌y;BXcs,QNaei8 $<㩷 M Ɨ0)BsN?4zDH}'Pf EQ joFT , c"MԁlҨBkH%Li@XX\ Sְ2#Sr μuI]m6$Vt7d0iF
sdT͡:}i(Sٰ&it} +Ŧ\< Z>ʴfV.Y_K(UbAXpׄ@,:Ǣ%JR%$j ` nmÕ(ZgMMHߢmneP(Y7p#NQI#$֭m'6I!KB$j"saI۽ xL. )͞a2TdTE hΖI3c̗io+
~UI}"gsW))5ka~kAKg a
uzS.DkE, ]81pTw=&Sn"hѡV)ؖ^ -.mP7
R@";gei!0sB a $8q
" А4Bs,24H d-ւ\C n $,i?(Dye2gq% # s/ ?}kq}kqfz;b^>pX]KZG =j'- #c~Z G*a>fV;` )765$C b>3*F qt,ZtzmEIMn')$(&:N;siY^:.^'2 Y#kCXJIh@ep²l&ZCHJQ
f2EG\Q}zmX,JęܳKSmI,"11~i҆EV x8Ui'&?_g1ÓīLM4e
IiYĨ9- k4(-3ZEzj G`e55OUȋMy$l2yG s'v*r51@I i#. ??54d7/D&'tSw\~+ԥEsUZVJ7Wǭ)|b% ZDk
J18 fcJYPk hZ+H Xw$
.۳*tSa9JԚ\וY xJ-'rtXv2u|]!^ͭ6?ikr!H" a
=;6K Q陦PJ=-/8rՙ$*YKQ
B$l!n0v-5%jΠBrj8u]2ETZaքim醴kFAIVR oS{Jƴ{i .RuAsO*\yC2JmǫAhd.q{δ$vM t{2xQ+JBE\UIv, ͤbIX$j܆}\BfaIKV
Zܭ9AʹDt
vTbM+I&KU1^0LQ w2 %AM $ DSa:bZe :B ?Bs mQU/;2FP[dkȟɐÃ+gC4IK
k;RD}s/*rHlyj{N:Ԭ14}q)l) BFkN1ŨWY~IT*+V9A/YYMjfV
T.3jnb>lx|<4vny R7HOrOu*Rܪ+,i j:M #\"QrRZ\RS2"E q4:VBߔ7yu |s^KeԢPIP@vu!7eΒƫ҉RV'X<^m~ 5IpX]KZG j'-7zT9hЎ^7䆘o8yFald"mi 7KCH%q "DaCD%!<!Ba 5 8qϮQKjU&P؋Am{j5)ME9=9eL5.ihH;*iiPÎ;KJ ̀R+*
)J3!YYKm<ꎁ# ?xt7>yZ&ʸ
ԣ ЄB[o0Zیd!Qrm\..6&n[%: +q;QYeomf11)5&魋&M4놐m꘡ zݘOJjUTpk'ByNu##ƊUR
qٔU:Sp0)uZBYs &bJaC_\e?X yeN`Ùxml\ BOIGuy&+*:PLNIge YqYu.)Vى 4!aSILԽ)*Cx8u>OMTIPH Gzx,_s \ .~Xp~alsf[,%,shs)Y(-Q0TJ4놬]Z1-Yj)P6eU oUj̙j="a;!d
VlN`2%9l"o :KiTKN9!2葛BFSswc᩸Pmnnohr|2
P-|`PG -{4~5MIMv\ZK!zkBt25Uv\B2C6sXԴ{>Taz8FFP)̢ʔ-}9WnlEZ,/RcffraٴLRu
V[H#1\mfrYa,){-T6lmV3I9JL].śeÔꔮT(o5eAe,Y&m-x@쉺r#5"WUS˛NFҕ
N: tfJV ]l?CWIsxfV@^BF-0˄ai }4r0ۧՌN )U di tTʊO=!NR$FdtT9/7Sxѧrs̲uz\,{ ( &9ER*؝[ Bւ
eMm/{U+)$(
U&]N)08)8x TjY͜9ٗUBASXT*ySJgIttۙM(a$I 3
f ̺\ @XbYy;>eܤ.S{fˈ5[Sh.o
6s6PeUj, T%
hVR$xfxȉZd!aJOD#-"; T:"s]jQӯܸIK|7 X{nz.ihJaoTR6)Q q 8¹SS(o:TAZF9>tNrejl P NTԤ˷0u UӚZU-XocNMu4t,ĻlR]!`T#ci,i2;iK4Sݤ|Gmfe)HJrl]o {r qkB L"F/Q{7uIʥARn^% A :hJuЛN6x3g,yҷJ SM$Y'^ [Hi)#%BnUVէdu,lK*ֵ^{8J2 9Yjuih IM٪tnm`JQLC#eJX` HHYVOҝ
6NYMgJ:1#ú3pЗ b)je8<ӮL)Xvz%JvyGG*ڔ܁wIE-Yčz;y *$bhqK):dx 8ym*U^nZ`4Ym,K9s8衧+G JcV$NREϪ@'F
Fpl/nmS.2WZIyUj T/kym\g)$C;3%@v=LcGlYQfXk
DWLMيW&2RBbJu68ln[CPB
A F_s3VhHy BAma`m ht% 6 c B6H iBC- hB hB4B \;%0АxAp C К@f 2gq% =٦S $БCe#zGa B/
s 7n={ B/
s 7n9GlKZG +{ P?HÑbC߱?-Q D[G # 'Ŝg
̄NM몶erJ@ZހOdr櫕GRE6$ІEb"4Wj+s+X
>+M薓k's+8|5gFԨ=@TY[TVp+8is ι s*1*& n]AD&nxX=Wɶ'c=XSꕘS&Zu!+C +Aʄjoq W9fކ8)B&rʹ i5RR!YÉ@ qs kmϔRS1V7P}7P1( s cP72`}#*- ,Q\΄fiF&Wiʺtcb\vAjXo+Iry :b%Nn3NKhnv[q$aiB/b4Dc ۫bќPZύKWdEUɱ~.+4pb),̺Z}yԆqp'8-WS5ݸGT4dw^WԞ6)@J~^%db8{mg^D.|鄚M%E1+NRݶ
tLYG*/rIRGu)Bo%c(ǹBrbvZKw/Q|6!3.eOel9n5.8 [e%ds}9ůP+BWHBn_UVFhKn-^ՔO8{b؝Z`z ם[in`4 I]"⛯T*xjQsHzJR}i)Qŕ3!6
< #ɔʈ:@QU]
NUj
I|Ϻ |\KjYi6/Ǐ
. ˸H,,-b/p{yZ:RMRfp*m3YPBLGef' 1+2bë
Аs\hun <=n$l, 9ie˶RÚ{^hךp+`n]q<ЎRjbٗe]wy@n c>(cUӟDk ),η)
$G2AӲ:-*%6'7%'r6iX֝6bYW3 /?7G,M
kܴH94W1+R*D2P})%,ɸ
/u؎:[z9g̜Mҥu*q7+pK 'K -ܔSƝ- <ͤ )xZ7T̻_Z! kv >s^6lgtbՖ'mjuҔ=0 KzZJADo49)=$G?qߩ[_1dRJɑl7)(˱~A_0LiՑb!YtÔIZm%ͺJ6 q]W7y"jMٟBBB q F5lLAf5(-r.]+!
'U%'C(xz܌ ˧E˪؈isRVhd"` QY j #qV
מ J9|́{۳dE>T^AgܫI cYqJNi:gE*mC>Ƿ K YTڥ's}
ד.2s9 4
V /;2쬠[- @6`LJ)P Z iX-a1"a e8 lϩf {&v- RK]%fT-KW' }aG^)R BJZHЏ4BPυ%2U-xߧ$9$nBQH
th8IOKGؓ bmJO kGo1VaYu+I:T$qjjŏF
i3 %C%ƛZHqB[H.!- Xeí!6Z AdBZXi>aCBB 5 Hc'Q8̽d J= O ~=?!mن !mنؗ9$W{~"Ć2c -Q LֽF C:8O9ؽaL"F 144MDŽ!ndZT4nC,c!p tDz fa FF$ŹˑE9N[P,x hVa* _Sh+;- һ&2n
NѪTOͰTijR>(/ UYƝib9S-gSF4qLMKl Ԯ$A~ZaL̺i(X0U˗ HM"lT\ziiUx!Dr<;xD/R'+^̬nfh{rrse˛] 4o{_n;3)jI ԅZUHmnUeθ*&H"+;dSU뛲tM,qz }V3243rO*Uv- \"]4. QnJu 9_D vу3gMjTt6uynSb/ s
˲WU"[te偷 $|qҭ!}ț*GtZ 2 ZL(,* phQu*jV% bwS
t^3.@ל D. tk{q썔m$#r W Wl*MU@$E9&}E\(
s8~v[qmvRDf < *ӯ7\B;& aL:u4Ɣw4L6 HBTc'ju(Ú}Ldk0\cu ߈^!($mkmW4:Ek3X
"ɷl# ln&RCa[N Xk x%ǒn*)JE'=Q\V`L.)
8I$hÑ\-N=&ژanm 9@Rr%**\hGa%)KIZHPG>W܍)B1%=R)Ws>$6E;Ԓ#eP[a9u50I9N[_1Ŝjji2UE$ MEGK $%*yiBN)g(74oJR'+y
w p R)KUNe$rE1JvL z/RZg0]q!U"mr9Gj3.s%"QIJwD|D
*C1%RԤtυ8Ks2qkq9(ʶ4əiȿ](99VHa J nl\UX7Q x:̨-nj!z -9Eޤ?l|qÚyjBTJK.Xhu /Rexj9u)I"qHΩWT}z9Tn8qzrUaLP
!(KyPJ>s V1+Qϰ&fyYE$puQZrP]R
zZ\ܣTs8R iEMYS֒,($9[bZ%H5ܪ*.[uDnH $)kLNS;uYBtup
A%8΅k9{aa676*fjͺt-b`\p V>գVmhhL,UlVF
-kNBJ$GY-)Ucˮ4ہKhs Mmr|aʡ(6
A$-]nIN*'$Lf4 '.Т9fh
Si)R-nNך]Ɛr1>.4%aAF]rz*K7PBFd⇏be_0Ąd Ƙu*IK(KrTFnZ
$Es-73R.SZ'F5Sj 9'Cv IA\,.З2+q/r6i)@_ qK,˱U堩9]i P`6n4.i)RSmRNQ<2S,^S`JM a5>䔣،;!G^e Tl) z~IwN&óR#3mLYԴ2J76TW'Q-$"ި0O!Cf[
TuKY$
L(dK̰Jcdi]SK-2%%Fk 2JuFJͰnLJ$YPW^RJ':t'Cb Ym`FU)SfS\J7s g-9[5znݏ% 3t9%
$![@Hd+vU;ӕn gʜԕ&g,VYC139.Jy,*%&u i=%VRgGt:МqD#HM!a4
HKP䢮(D'8Np)ZBР
I:ۏpM[F$%p
!ӎ 7 8A.m :X Z $[2i?(yf~2gq% +~?Hx<_f>nz<_f>n`fz;b^>pX]KZG ֽF C6|7j 1|YnC
a?eiKCm~ƬS)m%He)`Qߕ8/mF&ej2_+Zs nU#,9OHtoo4D c$a qP5W&r)MIQӴE6ˏkR+azIASD=:'f*ܫԪFrmɅ$+4ZWpM奄 ,RNQ=2JrHS/k 8;rVZMRt [n<8%7I=bTJRdp@k2U.7{ ' :pbr
nYLHmNGg2 غ{SiצS-~ˤ[a{D`,AB
Ib9JM/{E^W`,l>cRԆ <(m뉌i$asn0JUv%+%} SI mGU+RۅfP2)6^=2hQݤe팍]KaO$u;\Y&RCE*L_DZX!o*Uqn-a"1 g;_z*7<rk㻹[)u$$:gZ mjZRQ L,8\une 1 7
R>(I4Rd't%Z( tni8I "ITJUkk0\ASAT8VUj ˮ.K,n ؗ4MBY̆] xۍr˨u\Ka`r,Ggt9zrfN*I
Z
ܕ |c3TLÍ"mBz H]F(TU *iXS4&TyL<̻.]EWNzԩMͿJ:ܸSB@%P,O: } EV~s}%ơ,K唅
S0#f#fw[%7ə
Uڎ>zROj A E*MIcԎ=}wLI҇ bJU K ix)5)8+Fc%eiI,÷qJuVeq$ߎ~ZF)wO.sQ]cꉩQ-VӫSzrWOn7EA ô ~*'=|i#ͮ%;}L?iij)W֤؞'1
L(-9au ԛkdr,< kXi=i8$z@(nxØ)D6Vw6d9lsh78YfHħO%VoIuK6[7!&ױ3qY,͂G9b@uG>NS7iU4h :0RZRrRa*ed[P V+j YJȃ7ˡtjzrPoh(Kľg !D\
@:+YX/s:2.r0ꥅ"@[t8RlHJJ} 6ԃ# 눓eqUgǎT`MR֧ɢ\ (,A[T Aݎ$w:ڝqIIUQ$
'*Ok2Z/9Fn+p d$ ei@㥉ԺTsR- tbWg%>*ћ<8F[gYWt
C=!iaSYi쵺R53bN9yDUO\%md9A
6 '))ʕ(SuR[
U֒TO*"Ҕe mJter(%MbYT!R #(7F/) 6զP cꉔPeXr3ΓRu w;uKoQ@sÉCJZ'UMƠv^(-y>ClSœl[C.#ﺹľR #]P9s&ջԁTհl陽}RjZC.i
RZ!
t
` 7O}N-LRl[J:6ъ[ `M
n*Rii#\>YCIGrĚ JBz;»$ q= Tmђ$M'tR3ʈ+唢Jrm䎱i^ ̳qHJQ*TIBNIW4Y_f^m*DÉީ22QT|U, ;@gӋ% 8 ؕZk y6%q$( kl ͥŕO4SҖpZx*.K+OՕBZq;W9 B xk X :G- %vtm
U' gzeCmY#Ť6~ʍN4se)"Vr .1U!m]+xY鉩 7#*G$$CDeYS h]czF*AFjGyjKRYbUP%)*$ l
3HNL-*vQ
M:!' V%èn^U)CSo"5IFO2RF@])xX\V5i;rNvBVp:5.e0Ҡe,Z;2{OKIjfAKͥw Z))T)V\*nePNB 4l]݀# ^(o-Jd[n]
. rViBQ,$2H fK6٥cl>,W/8MO8$mwa<-)TStLxLiV 8N BKfMSX2IfPi:R)cs6$cr3&v/8Po
ۛĠk `b=IvX0WVP{EEޥϵ&RpOG*} "NZ(Kk )JHyG:ʒoe{VG^JrR.Fa责E 9JbQLj~apmG 8,4Tk|Tplpa%56rtbzCәZDeKiCmӘ-`ѹ6>>5̻:$dekzɌ:ajaZԥ5 |f#dNsVۭOrюaʂnU"ʐڟZϛspe\jl|['XMSs+t33ݨy{ܩl! ߤOpM"6&TU-'뎍jJoSRHD71!HQ! Ưr.GڇDMqݭMYTK)Kq*+Rn@ ؒJVDig,)(6qW&ڞ:d`J 4*yVl J& gA QBq\M4鷝Bba
E)X&~;齵1i fòn;ćGI<.
I^1!M\9CۗڏbF;ت'\JHK,ʆo!͝DkȈv"'@JXou
UJu^|wՔݸŵ\i".i /V3
黍%ĭRb{co SkrUBf.o:=2\%ҰN2J$=aU;"J̼묩7EVRVx&(* ߥa+*O N^8]b"I+r 2C9F}$Chhm qR+V@`2IѫqC$#1JHO*JMū oy*5ą0 gS m
fBF4&q TGe\BCsi]s wDUt٪ Rrt 3*O*ug<`MZ* H2
: qTE#T+"IRqǘSUGBJT xભO5g PͻY' $$P\[
-p56Oj!?/5J p Jn7jyGTS,:jܤwi-L^YuuDoLo BG@b81X֘ !ɓmM1Ya-0Twm) /S)ЊZW4 K)Ai[vZ N}i jL'}¨mT܃r-<"A#\ªf2 ȴ橘qo
:_/at9"VW&bX<80ڇ lKA
7#E_+ O5,z =U-S "ɪ))D' Zʤ<VMŎ[ylV^Ji҄Y oo n ^6D"m٣.i[7wY #1%?|n=/&YE L9JS@
7:q! Xn}KG $MgJ @BQښP8ܦƛed&H7y1̨RRs*܌κޕMuBAW S)44ze)S(nםj˛ rMvlwYc"%:ꖇ j$c}cuRFgD; J[H0RJJ^1JcLl**K^!F$ !v+rYqaխɁn4!NI'P#Us4:qfzCoIHJJS&gZ`H XBO ќFvщ+-Ia+@;FS"ܰ@* xsAMF% Reؓ~d!kKa$$*g>A`I#5aIRs
nZSnZeC-Q6%vI#]n Hby9gSs{)^[*m:&V1[T*eoܲr Hm5 "\2¸٤ZFK-Ӿ`=%s2)JKr BwUqrl2 'uxߐ[8m+s X3[axW'1[kJ$
JHJRA@#6ƬՙJ/dO#ƴZ*S7Oq(nII5}Fj,(*Q2 n#O.5c*w (Oq8b
ec3`$.}m{pMQI"V˾g YHԛ'R bo5' RBA`,BU}z;5W49&M2r%WZ_e83^ǫKgSI*-F
$ȵa)R-8/._TO Z!v6m/Ur8q&0.9֥(N
؟N~i \RRSL
Z']mY-AP6̈꿴YӪbLT(GtUS(z fȶhr[]$2I]!ĽEs e$[Z-+:/Փ>K)! G[ KK&[_MLzMSgZmU.JPʗ`4yjL$ JSxXL{ם#> v_,2N2o+5}oo}_\iS Ji uu'y.#x\'!?W%J%PI!o`8aHaM,%mU)*Mk1զy`f3wEb] Uɑ%rOw!)#{aͭ \95TTsUGRjBfT^p@:L7@zgwzJQ>J:W| 6~ȵ69VXUnC[ S]YraoxEJ\Rêp>JBni2t &],J2TrDrKE #V/,\Ao9GSbogMS5榻uP$7 yG3m {'Q9%.Z-Y[,MŗH7˱]5u pj8NN*]"eo
^D)'W QcGKSS0, [QB6H)rc;G&\iA Ne &^/G^ 7XU6gRS8
$&,82u%wmc{M=h>wS.fIaKB_C Qqe6
/ml?\tbCr%!B<k/ЋrF*
f7!/;bgۙal̒60c
TqO{8k
ZPZp,\Y\53bZ2dIrET4qsrR2u*܍
` ɩY!8fdҵ4JPl &33S7-j0eos5bUpdw(X#jraoN8{Bƍ.Nٝ{LdjddolUʅ*R} L)%E7BT8 I 3lI :Yf 01gQd; Yi[im%qnr[ƿcm Ld^/ 8Fײڥ^b q杏-nm%-K A()32uhˋm֕ 5j_p!mن !mن٩ؗ9$W{~"Ć2ۊgHu RqYRꌽ66|Xa}aٯLPa94ͿRJ[l $v"!7^;vZw| 5iwf%J%NE *ItAV:)/x<CcI02Fʵgy8HQJÊH
퐐Ne)'P T q mL
?tD ַ3$Qj-QJrxǜmP&#btMf& Ii Rka>VFTIA]j7F\T_JNExgP+ oT
Q$~FS vض`8zרGO 9fؘrZZU*ȷU`BB=$uEiCKzL i敻st%V:~xN]
1z\#c9\y +v8\ÕlϺ2,f6;QJ BB<ϴ|CQ~HP%t s^(Kf]BERӌuYN+QA: _[\ !8-J9IJ7IԞ<aJ.,. y
O"-ieI %[0蛂cf#A7Oa#n>վh6Z*yм/L *6 * MF+Mȧr$Q+K2ie <JH
HNGڍ)tIH6fڊyʺ
M,4_I Iª$TGo9K[RmV:gNAp
aa[Q'*[ZԔI6Hou[Yjd'kt4]YU]ckF1uhKMCj]}-*e
R./tEұ=a͙0 !Y* kYޠɕQm"+2fewl.n _Qf{DGyݭ71<3n ʏH
R$(riSsMv]ʍƖ6 ep] &*M[+D'kyNjg h,H
9Л]J^J<
u k b.<VZ d_DܷQV9O4I~bzbDoCnK`( eDS75PD-STS
ĎQ$EGD~?n.*Zf`-)QXJ V``Qx*ZTgb0=ҙ_r4RГ9H5 %XedU.3+/Riw.*e
!g.W
SkA(ljSۂTbna,n8w
.ĒIpMQ Mӕ*
-{E1*Խ[Ͳ5IIO+}˼FJyi2o)q)ӆ'Q~:)0GMRZsRr(),]\mhҮ (mS&RVz]!u!hZRRRJH#@AE:a. u[yZTPs6'7:EIAVDUSLT.QTe w[M?a-;. ASk@o}e~T4Z7.Ou3- K &$^J*Mp2iU ;|4 ohXa|QFt$;eݥ%.:@Eł7Hq*SJMNґz we\ hlH2JpO*ԣVst*̴
C.>K d8Fz zKITݬ*>+ a}Jyaw&VrK+uM)g̕cokOpױ bE\m
NG2 tHQ*:pJpg&mV$S6KkvUE: E{ *Tv -<,غ %7=qZg6M,=*-%A[;klEs!U,L6⛘e+BH7?Fc·TpgTK,m\xyT:AbU=\̤/=ԛH$dʒV!N> YR,540NI9J3e&shd3[ 8rPRj7mH &O
bxcO&Y&ԣ|ε2NJ0h"bSeιk RGK] `ǜ*:+M~ r(Uԛ%F-Ƃ"M1½YyEMƵTl,[QVU:n (4 w_:"nԤT Si'B F^7i>gvZSsĔ-<틫T'qJin0T@H 혞dJrzt-vOSLܓKWEPVYs
^tik̅pA-nVN8f:{}\=8kelA0U5]=P.2[eQ⢐M+TДdrh}'O1P;;/MZRZU5 (n w(:WM%e$uVkvG*3ouى}Yu}T$ !ѥ*)MD[5U;IfXWGy/4ۈ:
T
D>QmI:zfˇDaXq\qy8 [jRTqf#95 *ZaJ{_ ))ҞV{{ .63Ą&I ;+o%}h -8sD/l9[T&Y[ > ̡ &:cfԝ1aV}βe[NVʜZȾb]( '|ew-Xv"SHlTJn a ϯ%%CJj
5Iw#:iI M}!jB"] &$ [)@ i䜎 P-Z:4YzҢ f_OdmLfĨ#Q>ȆM%面Sd!˗l$((Ԡbli9>s2;/$ -oll XCE 4FD).GP 8h'KWݛis"ZU:fJ CN!HQHU7o IK̸=e7 'SJһy´RjrHʕTҙ#vK <&ٕaj.JQ0ZY%g.9=H3JRec*f rxٴ:^,J̲\ڈoe;n _܋Lڒ}sFkߗ,*mu++\>!6Yۜ" (=ܯNmaզB*LA6nhgo =TaJ 6 Vy4fHZR3 w܇w a:ae$2|q$W*z̰FQp<9uR4%ms) AkߢHZMKLQ/(tH##8ؗna$s)J)ʰoό TÉ''_cOi2sbyR@yRQԤg CĘtxQ{l3R,'0ZfY6HӀ{V*8"-0?1vױ-0?1v lvĽ |ȱ"ؗ9$1 &kvnJHC
%)*%T8.- p۠ d.8]]~AZd<۔x *e%ߔV!h(yhZA\XNJ;i|Y+V .<2a.ZEMNU-ث2IӌVxVFzJR}MÅI ^'LKιB\*ݡ$n
Rx qA]HU6kRP`'8cT=Z{aˬSf/Dq uN` XNI\=zh,ɔf> JxY)JIm3rFPS 1f&M˅ :hA_GVRME:#Cs%Õ
e@'6"=Z¡.Pݍ*j }йsZ# R 6&o]uƷE':Hy,T%sM %/E6vanUҫdWUVG3<$A9O2}juԠ8Q="ٽJ7,U FEm"&qRiX1hI:ٔ9
P2dZ.K@=]vJ']Ft2R
#T1b,\ʛZQĶŬcA te6$
l"9 Tw>YWDo<"ttnHV+lDZIaVҤG7c"%!m%7m Ft˸8\SjJ9F kvšKhCSR\eJt$1z$iʣj$Hb"Wo_B U:#nj[)E
\6`%P15A*J.$s
##T3Җ@mmk-M05'GB:~`&<\bW\6ʫ@:5ZYIOrm}8m q5a&d8t,l-ݙ,ξfuA>掴H_%+ XmgDXJ)/r7h4r$ wӷ#`F:Dl9qk{ܨ!3O:xr֬ Y!ԓ
Jn~ekIO dM@ܑq )ͩ@J7HbIڧ
tt?R::?LJEpWa%CHvG1;*M3/p_k q|]qieNz J:r7xDnEJ
eFa+ r V1!IqY:D^u:ʼnєo]o툍Y!)4gӧ/o 1YuS2S'88'XQ ):md:Z8adsF5mVe5I qg!^)̒unʗ]UңǙ#lb
mmàgU*2z{# \)u%EA55SjQ%TfE:eT JʁH
Ȕ
ejR@I&,l ''PvO+G4bNNKC,BBMFЅ VYE+ٌ֔2eғ ^+jMLG틾|ҧU24)yq@[?u# |$Ԓlf4b%Jk"w9pmx5Oj=6hJf&ue
7"-67HK֩+3-
IbG!H%#2q6d8iK 'PҒ-+X m˜u2LR8j-̻(|ـ$ks&95bgJxBlڷ_i2͡OV%ʐ
lXbM#>78$kTjOsf-M2]e-9;qqF8QԩmGRTOԡ&I)E6O*@9R.,-Qo BPI-ݷ0Rsk\ ic~F# u7V/j+Um2H
SV< 2#iIS).ˮK6E!ժLjH:?Iٚ4=\DYfRm, s8%w ˡ𰧤Q f3 vm Kڒ3 m{_SܩȰ(
R5 ӎ+-$ˋ#גWнl6?:~ 6ySU̢PO@X$ . =Nlb iT%
n.-=抄ˇ3:U%)&{.qs4uN*YRd lJ l`n-ϬF[xJxtH Y\l \vXZJ0TEa( \T?IBֿ)9N DR֖fdl I-/An7PO#;NM A*OD;dicm3w, ;SxYd6&Ui+y5](-(GWZT=̳ZE m v2Lct3%
2',2Fj!. RM6njo*rmJiHk-s $&cՅ<'SZhkq"jm6
)̔oˈ>
DMڗq/+ݴ7]"uhuYF[l Pڇ՜l?Cu3(E2ӪN>N^ !HW l [2C,'w@uJEۗkNj>dn^[mVK ӊ,#[ea~cǯc[ea~cdY{ P?HÑbEw/aj 8r,Hc)mqC+Ih=DNDx F`M`Ƕ>Զ]-6f)N ]ת֧Jғs{^9rtY,No lM24OCQʹU~9Hq$+V.15 y t>c D~ة}GĆZnN)UCe%TVu7$*V~nFKNTjGRrQYP7$fڋaƄǯr>mas]N&18Ź]I9G*Z bɩʛkrm{cخ/7z% q(O[ N:x(M3)-· ܻ$s9BLVXJ^NjKyT ` 6(BXICgYꞴ8l}rB HSdq-*Y4eJVE'3Ǖtn0fM8Ghx:)r9_jY(SFQTIM\vp]FS%Q|74ڙR)
JUb$
4z394g^%!m,HPl}ߊ8-edӕfIMDkm!+St '?8SV<-&fcx
L rJUku[Wqop̨A*'y>N9Ne_RZaJRK*, N7\U Sm%%`8Tdcd:UUv?}xhg#Ir)EI&mO| UB̑)FRVkҎJ@贪
J3Vjj^cxJA3̗
x:jsBiYSJt
ʄR4d F3pkakC,IJmʅ>eeE.\ !B {B%tagjOeҳaBat̨¦8tOl9^6kOî1mk6U@7OUʌ&p'6ns|}`JI9b]t]&YUK쬚J\C#69(nW Qi}d؝ZjSmbS]Gkıݚ7ʞL%j ͑.ֵu%Yo+V8)Gb H3,Ґp>3 A':N[X\SEL٦_e!uhh<#z4 $ kuGT&] sB.Н{LMUDxL[~+>ЖR-.ٲJ s>N'9+ :C\l-qe$T]50fna"ZZ3f:|)\haN nu
cnI):70:Z>;tױ\S&;g) p qצ%L[HZmt ~1/´,H.jEY+t1p`G VԝJY
iڳ) 8lEй¨lraZh;гa+J&}IS
)y{Q(U.yn =-}3LX =YnpPPUq<`~
V%C6+:@>{ G6 OasSPMo.%N%^< jJE3".6AmH6ZKr +:Z6:[-V&Rݍ)Nc"Z.$-Yt8ەŠ4TI~M$TDm9i!YsX 6}O"1j ,M))iA )MonQǮ⪬ڕB&ׇf[b]'Ziu@)7Cլ6e$ 71.l
[GW8 TRأTf؞h(k7 NdÜpX Q{q틹,~L2h<ߠr xlxƃTgϸ[C<b5 / E㟈㇂[b샯*PVrl_d c Tq"kEFM !mن !mنeLvĽ |ȱ"ؗ9$1/ /= x9_ҘkAJN 1 ln6WSte[vUƻ6LRR.pG 4otT?l b+V)!,RFo5q֮z6uV"WZ ) ?cс$
^TM4H?2,w&5uJg_ cҖ-{3nш}{I S]NzS[(Z<][ E3$|i#7T ?h|$S*K$["H?PRlt [ 64ro8xLKB i!"k
uL < yHdd -mlm"vIJHSV<4p,~-2M _ s҅? sBࡪ3"RNV<ThfN%i{hiP xbmI쟘 |FVJ
1O"HxpK$$ p 'n9!J @~
\a >O ƪ2!w _x|PҕfmIk|Qd'tZ@Y}^:6w^7j ' K-5U.@%ԋ x&uŔ>m'ŞC@~}w ˸c% Nnlmm(RTO qyڍg<5|ڒxNoH8* 3+Ϥ @D((h{{( srx[-Gv vmf0:c(|H`eWAd@M$E~}(6~`OGXhkZ0-xyf>$JFvZ Kـ_;Lok yL}Z˟բ9f>$Jp'NB2eҋD}[MI5~ڌաGa 1h\9%_A-C ۳Z?i$c~ͦc_AAĉW"rZP8 O,?m
w XrBb6S`Ĭ,lBnz-*BokO¬3qm}QB iX͈" pdaĉYL$ېzFf"+^Y'~y70aPB~ͦ0'Z _вH|X
ϼS-
J<:FSt=%sZ};b cme9& _D}M@ =Z15-#%huj[.Z:H=#{8i la 'ոiLk 6 X*a%@Mˡ9ou)DyPAO>e'~bP V Z25-6RJ7 h =ʾ%C+ffxj R*)"ry6Fb 6 #iaIV >M z<4䎸DۂHm&.p6Bb 6i f)6>L^_šp `G] ;r@h =@Jl'X uEvJ^!'5 &N¶lxT n!q܀\ҼI' r[GAH v6 {zXG`P͜=3u엁[}Cd_Se*2>4n@4ZB$zJ mG>)
dXi_vaxqNR#}GUM*EB`_pe\x H $-
bH6 Z9I@$tH6 oYXSE@n4H崠Y (4/9/Bg0<Ϫ
} betV32mI
@n6MΠj{/թ24hL =2}dzIU{r}rÚ{?BHڸP0'Z$ 62XmW" rm0\*fVKJE)ōi릻>3h _(BS|9w?iyƫ2M{܆aOZ@a}Z#«3ǹ M7<^B/(%.) B2!a$9G"L4rw,rΨNTMX_?kj{aQ%*&3n|>ӌW܌զ8ݚH[RN썶j41,tRm$+
\h5fR7P *(rN$v m=I!Oa
SuBTC¦0ߨԩ
n-ӋuR@N"QQHLaiHaPCKdRokg]9 ֲ m9H-a Ԧoa R
TVq_#hB%("KR.FhLS&w<.:PJx j].60?36:pnw-|.#["03s܃S*[3ZWz~Rio:t)vI'K
c %U F J#6, H
E
QqLQ+!mن !mن2z;b^>pOf[k:'O\W{n[bTR{*zr$< 7'0y t?dc #e :r=Q t[ea~cǬ-# L/
s 7n"ҘJ7'#jr\!fBrIAԓ&3<{ߥ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ~xʺǿPA ~xʺǿPw<{ߥ w<{ߥ ʌ*oM̹l>Z` A mapivi097/pics/add.gif 0000744 0001750 0001750 00000002665 07754145641 015215 0 ustar herrmann herrmann GIF89a
!!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~!Created by Martin , ] jW&dJժ#Jh"JBut(ТKRA(QEb2XXȓH Zvk.PܑDjB^AKի 3D^Ŝ=[˖b\aŐ( aB
߿KDM#@p"ÉSg ɑ?sČT` HYRGASSyb˖UyޝǖG$
N!e-#T1FĨ:F"EI=z"9jd<#@7\R&T|ݢE, ydJ)SP# *͐:=:D"t2 =>ӎ:h㡇)(,4҈K3`3:c:`OX#
2䒼K0N2 L5`$/Ĉ0ń)fD#O> 3aʢa"´4sO9ȩg$:8SN
eX5D*8㨃=Li` b:J*Pcꪤ61obM=j뭸A
:X+,VѤЃF) U"
Ԋ(<++,P]]
9M3tX8B$ >WcN,K`x0T=GU4MTQM6n*\"T# 4Q@ ; mapivi097/pics/EmptyThumb.jpg 0000744 0001750 0001750 00000010121 07754145642 016561 0 ustar herrmann herrmann JFIF H H +Created with The GIMP
(c) 2003 M.Herrmann C
% # , #&')*) -0-(0%()( C
((((((((((((((((((((((((((((((((((((((((((((((((((( n n" N !1"AQadq25D#Br$T%&3467Rbct , !1A2"qQ ? t"8h((JA m]N>h% {nR7.k~RR;x%BT/` &fVGQ1R 6 X
R3<:iV% J$ n<3A%xkIl*gڥ% J Z ew%v
߳1W5
*;oBIpaFVb2HRC2
N UM[[Nò==
)
RO?=| }v WoRI k/qHq-)ZJR$H2eFZ9"]&*eZUYq`>; .ˌq\Jo w1T)W &ݍ7sGvCn:6i)':~X[e hY@BTAWHq- IF[d4Q җ4,Z麓{w e%i=B~:iWeNGĞ: Caݾ?uI}֜CO[҇BR
;f!Z3qA^Yl Z-_WW<6eJ`Z)H!%'6}Y ݁R9l!#[
Ii
-@l
t , -ɐ@C+Ru.|ҧWua OH%poUC[cg=*iTqĶR #Ē` I.RHe&^5\o| 5
X'%v cZ!qŔ=iWP}[9u%
7P(q#@ X
[4+#Ĥ'=CgDH?!fJ+BdcOKRig8Բ<1$ mG[h)e%)}LjZK%BTwaTtȒ
R{w lyuk|Xg i !$+byvct7}u ?~$n)1nlyJJI "{p9iC`io{o}tx_GqԎW6Ē:ԐtV'&㘽ҖMik Iһ||zԙS-А!ZPt lU Gq{97VKn,,ե[wZsr1O{,?r2GO?21-+SQ8
!60E) PP 9DwTtW'$ 0[Ď_+\XVD S\5_{{ 柟{d`V
柟{d`V ,iPeԞu⢵"[mffb5JN-eWY}Q xǗ22<ۋꐑ )h{s=`[SIt^lCLT@\rJR.HJݸ89Fy:Z
5Xl H$ 8]*E9&ujWP 6 V>7 AOHyJYG\m^v`(+Kt]?! I; (-)вct?f${ls [QL yfZ)^߷>f)SMB\fBT \".xSEtAP!WQ Udz _áIuOo-fXz?mR^DrҒ?F_e ӝiR -lx. r]jJӝU!6n{4ڑZ*~[qQ*fcom.4[5E%V}ؓxf2[ ;}[v3)r:+a6`c@h*Zdu攘41 FBʛ#q7M'%\9)GCM LIj`-;jJ x^ŀ&e 7ZMT-EwK *R+BBz}< ʐ-H8lwʻ6<kZ{9"g Dܲ8#ݲx-JE%yZH\" QEʺIS E3n^Ewsc*柟{d`V
柟{d`V s}sMXJy%.L *;_r: Қ)c
$Y`TW(u+O\(e#6iu-E# NNU8g<Ȗ9@P!F6s; 7"TKS# lI o'U_apzְ6# ; :jbg&=She4D k-}Il/q>Εٮ:&2{_
Tu@$vC.23S*D1[ /ߎjjFJ[+r;`\m{
'Ts轻 ݎYK
TTf)asyL-qB iN¥!|
RVP Ob!H2 ai#5J1dCûqQoչb|ʸ`~3f}EDw%uAF.MOI*dے\q) j'vOtU}yfa";T^Ew'4+#U˞_=>Un1揧|/ŀ0^+OOR[ֿ(u7BFP [ N_揧|/Ŏ4PF6I@4@ yR\aNqEJmIJVu{ r N_揧|/ňN~SkwlH]S dd,);(nŧ N_揧|/ʼn fP)>@r| >C&ÒԈrb[I ~xy c$L5_{{揧|/ł*G?]?ֿ mapivi097/pics/MapiviIcon.gif 0000644 0001750 0001750 00000007063 07754145642 016520 0 ustar herrmann herrmann GIF89a@ @
db \$2t |,6LN,2dnԤ "l< &LN &| l42ln쌖 L$& &Ԥ|~<>t\bdfLJ " "DF |,6&" "l "$*$*l4:TR켺 \Zdb T " \ |LR,646$&4>DF,.$ln4tv,2tln <$&db l DBdf \^DF dT$&t tt×M P`M P^ w d_w w & w `_N w 0 95 q Fw
: w w ! , @ @ Hp*LȰ #HaD &: $Ƃ&' 2cǏ ر˚.9vdi&ϙUDˁ+N
tf̘"e ,A4!F1T-@ --pe
2&݉Ö+}Q
1bnc
1)0Ev)jΫWcĸxd8* 1=zq r6 ^ U⠰1d1DlH wQb[P pj_YժQD pP%)c;+Qm @}#Ni/@*']db[&(ȠcQ-L
/Ľ cb*AƂ
:WAp ] rŁwB.6☋L8C!nQ hcd9
wxpcx Ց a*C1ʆ]!(w50c1kڽ rcā~=(ipC)tw9BG8܂*Ĕ!h ɭr'9cg!A@+ovd2+O&_qqD*{%5RMtBL(jnͱƺq# &J JR,#X%(i Bp
{+yvDI?\ ANB0U
3 g&
y檊1r*h81
k}>D"f*A0
!/j\xOkb2a _~+(f,,'00'Hbr O
Fq3 FTwu` > )` 'y
;p$z( O@,1 qzB N1&nj"p/ġk<ȋWǛ'w42(8 k RT\V F4? P( XC21D <YH"L5 /Eb' 0$&
YE3YlM/dz>Oo|kXDvf001EI16 HF2
j l P
Ҍ9zOT"f6ʋV"J`3CŠ*ʦ9ġ= aէdžR*&Opa ()6OQq D,4BJ{Z/ H>eB*NЌVۄ,a4V\Jh
ъkXb? E,ɰ Z,c8(1ĩaE
\rЌ6 )k >$ûVC T(ayk M ?~A*)P 5o<;N+LtuvЇPq(Ya02B1W{}.] 5/Ө"`SڥX :7<ُUEX·
5fy0cu7X;P*l5
(0A0fod #[+V:, C=2]z
q@sh.6KKo.L|ʓ
pAC _*8 .iNwjd ~ N5Қ<
4F>KǃzE_qW`cjR l;m ┬H1:qف*r2怊9hfӍ%NgR ^I@;A"f΅,G?rClV T}.R0eMX^Wݒt^u~.E G?@|wwBԐ,({]+%$&(7<߱aҐ+x)}@&z8a." tZ{}x{(y;Xw2 ; mapivi097/pics/MiniPic.jpg 0000744 0001750 0001750 00000002771 07754145642 016027 0 ustar herrmann herrmann JFIF H H (c) 2003 Herrmann C
C
/ ;" >
!1AQ2aq"3#'5br ' 1A!2b ? 3U^E)mhT }ӇbCR̩X$ΔS%P%%*=9ufhl:Kb{mG1V< NVDHϏ|I, Ėxy)
\% }I Iѳfi 4)okvP2Z}v ~!V\HQO )BG' x> Wǜ&&b;s&K@ma+- lZH#}N*[ZDUbjAPyMZ c
*O3 $~8%\6PTd%kEуFm>p:h;BU) !m?*;A%X|0 ≠ވGKθKh:w;'G Ui)n[I賸 : uJÏI;v͔Ĝqt
l^xtSaF[X|qh)爹|]ǛZ\qzwZ| r/~]ڿ*Vzf]ImOfR_zzN M aOrqUŦƍ"< mԳ̛Z-cct_Ywuj_2lz!m% aeJ<;o᳕snA0Sۅ 89 1{3l:>VsE>&qc&}J0M$-xv5B?⢂ϓAf>]iFZ/5gP.8@8 mapivi097/pics/StopPic.gif 0000744 0001750 0001750 00000002212 07754145643 016034 0 ustar herrmann herrmann GIF89a &&&nnnb^^66nnڪ~~fffjjj>>>FF悂JJRR掎VVVꖖZZ 666^^ꚚꞞ&&bbꢢFFFvvvzzzzz22ZZZNNN>>222ff憆***憆ꦦꎎjj:::JJJ2..^^^rr**...::꒒~~~jjFBBBB~~JFFNJJBBBbbbRNN把:66^ZZ.**zz622BB!Created by Martin , ;% %;6&9XX9&6?f 0;X@#'o2`#jX, T
"M;%VdfM#K_W8::SWSDCK#dž+Es9U
<8SS:D
U9\΅/.'~ AĹPq v|D͈ M0c;"G#F\ʔ)O
>0 A")
v\A`![tHP DyH DNp!ǀ Qx:Abm6$>1T HfX!E )R &,eG)Hc 6 65/oXC`Cn u
ɞYa$Nj' n(rլ eүPsC DV=
)08C@
l@ aR YQaH" C/g "*'o1dG8 GoqB'0* ׂ* dA!X(CA!KQyfBE
@"Y ܑ*p f C *p86I5QF!NQT TÜ
4 DyC,@_|1;Z(ĂjA mfCVD jV:Ĥ(PPY>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~!Created by Martin , ] J =sY8gN
HQ ':q)TIęC)ĊٳT^Ɣ Ԣ=rx2R` ;@|څ !;w$:9QGA{ϝDXQ,^Ŝ=Kb\aǐE
È M~^| ;f$r*ӨV5<\|jei۸=7A0!L] S ֵ|܂͉(O+9
8hcܘ7rc
eX
/i:^ 묡{J*cXf5% h|Rd<$pl"=f9 )`F$DJ"I7t"
Ԋ(XQ =tUv?^O8\ GHZ=B$xla
9.¬*p[!'QFM(alU#;\"T#SE ; mapivi097/pics/edit.gif 0000744 0001750 0001750 00000002675 07754145641 015413 0 ustar herrmann herrmann GIF89a
!!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~!Created 2003 by M.Herrmann , ] J =sY8gN
HQ ':q)TIęC)ĊٳT^Ɣ Ԣ=rx2R` ;@|څ !;w$:9QGA{ϝDXQ,^Ŝ=Kb\aǐE
+ZSŘ1p$*pG 'f=f@pg`~.TH* 6Ƞ,h=] D"t衇
:]ݳ̇(ʒ02<#
,S̏@Y1ϰ?0+"L]P5t;Qa"``~7tO9aN##Λp9s8qrc
eX
/*蠄=
F+SϤVj֔0CtI=_*WI$jWBfDA$rΫ~#] B@b%\zO %C~QE(a8?Å *pS+HF
)ī 7 RIKQ+| eTф7QE{<(+%(ĉ8r(EK }zN~E[-_#p܈L!8|(
il PN@-$I2W45@`!½?נrk((\w"4oj (`Z51 %ϏuXC"f/@Z~{Fd1 Blf=im;kD"h- Nc`%
٥ qIzdv IENDB` mapivi097/icons/transform-rotate.png 0000644 0001750 0001750 00000001537 10562755227 020162 0 ustar herrmann herrmann PNG
IHDR Ĵl; bKGD pHYs tIME2# IDAT8ϋG?;;e6a%dIK F& v/
s6ܼ r9
9
s+YD_`!jWuU5{}oƄQn-ɉ }IB7"7he;I"| 4pwzxnljg j
½IDqnD;հvg`4wnǏw2mk41}Z)&dɥVWd4CXX*Si `,aw,je
z{kf{ "|e~o DzCm`'0So55nl O0
Z4(J}Ѭqk-Emb5ԕ^AސcH$
RTHTh4koXP DV;KAlƃ|7䛯?CIT
%3*s(cnsƘf+FYh/O$.~n<7W$֣ DORt ?_K uOXOA? z[DNǀO2P^\ryT>l$c4NUjHM1h@vaFjO;ޓSu` gNJZF IENDB` mapivi097/icons/list-remove.png 0000700 0001750 0001750 00000000367 10562753723 017111 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs
B(x tIME ;" \ IDAT8푱 Pi:+#mF stԶ"DO!ʳ3 w &H6暺 `?S-F IENDB` mapivi097/icons/image-x-generic-bw.png 0000700 0001750 0001750 00000000761 10737457470 020214 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs
B(x tIME 1 ~IDAT8˝@IbFB,, {!w0 7!{
b6mbO$ffX |+ x<)Έ(~!QGEq 1f38~l4MXmH),QJ@)E c m>Nt$Iv W9Ų,`hDe\W4M(
\t:y R q< Y״Z-,0LDz/nZϵZMB4> 7ԤʥOSL4-kuhpf.^x06
Îx""@0Sx}LQ*̝d
t
6x=>褃bxuh EFo͎0,kf,BoZ;5e>Y& x' F.W
f43=gOk40ĭ Cձž _M^l8l?3]X1/23ǕgƧg^hڷuS( wD- HU/<A2e^ۏ^,}?,az ,Hc$Ugn Sui&vn{'v> Eq4Akw_?''k'W% [0j >AX-/?ԩT=eYcJ奎Go @W!'$ _ԓSln\{&?3
D V%r=?JeFmXv@x\qqah=Ѿ2;}З|9r-k5tT2>hMA҄ ǡ̖MD, z= *];[x 8wyIu I1MN<-I7,
#?[FՕD(̗ˣRmc er-0{
W1oR
]!PՑl.Uvje IENDB` mapivi097/icons/list-add.png 0000700 0001750 0001750 00000000503 10562753717 016337 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs
B(x tIME Dx IDAT8͑` `rҺ`6[;tqDdZ
&g7Z,Vi1v`9= 0+n/\ϵUR>.009xrbD["[-$mx\9Xw V2@@PiAkeRjt&Rȿ&ROXNOӅ43kgO=TrK w IENDB` mapivi097/icons/folder-new.png 0000644 0001750 0001750 00000001173 10562753637 016714 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs
B(x tIME UO- IDAT8˥=hSaޖ{SI۴$
V\JEAM]AP['qpE.@%-A-Bh!?!!AŇ܍L&s5hkU_ z>MP\g/[}C(˧=}$? i l ci1 l22v\ޛ Бl* gH֡(UmSk繼Pa3. rf_>cvMl/~ p0Urs0~d4Ydi1S(e`6H<%A4jF')εbm;M
T -v[ 7H0t]|TtZ|}OT#[mm:%b@ V XF "R
AbH
0"duE\6%,V4_=EP ԅ0Z`={Q mAP pkk/Ggs] H"/ \7ᚩ IENDB` mapivi097/icons/system-log-out.png 0000644 0001750 0001750 00000001437 10562753754 017565 0 ustar herrmann herrmann PNG
IHDR a sBIT|d pHYs
B(x tEXtSoftware www.inkscape.org< IDAT8uOhIz{ a/EAѫhPê( ,. WEP/DP$j wB&l@gd:=?z~_= 2I~P"b,ϳgΟ0IC\&"f8IӔ ΣBkR
f3iA$ ijpΡ@)1c/hmYW |0 raع[kADы<ؾ vNk-ιNnA),!j"_3:mZkOe ^t
.eO:mTG6x ;Xn 4 >Mі֚nޤs'?Ct>($}}Rt گ[X](`sZqLѠ5?"XDP| o^bXD!
.MuJe6JV`r77ܰ ,.,Rj!l~\D$//~a`hbb
˗XֿץZ6> c0QzS> ϣ&jYٻw@` xGV%Y\`Mxs-곀|mk,+#Za7u9 ?=] e IENDB` mapivi097/icons/x-office-calendar.png 0000644 0001750 0001750 00000001134 10562760162 020105 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs
B(x tIME
2M IDAT8˕OkQ3o1 af! o .RH#*"L
FPh&H_jUiV pj'ӒE1BgX=7 ^p\Uv\[fnTWf@h6u%wmǵRJ9}B8*R*)e z?<<`i9[[ߨjF?7^iz d2Oo4 I2dc+ R)opi|2eaYi" x ]ױg](!87gx8_@)RjgAs dx8Wg rAӿj;d.σ{w d Whprů55-[ܝ [ ɬ}a89jA¡ &6u^Y4MM98y 5:/Ma p(^5
Z `?wnAu=?.dU/m
&LO]8Wy IENDB` mapivi097/icons/media-floppy.png 0000700 0001750 0001750 00000001423 10757353421 017220 0 ustar herrmann herrmann PNG
IHDR Ĵl; sBIT|d tEXtSoftware www.inkscape.org< IDAT8kTWg F.,DRpcە躡֕.FPpQ
RUJh7̦B @&{3V|k9xs_1p̮~%+.g @A 5~uסν[` 3~cOn|ɩ|x [ I9W( RK{i`w 15kqqq4;>]Dži}0mHN2P%!;?
jܽ8TɕT-nEJ S63WjN] efgg)˒((r4.#~5zsiR{ *7)ՑB Cbf)qE+pM(˲`@#!bM1 WnM47ۦg $@&WcM(zز {1n/GO j ! OBGHᣱA
^0A5
sγ ^8
S q %Ml)`(Huݺ(F?s|H*ɶ^ʽ
NeG X3c4g[ s{;rd2c{f|;]6 #S&1)6,Fo&' dfzs As IENDB` mapivi097/icons/go-first.png 0000700 0001750 0001750 00000001232 10562753666 016373 0 ustar herrmann herrmann PNG
IHDR a sBIT|d tEXtSoftware www.inkscape.org< ,IDAT8}SMHTQ=߽3F 1AMEAPTA e&$H\A mfA`4(E ӦLќ7ɑ7snw sOX&1n }c| 8I{5Ԗ #oN`rGX`X,[x{8\'i:6a k1=5+=k[be4b{JKH%qZۧ.w] n߶f
! \4 d
pzP}nοg+W5$zZ+ Y..B*-` J
kL2vPU+"m`Z+mM[yسG;b3+_
n. Hq hρ^ sNҎ~,,廻;~|.17]5 % N }8y/}7 " R6ɷʹ;}~]MX`=шd <45"0a?_Zp4 IENDB` mapivi097/icons/edit-copy.png 0000644 0001750 0001750 00000000762 10562753600 016540 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs tIME
/4 IDAT8˕KKQ#3cڀ
ZuBEvDDD616e007itFGoy ;$3,F(Ͻmwa(z&vj5B Є's j^wcfnyu$IBTGE@QNV9TlGr((
,˞H$?dYv
pP Ršz-,EA08vaSiJ%K д c,6 1Ӷ(XY^ePT䮳6֣y yrl;KUUn (z i.y}* ($b BY IENDB` mapivi097/icons/dialog-information.png 0000644 0001750 0001750 00000001537 10562762473 020436 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs tIME 2:P 5tEXtComment (c) 2004 Jakub Steiner
Created with The GIMPًo IDAT8˕KHTqƿ;:G&YjfR>E"ġ%ԤlbpaE1EM%It&JJ͊4Lqtwo5~s~s8T\L) %) 1ek^v}STޔ0bmeZ qU7S{z?\!&,zIW %ooߓc,RFg}ZUYEӣm%Y{[n=v_0kEI珖 D N
Jhs;u&%srm' $=Wn/@ ,C-f PPn(.*rraB+YWUH43 sW߽%::6ilZN̾24 PU}z YXXx(7VL6^| IENDB` mapivi097/icons/applications-internet.png 0000644 0001750 0001750 00000001540 10562754102 021150 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs
B(x tIME ;=Cl IDAT8˥;l[uׯ85v$"U
" NB "10x@( *
i}@gt~:t>% ^4G(ʺi; 1\;bZu!eqa)癙ܩߥ\NKo}?bOӹ̟L
dA#kgn?u- ɗ?xY|'w^)rdz
S&D
2h7ZY~ߟ?l_Avoyh;kmcAv&I*ca)'Pz\^ u MB#+GңLYj1`lx,\dHr6y=hnpi1^hTŘءc5|6G3y4DU&ĵllA h {h8#L2L9lQ>^]ff&~> !տwfC;Zd#4:Ɩ66I'U2ST\( Vw
[Gد ZOP$gxHR3NfW薷Z{108a[vgbۜN1
u +l|R뇲'뇃X<*S$VrnW=&z[,r g`ҡՓPÖ1 ΰw6+&rssNs ! { ` t>_%?TK_ IENDB` mapivi097/icons/edit-paste.png 0000644 0001750 0001750 00000001061 10562753605 016700 0 ustar herrmann herrmann PNG
IHDR a pHYs tIME
IDAT8˕kSQ4$1Ԕ "\\jbpv!8Em A84K.8)RHB^olF91/m ~=?T*{ϝ~I\.ko nΚ+ *+ v< |`_)h/Y2g .9.Ҵ 0f LD9̤γVTS yf,y_ϲxAPTB "Jqm.f!1 ނD"03sl0 8[y=j(
)> \qKa{UEEȝ<9DAU21
(mnh>A_4 !5纀VҨ)onP^CDz\Z 14I3XpcZ7l/D#팦 $1fSU;`\13TKOxi IENDB` mapivi097/icons/dialog-error.png 0000700 0001750 0001750 00000001215 10562753560 017221 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs tIME
2S IDAT8˝OQm 壾Mh ĔD2iҁ";2tf#@XD0hc$-M[(=}KOrs9nTR<ƽ,e`z!~;
-L&a|*3ef3 9x7L r{ UE XCwOMRSW t2^,F{sm4@UAEAi |?öj2 CX[C*zbŅ1S)>olPkf-`~2rgu PqTqy<`>?>|DE+OoA5 ?JDQ`z p T ?P&×AĽQ7<7UD (Y "":'V ][ x%u7:NCPcG" lZlg w(CO4Fz`VW* H$p
}0vrjܺLv_QEEpM::_nOGf Xvw IENDB` mapivi097/icons/go-next.png 0000700 0001750 0001750 00000001244 10562753700 016212 0 ustar herrmann herrmann PNG
IHDR a sBIT|d tEXtSoftware www.inkscape.org< 6IDAT8KHTa FR^D hFh"[FBr6B+7(rEb>p-f)7",3 x_3ԁ1|tSSRƣqwp5Xb55 |P4B5M5TZ4DThk&/}/Hh@[d=9%Z 3Ïo>W~7ߊ*qBfyxE
|ͲQE&NgR g2{v[c ;֦[aHR,(ĥ\6J>iTw =6 DrQcJK6 hDčآŃCro::毫<MqIʥ"3d"rIP\fU[ , X6n0y}V34ݑApw־D$I v(x/7br]Hė4ʀ+m$y Z$QO&ژ LhbN80@D<ޙw2> s79(" q 0ȭXt}rL&zee` DQJx+V5`rG ArPpylxo#Eԉ}
6.@o{`rO^Z&`l Z[[[TCz ;fhO IENDB` mapivi097/icons/edit-find.png 0000700 0001750 0001750 00000001151 10562753614 016475 0 ustar herrmann herrmann PNG
IHDR a bKGD 4g pHYs tIME %/ IDAT8˝MkQ;$MfJR
]hE
Uw&o $ADtYwUM;AT(VP5G'M23EHIBRgw=GvM;N!#Lv
B]w f2f_K дkw߾J9zjmŋi+dk&nߌĢ5(4]#Ns ^ R>q>sƕ] $ ORps ӶQ
%#6Ko t
Kz
Xd4,U~_e% EJvK0n \$[5ܪ -]pi-Nlc5ߣ-F}=kr+Bt4M¹|'+7*|\YT[z,?",+|
0p8TNVdT앬/d ߧ >xtXtk뗧d3
;e+D,
XLxx3}Z= B)pS
@ 0y.?iv2̥gn:RHaf'us1RC}X?<5_8 &3 \
_KM` e "(DZah}H,C+ \t ]D#1Y ~uڜ>{_w"a/_8hyʛ,ʧ IENDB` mapivi097/icons/accessories-text-editor.png 0000700 0001750 0001750 00000001076 10562753530 021406 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs tIME 7);RH IDAT8˥MhA3ݣH"-)X+xEж'< "~1[M\bӍLlZx0Cmj+
ofރ a]Vzx G/f w؎XM9WOJݬ;-T@YXݓ
zV_LKNJ 7qĉ?}MeM}'O2t 3@z z}KAI{|-Mu =۶m;R>n&X^Q @dct|
UsEΟ0 M ҽ \y7}7FdY~C;>Yz=iv 4nK!?y %;nL&q]7\OPV<G;+H %H`YeExA,CkMVCk5Bl:ud})0oZy IENDB` mapivi097/icons/emblem-favorite.png 0000644 0001750 0001750 00000001234 10562757015 017720 0 ustar herrmann herrmann PNG
IHDR a bKGD C pHYs
B(x tIME
*&') )IDAT8ˍKTacƚѤr4J7EDq'"?v e &"ZDE`i "C0Hb3:9sՙ{^%ˑyy b@ b1l-"b@;?wF_i
aP7j\MۣhCxe a ܪȍ}qŀ͝v]Pt]+ tUC٭-G}c ;1ЯhNb20l~O#(;s :FۗL8Fj9wWp7kg
\A,k:2ÍV1K#V*U
(THOg H!]Y-=sU|ϗ~,( عE=šlP),$ouېV̉IDec$ % %}{ZGGjxft' b.qpˌOi5[ŀ2}3N5 dV5TӰ~oR(ܻ#SG!-ǯ;n vPTMz{x0Nl?o{ tN IENDB` mapivi097/icons/go-previous.png 0000700 0001750 0001750 00000001217 10562753705 017115 0 ustar herrmann herrmann PNG
IHDR a sBIT|d tEXtSoftware www.inkscape.org< !IDAT8OHqǿof~;RblB n["VLD"%t-z; $%
n $W "KPl0wz{RJ7+[Z+a X &殅
e>V8 !Bj++`&CSs3NgLquQ <m JJg~~S'\bqq w`M&h|:6:7o^gIfJSO&N3==E8?\ -G \\/fWo#KkDfN) $rWJy^7=TbB}OR@]A0 ]={R
!B|G)ET*W3H)?TRJffqF::QASzܗHW/[!ąoqūP*-;Q R6P.c!Ą2?byK
k8%8F1ayK,\F q ߋE> qf;ɥ IENDB` mapivi097/icons/image-x-generic.png 0000644 0001750 0001750 00000001056 10562762017 017603 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs
B(x tIME
6 IDAT8˝MkA4ݘॅ\ĢSɃ@g(1 z @
՞TD*C"&nٙab
!{fgDQ[3ZyBQ3ZjQ31nKVWp f ,µM4(HakM 033sZ$(l~{?CR@4yò,.1SrzoD'S@)_@JNh'-\̟.@:} b}x{_ʧ|=({hmh9%_}z=oj%1@usIo? GN7.nքaQN&x3iv$ĉqǨLdk&|[Z?
Ƚk^CrB0EJ XᖋB IENDB` mapivi097/icons/user-desktop.png 0000700 0001750 0001750 00000001322 10562753772 017264 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs tIME *
>L _IDAT8˥]LQ?O0f.ͬ4.p
Hfdi sm#̺p) /),o1/KHդqQqasn=9s̢eTW3}v^?oky@N?,[WbEƇwc;@TaCƘd3
Φj i o:~,Q@ʣl+)f+_{F Br_1_Rnعu151={~CbBca9'l,^1u;+9Qs 'Fq]q{vc tuǙ3wXb~8 (CK pDiɉtuǙIݵL)e&)((fknr ;rEwQ@4.7o]?b0[ IENDB` mapivi097/icons/printer.png 0000644 0001750 0001750 00000000741 10562754434 016331 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs d_ tIME5 z nIDAT8˥N"Q[!z̊"10bިi$;#c7joo[[W*LX,~hLV 9: "T.3<{*VkQDVe<Ϯ P('ι 1tz/֒^L&Lj}Y]R%I @U Ðh`0`8 z4M^_;xLT" C 4]R2, "L h2N18g[H|.qu
Z+1bED.fxq DU9x9o~ hA IENDB` mapivi097/icons/help-browser.png 0000644 0001750 0001750 00000001644 10562754045 017260 0 ustar herrmann herrmann PNG
IHDR a sBIT|d tEXtSoftware www.inkscape.org< 6IDAT8m[lTeZQN6NSMS.F-Ą+IL'Ai$A
G#ՠiZۂcb-P{ivCK엝W^YKSJqcok u@p~Dָq_PE rWw>ξ' B;tdz x;B-/=윊p=FO0 kJxƵO @m
{ 0tr ߇.R: ˖0$i`Yi
{FR <ځc[2<G$ d
F` Jiym7TD b$ [ccu<
u7AR4d,+hDXDJ t dDi١:J& i.E%)"$ ֘k*F$1={s #B
vA(Fk˥]SH$1Qq՟
N,A0ǟPߍ,Som7?5;Xcz
x(UX
!?pY# .
`uG 9.= hmVcqZg
po&'TpuXMUa?)}[ PNeڧt 5ɹ={V7c3Xu,O# :
6ĥ,-(靳㓱tw$Z
4nUxEG:=x{
`@fM{Uv" 3C0c\@nFȂTbTZL\>{tWwvYk-0U4lQ4l69n7J]Ha N3E.En
ͽZ65$ݖ/nխϯ;v?$#P6$E/K^5 IENDB` mapivi097/icons/transform-scale.png 0000644 0001750 0001750 00000001606 10562755362 017750 0 ustar herrmann herrmann PNG
IHDR Ĵl; bKGD pHYs tIME IDAT8˵Oh\U߹֢d &1--]\$܄]*T
*n 0 (X `( P2XɟNRZ'iw$D{}>.ev
֛07~@W \3a&X_[ ?æ$
A qd 4Ol/?AqU%4 ~;`3/ 'f N7:/?1Wy~gѽر}CcHJ%~ #nlB30?й'0&=uHSr] arqyt:IH!@$d=`!\,W]
R]JTrX? 0'z$lW
珟t{|Sof~@P86seekqi}˕Lνc|yxyLƁ:0<5Zt3). e&+- Ib u)`gsf.U<|vp^$!/㳟GTl6SSft[[og@x`p.Σ6-,Uyqf!P gKxww$JX}h9i
$B~}S`$p a9 !9 2|6: pMc-gA|/V_ߖiU~k}$}*q> ,]1(_ 26U( 5 E IENDB` mapivi097/icons/camera-photo.png 0000700 0001750 0001750 00000001540 10562753546 017217 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs tIME '
BPnE 5tEXtComment (c) 2004 Jakub Steiner
Created with The GIMPًo IDAT8ˍKogo<_8QQXd%BU7]U]Y/ @4R+H] ݠX-Q)$U&!8c$cFV;G #x\bvvY^lK~^ϑ뺃0Ľ{+loo
+ZH) KK?0==e8ÇB1kݒR2 @/'ǻͷ_MzDPW^&MS^
wn8
ck{T5,捛aDQWh?866]ı-$!ocuuK> f)~k>;7K?l` "%Zm퐣$r#@4)~1h{+h|'O#nzQqiuC&ΰc;E~8ei
nSSSR23Z/z`[Yq$"sss3>>NXDA@Wh ,}&J%&'')
Th$G RB\>::֕iT+ыcf0 9XBr " 2>0 6א:%Z,1`o %nFa~N(/;+tHRa %Nʿ4J'{( LA0: ԬN Gl6y75 irtI4Mk @ҾB0L8;77T IENDB` mapivi097/icons/view-fullscreen.png 0000644 0001750 0001750 00000001212 10562761535 017752 0 ustar herrmann herrmann PNG
IHDR a bKGD pHYs tIME
5wߚ 5tEXtComment (c) 2004 Jakub Steiner
Created with The GIMPًo IDAT8˝;hQ5i%Hq *v*_P*AppH`APVQtPq
-%-EjMSMLuؼ rsϹȉEo 4g Xm֜XԵ%'ý Hp".q SK$~QM
:yCυoePO9/hYk>H0=@{g<wdvB V))`= 0.7.5\n";
usage();
exit();
}
my $top = MainWindow->new;
$top->title("MaPiVi Plugin file list");
my $file = glob("~/tmp/filelist");
labeledEntryButton($top,"top",24,"path/name of file list","Set",\$file);
my $f1 = $top->Frame()->pack(-anchor => 'w');
my $separator = "\n";
$f1->Label(-text => "separator")->pack(-side => 'left');
$f1->Optionmenu(-options => [ ['newline' => "\n"],['newline and quotas' => "\"\n\""],['comma', ','],['comma and space', ', '],['comma and newline', ",\n"]], -variable => \$separator, -textvariable => \$separator)->pack(-side => 'left');
my $write_xnview_slideshow = 0;
$top->Checkbutton(-variable => \$write_xnview_slideshow,
-text => "Write XnView slide show file (*.sld)",
-command => sub {
# change to separator needed from XnView
$separator = "\"\n\"";
# add right file extension *.sld
$file .= '.sld' if ( $file !~ m/.*\.sld/);
}
)->pack(-anchor => 'w');
my $f2 = $top->Frame()->pack(-anchor => 'w');
$f2->Button(-text => "export file list", -command => \&export)->pack(-side => 'left');
$f2->Button(-text => "exit plugin", -command => \&exit)->pack(-side => 'left');
$top->MainLoop;
sub export {
if (-f $file) {
my $rc = $top->messageBox(-icon => 'warning', -message => "file $file exist. Ok to overwrite?",
-title => "Plugin", -type => "OKCancel");
return if ($rc !~ m/Ok/i);
}
if (!open(FILE, ">$file")) {
print "could not open $file for write access!: $!\n";
return;
}
if ($write_xnview_slideshow) {
print FILE "$xnview_slideshow_header\n";
}
print FILE '"' if ($separator eq "\"\n\"");
for (0 .. $nr-1) {
$separator = "\"\n" if (($_ == $nr-1) and ($separator eq "\"\n\""));
print FILE $ARGV[$_].$separator;
}
close FILE;
print "Plugin finished successfully!\n";
exit();
}
##############################################################
# usage
##############################################################
sub usage {
my $prog = basename($0);
print "\nUsage: $prog file1 [file2] [file3] [...]\n\n";
print "This is a example plugin for mapivi (see http://mapivi.de.vu)\n";
print "It will just write a file list (the selected pictures from mapivi)\n";
print "Author: Martin Herrmann \n";
print "License: GNU General Public License, version 2\n";
}
##############################################################
# labeledEntryButton - build a frame containing a labeled entry
# and a button with a file selector
##############################################################
sub labeledEntryButton {
# input values
my ($parentWidget, $position, $width, $label, $buttext, $varRef, $dir) = @_;
my $frame = labeledEntry($parentWidget, $position, $width, $label, $varRef);
setFileButton($frame,"right",$buttext,$label,$varRef, $dir);
return $frame;
}
##############################################################
# labeledEntry - build a frame containing a labeled entry
##############################################################
sub labeledEntry {
# input values
my ($parentWidget, $position, $width, $label, $varRef) = @_;
my $frame =
$parentWidget->Frame(-relief=>"groove", -bd => 2)->pack(-side => $position, -fill => "x", -padx => 3, -pady => 3);
$frame->Label(-text => $label,
-width => $width,
-anchor => "w",
)->pack(-side => "left", -padx => 3);
my $entry =
$frame->Entry(-textvariable => $varRef,
-width => $width,
)->pack(-side => "left", -fill => "x", -expand => "1", -padx => 1);
$entry->xview("end");
$entry->icursor("end");
return $frame;
}
##############################################################
# setFileButton - open a file selector and set file name
##############################################################
sub setFileButton {
# input values
my ($parentWidget, $position, $butlabel, $fileselLabel, $varRef, $dir) = @_;
# $dir is optional, if defined and true a dir will be selected instead of a file
$parentWidget->Button(-text => $butlabel,
-command => sub {
my $fileSelect = $top->FileSelect(-title => $fileselLabel,
-directory => dirname($$varRef),
-width => 30, -height => 30);
my $file = $fileSelect->Show;
if (defined $file and $file ne "") {
if (-f $file) {
$$varRef = $file;
}
}
},
)->pack(-side => $position);
}
# Tell Emacs that this is really a perl script
# Local Variables:
# mode:perl
# End:
mapivi097/PlugIns/checkDir-plugin.txt 0000644 0001750 0001750 00000000167 10014462503 020142 0 ustar herrmann herrmann checkDir-plugin + check directory + 0 + this plugin will check the current directory for empty files and broken links
mapivi097/PlugIns/test-plugin 0000755 0001750 0001750 00000002041 10334167672 016601 0 ustar herrmann herrmann #!/usr/bin/perl -w
# include perl packages
use strict;
use warnings;
use diagnostics;
use File::Basename;
my $nr = @ARGV;
if ($nr < 1) {
print "Error: $0 called with just $nr arguments\n";
usage();
exit();
}
my $dir = $ARGV[0];
if (-d $dir) {
print "Error: first argument ($dir) is a valid directory.\nThis Mapivi Plug-In is developed for Mapivi version >= 0.7.5\n";
usage();
exit();
}
for (0 .. ($nr-1)) {
print "picture $_: $ARGV[$_]\n";
}
exit();
##############################################################
# usage
##############################################################
sub usage {
my $prog = basename($0);
print "\nUsage: $prog file1 [file2] [file3] [...]\n\n";
print "This is a test plugin for mapivi (see http://mapivi.de.vu)\n";
print "It will just print out the files received from mapivi\n";
print "Author: Martin Herrmann \n";
print "License: GNU General Public License, version 2\n";
}
# Tell Emacs that this is really a perl script
# Local Variables:
# mode:perl
# End:
mapivi097/PlugIns/Join-RGB 0000755 0001750 0001750 00000006232 10334171562 015634 0 ustar herrmann herrmann #!/usr/bin/perl -w
# include perl packages
use strict;
use warnings;
use diagnostics;
use Tk;
use Tk::FileSelect;
use File::Basename;
my $nr = @ARGV;
if ($nr != 3) {
print "Error: $0 called with wrong number of arguments (should be 3).\n";
usage();
exit();
}
my $red = "";
my $green = "";
my $blue = "";
foreach (0 .. $nr-1) {
my $pic = $ARGV[$_];
if ($pic =~ m/.*red.*/i) { $red = $pic; }
if ($pic =~ m/.*green.*/i) { $green = $pic; }
if ($pic =~ m/.*blue.*/i) { $blue = $pic; }
}
if ($red eq "") {
print "$0 called with no red channel!\n";
usage();
exit();
}
if ($green eq "") {
print "$0 called with no green channel!\n";
usage();
exit();
}
if ($blue eq "") {
print "$0 called with no blue channel!\n";
usage();
exit();
}
my $dir = dirname($red);
if (!-d $dir) {
print "$dir is no valid directory\n";
usage();
exit();
}
my $top = MainWindow->new;
$top->title("MaPiVi Plugin RGB Seperator");
$top->Label(-text => "Create a",
)->pack();
$top->Button(-text => "RGB picture",
-command => sub { export(); })->pack();
$top->Label(-text => "picture of the three selected channel pictures",
)->pack();
$top->Button(-text => "exit plugin", -command => \&exit)->pack();
$top->MainLoop;
sub export {
my $rgb = $red;
$rgb =~ s/(.*)(red)(\.jp(g|eg))/$1RGB$3/i;
print "rgb outoput file = $rgb\n";
if (-f "$rgb") {
my $rc = $top->messageBox(-icon => 'warning', -message => "output file $rgb exist. Ok to overwrite?",
-title => "Plugin", -type => "OKCancel");
return if ($rc !~ m/Ok/i);
}
if (-f "$rgb.ppm") {
my $rc = $top->messageBox(-icon => 'warning', -message => "temp file $rgb.ppm exist. Ok to overwrite?",
-title => "Plugin", -type => "OKCancel");
return if ($rc !~ m/Ok/i);
}
my $command = "composite -compose copyred $red $green $rgb.ppm";
(system "$command") == 0 or print "Error: $command failed: $!\n";
$command = "composite -quality 95 -compose copyblue $blue $rgb.ppm $rgb";
(system "$command") == 0 or print "Error: $command failed: $!\n";
if (-f "$rgb.ppm") {
if ( unlink("$rgb.ppm") != 1) { # unlink returns the number of successfull removed files
$top->messageBox(-icon => 'warning', -message => "Could not delete file \"$rgb.ppm\": $!",
-title => "Error", -type => "OK");
print "Plugin $0 finished with errors!\n";
exit();
}
}
print "Plugin $0 finished successfully!\n";
exit();
}
##############################################################
# usage
##############################################################
sub usage {
my $prog = basename($0);
print "\nUsage: $prog file1-Red.jpg file2-Green.jpg file3-Blue.jpg\n\n";
print "This is a plugin for mapivi (see http://mapivi.de.vu)\n";
print "It will join the three selected RGB channel pictures from mapivi\n";
print "into one RGB picture\n";
print "The file names must include the corresponding color\n";
print "(red, green, blue; in upper or lower case)\n";
print "Author: Martin Herrmann \n";
print "License: GNU General Public License, version 2\n";
}
# Tell Emacs that this is really a perl script
# Local Variables:
# mode:perl
# End:
mapivi097/PlugIns/checkDir-plugin 0000755 0001750 0001750 00000012523 10334171017 017330 0 ustar herrmann herrmann #!/usr/bin/perl -w
# include perl packages
use strict;
use warnings;
use diagnostics;
use Tk;
use Tk::FileSelect;
use File::Basename;
use Cwd;
my $nr = @ARGV;
my $verbose = 0;
if ($nr < 1) {
warn "$0 called with just $nr+1 arguments\n";
usage();
exit();
}
my $dir = $ARGV[0];
if (-f $dir) {
$dir = dirname($dir);
}
my $top = MainWindow->new;
$top->title("MaPiVi Plugin check dir");
my @emptyFiles = getEmptyFiles ($dir);
my @brokenLinks = getBrokenLinks($dir);
$top->Label(-text => "There are ". scalar @emptyFiles." empty files and ".scalar @brokenLinks." broken links in $dir")->pack();
my $ce = 0;
my $cb = 0;
if (@emptyFiles > 0) {
$top->Button(-text => "remove empty files", -command => sub {
foreach (@emptyFiles) {
if ( unlink("$dir/$_") != 1) { # unlink returns the number of successfull removed files
$top->messageBox(-icon => 'warning', -message => "Could not delete file \"$_\": $!",
-title => "Error", -type => "OK");
}
else { $ce++; }
}
print "removed $ce empty files\n";
})->pack();
}
if (@brokenLinks > 0) {
$top->Button(-text => "remove broken links", -command => sub {
foreach (@brokenLinks) {
if ( unlink("$dir/$_") != 1) { # unlink returns the number of successfull removed files
$top->messageBox(-icon => 'warning', -message => "Could not delete file \"$_\": $!",
-title => "Error", -type => "OK");
}
else { $cb++; }
}
print "removed $ce broken links\n";
})->pack();
}
$top->Button(-text => "Exit", -command => \&exit)->pack();
$top->MainLoop;
##############################################################
# usage
##############################################################
sub usage {
my $prog = basename($0);
print "\nUsage: $prog directory|file\n\n";
print "This is a example plugin for mapivi (see http://mapivi.de.vu)\n";
print "It will check, if there are some empty files or\n";
print "broken links in the given directory and ask to\n";
print "remove them.\n";
print "Author: Martin Herrmann \n";
print "License: GNU General Public License, version 2\n";
}
##############################################################
# getEmptyFiles - returns a list of empty files
##############################################################
sub getEmptyFiles {
my $dir = shift;
print " getEmptyFiles: in $dir\n" if $verbose;
my @fileDirList = readDir($dir);
my @fileList;
foreach (@fileDirList) {
# put only files which are empty into the filelist
push @fileList, $_ if (-z "$dir/$_");
}
return @fileList;
}
##############################################################
# getBrokenLinks - returns a list of broken links
##############################################################
sub getBrokenLinks {
my $dir = shift;
print " getBrokenLinks: in $dir\n" if $verbose;
my @fileDirList = readDir($dir);
my @fileList;
foreach (@fileDirList) {
if (-l "$dir/$_") {
my $real = getLinkTarget("$dir/$_");
print "$_ links to $real\n" if $verbose;
if (!-f $real) {
print "$real does not exists!\n" if $verbose;
# put only files which are empty into the filelist
push @fileList, $_;
}
}
}
return @fileList;
}
##############################################################
# readDir - reads the contents of the given directory
##############################################################
sub readDir {
my $dir = shift;
if (! -d $dir) {
warn "readDir: $dir is no dir!: $!";
return 0;
}
my @fileDirList;
# open the directory
if (!opendir ACTDIR, "$dir") {
warn "Can't open directory $dir: $!";
return 0;
}
# show no files starting with a '.', but '..'
@fileDirList = grep /^(\.\.)|^[^\.]+.*$/, readdir ACTDIR;
closedir ACTDIR;
return @fileDirList;
}
##############################################################
# getLinkTarget - returns the file a link is pointing to
# input (directory, link) or (dirlink) where
# dirlink consists of directory and link
# works with relative and absolute links
##############################################################
sub getLinkTarget {
my ($dir, $link);
if (@_ == 2) {
$dir = shift;
$link = shift;
}
elsif (@_ == 1) {
$dir = dirname($_[0]);
$link = basename($_[0]);
}
else {
warn "getLinkTarget: wrong # of parameters!";
return "";
}
# change first to the start dir (to handle relative links)
return "" if !changeDir($dir);
my $linktargetfile = readlink $link;
my $linktargetdir = dirname $linktargetfile;
# change to link target, this should now work for relative and absolute links
return "" if !changeDir($linktargetdir);
# get the current dir
my $cwd = cwd();
$linktargetfile = $cwd."/".basename($linktargetfile);
return $linktargetfile;
}
##############################################################
# changeDir
##############################################################
sub changeDir {
my $newDir = shift;
return 0 unless defined $newDir;
if ( !chdir $newDir ) {
my $dialog = $top->Dialog( -title => "Changing to $newDir directory failed",
-text => "Can't change to $newDir directory: $!",
-buttons => ["OK"]);
$dialog->Show();
warn "Can't change to $newDir directory: $!";
return 0;
}
return 1;
}
# Tell Emacs that this is really a perl script
# Local Variables:
# mode:perl
# End:
mapivi097/PlugIns/Channel-Separator.txt 0000644 0001750 0001750 00000000270 10336156250 020441 0 ustar herrmann herrmann Channel-Separator + separate channels (RGB, CMY, etc) + 1 + this plugin will split the red, gree, blue, matte, opacity, cyan, ... channels of all selected pictures to separate files
mapivi097/PlugIns/Channel-Separator 0000755 0001750 0001750 00000004640 10336156226 017636 0 ustar herrmann herrmann #!/usr/bin/perl -w
# include perl packages
use strict;
use warnings;
use diagnostics;
use Tk;
use Tk::FileSelect;
use File::Basename;
my $nr = @ARGV;
if ($nr < 1) {
print "Error: $0 called with just $nr arguments\n";
usage();
exit();
}
my $dir = $ARGV[0];
if (-d $dir) {
print "Error: first argument ($dir) is a valid directory.\nThis Mapivi Plug-In is developed for Mapivi version >= 0.7.5\n";
usage();
exit();
}
my $top = MainWindow->new;
$top->title("MaPiVi Plugin RGB Separator");
$top->Label(-text => "Create a",
)->pack();
$top->Button(-text => "red, green and blue (RGB)",
-command => sub { my @list = qw/Red Green Blue/;
export(@list); })->pack();
$top->Button(-text => "cyan, magenta and yellow (CMY)",
-command => sub { my @list = qw/Cyan Magenta Yellow/;
export(@list); })->pack();
$top->Button(-text => "matte, opacity and black",
-command => sub { my @list = qw/Matte Opacity Black/;
export(@list); })->pack();
$top->Label(-text => "channel picture of the $nr selected pictures",
)->pack();
$top->Button(-text => "exit plugin", -command => \&exit)->pack();
$top->MainLoop;
sub export {
my @list = @_;
for (0 .. $nr-1) {
my $dpic = $ARGV[$_];
next if (!-f $dpic);
print "processing $dpic ($_/$nr) ...\n";
foreach my $color (@list) {
my $rgb = $dpic;
$rgb =~ s/(.*)(\.jp(g|eg))/$1-$color$2/i;
print "rgb = $rgb\n";
if (-f $rgb) {
my $rc = $top->messageBox(-icon => 'warning', -message => "file $rgb exist. Ok to overwrite?",
-title => "Plugin", -type => "OKCancel");
next if ($rc !~ m/Ok/i);
}
my $command = "convert -quality 95 -channel $color \"$dpic\" \"$rgb\" ";
(system "$command") == 0 or print "Error: $command failed: $!\n";
}
}
print "Plugin finished successfully!\n";
exit();
}
##############################################################
# usage
##############################################################
sub usage {
my $prog = basename($0);
print "\nUsage: $prog file1 [file2] [file3] [...]\n\n";
print "This is a plugin for mapivi (see http://mapivi.de.vu)\n";
print "It will split the selected pictures from mapivi\n";
print "into RGB or other channel pictures\n";
print "Author: Martin Herrmann \n";
print "License: GNU General Public License, version 2\n";
}
# Tell Emacs that this is really a perl script
# Local Variables:
# mode:perl
# End:
mapivi097/PlugIns/test-plugin.txt 0000644 0001750 0001750 00000000137 10014462503 017402 0 ustar herrmann herrmann test-plugin + Test PlugIn + 0 + this plugin will show the file names of all selected pictures
mapivi097/COPYING 0000644 0001750 0001750 00000043114 10120125123 014032 0 ustar herrmann herrmann GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
Copyright (C) 19yy
This program 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.
This program 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 this program; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19yy name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Library General
Public License instead of this License.
mapivi097/INSTALL 0000755 0001750 0001750 00000027135 10757361474 014073 0 ustar herrmann herrmann
##########################################################################
#
# Mapivi - Martin's Picture Viewer
#
##########################################################################
Picture Viewer and Organizer for UNIX/X11, Mac OS X, Windows written in
Perl/Tk.
Mapivi supports adding, viewing and editing of JPEG meta informations like:
EXIF, IPTC/IIM and JPEG comments.
File INSTALL last modified: 21.02.2008
Mapivi latest version can be found at: http://mapivi.de.vu
and http://sourceforge.net/projects/mapivi (download)
##########################################################################
#
# Requirements
#
##########################################################################
You need:
o a computer running UNIX (Linux, Solaris, Mac OS X) and X11 or Windows
(mapivi also works at least with Windows 2000 and WinXP, but maybe also
with Windows 98)
and for the perl distribution (recommended for non-Windows computers):
o Perl 5.005 or better
o Perl/Tk 800.015 or better
o jpegtran to do the loss-less rotation. They are included e.g. in the
The Independent JPEG Group's JPEG software release 6b (this program is
part of most Linux distributions as part of the libjpg package)
o jhead - for auto rotation of pictures
homepage: http://www.sentex.net/~mwandel/jhead/
o the command line tools convert, mogrify and composite (or combine)
from Image Magick (this is also part of most Linux distributions)
see http://www.imagemagick.org
o Perl module Image::MetaData::JPEG
o Perl module Image::Info
o Perl/Tk module Tk::JPEG (not needed if you have Perl/Tk 804.025 or newer)
o optional: Perl module Proc::ProcessTable
o optional: gimp-remote (for UNIX etc.) or gimp-win-remote (for Windows)
You will find all the perl modules at http://search.cpan.org/
for the Windows distribution (mapiviXXX_Win32.zip) you need:
o jpegtran to do the loss-less rotation. They are included e.g. in the
The Independent JPEG Group's JPEG software release 6b (this program is
part of most Linux distributions as part of the libjpg package)
o jhead - for auto rotation of pictures
homepage: http://www.sentex.net/~mwandel/jhead/
o the command line tools convert, mogrify and composite (or combine)
from Image Magick (this is also part of most Linux distributions)
see http://www.imagemagick.org
o optional: gimp-remote (for UNIX etc.) or gimp-win-remote (for Windows)
##########################################################################
#
# Installation of Perl modules
#
##########################################################################
To install a Perl module you may either try cpan (a) or for Windows ppm (b) or do a manual (c) install.
(a)
Cpan will download a module (and all modules it depends on), build and
install it. All you have to do is open a shell and type:
cpan module_name
Example to install the Perl module Image::Info:
cpan Image::Info
You may need root permissions for this step, try e.g.
sudo cpan Image::Info
(b)
ppm is the Perl Package Manager for Windows it will download a
module (and all modules it depends on), build and install it.
All you have to do is open a DOS box (cmd) and type:
ppm install module_name
Example to install the Perl module Image::Info:
ppm install Image::Info
(c)
For a manual install you must download the Perl module at e.g.
http://search.cpan.org/, unzip and unpack it.
The module can now be built using this sequence of commands:
perl Makefile.PL
make
make test
To install the module, run the command below:
make install
You may need root permissions for this step, try e.g.
sudo make install
##########################################################################
#
# Installation of Perl distribution for UNIX
#
##########################################################################
File name mapiviXXX.tgz (or mapiviXXX.tar.bz2)
in short:
unzip, unpack, change to the mapivi directory and run mapivi with:
perl mapivi
in long:
("-> " is the command line prompt)
unzip the archive (XXXX is the version number):
-> gunzip mapiviXXXX.tgz
or
-> bunzip mapiviXXXX.tar.bz
extract the tar-ball:
-> tar xvf mapiviXXXX.tar
go into the directory
-> cd mapiviXXXX/ (where ever you extracted mapivi to ...)
run mapivi
-> perl mapivi (you only have to do this the first time
for the mapivi install process)
later Mapivi is started like this:
-> mapivi
Hint: For Ubuntu users there is some more help available here:
http://ubuntuforums.org/showthread.php?t=130912&highlight=mapivi
##########################################################################
#
# Installation of Linux executable distribution
#
##########################################################################
File name mapiviXXX_Linux.exe.bz2
1. Unzip the package to a new folder anywhere using bunzip2
(e.g. to ~/progs/mapivi)
2. Download and install jhead and jpegtran, if not already installed.
3. Start MapiviXXX_Linux.exe with a double click in your file manager or
in a shell (if this doesn't work you may need to adjust the file
permissions: chmod a+x ~/mapivi/MapiviXXX_Linux.exe).
That's all.
##########################################################################
#
# Installation of Perl distribution for Mac OS X
#
##########################################################################
File name mapiviXXX.tgz (or mapiviXXX.tar.bz2)
[Unfortunately, I did not keep track of all the things I had to install
to make mapivi work. If you are the next person to install mapivi on
Mac OS X, please make a list and tell Martin. -- Dan Eble]
Follow installation instructions for UNIX.
macosx-preview
Mapivi comes with a shell script, macosx-preview, which opens the
Preview application to serve the "open picture in external viewer"
feature. To use this feature, make sure the script is in a directory
that is in the PATH, or instead open the mapivi options (Ctrl-o), go to
the Advanced tab, and change the setting to include the full path to
macosx-preview.
The macosx-preview script attempts to use full-screen view, but this
requires the feature "access for assistive devices". To enable this
feature, run System Preferences, select the Universal Access pane,
and check the box labeled "Enable access for assistive devices".
##########################################################################
#
# Installation of Windows executable distribution
#
##########################################################################
File name mapiviXXX_Win32.zip
1. Unzip the package to a new folder anywhere (e.g. C:\Program files\Mapivi)
2. Download and install ImageMagick, jhead and jpegtran.
3. Start MapiviXXX_Win32.exe with a double click or in a dos box.
That's all.
##########################################################################
#
# Installation of Perl distribution for Windows
#
##########################################################################
File name: mapiviXXX.tgz (or mapiviXXX.tar.bz2)
Installation order:
1. Active State Perl
2. Perl module String::IO
3. Perl module Image::Info
4. Perl module Image::MetaData::JPEG
5. Perl module Tk::JPEG (needed only for Perl/Tk versions < 804.025)
6. ImageMagick, jhead, jpegpixi, ...
7. Mapivi
Install perl e.g. the Active State Perl (www.activestate.com)
Try also to get the needed perl modules from there.
Install Image magick, jhead etc.
Suggestion:
Create a new directory e.g. C:\Programs\Graphics
and install all backend tools in this directory.
Don't forget to add this directory to the PATH variable
(System->Environment variables->Path).
unzip, unpack mapivi (e.g. with winzip)
change to the mapivi directory in a DOS-box and run mapivi with:
perl mapivi
I recommend renaming mapivi to mapivi.pl (or mapivi.wpl), so the windows
explorer is able to recognize it as a perl file. After renaming it's
possible to start it with a double click, or via the start menu or the
quick launch bar.
You may also change the default perl icon to the MapiviIcon32.ico icon
(see directory .../mapiviXXXX/pics/).
If you have problems with Win Xp and Tk::JPEG, maybe this link is a help
for you: http://perlmonks.thepen.com/195691.html
Hint: If you have problems with convert from ImageMagick, this may
be due to the fact, that there is a windows program with the
same name.
Workaround: the path to the ImageMagick convert tool must be in front of
the windows convert tool in the PATH variable.
#################################
Perl Installation Update for Win32 (Nov 2004):
Install perl e.g. the Active State Perl (www.activestate.com
download here:
http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl)
e.g. ActivePerl 5.8.3 build 809 (I usually use the file with the MSI suffix)
Open a DOS box, start ppm (enter ppm and press return) and download the actual
Perl/Tk 804.027:
ppm> repository add BdP http://www.bribes.org/perl/ppm
ppm> install http://www.bribes.org/perl/ppm/Tk.ppd -force
This new version already includes Tk::JPEG
Now you just need to install Image-Info and Image-MetaData-JPEG:
ppm> install Image-Info
ppm> install Image-MetaData-JPEG
##########################################################################
#
# Installation of other Mapivi files and PlugIns
#
##########################################################################
Most of the files provided in the Mapivi Perl package should be copied to
the configuration folder of Mapivi (UNIX: ~/.maprogs/mapivi/PlugIns,
Windows: C:\Documents and Setting\\Application Data\maprogs\mapivi).
Mapivi will run without this step, but it will provide more features and look better if you do! :)
Copy the files Changes.txt, FAQ, License,txt, Tips.txt to the configuration folder.
Copy all pictures from the subfolder pics (like EmptyThumb.jpg, logo.jpg, MiniPic.jpg, add.gif)
to the configuration folder (no subfolder here).
Copy the complete icon folder (containing edit-copy.png, folder.png, go-next.png, ...)
to the configuration folder.
Copy the complete PlugIns folder (containing Channel-Separator, Join-RGB, ...)
to the configuration folder.
Plug-Ins are executable applications which are stored in the Mapivi configuration
sub folder PlugIns (UNIX: ~/.maprogs/mapivi/PlugIns, windows see above and add \PlugIns).
They are called by Mapivi with the selected pictures (each with complete
path) as arguments.
The example PlugIns contained in the Mapivi distributions are written in
Perl. To get them running on your system it may be necessary to adjust
the first line of each PlugIn (e.g. filelist-plugin).
The first line must contain the chars #! and the full path to your perl
executable.
Example:
#!/usr/bin/perl
(To get the full path of perl try:
which perl
in your shell.)
##########################################################################
#
# Help
#
##########################################################################
You will find a lot of help to Perl and Perl/Tk in this newsgroup:
news:comp.lang.perl.tk
The newsgroup may be searched using this link at google.com:
http://groups.google.com/groups?hl=en&group=comp.lang.perl.tk
If this won't help, try to start mapivi from perl and read the output
carefully
-> perl mapivi
You may also set the $verbose variable to 1 to get more information.
To do this, press Ctrl-v while running mapivi or by opening mapivi in a
text editor and searching for this line:
my $verbose = 0; # boolean (1 = print debug infos, 0 = be quiet)
and changing it to:
my $verbose = 1; # boolean (1 = print debug infos, 0 = be quiet)
then save mapivi and restart it:
-> perl mapivi
Send me an email if it you have problems, questions, feature requests,
patches or comments:
Martin-Herrmann@gmx.de (german or english spoken)
mapivi097/Changes.txt 0000755 0001750 0001750 00000152563 10757363376 015162 0 ustar herrmann herrmann 2008/02 mapivi version 0.9.7
+ added 2008 copyright info
2008/02 mapivi version 0.9.6
+ added location window to search for and to add location informations (based on IPTC tags Country, Province/State, City, Sublocation)
+ revised the import dialog: removed mount/unmount
+ revised the import dialog: moved some options to a foldable frame
+ revised the import dialog: added an option to add a high rating to locked (write-protected) pictures
+ embedded a new Mapivi icon
+ added common key bindings to the dirtree and the picture frame
+ included patch to correct timezone calculation in case of migration over 24 hour border (Thanks Rene!)
+ included patch adding a third IPTC dialog layout (without categories) (Thanks Rene!)
+ show changed IPTC caption in main window if edited in IPTC dialog
+ added an ignore filter in search for duplicates
+ improved search for duplicates window
2008/02 mapivi version 0.9.5
+ improved usability in crop dialog (better mouse handling, 1/3-grid)
+ added evolution and mozilla-thunderbird as possible email clients
+ IPTC caption is now editable in main window (key: F4)
+ added support for RAW files (files are moved, copied rename along with their JPEG file)
+ added searching for duplicates by same creation date
+ improved and reordered several menus and added all layouts as menu entries
+ improved usability in change EXIF date/time dialog
+ usage of a proportional font in the keyword search (cloud tag) for better font sizing
+ increased number of maximal shown thumbnails from 1000 to 10000
+ bug fix in IPTC dialog when editing several pictures with different settings
+ bug fix in search duplicated by file size
+ usage of nstore instead of store enables usage of search database across different OS
2007/07 mapivi version 0.9.4
+ Support for XMP sidecar files and WAV files (copy, move, rename them with JPEG file)
+ some experiments with encoded file and folder names (see Encode::encode)
+ replace some non-printable chars in IPTC data
+ Adaptations for keywords added from Picasa
+ improved user feedback (progressbar) when editing IPTC of several pictures
+ some work on fullscreen mode in main window and when pic is displayed in own window (key: F11)
+ new key (m) in search window to show selected picture in main window
+ the options window is smaller to fit on small screens, it may be closed with Ctrl-x (OK) or ESC (Cancel)
2007/05 mapivi version 0.9.3
+ when editing IPTC info of multiple pictures the dialog shows all common tags and keywords
+ added several lossless JPEG operations: add border, add relative border, add border aspect ratio, add watermark, ...
+ added icons to all menues (they are stored in configdir/icons)
+ added Image::ExifTool as an optional module
+ if ExifTool is available some XMP operations are supported (see Menu:Edit->XMP info ...)
+ more search options in the cloud tag: date range and rating range
+ keyword window may now be docked to the left or right side of the main window
+ TOP50 of most popular pictures has been replaced by TOP100 of best rated pictures (see special searches)
+ number of digits in the filename in the light box are calculated by the number of pictures (thanks to Yann Michel)
+ some parts of the old filename (e.g. the number) can now be reused in Smart rename (thanks to Thierry Daucourt)
+ better and more checks when adding new keywords to the hierarchy
+ decoration dialog offers the ImageMagick fonts now
+ progress dialog calculates the estimated total time for an operation
+ some experiments with encoded file and folder names (see Encode::encode)
+ renamed directory to folder
2006/12 mapivi version 0.9.2
+ new command line option -i to start with import wizard
+ new option to start import wizard at startup when a memory card is inserted
+ modified some default options
+ Mapivi now saves the last selected picture (optional)
+ code cleanup
+ support of three different date formats (yyyy-mm-dd, dd.mm.yyyy, mm/dd/yyyy) see line 6000
+ check new keywords and categories for unsupported chars (slash and backslash)
+ support to delete multiple keywords/categories from the catalog at once
+ better progress info for tasks with undefined length
+ smart rename adds now a 3 digit number instead of a 2 digit number when needed
+ added some balloon help in the option window
+ some experiments with ExifTool (not yet active)
2006/10 mapivi version 0.9.1
+ several improvements for adding new keywords, e.g. new keywords may now also be ignored - the ignore list is saved in file keywords_ignore
+ the number of keywords in the keyword browser can be limited to the 100 most popular
+ more information in the keyword browser, e.g. number of displayed and available keywords
+ the warning after changing an existing rating/urgency can be switched off
+ some more speed improvements when reading in a directory a second time by using file and pixel size information from the database
+ bug fix: when using the IPTC edit dialog the rating/urgency is now handled correct
+ improved folder selection dialog for "add to database ..." and "build thumbnail database ..."
+ new popup menu in thumbnail preview window (also used when showing pictures from keyword browser): open picture folder in main window
+ show at least the complete path and file name in balloon if picture is not available
2006/10 mapivi version 0.9.0
+ new feature to browse the pictures by keyword/tag clouds (menu: Search->browse database by keyword ...)
+ mapivi detects new IPTC keywords in pictures and asks to add them to the keyword catalog (try Menu: Search->add to database ...)
+ integrated a new color chooser (Tk::ColorChooser is no longer needed)
+ added a color picker (color pipette) to choose a color of a picture, the picked color may be used to e.g. add an adequate frame color
+ search for duplicate pictures may now be restricted to selected directories
+ search for pictures with a certain pixel size is now supported
+ new function to add an inner frame when using the montage/index print function
+ add join button and mode in category window
+ new preset when changing picture size (PAL: 720x576 pixel)
+ added Mapivi icon image to all windows
+ removed unused function exportIPTC() to XML
+ small bug fixes and improvements
2006/09 mapivi version 0.8.3
+ new feature: timeline; showing distribution of pictures over month and year (new way to access your pictures and better info about database content)
+ sort by EXIF date, file date, file size and urgency are much faster now, as they use info from database
+ it is now possible to restore pictures from the trash as the original folder info is saved
+ montage/index print is now also available in the light table
+ bug fix: when a folder is removed all pictures are now also removed from the database
+ search duplicates: it is now possible to ignore links
+ search window: new menu item to remove items from the database
+ changed key bindings: key-F5: smart update, key-u: update thumbnail list
+ pressing the middle mouse button to view a picture no longer changes the selection
+ search window: added dummy frame for further extensions
+ several GUI improvements
2006/08 mapivi version 0.8.2
+ speed improvement up to 10 times when reading in a directory a second time
+ smart update of directory (much faster especially in big directories)
+ added basic support for PNG pictures
+ improved IPTC dialog (simple and professional layout)
+ improved directory diff: more functions, other layout
+ keyword window and light table save their size and position on the desktop
+ new feature to remove image meta info when resizing a picture
+ better logical ordering and consistency when displaying IPTC infos
+ show pic in own window is able to display several pictures
+ more and better infos when importing slideshow files
+ new aspect ratio 5:4 (for PAL video)
+ better layout of overlay meta info
+ improved grayscale function
+ new additional builtin histogram function
+ added more variables in the smart rename function
+ add pictures from a thumbnail window to the light table
+ improved search dialog: entering of date ranges
+ fixed bug in light table resize under windows
+ fixed bug in light table move thumb and scroll
2006/01 mapivi version 0.8.1
+ fixed a bug with the default thumbnail EmptyThumb.jpg (thanks to Christian Franke)
2006/01 mapivi version 0.8.0
+ Mapivi has a nicer and more modern look
+ improved menu layout
+ more color options plus presets
+ keywords and categories may now be added in join mode: e.g. Family.Herrmann.Martin
+ grayscaled (black/white) pics using a channel mixer with a lot of useful filter presets
+ more functions and menues in the light table window
+ added options when saving xnview slideshows (e.g. support relative paths)
+ more menu items and key shortcuts in the search window (e.g. keywords and rating)
+ save and restore size of search window
+ reduced thumbnail generation options
+ TOP50 displays thumbnails now
+ a lot of bug fixes and improvements
2005/11 mapivi version 0.7.5
+ new: added a light table, to sort out and rearrange picture collections, albums, slideshows
it is possible to save these slideshows as XnView compatible *.sld file lists
+ improved the search window (cleanup, more help, better layout)
+ made more file operations work in the search window (e.g. backup, rename, build web pages)
+ added possibility to sort and search pictures by popularity (number of views)
+ added TOP50 of most popular pictures (see menu: Extra->show TOP50)
+ added -size to convert arguments which speeds up the resizing (idea: Dan Eble)
+ experimental: menu: Extra->show picture view list (to show slide show lists in main window)
+ changed the PlugIn arguments from (dir file, file, ..) to (file, file, ..) (each with full path)
+ reworked all PlugIns accordingly
+ show file size difference in Bytes in the directory difference window
+ removed gimmicks like background thumbnails
+ improved thumbnail options window
+ new key bindings (e.g. Ctrl-k for categories)
+ code cleanup and minor bug fixes
2005/11 mapivi version 0.7.4
+ build web pages: escape special HTML characters (Dan Eble)
+ build web pages: first page is called index.html (easier access) (Dan Eble)
+ new feature: track popularity of pictures (count how often a picture has been viewed within mapivi)
+ improved handling of linked files and modification time checking (Dan Eble)
+ better EXIF support for Canon cameras (Dan Eble)
+ cleanup and rearrangement of the IPTC dialog (not finished) (Dan Eble and Martin)
+ picture balloon messages are in better shape now
+ code cleanup and minor bug fixes
2005/09 mapivi version 0.7.3
+ import EXIF date, time, owner in IPTC
+ search just in IPTC keywords
+ add asymmetric borders around pictures
+ show or edit IPTC and copy to print also in search window available
+ more options in directory checklist
+ better? folder selection for windows
+ backup is shown immediately
+ adjustable separator when joining comments
+ user is asked before a backup file is renamed
+ easier search patterns ((,),[,],{,},+,... may be used now)
+ support for new gimp-win-remote (GIMP >= 2.2), old one is no longer supported, but code still available
+ slideshow displays just the selected pictures
+ exiftool experiments
+ code cleanup and bug fixes
2005/03 mapivi Version 0.7.2
+ new feature to add comments while importing pictures
+ new feature to add IPTC templates while importing pictures
+ swapped IPTC and EXIF column in search window too
2005/03 mapivi Version 0.7.1
+ mapivi supports and needs module Image::MetaData::JPEG in version 0.14 or better
=> no more memory leaks when cataloging pictures
+ autocompletion in most of the entry fields (e.g. in the IPTC editor)
to add a new value you must leave the entry with tab or enter key!
see also menu:Extra->edit entry history
+ new feature: add lossless border to JPEG pictures (see menu: Extra->add lossless border)
+ crop dialog nearly completly rewritten, frame is now drawn using the mouse directly
+ fixed bug when adding IPTC info to a single picture
+ improved font selection (new dialog)
+ new option to overlay the picture with it's meta data
+ better keyboard support
+ simply add/remove keywords to comments of one or many JPEG pictures
+ the setting all/last in keyword and category dialog will be saved
+ removed the Stop button from the main window (subs: stopButStart, -Stop, -End, -Check)
+ swapped IPTC and EXIF column in thumbnail table
+ middle mouse button click in dir tree opens thumbnail preview window of selected directory
+ bug fixes in: checkCachedPics() and selectThumb()
+ added more support for non-JPEG pictures, but still a lot work to do
+ improved display in directory checklist (red for unavailable directories)
+ resizable columns in search dialog
+ improved empty-trash functionality
+ renamed the String, And and Or-Search to exactly, all and any
+ several improvements and bug fixes
2005/01 mapivi Version 0.7.0
+ directory checklist, helps to keep track in which dir the pics are sorted, commented, rated, ...
+ hierarchical IPTC keywords and categories with easy edit functionality (also for comments)
please rename your existing keywords and categories files in the config dir to see the new examples
+ IPTC keywords and categories are also available as extra dialogs, simply double click on an item
to insert it in all selected pictures (use right button to open the edit menu in these dialogs)
+ copy, save and restore EXIF data stuff is working again in this version
+ more data in the search database: file size, pixel size, modification time
+ improved search dialog (show file attributes, urgency search, display EXIF and histogram, sort found pics)
+ bug fix in search: only the first line of multiline comments and IPTC infos was searched
+ better memory management (remove thumbs objects after searching)
+ new keys: to show histogram jump to next selected pic
+ faster histogram for those with limited ImageMagick installations (no LZW)
+ show [raw] in the size column if there is a raw (*.nef, *.crw) pic available
+ show directory sizes including all subdirs in a grphical way
+ improved comment dialog
+ new function: empty trash
+ show file date in balloon popups
+ removed warning for thumb caption none
+ corrections, improvements and bug fixes
2004/12 mapivi Version 0.6.2
+ Warning: copy, save and restore EXIF data stuff is not working in this version!
+ Warning: old IPTC templates can no longer be used!
+ Warning: existing stored EXIF files can no longer be used!
+ Warning: non-JPEGS are no longer copied, renamed or moved with their JPEG pic!
+ copy and paste IPTC infos between pictures
+ new HTML template tags: file-no-suffix, iptc-headline, iptc-caption, comment
+ edit IPTC info now also in search dialog window
+ move pics now also in search dialog window and in duplicates window
+ selectable font family, color and shadow and better layout in add copyright info
+ editing IPTC infos of multiple files is better supported now (working with Image::MetaData::JPEG)
+ show the transfer rate when importing pictures
+ bug fix: flash usage in EXIF data was sometimes wrong
+ libexif and exif are no longer needed thanks to Image::MetaData::JPEG
+ replaced jhead by Image::MetaData::JPEG where ever possible
+ Show ISO setting also for Nikon D70 (it's hidden in the MakerNotes)
+ startet to support other picture file formats than JPEG (see e.g. is_a_JPEG)
+ solved some focus problems when clicking on dialogs
+ added version check for module Image::MetaData::JPEG
2004/10 mapivi Version 0.6.1
+ new function to add fuzzy borders to pictures (see menu Extra)
+ indexPrint() now uses a lossless file format when more than one convertion is done
+ new option when importing pics: delete Canons *.ctg files thanks to Dan Eble
+ better Mac OS X support thanks to Dan Eble
+ improved user info for not available external programs
+ corrections, improvements and bug fixes (thanks to Martin Sarsale)
2004/10 mapivi Version 0.6.0
+ new more compact layout (filename below thumbnail; optional) thanks to Dan Eble
+ big internal change of the hlist usage: the entrypath now represents the path and filename
+ better layout, balloon infos and a delete function in display directory (showThumbList())
+ better auto rename function: the first picture of a set will now also have an number (-00)
+ bug fix: mapivi did not work if Image::IPTCInfo was not available
+ the offset to GMT is now added in the IPTC dialog when using the EXIF time
+ default settings for Windows and Mac OS X for the external viewer
+ better user info in case of errors: the errors are collected and displayed after a batch job
+ added mapivi icons to most of the windows
+ enhanced the myButtonDialog to replace the myEntryDialog in many cases
+ added a test suite for regression test of the non-GUI parts
+ more function prototypes
+ some first researches to support UTF8 encoding in comments
+ bug fixes, code cleanup und minor improvements
2004/09 mapivi Version 0.5.9
+ new function to convert JPEGs to other formats (GIF, PNG, TIFF) (feature request from Stephan Helma)
+ new and very fast function to convert pictures to grayscale using jpegtran
+ better layout of the IPTC dialog thanks to Dan Eble
+ the section color is configurable thanks to Dan Eble
+ new possibility when dragging pictures to the dir tree: link file. Thanks to Dan Eble
+ do not link to a link bug fix by Dan Eble
+ cleaned-up the directory hot list management (btw, the file ~/.maprogs/mapivi/dirs is no longer needed)
+ semi transparent box around the crop frame in crop window
+ lossless cropping is done in 8 or 16 pixel steps
+ the urgency scale is now well aligned for all Tk versions and has more colors
+ new key: Ctrl-F10 to remove the IPTC urgency flag
+ select and show the actual directory in the dir tree should work now
+ bug fix in the short IPTC output and the IPTC urgency setting
+ the picture in the image processing window may be dragged now (panning)
+ some bug fixes and some first steps to support more image formats than just JPEG
2004/09 mapivi Version 0.5.8
+ interface of deletePics(), crop() and copyPics() and other functions changed, they are now usabel from any window
+ improved web gallery generation (e.g. better use of IPTC infos) thanks to Dan Eble
+ the search database is saved per default now
+ it's now possible to edit comments of pics in the search window
+ minor changes and bugfixes
2004/09 mapivi Version 0.5.7
+ show memory usage of mapivi in Help->About if Proc::ProcessTable is available
+ removed preload pic function - it was not very helpfull
+ improved the handling of cached pictures (they are now adressed by name, not by index)
+ showPics() argument also changed from the index to the path and file name
+ new function in dirtree context menu: calculate directory size
+ new option in build thumbs in all subdirs: update or rebuild
+ better update of the search database when moving, renaming, ... pics
2004/09 mapivi Version 0.5.6
+ all (?) functions use the new progresswin dialog
+ bugfix: show [s] in EXIF column, even if there is no EXIF in the pic
+ show changed comments and EXIF infos above the actual picture
+ windows only: show an info when there is no directory requester
+ enabled search function to search for pictures without comments, EXIF or IPTC infos
+ added hint howto search for empty comments etc. as balloon info in the exclude pattern entry
2004/08 mapivi Version 0.5.5
+ new window to show just thumbnails in columns and rows (try key in dirtree)
+ a lot of functions use the new progresswin dialog
+ showThumbs() new approach: use the information of the search database
+ speed up of many functions (by trying to load the MetaData only once and using the FASTREADONLY option)
+ corrected the wrong layout of the crop dialog under windows
+ the name of Image::MetaInfo has changed to Image::MetaData (V0.11)
+ use Image::MetaData for all EXIF functions
+ no more use of Win32::FileOp, because it simply didn't work
+ bugfix: the delete to trash function in the search meta dialog removed the pics instead of moving them to the trash
+ take OS X into account (OS name of Mac OS X is darwin)
2004/07 mapivi Version 0.5.4
+ search: added the creation time to the database and search win
+ search: searching of dirs is possible
+ search: local search (below a given dir) is possible
+ search: speed-up and better messages if nothing was found
+ To use the new features a database rebuild is recommended
+ improved progressWin with a stop watch and estimated time to go
+ more use of progressWin
+ better info in buildDatabase()
+ started a sort function in the search window
2004/07 mapivi Version 0.5.3
+ started to use function prototypes
+ new functions progressWin, to show a progress bar while working
+ cutString will accept negative length values
+ mouse wheel works in some more widgets even for Tk older as 804
+ buildThumbsRecursive works on the selected directory
+ new function centerWindow
+ buildDatabase has a new fast update mode, where only new pics are added (no update of all existing pics)
+ some improvements in searchMetaInfo
2004/07 mapivi Version 0.5.2
+ added a lot of constants to replace the cryptic 1 or 0 arguments
+ changed pixels per byte to bits per pixel (which is more common)
2004/07 mapivi Version 0.5.1
+ new column in main table: directory
+ getPics() may add the path to the filelist
+ sortPics() works on a array ref now
+ checkLinks() works listbox specific now
+ the IPTC urgency is handled as a seperate tag in the search DB (more to follow)
+ the EXIF functions (remove, copy, ...) no longer destroy the comments
+ removed more than 2000 useless double quotes
+ removed useless braces
+ replaced double quotes with single quotes (still not finished)
+ use of constants
+ double quotes in comments will be replaced by single quotes
+ new sub: trimComment()
+ sendTo(): do not remove the compressed pics afer 5 secs
2004/06 mapivi Version 0.5.0
+ more than 300 changes in this version
+ using new module Image::MetaInfo::JPEG from Stefano Bettelli
- wrjpgcom and temp file are no more needed
- easiers and faster comment handling
- pixel size available for all pics
+ using Text::Wrap to format the text in the listbox
+ pictures may be compressed (in size and quality) befor sending via email
+ more perl like for loops e.g. (0 .. 10)
+ seperated getPics() and sortPics() function
+ the checkDialog() is applied in more places
+ time measurment in the showThumbs() sub
+ started to redesign functions to be listbox independent
+ new subs: cutString, getMetaInfo, updateOneRow, replaceComment,
myReplaceDialog, showSegments, checkDatabase
+ search and replace comments (works in dirs and search findings)
+ check database: search Database (comments and IPTC) for strange chars
+ solved a win32 grab problem
+ better and more configurable EXIF output
+ cleaned up the different getIPTC subs
+ change font without need to restart
+ bug fixes, code cleanup
+ mouse wheel works in some more widgets even for Tk older as 804
+ windows like serach patterns in edit database (added new search patterns)
2004/05 mapivi Version 0.4.1
+ added use bytes and use locale for better locale support
+ send pics via email (works currently only with thunderbird mail client)
+ the EXIF date may also be changed in year steps
+ compare two directories containing JPEG pics by file name, size, pixels, comments, EXIF, IPTC
+ some little layout improvements and new key bindings
+ go to pic / select pics (try key Ctrl-g)
+ removed the use of KDEsite (drag and drop) for Tk >= 804
+ some addaptions (e.g. dirtree) to Tk >= 804
+ sort pics by EXIF tag: artist
+ display of EXIF tag: artist in thumbnail table
+ sort pics by IPTC tag: byline
+ ask before opening of more than 10 windows (for EXIF, comments, thumbs or IPTC info)
+ fixed some zoom bugs
+ more menu functions and key in the search and duplicates windows
+ edit a pic in GIMP even without gimp-remote
2004/03 mapivi Version 0.4.0
+ thumbnails may also be stored in a central place (thumbnail database) -> viewing read only dirs (CDROM) is possible now
+ new function to clean thumbnail database
+ improved edit database (it is searchable now)
+ improved duplicate search (by file name, by file size, context menu)
+ improved search: exclude pattern, urgency (lower, bigger), context menu, just count option
+ show histogram of a picture
+ improved import wizard: log window, import pictures from subdirs, save original name ...
+ improved IPTC editing (e.g. more and better ballon help, correct syntax)
+ middle mouse button selects and open picture
+ do not start in fullscreen mode
+ show the thumbnail when editing comments
+ the coordinates are now correct when pics are centered (introduced in 0.3.6)
+ option for external viewer handling picture list
2004/02 mapivi Version 0.3.9
+ added IPTC template support (save, merge)
+ it possible to remove the IPTC urgency flag via menu or dialog
+ sorting of the pictures for meta data is much faster now
+ smarter reselection after delete
+ removed a little bug in the search database (dot dirs)
+ some more windows are decorated with icons e.g. Help->About
+ some litte bug fixes and improvements
2004/02 mapivi Version 0.3.8
+ show image infos (using identify from ImageMagick)
+ several dialogs also show the thumbnail now (e.g. EXIF info and add comment)
+ changed the order of the fullscreen mode calls
+ some litte bug fixes and improvements
2004/01 mapivi Version 0.3.7
+ some editoral changes in the perldoc part of mapivi
+ little layout changes (enlarged the canvas some pixels)
+ removed bug with big pictures centering (introduced in 0.3.6)
+ removed bug not storing IPTC infos in the database (introduced in 0.3.1!)
+ improved handling and display of exotic EXIF data
2004/01 mapivi Version 0.3.6
+ the config directory of the windows version has moved to $ENV{APPDATA}/maprogs/mapivi
+ improved program execution in windows (no more dos-box pop-ups)
+ open a picture in gimp even in windows (needs gimp-win-remote)
+ EXIF thumbnail actions: set, (re)build, rotate (needs libexif/exif)
+ the adjuster settings (frame width) are saved now
+ a lot of new small features (e.g. beep when loop to the first pic)
+ more zoom levels
+ adjust EXIF date relative (e.g. +/- 1 hour)
+ better fullscreen support (try key F11)
+ picture is centered in picture frame (canvas)
+ clear the EXIF rotation tag
+ small bug fixes
+ more infos in menu Help->About
2003/12 mapivi Version 0.3.5
+ splash screen while loading
+ new modern look with small widget borders
+ copy to print directory support (help burning CDs/uploading pics to print)
+ the open pic in ext viewer should now work on windows too + assigned key: v
+ redo last selection
+ new function to add drop shadows to pictures
+ the app to set the desktop background is now configurable
+ mapivi will clean up dirs, when they are empty
+ it's possible to see if a picture has an ebbeded EXIF thumb (optional)
+ more intelligent display of picture comments
+ better fallback solution, when Tk::ColorChooser is not available
+ find duplicates started a new improved interface (not finished!)
2003/11 mapivi Version 0.3.4
+ import wizard: mount, copy, interpolate, rotate, rename pictures in one step
+ support for jpegpixi to remove dead pixels nearly lossless
+ optional display of the mouse coordinates in a picture (e.g. to locate dead pixels)
+ build a difference picture of two pictures
+ complex borders (up to four frames)
+ display the rating/urgency of the current pic in the status bar
+ improved user interface and more key bindings
+ the current dir is also displayed in the balloon of the status bar label
+ the middle mouse button will open the selected pic in a new window (also in the search window!)
+ new menu: Search
+ the directory specific menu commands try to be more intelligent when choosing the right dir
+ code cleanup and bug fixes
+ better support for Windows (when using file dialogs)
+ new function to delete a directory (a summary will be shown first)
+ improved crop dialog (portrait/landscape switch, more infos)
+ when building web galleries it's now possible to leave the pics untouched
+ new variables for the web templates: mapivi-date and mapivi-time
+ new plugin: split a picture in seperate channels (RGB, CMY, ...)
+ new plugin: join RGB channels to a picture
+ new plugin: check a directory for broken links and empty files
2003/10 mapivi Version 0.3.3
+ mouse wheel support in the dirtree and thumbnail listboxes
+ a make-new-directory-button was added to the directory browser window
+ better handling of write protected pictures
+ keyword support when adding JPEG comments (just one click to insert often used words)
+ new function to create symbolic links (not available in the Windows version)
+ complex borders (up to three frames)
+ umlaut convertion is optional now
+ improved handling of the tab key (to switch focus between widgets, scrollbars are ignored now)
+ a logo may now also be added into the picture border
+ improved error handling when writing IPTC infos
+ faster reaction, when deleting all pics of a directory
+ renamed filter to image processing
2003/09 mapivi Version 0.3.2
+ new function labeledscale saved about 470 lines and 14kB
+ adjustable font size in index prints
+ interface to external picture viewer
+ Middle mouse button: display selected picture in a new window
+ the file size of the selected pictures is displayed in the status bar
+ it's now possible to add a copyright info in the new border of a picture
+ improved overwrite requester with thumbnails, file size and date
+ bug fixes and improvements
2003/08 mapivi Version 0.3.1
+ drag-and-drop support:
- copy/move pictures by drag/drop them from the listbox into the dirtree
(this works at least on solaris)
- open pictures or directories by dragging them from e.g. the desktop into the mapivi window
(this works at least on MS windows)
+ import of Postscript (*.ps) files
+ the font family used by mapivi is configurable
+ build web pages: new element HTMLFooter (holds e.g. your email adress)
+ build web pages: improved dialog
+ improved search: Comments, EXIF, IPTC and filename may be joined now
+ the number of lines and the line length of comments and IPTC infos in the thumbnail table are adjustable
+ the dir hot list is now also available in the file menu and via the key
+ the search data base file is renamed from dirInfo to SearchDataBase
+ the extended selection via the anchor and Shift-B1 in the thumbnail table was a litte bit broken, this is fixed now
+ the actual thumb in the thumbnail table is moved, so that the next (and the prvious) thumb is also visible
+ added feeback when deleting pictures
2003/08 mapivi Version 0.3.0
+ import of PPM files
+ thumbnail limit for directories with a huge number of pictures
+ new in filter dialog: Level
+ now optional: check and warn for linked files
+ index prints with adjustable border size
+ the actual dir label is now clickable (-> a simple dir requester will pop up)
+ new button ".." to jump to the parent directory
+ clean up in the status bar: there is just the stop button left
+ new function to show the backup file key:
+ bugfix in deletePreloadList
+ new function: invert selection
+ bugfix: when working with linked files (update of thumbs works now)
+ improved string formating (for thumbnail table)
+ code cleanup and improvements
+ the actual selection of pictures is no longer lost, after an action (e.g. rotation)
+ added an unsharp mask option in rotateAny()
+ menu rework finished: nearly no more double entries, all single source now
+ new function: rename actual directory
+ bigger preview thumb in filter dialog
+ improved the layout of the crop dialog window
+ the buildDatabase function may be stopped now
2003/08 mapivi Version 0.2.9
+ added a FAQ (also visible in the help menu)
+ IPTC urgency support, set and diplay the priority of a picture
- via menu or Ctrl-Fx keys
- the search dialog also supprots the urgency now
- is possible to sort by urgency
+ all IPTC attributes are now saved in the database
+ new function to remove the IPTC info of pictures
+ bugfix in the edit IPTC of multiple pictures sub
+ the file date is displayed
+ auto wizard when removing a certain comment in multiple pics
+ support of lossless flip transformation (horizontal and vertical)
+ improved rotate dialog with artificial horizont to ease the alignment of a picture
+ an unsharp mask filter is now implemented in the filter dialog
+ the resize filter is choosable
+ improved batch renaming, key
+ improved crop dialog
+ the file name is used as a second sort criteria
+ mapivi icon also when running under windows
+ new update, only for the actual picture: key
+ improved handling of the preloaded pictures
+ code cleanup
2003/07 mapivi Version 0.2.8
+ completly new zoom concept: 23 appropriate (and fast) zoom levels with
smaller steps than before for autozoom and normal zoom
(keys: + and - or new picture menu Zoom)
+ added Gamma correction (see menu->options->advanced)
+ improvements in buildDatabase(): better user info and working break button
+ new: cleanDir() cleans a directory from all the stuff added by mapivi (thumbnails, ...)
works recursive, but will ask first
+ allow big comments in html export (1000 chars)
+ mySelListBoxDialog: Double clicking on items is supported
+ the ShowHiddenDir flag is now also used in the dirDialog()
+ bugfix: removed a unconditioned chdir (dirtree) in dirDialog() (thanks to Kish!)
+ bugfix in filter: the gamma value was only applied when the Sharpness value was != 1.0
+ some menu reorganisation
+ corrected the titles of a lot of dialogs
+ increased sliderlength from 10 to 30
+ added a new layout (20% dirs 80% picture)
+ code cleanup
2003/07 mapivi Version 0.2.7
+ the layout of the mapivi window is completly configurable now
try the F1-F4, the F6-F11 and the l-key
+ the exact layout of the two adjusters (width in letters) is no longer saved,
but the overall layout
+ fixed a bu with different itemStyle versions (-bg -> -background)
+ removed warning, when there is no plugin directory
+ the rotate dialog is able to do individual or common rotation (doforall-flag)
+ start of menu reorganisation/reuse of common parts
+ the height of the comment text box is configurable (options->advanced)
+ improved the installation process (some text files will be copied to the config dir)
+ code improvement and bug fixes
2003/07 mapivi Version 0.2.6
+ picture rotation by any angle (and with preview) is now possible
+ the problems with preloading pictures and fast cycling should be solved now
+ mapivi now handles different DirTree.pm versions correctly (chdir vs. set_dir method problem)
+ the comment and the EXIF frame above the picture frame may now be enables and disabled without restarting mapivi
+ now all buttons are in the aqua look
+ new keys and
+ added a restart mapivi function (File-menu)
+ some bugfixes
2003/07 mapivi Version 0.2.5
+ jpegEXIForient is no longer needed, because the actual jhead version is able to do automatic lossless rotation
+ the preloading of pics works better now, because we block the space-key until the (pre)load is done
viewing pics forward and backward (with or without preload) seems to be stable now.
+ more balloon help in the options dialog
+ comments will be added to pictures created/processed by mapivi (e.g. the complete filter setting
so it's possible to reproduce a certain result) - this feature is optional (see options dialog)
2003/07 mapivi Version 0.2.4
+ big redesign of the IPTC dialog (much easier to work with now + added balloon help)
+ user predefined IPTC keywords and categories
+ it is possible to search for duplicate pictures in the database (by file name)
+ the crop preview size is 75 percent of the screensize
+ the search dialog has a stop-button now
+ it possible to copy the EXIF date to the IPTC date created field
+ all (at least I hope) batch actions can be canceled using the stop button
+ the canvas has a context menu now (to reload the actual picture from file)
+ the UNIX commando touch is no longer needed (using perl replacement utime)
+ adding a decoration is also possible in the filter dialog
+ the preview size in the filter dialog is adjustable
+ it is possible to hide some (mostly unreadable) informations in the EXIF info display
+ or menu: Extra->window list shows a window list of all mapivi windows
+ using execute (Tk::IO) instead of system
+ minor bug fixes
2003/06 mapivi Version 0.2.3
+ the thumb table columns are now resize- and clickable (optional module Tk::ResizeButton)
+ there is a color chooser (optional module Tk::ColorChooser)
+ using better dir dialog for windows getOpenFile (choose a file to select a dir!)
+ using better dir dialog for windows (optional Win32::FileOp) not tested yet!
+ try to determine the home dir under windows not really tested yet!
+ there is a stop button (currently only in sub changeSizeQuality) to quit from batch processing
+ more options: Set the colors of the thumb table, the background of the index prints, the aspect factor
+ nicer layout of the status bar
+ display the last pic until the next pic is loaded (before there was a big gap between)
+ fixed bug in cleanSubDirs: the thumbs of delete pictures were not removed!!!
+ added aspect ratios: 7:5 and 16:9 and X:Y
+ fixed bug with disapearing mapivi icon
+ menu clean up
+ more key bindings in the dialogs (ESC and Ctrl-q)
+ new sub execute() (uses Tk::IO if possible, mapivi stays responsive)
+ replace german umlaute in search pattern
2003/05 mapivi Version 0.2.2
+ make screenshot function (single window or desktop), needs xwd,
which should be available in nearly all UNIX enviroments
+ gamma correction is available in the filter window
+ lossless cropping in any aspect ratio, size and offset,
needs jpregtran with crop patch,
trys to be intelligent when cropping several pictures of different sizes
+ removed the old crop functions
+ use a picture as root background (only with X11 at the moment, needs wmsetbg)
+ resorted some menu entries
+ using two more (optional) backend progs: xwd and wmsetbg
+ bug fixes
2003/05 mapivi Version 0.2.1
+ minor improvements (rename backup- and non-JPEG-pics)
+ some bug fixes
+ code cleanup
+ menu cleanup
+ new key bindings (e.g. Key-R)
2003/05 mapivi Version 0.2.0
+ it's time to switch to 0.2.0!!!
2003/05 mapivi Version 0.1.55
+ new: slideshow
+ new default colors (gray)
+ display actual date in a balloon over the clock
+ more key bindings
+ display backup info [bak] in size column
+ add a decoration to pics: border and/or a copyright info (text or picture),
also available in the make HTML window
+ join multiple JPEG comments to one (some progs are only able to display the first one)
+ trim option for jpegtran to avoid border strip (optional)
+ copy, move, delete, rename non-JPEG and backup files
+ more screen friendly layout of the filter window
+ added a JPEG quality scale in the make index window
2003/05 mapivi Version 0.1.54
+ ask only once per session and directory to convert non JPEGS
+ bugfixes (delete hash keys instead of undef ing them)
+ replacing newlines with spaces in the database for better search results
+ lossless automatic image rotation using the EXIF Orientation Tag
+ added a dialog to sub cleanDatabase() to select the ignore paths
+ new option in the search window: search only complete words
2003/05 mapivi Version 0.1.53
+ display the aspect ratio of an image (currently only 4:3 and 3:2)
+ select all backup files (menu)
+ new sort type: random
+ show the new size after rotating a picture
+ lossless cropping to 3:2 format with preview (needs patched jpegtran)
+ improved change size/quality with pic-to-email preset and backup option
2003/04 mapivi Version 0.1.52
+ code cleanup
+ improved search functionality:
- search in comments, EXIF and IPTC info
- different search modes (String, And, Or)
- windows like search pattern (with ? and *)
- read in meta infos of several directories at once (build database)
- better memory handling
- better dialog, more balloon help
2003/04 mapivi Version 0.1.51
+ code cleanup
+ more comments
+ improved clearDirInfo(): ignore certain paths (for removable media)
+ improved search dialog
2003/04 mapivi Version 0.1.50
+ case sensitive/insensitive search
+ improved list of search results with thumbnails, name, comment
+ search dialog: open dir, jump to picture on left button press
2003/04 mapivi Version 0.1.49
+ show a balloon info with comment, EXIF, etc over the actual picture (optional)
+ search meta info searches the file names too (optional)
+ new key Ctrl-s (search meta info)
+ automatic PlugIn installation
+ removing of outdated saved EXIF infos
+ nicer, more colorful thumbnail table using item styles
+ improved handling of non-JPEGs
+ a picture with saved EXIF info will be marked with [s] in the exif column
+ better info when restoring EXIF infos
+ function to remove the saved EXIF info files
+ function to clean the dir info (comments of all pictures, cleanDirInfo())
+ minor improvements
2003/04 mapivi Version 0.1.48
+ new context menu in the directory tree frame showing a two list:
- the most often visited directories (quick list)
- the history of the last visited directories
+ new option to check for non JPEG pictures with an automatic conversion to JPEG
+ the number of non JPEG files is displayed on the right side of the actual
direcrory there is a button labeled i to display infos (name and size) about them
+ more and changed key bindings
+ after an update, delete or resort the actual picture is displayed again
+ better navigation in the dir tree (trying to show all sub dirs when opening a dir)
+ slightly improved IPTC display
+ possibilty to insert a complete file in the JPEG comment
+ simple plugin interface see menu PlugIns and Help->Tips
2003/03 mapivi Version 0.1.47
+ internal change: using Adjuster instead of packAdjust
+ crop picture (this is experimental stuff, still problems when zooming)
+ some new keys: f, F5 see menu Help->Keys
+ do not show a picture if the canvas is very small
+ improved IPTC info display (more infos in the thumbnail view)
+ user info when sorting pictures
+ sorting pictures by camera model
+ improved EXIF info display, better and more infos
(contrast, white balance, metering, ...)
+ export IPTC info to a XML file
+ editing IPTC infos of multiple pictures
+ new menu Help->Tips
+ improved zooming
2003/02 mapivi Version 0.1.46
+ removed the program combine from exprogs hash
+ new option: add or remove the EXIF infos in the html pictures
+ new option: ask before making a dir
+ new option: warn before resize
+ new function: removeFile()
+ display the picture size in megapixel (mp)
+ code cleanup
+ EXIF: display the focal length in 35mm film if available
+ EXIF: shorter display of various cameras and program modes
+ some experimental stuff with the layout: try key-l
2003/02 mapivi Version 0.1.45
+ new key bindings a, z, Ctrl-e see menu->help->keys
+ EXIF data display: do not display unprintable data (e.g in Makernote)
+ new functions: EXIF save, EXIF restore
+ new function: edit in GIMP (EXIF data will be saved first)
+ new function: make index print (see Extra menu)
+ add IPTC info (optional) when building web pages
+ the add EXIF and Comment switches in the web page dialog really work
+ new page in the options dialog
+ some bug fixes
2003/02 mapivi Version 0.1.44
+ sort reverse
+ export a file list of the selected pictures in the displayed order
+ code cleanup
+ build thumbs recursive works again
+ better display of IPTC infos + works for multiple pictures now
+ make dir with (appropriate) permissions
+ deletePics ask to rename the backup file (if available)
+ filterPic is able to process multiple files (with the first as preview)
so batch conversion is possible
2003/02 mapivi Version 0.1.43
+ more information is saved (directories, filters, comments)
+ added some options in the options dialog (colors for mapivi window, show clock, ...)
+ added a thumbnail preview and some options in the options->thumbnail dialog
+ german umlaute in picture comments are replaced for better portability
+ optional clock in the status bar
+ the filter function has much more options now (sharpness, brightness,
saturation, hue, filters) and a double preview
(a part of the picture in 100% zoom and the thumbnail)
+ code cleanup, using new subs: getAllSizeInfo, showText, mycopy
+ the showEXIFthumb function now accepts more than one picture at once
+ removed seperation of comments in showComments
+ added License and History in the Help-menu
+ better user information while executing background commands
(= show a busy mouse pointer :)
2003/01 mapivi Version 0.1.42
+ insert the file name in the comment (usefull bevore renaming)
+ code cleanup
+ some new subs for common used functions (e.g. getRealFile, checkLinks)
+ removed setJPEGComment now using addComment
+ jump to the right picture after deleting and making a backup file
2003/01 mapivi Version 0.1.41
+ adjustments to run under Windows
2003/01 mapivi Version 0.1.40
+ Max trash size - show a warning if trash is full
+ pixel per byte as a indicator of the compressing ratio
+ Picture buttons in the main window
+ user info while loadingthumbnails every 0.5 seconds
+ new sort criterias: Number of pixels and pixel per byte
+ the text dialog can be closed with Control-x
+ menu adjustments
+ remove unknown keys in the config file
+ better info when building web pages
2003/01 mapivi Version 0.1.39
+ search in picture comments of all dirs visited
+ copy comments from one picture to another
+ more info (comments and thumbnail) when copying EXIF info
+ autozoom to fit big pictures into the window
+ use embedded EXIF thumbnails as mapivi thumbnails
+ more options for the generation of web albums
+ the web dialogs now open on the right place
+ more configuration options
+ new menu help-keys to show all key bindings
+ popup help for nearly all configs in the options dialog
+ more logical layout in the options dialog
+ code cleanup
2002/12 mapivi Version 0.1.38
+ myEntryDialog can display a optional Picture (e.g. the picture to rename)
+ mapivi is now able to export a html web page of the selected pictures
the web pages can contain the JPEG comments and the EXIF data
most of the subs are taken from mapiwe (Martins pictures to Web)
+ option dialog has a new layout
2002/12 mapivi Version 0.1.37
+ configurable file name format when renaming to EXIF date
+ display the number of selected pictures
+ mapivi is much faster now because we alter the thumbnail
list direct and do not reread all infos
+ piclist is only used at startup, using infos from the thumbnail list instead
+ displaying the picture width and height in the thumbnail list
+ sort pictures by: EXIF-date, -aperture, -exposure time
+ code cleanup
2002/12 mapivi Version 0.1.36
+ key binding r for renamePic
+ subs getSize and getFileSize
+ intelligent file name selection in myEntryDialog
+ sub applyFilter to do some image manipulation
+ rebuildThumbs, renamePic and deletePics are much faster,
because update thumbs is not called anymore
+ renamePic checks for the right suffix
+ using Tk methodes FullScreen and packPropagate instead of geometry
2002/10 mapivi Version 0.1.34
+ delete to trash
+ show/hide hidden directories
c ignore empty files
+ check always before using a extern program
+ make backup
c move thumbs only if move was successfull
2002/10 mapivi Version 0.1.33
c using DateTimeOriginal instead of DateTime because this seems to be more accurate
+ remove of EXIF thumbs possible
+ change the EXIF date/time stamp
2002/10 mapivi Version 0.1.32
+ copyright notice at startup
c rework in getEXIFThumb
+ sub showEXIFThumb
+ key t to show embedded thumbnail
+ sub copyEXIFData
2002/10 mapivi Version 0.1.31
+ Menu Help->system info: show which external progs are available
+ Menu Options: adjustable font size
c default number of background jobs limited to 1
+ Menu Options: show thumbs / default thumbs
+ Menu Options: show/hide EXIF/Comment frame in picture view
+ sub checkGeometry: helps avoiding crahses when the screen size changes
+ sub checkAdjusterGeometry: helps avoiding crazy layouts
+ information about the number of thumbnails to generate
+ more key bindings (see menu, or try the keys C,E,I,S,Enter)
+ mapivi now installs itself, simply start it with > perl mapivi .
it will set the first line, create the config dir and copy the
the needed files
c better handling of long time exposures > 1 sec
c better display of Bias value
+ Menu: Edit->EXIF->remove EXIF date
+ Menu: Edit->EXIF->extract EXIF thumbnail
+ Menu: View->open picture in own new window
c sub toggleHeaders adjusts the width of the columns:
fast switching between display modes
c rebuild thumbs works only on the selected pictures now
+ Menu Edit->change size/quality: alter the size and/or
the quality (and file size) of a picture
mapivi version 0.1.30
date: 2002/10
solved newline probleme in JPEG comment (sub formatString) EXIF data: using ApertureValue if FNumber is not available EXIF data: corrct display of exposure times longer than 1 second EXIF data: using ShutterSpeedValue if ExposureTime is not available sub displayEXIFData works for multiple pictures now new: sub showComment to show JPEG comments of (multiple) pictures
mapivi version 0.1.29
date: 2002/10
mapivi saves the last opened dir for the next start possibilty to select a font (in the perl file) for all widgets When the window is closed, quitMain gets called before exit support of JPEG suffix .jpg and .jpeg (added by Hans-Peter Rangol) layout changes in some windows (e.g. close button moved up) for a better support of small displays new: function change Quality (added by Hans-Peter Rangol) new: showPicInOwnWin shows the next picture of a dir by pressing the space key (q and ESC to close)
mapivi version 0.1.28
date: 2002/10
It is now possible to sort the pictures by name, size or date Added maker and model of the photo to the EXIF description edit and remove JPEG comment now work for multiple pictures at once new function: make dir more concise context menu (with cascade menues)
mapivi version 0.1.27
date: 2002/10
progress bar moved to another place minor code cleanup
mapivi version 0.1.26
date: 2002/09
MaxPreloadPics is now configurable use of DateTimeOriginal if the other EXIF dates are not valid rename to EXIF date uses the file date if no EXIF dates available formate the comments in the balloon to a line length of 70 chars more infos in the help->About
mapivi version 0.1.25
date: 2002/09
added a menu bar added a Help->About added a configuration dialog (Options) removed the Time::Hires stuff all functions can now be activiated via the menues it possible to add/edit the IPTC/IIM information of a JPEG pic added a confirmation dialog to rebuildThumbs() the JPEG comment is cutted down to 800 chars in the balloon output
mapivi version 0.1.24
date: 2002/09
The IPTC comments now have a nicer layout The thumbnail view is now formated in about 4 lines to suppress a too wide layout new function formatString for a short 4 line output of comments in the thumbnail view The EXIF data is now displayed in more detail, mapivi can now handle arrays and arrays of arrays and arrays of hashes comments can now contain double quotes bugfix: it was possible to overwrite an existing file, when renaming an other file some small bugfixes and improvements
mapivi version 0.1.23
date: 2002/09
added a dirtree to the main window handling (save, load) of multi column comments some little bugfixes and improvements
mapivi version 0.1.22
date: 2002/09
it is now possible to view the IPTC comments of a picture the caption/abstract is displayed in the thumbnail view and the full IPTC comment can be displayed in a window
mapivi version 0.1.21
date: 2002/08
the comment and EXIF columns are now optional (see menu) Delete key to remove the selected pictures Bugfix: no wrong display of thumbnails when background processes are still running when changing to another dir new: the EXIF display and rename is now more robust (if now DateTime available, it will use DateTimeDigitized, ...) removed the eval calls in getShortEXIFData, which makes everything a bit saver new sub touch() bugfix: after deleting a picture the next pic is shown (not the first in the dir like before)
mapivi version 0.1.20
date: 2002/08
chnaged the default config (showPic and preloadPic are now on) removed a print statement
mapivi version 0.1.19
date: 2002/08
moved the gifs to /home/herrmann/.maprogs/mapivi switched from DirSelect to Tk::DirTree
mapivi version 0.1.18
date: 2002/08
some little changes in the description new sub firstStart()
mapivi version 0.1.17
date: 2002/08
bugfix: added hash to store all thumb photo object they are now all deleted when we open a new dir
mapivi version 0.1.16
date: 2002/08
added lossless rotation with jpegtran
mapivi version 0.1.15
date: 2002/08
show multiple pictures each in one window with balloon info (double-click) Some more key shortcuts Display if files are links in the thumbnail view new menu order
mapivi version 0.1.14
date: 2002/08
snapshot a lot of nice things are working now edit multiple comments save geometry and adjuster position etc.
mapivi version 0.1.13
date: 2002/08
added global config hash with save and load to file function it is now possible to start mapivi without a file or dir
mapivi version 0.1.12
date: 2002/08
remove all comments rename to EXIF date
mapivi version 0.1.11
date: 2002/08
new colors and thumb background pic looks pretty nice now! :) some bug fixes some new features
mapivi version 0.1.10
date: 2002/08
zoom functionality (first test) rebuild thumbs add comment to multiple pictures etc
mapivi version 0.1.9
date: 2002/07
handling of links in some functions not finished yet
mapivi version 0.1.8
date: 2002/07
mapivi version 0.1.7
date: 2002/06
icon buttons show/do not show pics more comments in the code some clean up
mapivi version 0.1.6
date: 2002/06
added a pod for perldoc
mapivi version 0.1.5
date: 2002/06
works with time measurement and memory freeing for pics (not for thumbs by now)
mapivi version 0.1.4
date: 2002/06
just a checkin
mapivi version 0.1.3
date: 2002/06
a lot of changes
mapivi version 0.1.2
date: 2002/05
with thumbnail display list
mapivi version 0.1.1
date: 2002/05
Initial revision
mapivi097/Tips.txt 0000755 0001750 0001750 00000014664 10523255575 014520 0 ustar herrmann herrmann
Here you will find various tips about mapivi and picture processing (last update: 04.11.2006)
View a picture
Whenever you see a thumbnail of a picture (main window, search window, ...) you may use the middle mouse button to open it in a new window. Just click on the picture to close the window.
(If you use the middle mouse button in the directory tree a new window containing all pictures in thumbnail size will pop up.)
Functions/Menues
All functions of mapivi may be accessed via the menues. Some have also shortcuts (keys).
All menus start with a dotted line. If you select this line you are able to place and use the menu anywhere on the desktop.
A lot of the functions are also accessable via context menus: press the right mouse button while the mouse is e.g. on a thumbnail, picture or directory to activate it.
There is also a context menu other windows and frames e.g. in the right directory frame (also activated with the right mouse button). It contains a list of the most used directories (hotlist) and a list of the last used directories (history list).
Release the right mouse button over a directory to open it.
Selection
To select one picture, simply click on it in the thumbnail frame.
To select several pictures, try one of this:
1. Press the left mouse button over a thumbnail and keep holding it down, now move up or down to select more pictures.
2. Click on one thumbnail, scroll up or down and press SHIFT and click again on a thumbnail -> all thumbnails between the two will also be selected.
3. Click on one thumbnail, press and hold the CTRL key and click on several other thumbnails, just the clicked thumbnails are selected.
4. Press CTRL-A to select all thumbnails and remove some of this selection by pressing CTRL and left mouse button together.
5. Use "select all backups" or "invert selection" from the context menu.
Most of the functions of Mapivi will work with a single selection as well with a selection set.
Layout
You can move the adjusters (the vertical lines with a blob at the lower end between the frames) with your mouse pointer (while pressing the left mouse button).
If drag is done with Shift button down, then the changes are made in "real time" so that text-flow effects can be seen.
Try the l-Key to toggle between some predefined layouts.
The keys F1 - F4 toggle some bars and info boxes.
The keys F6 - F10 can be used to switch to a certain predefined layout (I recommend F7 to choose a new directory, F8 to view the thumbnails with meta info and F9 to view the pictures with a small thumbnail column at the left.
Picture processing
Unlike other picture editors (like e.g. The GIMP) there is no "Save" or "Save as" function. That's because Mapivi manipulates the files directly, not just the copy of the picture in the RAM. So be careful and always use the "Create backup" option. So you have at least one Undo-Level. If you delete a picture and a backup file is available, Mapivi will ask to rename the backup file.
Picture compression and size
To take a picture with a digital camera I recommend to use this camera settings: JPEG higest resolution and best quality or RAW/TIFF format (RAW can not be displayed by mapivi, sorry!).
While processing the image with e.g. The GIMP I recomment using the lossless file format like XCF (which preserves layers and even undo information!) or TIFF if you have to save the results in-between. If your Input is JPEG, your Output is JPEG and you are going to edit the picture in one step there is no need to save it in a lossless format (like TIFF or PNG).
To archive a picture in JPEG format I am using 95% Quality (more just increases the file size, not the quality).
To present a picture on a web site or to send it via email use a resolution eqal or less than 1000x800 and a quality of about 80%. This should end up in a handy file size of less than 200kB.
PlugIns
Since mapivi V0.1.48 there is a simple PlugIns interface. A PlugIn is any executable program (written in C or Perl or ...) which can handle command line options. Mapivi will call the plugin with a list of all selected file names (all with full path) as arguments (hint: Mapivi versions < 0.7.5 used other arguments). The PlugIn will be accessible within mapivi if the executable is copied to the PlugIns directory in the mapivi config directory (usually: ~/.maprogs/mapivi/PlugIns). In this directory there also has to be another file with the same file name but the suffix ".txt". This is a simple ASCII file containing 4 informations needed from mapivi:
1. the file name of the PlugIn (string)
2. the menu entry text (string)
3. does mapivi need to update the displayed pictures after the execution (boolean)
4. a short description of the PlugIn (about 10-15 words) (string).
The informations have to be seperated with this string: " + " (space plus space).
This is an example:
filelist-plugin + write file list + 0 + this plugin will write the names of all selected pictures to a file
Table display
The symbol [s] in the EXIF column means, that a backup of the picture EXIF data is stored.
The symbol [t] in the EXIF column means, that an EXIF thumbnail is available
The symbol [bak] in the size column means, that a backup of the picture exists.
The symbol [x:y] in the size column means, that the aspect ratio of the picture is x/y.
MP means mega pixels - the resolution of the picture in mega pixel(width x height)
b/p means bit per pixel - picture compression: a higher value means better quality
Working fast
Some examples:
Add keywords to several pictures:
Select all pictures in a folder showing your dog (see Selection above)
- open keyword window, double click on your dogs name
Add a copyright notice to the comments of all pictures in the current directory:
- selects all pictures
- add a comment
- insert copyright (or press the button or type it)
- close window and write the copyright info
Rename the selected pictures according to their EXIF date
picture P2011.JPG will be renamed to e.g. 20030612-120303.jpg
= - rename to EXIF date
- accept the name format
Fullscreen mode
To toggle the fullscreen mode on and off use key .
To the get rid of the window border, open the options dialog , go to the Advanced pad and enable "Remove the window border in fullscreen mode". Try it, it may not work on all operating systems and all window managers. If you discover some problems disable the option.
Drop me an email if something is not working as expected.
Martin Herrmann
mapivi097/mapivi 0000755 0001750 0001750 00004126032 10757362330 014242 0 ustar herrmann herrmann #!/usr/bin/perl
# the line above could be the first line for a typical UNIX systems
# you can find perl on your system by using "which perl" in the shell
# to build an exectuable for windows use this PAR call:
# pp -M Tk::DragDrop::Win32Site -o mapivi.exe mapivi
# to build an exectuable for Linux use this PAR call:
# pp -M Tk::DragDrop::XDNDSite -M Tk::DragDrop::SunSite -M PerlIO -o mapivi.exe mapivi
# include perl packages
use strict;
use Encode::Unicode; # needed according to the PAR FAQ (for perl apps on Microsoft Windows)
use warnings;
#use diagnostics;
# pod (to view the formated document try "perldoc mapivi" in the shell
=head1 NAME
MaPiVi - Picture Viewer and Organizer
MaPiVi means Martin's Picture Viewer
=head1 DESCRIPTION
JPEG picture viewer / image management system with meta info support
written in Perl/Tk for UNIX, Mac OS X and Windows.
I wrote mapivi just for me, because I needed a image viewer which is
also able to display and edit meta infos of JPEG pictures, like EXIF,
JPEG comments and IPTC/IIM infos.
As hobby photographer I am mostly interested in the EXIF infos (like timestamp,
camera model, focal length, exposure time, aperture, etc.) and the
possibility to add and edit IPTC infos and JPEG comments.
But I also want to rename pictures according to their internal date/time
and to do lossless rotation, lossless cropping and other stuff.
mapivi can be found here:
http://mapivi.de.vu (link to the mapivi site)
or if this won't work:
http://herrmanns-stern.de (real site)
http://sourceforge.net/projects/mapivi (download)
I would be happy to receive some feedback (e.g. on which os mapivi
works), bugfixes, patches or suggestions about mapivi.
Copyright (c) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Martin Herrmann
All rights reserved.
Feel free to redistribute. Enjoy!
=head1 USAGE
mapivi [-i ] [file|folder]
to display a certain picture use:
mapivi picture.jpg
mapivi will generate and display all pictures in the folder
as thumbnails. The given picture will be displayed in
original size or zoomed to fit the window (picture frame).
to view a folder containing pictures use:
mapivi ~/pics/
mapivi will generate and display all pictures in the given folder
as thumbnails.
to start mapivi with the import wizard
mapivi -i
=head1 KEYS
mapivi is controlled by the following keys:
see also menu Help->Keys (the list is generated from the source
code and is always actual.)
=over 4
=item Space, Page-Down
Show the next picture in folder
=item BackSpace, Page-Up
Show the previous picture in folder
=item Escape
Iconify MaPiVi (Boss-Key :)
=item Cursor-up, -down, -left, -right
Scroll the picture, if it's bigger than the Canvas
=item Shift-Cursor-up, -down, -left, -right
Move to the border of the picture, if it's bigger than the Canvas
=item q
Quit MaPiVi
For all other key bindings, see the menu Help->Keys
=back
=head1 MOUSE
Try the right mouse button in the thumbnail picture list for a popup menu to copy, move, rename, rotate or delete pictures, to open a new folder, to add or remove comments or to exit MaPiVi.
Use the buttons to add, edit or remove JPG comments, or to display all EXIF infos.
If you hold the mouse over the buttons or labels a help message will pop up (or at least at most of them :).
=cut
# boolean, if we run on Windows this variable is set to 1
my $EvilOS = 0; $EvilOS = 1 if ($^O =~ m/win/i);
my $MacOSX = 0; # boolean, if we run on Mac OS X this is 1
if ($^O =~ m/darwin/i) { # Mac OS X is not evil, but unfortunately contains the string "win"!
$MacOSX = 1;
$EvilOS = 0;
}
my $home = glob("~");
use Env;
if ($EvilOS) {
$home = $ENV{HOME} if defined $ENV{HOME};
$home = $ENV{HOMEDRIVE}.$ENV{HOMEPATH} if (!-d $home and (defined $ENV{HOMEDRIVE} and defined $ENV{HOMEPATH}));
$home = "C:/" if (!-d $home);
die "mapivi can not find a home dir" if (!-d $home);
}
my $maprogsdir = "$home/.maprogs"; # the main config dir for my programms
if (($EvilOS) and (defined $ENV{APPDATA}) and ($maprogsdir ne $ENV{APPDATA}."/maprogs")) {
# migration from the old config dir to the new only for windows
if (-d "$maprogsdir/mapivi") {
my $olddir = "$maprogsdir/mapivi";
my $newdir = $ENV{APPDATA}."/maprogs/mapivi";
warn "\nMapivi 0.3.6: Error!\n\nYou still have the old Mapivi config folder:\n$olddir,\n\n1) please create a new folder for the configuration here:\n $newdir,\n2) copy all folders and files from the old folder to the new one\n3) delete the old folder and then\n4) restart Mapivi.\n\nKindly excuse this inconvenience! (will exit in 30 seconds)\n";
sleep 30;
exit;
}
}
# for windows we use this path
$maprogsdir = $ENV{APPDATA}."/maprogs" if defined $ENV{APPDATA};
my $configdir = "$maprogsdir/mapivi"; # the configuration dir
my $icon_path = "$configdir/icons"; # the icon dir
my $splashAvail = (eval "require Tk::Splash") ? 1 : 0 ;
my $splash;
my $logo = "$configdir/logo.jpg";
if ($splashAvail and -f $logo) {
# Splash->Show parameters: $image, $width, $height, $title, $overrideredirect
$splash = Tk::Splash->Show($logo, 844, 259, "", 1);
}
use File::Basename;
use POSIX qw(ceil);
use Cwd qw(cwd abs_path);
my $verbose = 0; # boolean (1 = print debug infos, 0 = be quiet)
# get version from RCS version
my @RCSVersion = split / /, '$Revision: 9.7 $';
my $version = "0.".$RCSVersion[1];
$main::VERSION = $version;
my $mapiviInfo = "mapivi ";
showCopyright();
#use Encode qw(is_utf8 encode decode);
use Encode;
#use encoding "utf8"
#use utf8;
use Getopt::Std;
our($opt_i);
$Getopt::Std::STANDARD_HELP_VERSION = 1;
use File::Copy;
use File::Find;
use File::Path; # for rmtree, mkpath
use Text::Wrap;
use Tk;
use Tk::JPEG;
use Tk::PNG;
use Tk::HList;
use Tk::ItemStyle;
use Tk::ROText;
use Tk::ProgressBar;
use Tk::IO;
use Tk::ErrorDialog;
use Tk::Balloon;
use Tk::DirTree;
use Tk::Font;
use Tk::Pane;
use Tk::Tiler;
use Tk::NoteBook;
use Tk::FileSelect;
use Image::Info qw(image_info dim);
use Storable qw(nstore retrieve dclone);
use Tk::Adjuster;
use Tk::DragDrop;
use Tk::DropSite;
use Tk::Compound; # for icons in the menues
#use Image::ExifTool;
# this will be used in future to provide a multilanguage mapivi
# keywords: i18n, gettext
#use Locale::TextDomain ('mapivi', $configdir."/locale");
#use POSIX qw(locale_h);
#setlocale (LC_MESSAGES, '');
use Image::MetaData::JPEG;
# disable warnings from this module
$Image::MetaData::JPEG::show_warnings = 0; # todo: use metadatawarn to switch this
my $metadataVersionNeeded = 0.14;
my $metadataVersion = $Image::MetaData::JPEG::VERSION;
$metadataVersion =~ s/[a-zA-Z]//g;
die "Aborting, because Mapivi needs at least version $metadataVersionNeeded of perl module Image::MetaData::JPEG!\n(installed version: $metadataVersion)\n" if ($metadataVersion < $metadataVersionNeeded);
use Time::Local; # timelocal()
#use Tk::Date; # not in the Tk distro
# This should prevent opening DOS boxes on windows when doing background tasks, but does not work. ToDo
#my $win32Avail = (eval "require Win32") ? 1 : 0;
#SetChildShowWindow() if ($EvilOS and $win32Avail);
# optional modules
# seems not to work so I comment it out for a future test
#my $win32FOAvail = (eval "require Win32::FileOp") ? 1 : 0;
my $win32FOAvail = 0;
my $exiftoolAvail = (eval "require Image::ExifTool") ? 1 : 0;
my $resizeAvail = (eval "require Tk::ResizeButton") ? 1 : 0;
my $filespecAvail = (eval "require File::Spec") ? 1 : 0;
use constant Win32ProcAvail => eval { require Win32::Process; 1 };
use constant MatchEntryAvail => eval { require Tk::MatchEntry; 1 };
#use Time::HiRes qw(gettimeofday tv_interval); # needed just for debugging
#my $hiresstart;
# constants
use constant WITH_PATH => 1;
use constant JUST_FILE => 0;
use constant LONG => 1;
use constant SHORT => 0;
use constant WRAP => 1;
use constant NO_WRAP => 0;
use constant FORMAT => 1;
use constant NO_FORMAT => 0;
use constant NUMERIC => 1;
use constant STRING => 0;
use constant WAIT => 1;
use constant NO_WAIT => 0;
use constant TOUCH => 1;
use constant NO_TOUCH => 0;
use constant OVERWRITE => 1;
use constant ASK_OVERWRITE => 0;
use constant ASK => 1;
use constant NO_ASK => 0;
use constant PREVIEW => 1;
use constant NO_PREVIEW => 0;
use constant SHOW => 1;
use constant NO_SHOW => 0;
use constant COPY => 0;
use constant BACKUP => 1;
use constant TRASH => 0;
use constant REMOVE => 1;
use constant OK => 1;
use constant CANCEL => 0;
use constant ADD => 1;
use constant RESET => 0;
use constant PIXEL => 0;
use constant ASPECT_RATIO => 1;
use constant RELATIVE => 2;
use constant SINGLE => 0;
use constant MULTIPLE => 1;
use constant COPY => 0;
use constant MOVE => 1;
use constant RENAME => 2;
# function prototypes
sub progressWinInit($$);
sub progressWinCheck($);
sub progressWinUpdate($$$$);
sub progressWinEnd($);
sub updateOneRow($$);
sub insertPic($$$);
sub checkDateFormat($);
sub checkGeometry($);
sub checkTempFile($);
sub checkWriteable($);
sub getRealFile($);
sub getThumbFileName($);
sub addComment($);
sub addCommentToPic($$$);
sub buildBackupName($);
sub makeBackup($);
sub getIPTCByLine($);
sub doubleList($$$$);
sub overwrite($$);
sub copyPicsDialog($$);
sub getDirDialog($);
sub is_a_JPEG($);
sub setProperty($$$);
sub formatString($$$);
# globals
my @dirHist; # folder history - stores the last folders visited
my @cachedPics; # a list of all cached pictures
my @savedselection;
my @savedselection2;
# search database: hash to store all the data of all pictures in the visited folders (comments, EXIF, IPTC)
my %searchDB;
# folder checklist: hash to store properties of folders (key: dir value: hash SORT, META, PRIO, COMM)
my %dirProperties;
# hash to store all loaded photo objects (real size or zoomed) key = path/file name, value = photo object
my %photos;
# hash to store all loaded thumbnail photo objects key = path/file name, value = photo object
my %thumbs;
my %searchthumbs;# hash containing all thumbnails of the search dialog, for memory clean up
my %light_table_thumbs;# hash containing all thumbnails of the light table, for memory clean up
my %thumbDBhash; # store the thumb dirs for one session: dir -> thumbdir
my %dirHotlist; # often visited dirs
# minimum set of the hot dirs
foreach my $dir ("/", $home, cwd()) {
$dirHotlist{$dir} = 1 unless (defined $dirHotlist{$dir});
}
my %quickSortHash;
my %quickSortHashSize;
my %quickSortHashPixel;
my %quickSortHashBitsPixel;
my $quickSortSwitch = 0;
my $actpic = ""; # the path and file name of the actual picture
my $actdir = ""; # the actual folder
my $widthheight = "";
my $loadtime = "";
my $size = "";
my $zoomFactorStr = "";
my $urgencyStr = "-";
my $urgencyScale = 0;
my $nrof = "";
my $exif = "";
my $userinfo = "";
my $otherFiles = "";
my $proccount = 0;
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 $iptcdir = "$configdir/IPTC_templates"; # the IPTC templates folder
my $configFile = "$configdir/mapivirc"; # the configuration file
my $file_Entry_values = "$configdir/Entry_values";
my $exifdirname = ".exif"; # the subdir to store exif infos
my $thumbdirname = ".thumbs"; # the subdir to store thumbnails
my $xvpicsdirname = ".xvpics"; # a subdir from GIMP we usualy ignore
my $thumbExample = "$configdir/thumbExample.jpg";
my $nonJPEGsuffixes = "gif|png|tif|tiff|bmp|ppm|ps"; # xcf works, but makes problems with layers
my $cameraJunkSuffixes = "ctg"; # uninteresting files created by cameras
my $copyright_year = (localtime(time()))[5] + 1900; # the actual year, for the copyright notice
my $HTMLPicDir = "pics"; # this is the name of the subdir for pics when building html pages
my $HTMLThumbDir = "thumbs"; # this is the name of the subdir for thumbs when building HTML pages
my $slideshow = 0; # start/stop flag for slideshow
my $showPicInAction = 0; # bool = 1 while loading picture
my $mapiviURL = "http://mapivi.de.vu";
my %topFullSceenConf;
my $topFullScreen = 0;
my %winapps; # used for sub findApp()
my $defaultthumbP;
my $clocktimer;
my $time;
my $date;
my $clockL;
my $scsw;
my $wizW;
my $impW;
my $interpW;
my $fuzzybw; # fuzzy border dialod window
my $ll_b_w; # lossless border dialog window
my $ll_r_w; # lossless relative border dialog window
my $ll_a_w; # lossless aspect ratio border dialog window
my $ll_w_w; # lossless watermark dialog window
my $bpw; # border preview window
my $ow; # options window, see sub options()
my $sw; # the search window, see searchMetaInfo()
my $dpw; # the dir properties window, see showDirProperties()
my $dsw; # the dir size window
my $ltw; # the light table window for slideshows
my @light_table_list; # the light table slideshow pic list
my $ddw; # dirDiffWindow widget
my $catw; # the IPTC categories window, see editIPTCCategories()
my $keyw; # the IPTC keywords window, see editIPTCKeywords()
my $locw; # the location window, see search_by_location()
my $keycw; # the comment keywords window, see editCommentKeywords()
my $dupw; # the duplicate search window, see sub finddups()
my $filterW; # the filter window
my $menubar; # handle for menubar of main window
my $balloon; # balloon handle
my $dirMenu; # context menu for dirs
my $thumbMenu; # context menu for thumbnails
my $picMenu; # context menu for picture
my $copyEXIFDataSource; # global variable of sub copyEXIFData()
my $copyCommentSource; # global variable of sub copyComment()
my $iptcCopy; # global hash ref for copyIPTC()
my ($idx, $idy); # coordinates of actual item when clicked on or moved
my ($width, $height);
my %nonJPEGdirNoAskAgain; # hash to store the dirs with non-JPEG files not to convert (valid for one session)
#my $stopButStop = 0; # stop actual action if 1
my $cleanDirNoAsk = 0; # needed in sub cleanDir()
my $cleanDirLevel = 0; # needed in sub cleanDir()
my $keyXBut; # close button of IPTC keyword window
# some example hierarchical categories
my @precats = sort qw(Nature Nature/Flower Nature/Landscape Nature/Macro Nature/Animal Nature/Animal/Fish Nature/Animal/Cat Nature/Animal/Insect Nature/Animal/Insect/Ant People People/Portrait People/Wedding Architecture Architecture/Tower Architecture/Bridge Architecture/Church Technology Technology/Car Technology/Train Technology/Computer);
# overwrite them, when some stored categories are available
@precats = readArrayFromFile("$configdir/categories") if (-f "$configdir/categories");
uniqueArray(\@precats); # remove double entries
foreach (@precats) { $_ =~ s|^/||; } # cut leading slash
@precats = qw(Nature) unless (@precats); # add a starting point if array is empty
# some example hierarchical keywords
my @prekeys = qw(Family Family/Einstein Family/Einstein/Albert Family/Einstein/Hermann Family/Einstein/Pauline Family/Planck Family/Planck/Max Family/Planck/Johann Family/Planck/Marie Family/Planck/Karl Family/Planck/Grete Family/Planck/Emma Family/Planck/Erwin Family/Planck/Hermann Friend Friend/Bundy Friend/Bundy/Al Friend/Bundy/Bud Friend/Bundy/Kelly Friend/Bundy/Peggy);
# overwrite them, when some stored keywords are available
@prekeys = readArrayFromFile("$configdir/keywords") if (-f "$configdir/keywords");
uniqueArray(\@prekeys); # remove double entries
foreach (@prekeys) { $_ =~ s|^/||; } # cut leading slash
@prekeys = qw(Family) unless (@prekeys); # add a starting point if array is empty
# global hash for new keywords found in displayed pictures
my %new_keywords;
# global hash to store keywords, which should be ignored (e.g. nature.animal.dog)
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 mozilla-thunderbird 0 exiftool 0/;
# short comment about the usage of the external programs
my %exprogscom = (
"convert" => "build thumbnails",
"composite" => "combine pictures e.g. thumbnails with a background",
"jhead" => "handle EXIF infos and embedded thumbnail pictures",
"jpegtran" => "do lossless rotation of pictures",
"jpegpixi" => "do nearly lossless interpolation (remove dead pixels)",
"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",
"mozilla-thunderbird" => "send pictures via email",
"exiftool" => "Read/write meta information in image files",
);
# where to find the external programs (resources)
my %exprogsres = (
"convert" => "Image Magick http://www.imagemagick.org",
"composite" => "Image Magick http://www.imagemagick.org",
"jhead" => "http://www.sentex.net/~mwandel/jhead/",
"jpegtran" => "libjpeg http://www.ijg.org",
"jpegpixi" => "http://www.zero-based.org/software/jpegpixi/",
"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/",
"mozilla-thunderbird" => "http://www.mozilla.org/projects/thunderbird/",
"exiftool" => "http://owl.phy.queensu.ca/~phil/exiftool/",
);
# hash to replace (german) umlaute by corresponding letters
my %umlaute = qw( ae Ae oe Oe ue Ue ss);
my $umlaute = join "", keys(%umlaute);
# stolen from Image::ExifTool (thanks to Phil Harvey)
my %iptcCharset = (
"\x1b%G" => 'UTF8',
# don't translate these (at least until we handle ISO 2022 shift codes)
# because the sets are only designated and not invoked
# "\x1b,A" => 'Latin', # G0 = ISO 8859-1 (similar to Latin1, but codes 0x80-0x9f are missing)
# "\x1b-A" => 'Latin', # G1 "
# "\x1b.A" => 'Latin', # G2
# "\x1b/A" => 'Latin', # G3
);
# hash to replace (german) umlaute by corresponding HTML-tags
my %umlauteHTML = qw( ä Ä ö Ö ü Ü ß);
my $umlauteHTML = join "", keys(%umlauteHTML);
# hash to escape special HTML characters
my %htmlChars = (
"<" => "<",
">" => ">",
"&" => "&",
"\"" => """,
"'" => "'",
);
my $htmlChars = join "", keys(%htmlChars);
# config hash
# insert here all default configurations
# these configurations will be overwritten by $configFile
# at startup
my %config = (
"Geometry" => "790x560+1+1", # fit on a 800x600 screen
"SearchGeometry" => "790x560+1+1", # fit on a 800x600 screen
"KeyGeometry" => "250x500+50+50", # fit on a 800x600 screen
"LocGeometry" => "250x500+50+50", # fit on a 800x600 screen
"LtwGeometry" => "700x500+10+10", # fit on a 800x600 screen
"FontSize" => 12,
"FontFamily" => "itc avant garde",
"PropFontSize" => 12,
"PropFontFamily" => "helvetica",
"ColorFG" => "black",
"ColorBG" => "#efefef",
"ColorMenuBG" => "LightGoldenrod3",
"ColorMenuFG" => "black",
"ColorBG2" => "#e5e5e5",
"ColorBGCanvas" => "#efefef",
"ColorHlBG" => "#eeeeee",
"ColorActBG" => "LightGoldenrod1",
"ColorEntry" => "gray90",
"ColorSel" => "LightGoldenrod2",
"ColorSelBut" => "red3",
"ColorSelFG" => "black",
"ColorName" => "black",
"ColorComm" => "black",
"ColorIPTC" => "black",
"ColorEXIF" => "black",
"ColorFile" => "black",
"ColorDir" => "black",
"ColorThumbBG" => "azure3",
"ColorProgress" => "#106dba",
"ColorPicker" => "#efefef", # last color selected with color picker
"DefaultThumb" => "$configdir/EmptyThumb.jpg",
"Copyright" => "copyright (c) $copyright_year Herrmann",
"Comment" => "This picture was taken in south africa ...",
"MaxProcs" => 1,
"MaxCachedPics" => 3,
"NrOfRuns" => 0, # count how often mapivi was started
"ShowPic" => 1, # boolean (1 = show pic, 0 = do not show pic)
"ShowThumbs" => 1, # boolean (1 = show thumbs, 0 = show default thumb)
"UseDefaultThumb" => 1, # boolean (1 = show def thumb if no thumb is shown, 0 = show nothing at all)
"ThumbCapt" => "none", # thumbnail caption
"ThumbCaptFontSize" => 10,
"ShowDirTree" => 1, # boolean (1 = show dir tree, 0 = hide)
"ShowInfoFrame" => 1, # boolean (1 = show info frame, 0 = hide)
"ShowThumbFrame" => 1, # boolean (1 = show thumb frame, 0 = hide)
"ShowPicFrame" => 1, # boolean (1 = show pic frame, 0 = hide)
"ShowComment" => 1, # boolean (1 = show comment, 0 = hide comment in thumbnail view)
"ShowCommentField"=> 0, # boolean (1 = show comment, 0 = hide comment in picture view)
"ShowCaptionField"=> 0, # boolean (1 = show IPTC captiob, 0 = hide caption in picture view)
"ShowEXIF" => 1, # boolean (1 = show EXIF, 0 = hide EXIF in thumbnail view)
"ShowEXIFField" => 0, # boolean (1 = show EXIF, 0 = hide EXIF in picture view)
"ShowIPTC" => 1, # boolean (1 = show IPTC, 0 = hide IPTC in thumbnail view)
"ShowFile" => 1, # boolean (1 = show Size, 0 = hide Size in thumbnail view)
"ShowDirectory" => 1, # boolean (1 = show directory, 0 = hide dir in thumbnail view)
"ShowMenu" => 1, # boolean (1 = show menu, 0 = hide the menu bar)
"ShowHiddenDirs" => 0, # boolean (1 = show hidden dirs (starting with .), 0 = hide them)
"Overrideredirect"=> 0, # boolean (1 = no window frame, 0 = window frame)
"PicQuality" => 95, # quality of jpg picture (in %)
"PicSharpen" => 5, # sharpness of picture
"PicBlur" => 0, # blur the pictur
"PicGamma" => 1.0,# gamma value of picture
"PicBrightness" => 100,# Brightnes of picture (in %)
"PicSaturation" => 100,# Saturation of picture (in %)
"PicHue" => 100,# Hue of picture (in %)
"PicStrip" => 0, # boolean (1 = strip all meta info when resizing pic)
"ThumbQuality" => 85, # quality of thumbnail jpg picture
"SortBy" => "name",
"SortReverse" => 0,
"LastDir" => $home,
"FileNameFormat" => "%y%m%d-%h%M%s", # the actual file name format when renaming
"FileNameFormatDef"=> "%y%m%d-%h%M%s", # the default file name format when renaming
"ThumbSharpen" => 1,
"ThumbSize" => 100,
"ThumbBorder" => 4,
"HTMLaddComment" => 1,
"HTMLaddEXIF" => 1,
"HTMLaddIPTC" => 1,
"HTMLcols" => 2,
"HTMLTargetDir" => $home,
"HTMLGalleryIndex"=> "../galleries.html",
"HTMLGalleryTitle"=> "My gallery",
"HTMLHomepage" => "../../index.shtml",
"HTMLTemplate" => "$configdir/pagetemplate.html",
"HTMLFooter" => "© Martin Herrmann <Martin-Herrmann\@gmx.de> ",
"HTMLBGcolor" => "white",
"HTMLPicSize" => 600,
"HTMLPicSharpen" => 1,
"HTMLPicCopyright"=> 0, # bool - add a visible copyright info into the picture
"HTMLPicQuality" => 80, # quality of html jpg pictures
"HTMLPicEXIF" => 1, # bool - 1 = copy the EXIF infos to the converted HTML pics
"HTMLnoPicChange" => 0, # bool - 1 = no pic changes (no resize etc ...)
"AutoZoom" => 1, # boolean - zoom big pictures to fill the canvas
"UseEXIFThumb" => 0, # boolean - use EXIF Thumbnails if available
"AskGenerateThumb"=> 1, # ask before generating thumbnails
"AskDeleteThumb" => 1, # ask before deleting thumbnails
"AskMakeDir" => 1, # ask before makeing a directory (e.g. .thumbs or .exif)
"MaxTrashSize" => 50, # MB - a warning will appear if the trash contains more than this
"BitsPixel" => 0, # boolean - show bits per pixel info
"AspectRatio" => 1, # boolean - show image aspect ratio e.g. 4:3 or 3:2
"NameComment" => 0, # boolean - 1 = add file name to comment, when importing pics
"NameComRmSuffix" => 1, # boolean - 1 = remove file suffix when adding filename to comment
"ShowClock" => 1, # boolean - 1 = show actual time
"SaveDatabase" => 1, # boolean - 1 = save dir info to a file
"UseThumbShadow" => 0,
"MakeBackup" => 1, # make a backup of the original file, before appling a filter
"PicListFile" => "$home/filelist",
"XMLFile" => "$home/IPTCinfo.xml",
"saveEXIFforEdit" => 0, # save the EXIF info before editing the picture with GIMP (needed for GIMP version 1.3.15 and lower)
"indexRows" => 2, # indexPrint
"indexCols" => 2, # indexPrint
"indexPicX" => 500, # indexPrint
"indexPicY" => 500, # indexPrint
"indexDisX" => 10, # indexPrint
"indexDisY" => 10, # indexPrint
"indexBG" => "white", # indexPrint background color
"indexLabel" => 1, # indexPrint
"indexLabelStr" => "%f (%wx%h, %b)", # indexPrint
"WarnBeforeResize"=> 1, # warn before using mogrify in resize
"ShowMoreEXIF" => 0, # show more EXIF infos: contrast sharpness saturation metering wb in thumbnail list ...
"IPTCoverwrite" => 0, # overwrite IPTC attributes, when editing multiple pictures
"IPTCmergeCatKey" => 1, # merge categories and keywords, when editing multiple pictures
"IPTCdateEXIF" => 0, # use EXIF date as creation date
"IPTCtimeEXIF" => 0, # use EXIF time as creation time
"IPTCbylineEXIF" => 0, # use EXIF owner as ByLine
"IPTCaddMapivi" => 0, # add Mapivi infos to IPTC
"IPTC_action" => 'UPDATE', # ADD UPDATE or REPLACE
"CheckForNonJPEGs"=> 0, # check if there are non JPEGs in the dir and ask to convert them
"ShowPicInfo" => 1, # show a balloon info box with EXIF, comment, ... for the actual picture
"SearchPattern" => "", # the search pattern
"SearchExPattern" => "", # the search exclude pattern
"SearchCom" => 1, # search in the picture comments
"SearchExif" => 1, # search in the picture EXIF info
"SearchIptc" => 1, # search in the picture IPTC info
"SearchKeys" => 1, # search in the picture keywords
"SearchName" => 1, # search in the picture file name
"SearchDir" => 1, # search in the picture path
"SearchCase" => 0, # search case sensitive
"SearchWord" => 0, # 1 = search only complete words 0 = match also parts
"SearchType" => 'exactly', # search type: "exactly", "all" or "any"
"SearchOnlyInDir" => 0, # search only in dirs matching the actual/selected dir
"SearchUrgencyOn" => 0, # search for pictures with a certain IPTC urgency level
"SearchUrgency" => 0, # search only for pictures with this IPTC urgency level
"SearchUrgencyRel"=> '<=',# <=, ==, >=
"SearchPixelOn" => 0, # search for pictures with a certain pixel size
"SearchPixel" => 0, #
"SearchPixelRel" => '<=', # <=, ==, >=
"SearchPopOn" => 0, # search for pic with a certain number of views
"SearchPopRel" => 0, # <=, ==, >=
"SearchPop" => 0, # search for pic with a certein numer of views
"SearchJoin" => 0, # join comment, EXIF, IPTC and filename before searching
"SearchDate" => 0, # search pics by date
"SearchDateStart" => "01.01.1970", # start date
"SearchDateEnd" => "25.08.2010", # end date
"SearchMore" => 0, # show more search options in search window
"SearchDBOnlyNew" => 0, # add only new pics when building DB
"CopyPosition" => 'SouthEast', # position of the visible copyright info
"CopyX" => 20, # x offset of the visible copyright info
"CopyY" => 20, # Y offset of the visible copyright info
"CopyAdd" => 0, # bool - add a visible copyright info
"CopyFontFamily" => "Courier", # font family of the embedded copyright info
"CopyFontSize" => 12, # font size of the embedded copyright info
"CopyFontColFG" => "white", # foreground color of the embedded copyright info font
"CopyFontColBG" => "black", # background color of the embedded copyright info font
"CopyFontShadow" => 1, # bool - add a shadow to the copyright text
"CopyrightLogo" => "$configdir/MapiviIcon.gif",
"CopyTextOrLogo" => "text",
"BorderWidth1x" => 10, # border 1 width in x direction
"BorderWidth1y" => 10, # border 1 width in y direction
"BorderColor1" => "white", # border 1 color
"BorderWidth2x" => 0, # border 2 width in x direction
"BorderWidth2y" => 0, # border 2 width in y direction
"BorderColor2" => "black", # border 2 color
"BorderWidth3x" => 0, # border 3 width in x direction
"BorderWidth3y" => 0, # border 3 width in y direction
"BorderColor3" => "white", # border 3 color
"BorderWidth4x" => 0, # border 4 width in x direction
"BorderWidth4y" => 0, # border 4 width in y direction
"BorderColor4" => "gray80",# border 4 color
"BorderAdd" => 0, # bool - add a border
"DropShadow" => 0, # bool - add a drop shadow
"DropShadowWidth" => 5, # the width of the drop shadow
"DropShadowBlur" => 3, # the blur sigma factor of the drop shadow
"DropShadowBGColor" => "white", # the background color of the drop shadow
"jpegtranTrim" => 0, # bool - use the -trim switch of jpegtran
"SlideShowTime" => 4, # pause between picture loading im sec
"CropAspect" => 3/2, # 0 for no aspect ratio, 3/2 for 3:2 1 for 1:1 4/3 for 4:3
"CropGrid" => 1, # bool show 1/3 crop grid
"AspectSloppyFactor" => 2.0, # delta factor for aspect ratio calculation in %
"FilterDeco" => 0, # add a border or a text to the pictures when filtering
"FilterPrevSize" => 200, # filter preview size (100% zoom crop of the picture)
"EXIFshowApp" => 1, # show App*-Info and MakerNotes and ColorComponents in EXIF info
"AddMapiviComment"=> 0, # add a comment to pictures created/processed by mapivi
"Layout" => 0, # layout of the dir, thumb and picture frame
"Layout0dirX" => 25, # default percentual width of the different layouts
"Layout0thumbX" => 30, # ""
"Layout1dirX" => 20, # ""
"Layout3thumbX" => 20, # ""
"Layout5dirX" => 20, # ""
"CommentHeight" => 2, # height of the comment text frame above the picture
"Gamma" => 1.0, # the gamma value, when displaying pictures
"ShowFileDate" => 0, # show the file date in the size coloumn
"Unsharp" => 0, # bool unsharp mask operation on/off
"UnsharpRadius" => 0, # unsharp mask radius (blur)
"UnsharpSigma" => 1.0, # unsharp mask sigma (blur)
"UnsharpAmount" => 1.0, # unsharp mask amount
"UnsharpThreshold"=> 0.05,# unsharp mask threshold
"ResizeFilter" => "Lanczos",
"RenameBackup" => 1, # bool, if 1 a backup file will be renamed if the file is renamed
"ThumbMaxLimit" => 200, # maximum number of displayed thumbnails
"Level" => 0, # level a picture
"LevelBlack" => 8, # level a picture black point (%)
"LevelWhite" => 92, # level a picture white point (%)
"LevelGamma" => 1.0, # level a picture mid point (gamma value)
"indexBorder" => 0, # bool add a border around the index print
"indexBorderWidth"=> 50,
"indexBorderColor"=> 'white',
"indexInnerBorder" => 0, # bool add a border around the each picture
"indexInnerBorderWidth"=> 2,
"indexInnerBorderColor"=> 'black',
"indexFontSize" => 10, # the font size of the index labels (0 = automatic)
"CheckForLinks" => 1, # bool - check if a file is a link before processing it
"ColorAdj" => 0, # bool - do some color adjustments when filtering a pic
"LineLimit" => 8, # max nr of lines in the thumbnail table e.g. for comments
"LineLength" => 30, # length of one line in the thumbnail table e.g. for comments
"ExtViewer" => 'display', # name of external picture viewer
"ExtViewerMulti" => 0, # bool
"ExtBGApp" => "wmsetbg -a", # name of external app to set desktop background (with options)
"ConvertUmlaut" => 1, # convert german umlaute (e.g. -> ae etc.)
"DeadPixelStr" => "1300,846,3 85,411,3 7,365,3 1529,185,3 1593,201,3 1387,1003,3 1957,1057,3 50,1043,2 615,935,3", # info about the dead pixels of your camera see: http://www.zero-based.org/software/jpegpixi/
"DeadPixelMethod" => "linear",
"ShowCoordinates" => 0,
"ImportSource" => "/mnt/usb/DCIM/DIMG",
"ImportSubdirs" => 0, # bool - import also from all subdirs
"ImportTargetFix" => "$home/pictures",
"ImportTargetVar" => "2008/02/14_Birthday_Sam",
"ImportDeadPixel" => 1,
"ImportRotate" => 1,
"ImportRename" => 1,
"ImportDeleteCameraJunk" => 0,
"ImportDelete" => 1,
"ImportShowPics" => 1,
"ImportAddCom" => 0,
"ImportAddComment"=> "(c) $copyright_year Martin Herrmann",
"ImportAddIPTC" => 0,
"ImportIPTCTempl" => 'template.iptc2',
"ImportMore" => 0, # bool - show additional import options in wizard
"ImportMarkLocked"=> 0, # bool - add a high rating to locked (= write protected) pictures during import
"Borderwidth" => 1, # border width of GUI elements (widgets)
"PrintBaseDir" => "$home/pictures/print",
"PrintVarDir" => "3_times_13x18",
"PrintTimes" => "1",
"PrintTimesStr" => "times",
"PrintSize" => "10x15",
"CenterThumb" => 0, # move the thumbnails up or down, so that the next e.g. previous thumb is also visible
"ShowNextPicAfterDel" => 0, # open and display next pic after a delete
"BeepWhenLooping" => 1, # play a beep when looping to the first e.g. last picture
"SlowButMoreFeatures" => 0, # enable some features slowing down mapivi
"setEXIFDateAskAgain" => 0, # show/don't show ask dialog
"EXIFDateAbs" => "2008:02:20-18:51:45",
"EXIFPlusMin" => "+", # used in setEXIFdate
"EXIFAbsRel" => "abs", # used in setEXIFdate
"EXIFyears" => 0, # used in setEXIFdate
"EXIFdays" => 0, # used in setEXIFdate
"EXIFhours" => 0, # used in setEXIFdate
"EXIFmin" => 0, # used in setEXIFdate
"EXIFsec" => 0, # used in setEXIFdate
"RotateThumb" => 1, # bool - rotate thumb when rotating the pic
"ToggleBorder" => 0, # bool - switch window decoration on/off in fullscreen mode
"CentralThumbDB" => 0, # bool - 1 = central thumb DB, 0 = decentral .thumbs dirs
"IPTCLastPad" => "cap", # remember the NoteBook page on the IPTC dialog
"OptionsLastPad" => "gen", # remember the NoteBook page on the IPTC dialog
"MetadataWarn" => 0, # print a warning to stdout if some strange metadata is found (e.g. in EXIF)
"dirDiffDirA" => $home,
"dirDiffDirB" => $home,
"dirDiffSize" => 1,
"dirDiffPixel" => 1,
"dirDiffComment" => 1,
"dirDiffEXIF" => 1,
"dirDiffIPTC" => 1,
"MailPicNoChange" => 0,
"MailPicMaxLength"=> 800,
"MailPicQuality" => 75,
"MailTool" => 'mozilla-thunderbird',
"winDirRequesterAskAgain" => 1,
"FuzzyBorderWidth"=> 10,
"FuzzyBorderBlur" => 10,
"FuzzyBorderColor"=> "black",
"ShowInfoInCanvas"=> 1,
"llBorderWidthX" => 16,
"llBorderWidthY" => 16,
"llBorderWidthIX" => 1,
"llBorderWidthIY" => 1,
"llBorderColor" => "white",
"llBorderColorI" => "black",
"supportOtherPictureFormats" => 0,
"CategoriesAll" => 2, # category mode 0= last, 1=all, 2=join
"KeywordsAll" => 2, # keyword mode 0= last, 1=all, 2=join
"Version" => '000',
"ShowUnfinishedDirs" => 1,
"ShowFinishedDirs" => 1,
"trackPopularity" => 1,
"ChannelRed" => 100,
"ChannelGreen" => 100,
"ChannelBlue" => 100,
"ChannelDeco" => 0,
"ChannelBright" => 1,
'SlideShowDir' => $home, # settings for slideshows
'relative_path' => 1, # settings for xnview slideshows
'xnview_loop' => 1, # settings for xnview slideshows
'xnview_fullscreen' => 1, # settings for xnview slideshows
'xnview_filename' => 0, # settings for xnview slideshows
'xnview_random' => 0, # settings for xnview slideshows
'xnview_mouse' => 0, # settings for xnview slideshows
'xnview_title' => 0, # settings for xnview slideshows
'PicWinBalloon' => 1, # boolean -1 show balloon info in pic window
'IPTCProfessional'=> 1, # boolean - 1 = professional IPTC, 0 = simple dialog
'CheckNewKeywords'=> 1,
'KeywordMore' => 0, # boolean 1 = show more options in keyword search window
'KeywordExclude' => '', # space separated list of keywords to exclude
'KeywordLimit' => 0, # boolean 1 = limit number of displayed keywords
'KeywordDate' => 0, # boolean 1 = limit to a date range
'KeywordStart' => 1070254800, # start date (UNIX time)
'KeywordEnd' => 1170254800, # end date (UNIX time)
'KeywordRating' => 0, # boolean 1 = limit to a rating range
'KeywordRatingA' => 1, # rating range
'KeywordRatingB' => 3, # rating range
'UrgencyChangeWarning' => 1, # boolean 1 = show a warning when urgency changed
'ActPic' => '', # the last picture shown
'SelectLastPic' => 1, # Select last shown pic after startup
'AutoImport' => 1, # boolean = 1 start import at Mapivi wizard if memory card is inserted (ImportSource)
'llWatermarkX' => 16, # lossless watermark x position
'llWatermarkY' => -16, # lossless watermark y position
'llWatermarkFile' => "$configdir/EmptyThumb.jpg", # lossless watermark file name
'AspectBorderN' => 3, # lossless aspect ratio border
'AspectBorderM' => 2, # lossless aspect ratio border
'RelativeBorderX' => 10, # lossless relative border
'RelativeBorderY' => 10, # lossless relative border
'RelativeBorderIX' => 0.1, # lossless relative border
'RelativeBorderIY' => 0.1, # lossless relative border
'RelativeBorderEqual'=> 1, # boolean lossless relative border
'KeywordDialogDock'=> 0, # boolean dock keyword dialog to main window
'KeywordDialogDockL'=> 1, # boolean dock keyword dialog on left side
'XMP_file_operations'=> 1, # boolean XMP sidecar files follow picture file operations
'WAV_file_operations'=> 1, # boolean WAV audio files follow picture file operations
'RAW_file_operations'=> 0, # boolean RAW files follow picture file operations
'LocationMode' => 'UPDATE', # UPDATE or REPLACE - mode for writing IPTC location info
);
# some platform specific default settings
# for windows
if ($EvilOS) {
$config{ExtViewer} = 'C:\Program Files\IrfanView\iview_32.exe';
}
# for Mac OS X
if ($MacOSX) {
$config{ExtViewer} = "macosx-preview";
$config{ExtViewerMulti} = 1;
}
my @IPTCAttributes = (
"Urgency",
"Keywords",
"Headline",
"Caption/Abstract",
"SubLocation",
"City",
"Province/State",
"Country/PrimaryLocationCode",
"Country/PrimaryLocationName",
"Writer/Editor",
"ObjectName",
"CopyrightNotice",
"Category",
"Source",
"EditStatus",
"OriginatingProgram",
"ProgramVersion",
"EditorialUpdate",
"ObjectCycle",
"ByLine",
"ByLineTitle",
"FixtureIdentifier",
"ContentLocationName",
"ContentLocationCode",
"ReleaseDate",
"ReleaseTime",
"OriginalTransmissionReference",
"ExpirationDate",
"ExpirationTime",
"Credit",
"SpecialInstructions",
"ActionAdvised",
"Contact",
#"ReferenceService", # only usefull for multiple objects
#"ReferenceDate", # only usefull for multiple objects
#"ReferenceNumber", # only usefull for multiple objects
"DateCreated",
"TimeCreated",
"ImageType",
"ImageOrientation",
"DigitalCreationDate",
"DigitalCreationTime",
"LanguageIdentifier",
#"RecordVersion", # binary
"ObjectTypeReference",
"ObjectAttributeReference",
"SubjectReference",
"SupplementalCategory",
#"RasterizedCaption", # binary
# Audio... and ObjDataPreview... left out by now ...
);
my %iptcHelp = (
"ByLine" => "Contains name of the creator of the objectdata, e.g. writer, photographer or graphic artist. Examples: Robert Capa, Ernest Hemingway, Pablo Picasso (max. 32 chars)",
"ByLineTitle" => "A ByLineTitle is the title of the creator or creators of an objectdata. Where used, a by-line title should follow the ByLine it modifies. Examples: Staff Photographer, Corresponsal, Envoye Special (max. 32 chars)",
"Caption/Abstract" => "The Caption field is the text that accompanies the photo, containing the who, what, when, where and why information (max. 2000 chars)",
"CaptionWriter" => "The Caption Writer field lists the initials of all the people who wrote or edited the caption, header fields or image file. This includes toning and pixel editing",
"Category" => "Identifies the subject of the objectdata in the opinion of the provider. A list of categories will be maintained by a regional registry, where available, otherwise by the provider. Note: Use of this DataSet is Deprecated. It is likely that this DataSet will not be included in further versions of the IIM. The Category field lists codes that aid in a more detailed search. (max. 3 chars)",
"SubLocation" => "Identifies the location within a city. Examples: Capitol Hill, Maple Leaf Gardens, Strandgateparken (max. 32 chars)",
"City" => "The City field lists where the photo was originally made. For file photos, do not use the transmission point's city (max. 32 chars)",
"Country/PrimaryLocationCode" => "The Country field lists the three-letter country code where the photo was originally made. For file photos, do not put the transmission points country. Examples: USA (United States), GER (Germany), FRA (France), XUN (United Nations) (max. 3 chars)",
"Country/PrimaryLocationName" => "Provides full, publishable, name of the country/primary location where the intellectual property of the objectdata was created, according to guidelines of the provider. (max. 64 chars)",
"DateCreated" => "The Create Date field is the date the photo was originally made. For file photos, use the date the photo was originally made, if known. If the complete date is not known, leaf the field blank. The field will not accept a partial date. (8 chars CCYYMMDD)",
"TimeCreated" => "Represented in the form HHMMSS+HHMM (or -HHMM) to designate the time the intellectual content of the objectdata current source material was created rather than the creation of the physical representation. Follows ISO 8601 standard. Where the time cannot be precisely determined, the closest approximation should be used. Example: 133015+0100 indicates that the object intellectual content was created at 1:30 p.m. and 15 seconds Frankfurt time, one hour ahead of UTC. (11 chars HHMMSS+HHMM)",
"Credit" => "Identifies the provider of the objectdata, not necessarily the owner/creator. (The Credit field is the name of the service transmitting the photo) (max. 32 chars)",
"Headline" => "The Headline field lists keywords to aid in a more detailed search for a photo. Example: Lindbergh Lands In Paris (max. 256 chars)",
"SpecialInstructions" => "The Instructions field lists special notations that apply uniquely to a photo, such as file photo, correction, advance or outs Examples: SECOND OF FOUR STORIES, 3 Pictures follow, Argentina OUT (max. 256 chars)",
"ObjectName" => "Used as a shorthand reference for the object. Changes to existing data, such as updated stories or new crops on photos, should be identified in Edit Status. Examples: Wall St., Ferry Sinks. The Object Name field lists the story slug associated with a photo. For photos without a story, Associated Press photographers or photo editors will make up a logical slug to aid in a search and note it as a stand alone photo in the INSTRUCTIONS field of the NAA/IPTC header. If a related story moves on Data-Stream, the photo will be retransmitted with the appropriate OBJECT NAME to match the story. (max. 64 chars)",
"Source" => "Identifies the original owner of the intellectual content of the objectdata. This could be an agency, a member of an agency or an individual. (The Source field lists who is the original provider of a photo, such as: AP, an AP member, pool photo provider or handout photo provider.) (max. 32 chars)",
"Province/State" => "The State field lists the state where the photo was originally made. Use U.S. postal code abbreviations. For file photos, do not use the transmission point's state. Examples: WA, Sussex, Baden-Wuerttenberg (max. 32 chars)",
"SupplementalCategory" => "The Supplemental Categories field lists codes that aid in a more detailed search for a photo.",
"OriginalTransmissionReference" => "A code representing the location of original transmission according to practices of the provider. Examples: BER-5, PAR-12-11-01. (The Trans Reference field lists a call letter/number combination associated with a photo. It includes an originating transmit points call letters and picture number from that point's sequence of offerings for a given day. Example: NY105.) (max. 32 chars)",
"Urgency" => "priority 0 meaning None, 1 meaning High to 8 meaning Low",
"CopyrightNotice" => "Contains any necessary copyright notice. (max. 128 chars)",
"ExpirationTime" => "Designates in the form HHMMSS+HHMM (or -HHMM) the latest time the provider or owner intends the objectdata to be used. Follows ISO 8601 standard. Example: 090000-0500 indicates an objectdata that should not be used after 0900 in New York (five hours behind UTC).",
"ExpirationDate" => "Designates in the form CCYYMMDD the latest date the provider or owner intends the objectdata to be used. Follows ISO 8601 standard. Example: 19940317 indicates an objectdata that should not be used after 17 March 1994.",
"ReleaseTime" => "Designates in the form HHMMSS+HHMM (or -HHMM) the earliest time the provider intends the object to be used. Follows ISO 8601 standard. Example: 090000-0500 indicates object for use after 0900 in New York (five hours behind UTC)",
"ReleaseDate" => "Designates in the form CCYYMMDD the earliest date the provider intends the object to be used. Follows ISO 8601 standard. Example: 19890317 indicates data for release on 17 March 1989. (8 chars)",
"FixtureIdentifier" => "Identifies objectdata that recurs often and predictably. Enables users to immediately find or recall such an object. Example: EUROWEATHER",
"EditStatus" => "Status of the objectdata, according to the practice of the provider. Examples: Lead, CORRECTION (max. 64 chars)",
"Writer/Editor" => "Identification of the name of the person involved in the writing, editing or correcting the objectdata or caption/abstract. (max. 32 chars)",
"LanguageIdentifier" => "Describes the major national language of the object, according to the 2-letter codes of ISO 639:1988. Does not define or imply
any coded character set, but is used for internal routing, e.g. to various editorial desks. Example: en (english), de (german) (2 or 3 chars)",
"ObjectCycle" => "Where: a = morning, p = evening, b = both. Virtually only used in North America. (1 char)",
"Contact" => "Identifies the person or organisation which can provide further background information on the objectdata. (max. 128 chars)"
);
# store all values which were entered in the labeled entry widgets
# key = label of entry, value = reference to array containing all unique values
my %entryHistory;
my @allcolors = qw/black gray10 gray20 gray30 gray40 gray50 gray60 gray70 gray80 gray85 gray90
gray95 white snow2 snow3 snow4 seashell1 seashell2 seashell3 seashell4
AntiqueWhite1 AntiqueWhite2 AntiqueWhite3 AntiqueWhite4 bisque1
bisque2 bisque3 bisque4 PeachPuff1 PeachPuff2 PeachPuff3 PeachPuff4
NavajoWhite1 NavajoWhite2 NavajoWhite3 NavajoWhite4 LemonChiffon1
LemonChiffon2 LemonChiffon3 LemonChiffon4 cornsilk1 cornsilk2
cornsilk3 cornsilk4 ivory1 ivory2 ivory3 ivory4 honeydew1 honeydew2
honeydew3 honeydew4 LavenderBlush1 LavenderBlush2 LavenderBlush3
LavenderBlush4 MistyRose1 MistyRose2 MistyRose3 MistyRose4 azure1
azure2 azure3 azure4 SlateBlue1 SlateBlue2 SlateBlue3 SlateBlue4
RoyalBlue1 RoyalBlue2 RoyalBlue3 RoyalBlue4 blue1 blue2 blue3 blue4
DodgerBlue1 DodgerBlue2 DodgerBlue3 DodgerBlue4 SteelBlue1 SteelBlue2
SteelBlue3 SteelBlue4 DeepSkyBlue1 DeepSkyBlue2 DeepSkyBlue3
DeepSkyBlue4 SkyBlue1 SkyBlue2 SkyBlue3 SkyBlue4 LightSkyBlue1
LightSkyBlue2 LightSkyBlue3 LightSkyBlue4 SlateGray1 SlateGray2
SlateGray3 SlateGray4 LightSteelBlue1 LightSteelBlue2 LightSteelBlue3
LightSteelBlue4 LightBlue1 LightBlue2 LightBlue3 LightBlue4 LightCyan1
LightCyan2 LightCyan3 LightCyan4 PaleTurquoise1 PaleTurquoise2
PaleTurquoise3 PaleTurquoise4 CadetBlue1 CadetBlue2 CadetBlue3
CadetBlue4 turquoise1 turquoise2 turquoise3 turquoise4 cyan1 cyan2
cyan3 cyan4 DarkSlateGray1 DarkSlateGray2 DarkSlateGray3
DarkSlateGray4 aquamarine1 aquamarine2 aquamarine3 aquamarine4
DarkSeaGreen1 DarkSeaGreen2 DarkSeaGreen3 DarkSeaGreen4 SeaGreen1
SeaGreen2 SeaGreen3 SeaGreen4 PaleGreen1 PaleGreen2 PaleGreen3
PaleGreen4 SpringGreen1 SpringGreen2 SpringGreen3 SpringGreen4 green1
green2 green3 green4 chartreuse1 chartreuse2 chartreuse3 chartreuse4
OliveDrab1 OliveDrab2 OliveDrab3 OliveDrab4 DarkOliveGreen1
DarkOliveGreen2 DarkOliveGreen3 DarkOliveGreen4 khaki1 khaki2 khaki3
khaki4 LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 LightGoldenrod4
LightYellow1 LightYellow2 LightYellow3 LightYellow4 yellow1 yellow2
yellow3 yellow4 gold1 gold2 gold3 gold4 goldenrod1 goldenrod2
goldenrod3 goldenrod4 DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3
DarkGoldenrod4 RosyBrown1 RosyBrown2 RosyBrown3 RosyBrown4 IndianRed1
IndianRed2 IndianRed3 IndianRed4 sienna1 sienna2 sienna3 sienna4
burlywood1 burlywood2 burlywood3 burlywood4 wheat1 wheat2 wheat3
wheat4 tan1 tan2 tan3 tan4 chocolate1 chocolate2 chocolate3 chocolate4
firebrick1 firebrick2 firebrick3 firebrick4 brown1 brown2 brown3
brown4 salmon1 salmon2 salmon3 salmon4 LightSalmon1 LightSalmon2
LightSalmon3 LightSalmon4 orange1 orange2 orange3 orange4 DarkOrange1
DarkOrange2 DarkOrange3 DarkOrange4 coral1 coral2 coral3 coral4
tomato1 tomato2 tomato3 tomato4 OrangeRed1 OrangeRed2 OrangeRed3
OrangeRed4 red1 red2 red3 red4 DeepPink1 DeepPink2 DeepPink3 DeepPink4
HotPink1 HotPink2 HotPink3 HotPink4 pink1 pink2 pink3 pink4 LightPink1
LightPink2 LightPink3 LightPink4 PaleVioletRed1 PaleVioletRed2
PaleVioletRed3 PaleVioletRed4 maroon1 maroon2 maroon3 maroon4
VioletRed1 VioletRed2 VioletRed3 VioletRed4 magenta1 magenta2 magenta3
magenta4 orchid1 orchid2 orchid3 orchid4 plum1 plum2 plum3 plum4
MediumOrchid1 MediumOrchid2 MediumOrchid3 MediumOrchid4 DarkOrchid1
DarkOrchid2 DarkOrchid3 DarkOrchid4 purple1 purple2 purple3 purple4
MediumPurple1 MediumPurple2 MediumPurple3 MediumPurple4 thistle1
thistle2 thistle3 thistle4/;
# get the configurations from the rc file if the configdir exists
readConfig($configFile, \%config) if (-d $configdir);
$actpic = $config{ActPic};
# At startup the menu should always be visible
$config{ShowMenu} = 1;
# check if this is the first start of a new Mapivi version
mapiviUpdate() if (($config{Version} eq '000') or ($version ne $config{Version}));
$config{Version} = $version;
processARGV(); # process the command line arguments as early as possible to give a fast feedback
my $layoutOld = $config{Layout}; # this must be done after readConfig!
# for zoom and subsample of Tk::Photo objects
# the higher the zoom value the longer the time to zoom
# subsample is quite fast, so the first number (zoom) should not be bigger than 4
# the second (subsample) may be bigger
my @frac;
if ($config{SlowButMoreFeatures}) {
@frac = (10,1, 6,1, 4,1, 3,1, 2,1, 3,2, 4,3, 1,1, 4,5, 3,4, 2,3, 3,5, 1,2, 2,5, 1,3, 1,4, 1,5, 1,6, 1,7, 1,8, 1,10, 1,12, 1,16, 1,25, 1,50);
}
else {
@frac = (10,1, 6,1, 4,1, 3,1, 2,1, 3,2, 4,3, 1,1, 4,5, 3,4, 2,3, 1,2, 1,3, 1,4, 1,5, 1,6, 1,7, 1,8, 1,10, 1,12, 1,16, 1,25, 1,50);
}
# open main window
my $top = MainWindow->new;
# hide it, while building up
$top->withdraw;
# set the window size
checkGeometry(\$config{Geometry});
$top->geometry($config{Geometry});
# add a window and icon picture
my $icon_data = <Photo(-data => $icon_data);
my $mapiviiconfile = "$configdir/MapiviIcon.gif";
$mapiviiconfile = "$configdir/MapiviIcon32.gif" if $EvilOS;
#my $mapiviicon = $top->Photo(-file => $mapiviiconfile) if (-f $mapiviiconfile);
$top->idletasks if $EvilOS; # this line is crucial (at least on windows)
$top->iconimage($mapiviicon) if $mapiviicon;
my $dragAndDrop1 = "$configdir/MiniPic.jpg";
my $dragAndDrop2 = "$configdir/MiniPicMulti.jpg";
my $dragAndDropIcon1 = $top->Photo(-file => $dragAndDrop1) if (-f $dragAndDrop1);
my $dragAndDropIcon2 = $top->Photo(-file => $dragAndDrop2) if (-f $dragAndDrop2);
# button bitmap needed for color buttons
my $mcbut = pack("b8" x 8,
".......",
".......",
".......",
".......",
".......",
".......",
".......",
".......");
$top->DefineBitmap('mcbut' => 8, 8, $mcbut);
# button bitmap needed for + buttons
my $plusbut = pack("b5" x 5,
"..1..",
"..1..",
"11111",
"..1..",
"..1..",);
$top->DefineBitmap('plusbut' => 5, 5, $plusbut);
# button bitmap needed for - buttons
my $minusbut = pack("b5" x 5,
".....",
".....",
"11111",
".....",
".....",);
$top->DefineBitmap('minusbut' => 5, 5, $minusbut);
# pseudo transpartent bitmap for cropDialog
my $transbits = pack("b4" x 4,
"11..",
"11..",
"..11",
"..11");
$top->DefineBitmap('transp' => 4, 4, $transbits);
# pseudo transpartent bitmap for cropDialog
my $transbits2 = pack("b1" x 3,
"1",
"1",
".");
$top->DefineBitmap('transp2' => 1, 3, $transbits2);
# pseudo transpartent bitmap for cropDialog
my $transbits3 = pack("b1" x 3,
"1",
".",
"1");
$top->DefineBitmap('transp3' => 1, 3, $transbits3);
# set title and icon
$top->title("MaPiVi $version");
$top->iconname("MaPiVi");
# set options
my $ScW = 10;
$ScW = 14 if $EvilOS; # the small scrollbars look ugly under windows
for (qw(Scale Scrollbar)) {
$top->optionAdd("*$_.width", $ScW, "userDefault");
}
# override -takefocus for frames and scrollbars
$top->optionAdd('*Frame.TakeFocus','0');
$top->optionAdd('*Scrollbar.TakeFocus','0');
$top->optionAdd('*ResizeButton.TakeFocus','0');
# change menu style to compact
$top->optionAdd('*Menu.borderWidth' => 1);
$top->optionAdd('*Menu.activeBorderWidth' => 0);
$top->optionAdd('*Menu.borderWidth' => 1);
$top->optionAdd('*selectForeground', $config{ColorSelFG}, 'userDefault');
$top->optionAdd('*selectBackground', $config{ColorSel}, 'userDefault');
$top->optionAdd("*highlightColor", $config{ColorSel}, 'userDefault');
$top->optionAdd("*highlightBackground", $config{ColorHlBG}, 'userDefault');
$top->optionAdd("*background", $config{ColorBG}, 'userDefault');
$top->optionAdd("*activeBackground", $config{ColorActBG}, 'userDefault');
# must be after the *background optionAdd call
$top->optionAdd("*Menu.background", $config{ColorMenuBG}, 'userDefault');
for (qw(foreground)) {
$top->optionAdd("*$_", $config{ColorFG}, 'userDefault');
}
# must be after the *foreground and *background optionAdd call
$top->optionAdd("*Menu.background", $config{ColorMenuBG}, 'userDefault');
$top->optionAdd("*Menu.foreground", $config{ColorMenuFG}, 'userDefault');
for (qw(Scale Scrollbar Adjuster)) {
$top->optionAdd("*$_.troughColor", $config{ColorEntry}, "userDefault");
}
$top->optionAdd("*ProgressBar.troughColor", $config{ColorBG}, "userDefault");
$top->optionAdd("*Label.background", $config{ColorBG}, "userDefault");
for (qw(Entry NumEntry Listbox KListbox K2Listbox TixHList HList Text
BrowseEntry.Entry NoteBook)) {
$top->optionAdd("*$_.background", $config{ColorEntry}, "userDefault");
}
for (qw(Button Checkbutton Radiobutton Menubutton
FlatCheckbox FireButton Menu)) {
$top->optionAdd("*$_.cursor", "hand2", "userDefault");
}
$top->optionAdd("*Radiobutton.selectColor", $config{ColorSelBut}, "userDefault");
$top->optionAdd("*Checkbutton.selectColor", $config{ColorSelBut}, "userDefault");
$top->optionAdd("*Menu.selectColor", $config{ColorSelBut}, "userDefault");
my $font = $top->Font(-family => $config{FontFamily},
-size => $config{FontSize},
#-weight => "normal,-slant,roman,-underline,0,-overstrike,0
);
my $small_font = $top->Font(-family => $config{FontFamily}, -size => 8);
$top->optionAdd("*font", $font, "userDefault");
# slick scrollbars
$top->optionAdd('*Scrollbar.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Adjuster.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Button.borderWidth' => $config{Borderwidth});
$top->optionAdd('*ResizeButton.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Entry.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Scale.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Slider.borderWidth' => $config{Borderwidth});
$top->optionAdd('*NoteBook.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Frame.borderWidth' => $config{Borderwidth});
$top->optionAdd('*NoteBook.Frame.borderWidth' => 0);
$top->optionAdd('*checkbutton.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Checkbutton.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Radiobutton.borderWidth' => $config{Borderwidth});
$top->optionAdd('*radiobutton.borderWidth' => $config{Borderwidth});
$top->optionAdd('*separator.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Menu.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Cascade.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Label.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Canvas.borderWidth' => $config{Borderwidth});
$top->optionAdd('*ROText.borderWidth' => $config{Borderwidth});
$top->optionAdd('*Optionmenu.borderWidth' => $config{Borderwidth});
$top->optionAdd('*DirTree.borderWidth' => $config{Borderwidth});
$top->optionAdd('*HList.borderWidth' => $config{Borderwidth});
# call quitMain when the window is closed by the window manager
$top->protocol("WM_DELETE_WINDOW" => sub { quitMain(); });
# init stuff
$balloon = $top->Balloon(-bg => $config{ColorSel}, -initwait => 1000);
$balloon->Subwidget("message")->configure(-justify => "left");
$top->fontCreate(qw/C_big -family courier -size 14 -weight bold/);
#createMenubar();
my $infoF = $top->Frame(-relief => 'raised');
# $subF contains the 3 frames: dirtree ($dirF), thumbnails ($thumbF) and picture ($mainF)
my $subF = $top->Frame();
my $dirF = $subF->Frame();
my $dirA = $subF->Adjuster();
my $thumbF = $subF->Frame();
my $thumbA = $subF->Adjuster();
my $mainF = $subF->Frame();
my $exifF = $mainF->Frame(-relief => "raised");
my $iptcB = makeButton($exifF, "left", "IPTC", "iptc.gif", 'displayIPTCData($picLB)');
$balloon->attach($iptcB, -msg => "Show all IPTC Information of displayed picture");
my $exifB = makeButton($exifF, "left", "EXIF", "exif.gif", 'displayEXIFData($picLB)');
$balloon->attach($exifB, -msg => "Show all EXIF Information of displayed picture");
my $exifL = $exifF->Label(-textvariable => \$exif, -anchor => 'w', -justify => "left", -relief => "sunken")->pack(-side => "left", -fill => 'both', -expand => 1);
$balloon->attach($exifL, -msg => "EXIF Information of displayed picture");
my $comF = $mainF->Frame(-relief => "raised");
my $comBF = $comF->Frame()->pack(-side => "left", -expand => 1, -fill => "both", -anchor=>"nw", -padx => 0, -pady => 0);
my $capF = $mainF->Frame(-relief => "raised");
my $nrofL = $infoF->Label(-justify => "left",-textvariable => \$nrof, -relief => "sunken", -anchor => 'w'
)->pack(-side => "left", -expand => 0, -fill => "y");
$balloon->attach($nrofL, -msg => "x/y (z, s) = first selected picture is number x\nfrom y pictures in the actual folder\nz pictures are selected\ns is the size of all selected pictures");
my $dirtreedir;
# if the actual dir should be displayed in the dir frame, just change $thumbF to $dirF in the line below
my $actdirF = $thumbF->Frame()->pack(-expand => 1, -fill => 'x', -padx => 2, -pady => 1);
my $actdirL = $actdirF->Label(-textvariable => \$actdir, -width => 10, -anchor => "e", -relief => "sunken", -bd => $config{Borderwidth})->pack(-side => "left", -expand => 1, -fill => 'x');
$balloon->attach($actdirL, -msg => "actual folder\nClick here to open a simple folder requester.");
$actdirL->bind("", sub { getDirAndOpen(); });
my $otherFilesL = $actdirF->Label(-textvariable => \$otherFiles, -relief => "sunken", -bd => $config{Borderwidth})->pack(-side => "left");
$balloon->attach($otherFilesL, -msg => "number of non-JPEG files in the actual folder");
my $otherFilesB = $actdirF->Button(-text => "i", -command => sub {showNonJPEGS();}, -padx => 1, -pady => 0)->pack(-side => "left");
$balloon->attach($otherFilesB, -msg => "show non-JPEG files in the actual folder");
my $parentDirB = $actdirF->Button(-text => "..", -command => sub {
my $parentdir = dirname($actdir);
print "changing to $parentdir (was: $actdir)\n" if $verbose;
openDirPost($parentdir);
}, -padx => 0, -pady => 0)->pack(-side => "left");
$balloon->attach($parentDirB, -msg => "open parent folder");
my $dirPropSORT = 0;
my $dirPropMETA = 0;
my $dirPropPRIO = 0;
$actdirF->{cbSORT} = $actdirF->Checkbutton(-variable => \$dirPropSORT, -command => sub { $dirProperties{$actdir}{SORT} = $dirPropSORT; })->pack(-side => 'left', -anchor=>'w', -padx => 0);
$actdirF->{cbMETA} = $actdirF->Checkbutton(-variable => \$dirPropMETA, -command => sub { $dirProperties{$actdir}{META} = $dirPropMETA; })->pack(-side => 'left', -anchor=>'w', -padx => 0);
$actdirF->{cbPRIO} = $actdirF->Checkbutton(-variable => \$dirPropPRIO, -command => sub { $dirProperties{$actdir}{PRIO} = $dirPropPRIO; })->pack(-side => 'left', -anchor=>'w', -padx => 0);
$balloon->attach($actdirF->{cbSORT}, -msg => "Sort:\nCheck this button, if the pictures\nin this folder are sorted out.");
$balloon->attach($actdirF->{cbMETA}, -msg => "Meta:\nCheck this button, if all needed meta infos\n(comments, IPTC) of the pictures in this folder are added.");
$balloon->attach($actdirF->{cbPRIO}, -msg => "Prio:\nCheck this button, if the pictures in this\nfolder are rated with a IPTC urgency flag.");
my $dirtree;
$dirtree = $dirF->Scrolled('DirTree',
-scrollbars => 'osoe',
-width => 30,
-height => 200,
-showhidden => $config{ShowHiddenDirs},
-selectmode => 'browse',
-exportselection => 1,
-browsecmd => sub {
# this function will show all subdirs when clicking on the + sign of a dir
$dirtreedir = shift;
$dirtreedir = Encode::encode('iso-8859-1', $dirtreedir);
return if (@_ >= 1);
if (!-d $dirtreedir) { print "dirtree xxx: $dirtreedir does not exists!\n"; return; }
$top->Busy;
my @dirs = getDirs($dirtreedir);
$top->Unbusy;
return if (@dirs < 1);
$top->Busy;
my $lastdir = $dirtreedir."/".$dirs[-1];
if ($dirtree->info("exists", "$lastdir")) {
$dirtree->see($lastdir) if (-d $lastdir);
}
$top->Unbusy;
},
-command => sub { openDirPost($dirtreedir); },
)->pack(-fill => "both", -expand => 1);
# Set the initial folder
exists &Tk::DirTree::chdir ? $dirtree->chdir($actdir) : $dirtree->set_dir($actdir);
bindMouseWheel($dirtree);
$dirtree->bind('', sub { $dirtree->focus; } ) unless $EvilOS;
$dirtree->bind('', sub {
$dirMenu->Popup(-popover => "cursor", -popanchor => "nw");
} );
my $dtr = $dirtree->Subwidget("scrolled");
# change the binding order of the dirtree
$dtr->bindtags([$dtr,ref $dtr,$dtr->toplevel,'all']);
# stop the execution of the scape key
$dtr->bind('', sub { Tk->break; } );
my $c = $mainF->Scrolled('Canvas',
-scrollbars => 'osoe',
-width => 2000,
-height => 2000,
-relief => "flat",
-borderwidth => 0,
-highlightthickness => 0,
-bg => $config{ColorBGCanvas},
);
$c->configure(-scrollregion => [0, 0, 100, 100]);
my $whL = $infoF->Label(-textvariable => \$widthheight, -relief => "sunken")->pack(-side => "left", -expand => 0, -fill => "y");
$balloon->attach($whL, -msg => "width and height of displayed picture in pixels");
my $sizeL = $infoF->Label(-textvariable => \$size, -relief => "sunken")->pack(-side => "left", -fill => "y");
$balloon->attach($sizeL, -msg => "file size of displayed picture in kByte");
my $zoomL = $infoF->Label(-textvariable => \$zoomFactorStr, -relief => "sunken")->pack(-side => "left", -fill => "y");
$balloon->attach($zoomL, -msg => "zoom factor of the actual picture");
my $urgF = $infoF->Frame(-relief => "sunken")->pack(-side => "left", -fill => "y");
my $urgL = $urgF->Label(-textvariable => \$urgencyStr)->pack(-side => "left", -fill => "y");
$balloon->attach($urgF, -msg => "Rating (IPTC urgency) of actual picture\n0 or - meaning None, 1 meaning High to 8 meaning Low\nTo change use Ctrl-F1, -F2, ... -F8");
my $urgAnchor = 's'; $urgAnchor = 'n' if ($Tk::VERSION < 804); # the anchor behavior has changed
my $urgencyBar =
$urgF->ProgressBar(-takefocus => 0,
-borderwidth => 0,
-width => 12,
-length => (2*$config{FontSize}), # try to guess the height of the labels
-padx => 0,
-pady => 0,
-variable => \$urgencyScale,
-colors => [0, $top->Darken($config{ColorSel}, 30), 1, $top->Darken($config{ColorSel}, 40), 2, $top->Darken($config{ColorSel}, 50), 3, $top->Darken($config{ColorSel}, 60), 4, $top->Darken($config{ColorSel}, 70), 5, $top->Darken($config{ColorSel}, 80), 6, $top->Darken($config{ColorSel}, 90), 7, $config{ColorSel} ],
-troughcolor => $config{ColorBG},
-resolution => 1,
-blocks => 0,
-gap => 0,
-anchor => $urgAnchor,
-from => 0,
-to => 8
)->pack(-side => 'left', -fill => 'both', -expand => 0, -padx => 0, -pady => 0);
my $userInfoL = $infoF->Label(-textvariable => \$userinfo, -relief => "sunken")->pack(-side => "left", -fill => 'both', -expand => 1);
my $userInfoMsg;
$balloon->attach($userInfoL, -postcommand => sub { $userInfoMsg = "information about what's going on"; $userInfoMsg .= "\n(actual folder: $actdir)"}, -msg => \$userInfoMsg);
my $colorPickerInfo = $infoF->Label(-text => ' ', -background => $config{ColorPicker}, -relief => "sunken")->pack(-side => "left", -fill => 'both', -expand => 0);
$balloon->attach($colorPickerInfo, -msg => "Color picker: last color picked by clicking\non the picture in the main window.\nPlease click to clear.");
$colorPickerInfo->bind('', sub {
$config{ColorPicker} = $config{ColorBG};
$colorPickerInfo->configure(-background => $config{ColorPicker}); });
#my $stopB = makeButton($infoF, "left", "STOP", "StopPic.gif", 'stopButStop()');
#$balloon->attach($stopB, -msg => "Stop actual action.\nThis may take a while, pressing the button once is enough,\neven if no immidiate feedback is visible.");
#stopButEnd();
my $nrTCL = $infoF->Label(-textvariable => \$nrToConvert, -relief => "sunken")->pack(-side => "left", -expand => 0, -fill => "y");
$balloon->attach($nrTCL, -msg => "Number of thumbnails to generate/refresh");
my $progressBar =
$infoF->ProgressBar(-takefocus => 0,
-borderwidth => 1,
-relief => 'sunken',
-width => (2*$config{FontSize}), # try to guess the height of the labels
-length => 30,
-padx => 0,
-pady => 0,
-variable => \$proccount,
-colors => [0 => $config{ColorProgress}],
-resolution => 1,
-blocks => $config{MaxProcs},
-anchor => 'w',
-from => 0,
-to => $config{MaxProcs}
)->pack(-side => 'left', -fill => 'both', -expand => 0, -padx => 0, -pady => 0);
$balloon->attach($progressBar, -msg => "info about the number of background processes\n(generating thumbnail pictures)");
$clockL = $infoF->Label(-textvariable => \$time, -relief => "sunken")->pack(-side => "left", -fill => "y");
$balloon->attach($clockL, -msg => \$date);
# JPEG comment box
my $commentText = $comF->Scrolled("ROText",
-scrollbars => 'oe',
-wrap => 'word',
-width => 200,
-height => $config{CommentHeight},
)->pack(-side => "left", -fill => 'both', -expand => "1", -padx => 0, -pady => 0);
$balloon->attach($commentText, -msg => "Comment(s) of displayed picture");
my $addB = makeButton($comBF, "left", "add", "add.gif", 'addComment($picLB)');
$balloon->attach($addB, -msg => "Add a comment");
my $editB = makeButton($comBF, "left", "edit", "edit.gif", 'editComment($picLB)');
$balloon->attach($editB, -msg => "Edit a comment");
my $remB = makeButton($comBF, "left", "del", "delete.gif", 'removeComment()');
$balloon->attach($remB, -msg => "Remove comment(s)");
my $picLB = makeThumbListbox($thumbF);
$picLB->bind('', sub { $picLB->focus; } ) unless $EvilOS;
# IPTC caption edit box
my $captionText;
$capF->Label(-text => "Caption")->pack(-side => "left", -fill => 'both');
$captionText = $capF->Scrolled("Text",
-scrollbars => 'oe',
-wrap => 'word',
-width => 20,
-height => $config{CommentHeight},
)->pack(-side => 'left', -fill => 'both', -expand => "1");
$balloon->attach($captionText, -msg => "IPTC caption of displayed picture");
my $saveB = $capF->Button(-image => compound_menu($top, 'save', 'media-floppy.png', 0),
#-text => "save",
-command => sub {
my $iptc = { "Caption/Abstract" => $captionText->get(0.1, 'end') };
my @list = ($actpic);
applyIPTC($picLB, $iptc, \@list);
}
)->pack(-side => "left", -fill => 'both');
$balloon->attach($saveB, -msg => "Save the IPTC caption to the file and database.\nPlease press this button after adding or editing.");
#$captionText->Subwidget("scrolled")->bindtags([]);
#$captionText->Subwidget("scrolled")->bind('', sub {});
#->Subwidget("scrolled")
# item styles for the thumbnail view
my $thumbCaptionFont = $top->Font(-family => $config{FontFamily},
-size => $config{ThumbCaptFontSize});
my $thumbS = $picLB->ItemStyle('imagetext', -anchor => 'w', -textanchor => 's', -foreground=>$config{ColorFG}, -background=>$config{ColorBG}, -font => $thumbCaptionFont);
my $fileS = $picLB->ItemStyle('text', -anchor=>'nw', -foreground=>$config{ColorFile}, -background=>$config{ColorBG});
my $iptcS = $picLB->ItemStyle('text', -anchor=>'nw', -foreground=>$config{ColorIPTC}, -background=>$config{ColorBG});
my $comS = $picLB->ItemStyle('text', -anchor=>'nw', -foreground=>$config{ColorComm}, -background=>$config{ColorBG2});
my $exifS = $picLB->ItemStyle('text', -anchor=>'nw', -foreground=>$config{ColorEXIF}, -background=>$config{ColorBG2});
my $dirS = $picLB->ItemStyle('text', -anchor=>'nw', -foreground=>$config{ColorDir}, -background=>$config{ColorBG2});
toggleHeaders();
# mouse and button bindings
# key-desc,double click,show picture in own window
#$picLB->bind('', sub { showPicInOwnWin(); } ); # does not always work ???
# key-desc,MiddleMouseButton,show picture in own window
$picLB->bind('', sub {
return if (!$picLB->info('children'));
showPicInOwnWin(getNearestItem($picLB));
} );
# experimental stuff
#$top->bind('', sub { print "Mouse Press But 4\n"; } );
#$top->bind('', sub { print "Mouse Press But 5\n"; } );
# Define the source for drags.
# Drags are started while pressing the Ctrl key and the left mouse button and moving the
# mouse. Then the StartDrag callback is executed.
my $token;
# key-desc,S-C-LeftBut,(Shift-Ctrl-LeftMouseButton) drag and drop pictures to a dir
$token = $picLB->DragDrop
(-event => '',
-sitetypes => 'Local',
-startcommand => sub { dragFromPicLB($token) },
);
# Define the target for drops.
$dirtree->DropSite
(-droptypes => 'Local',
-dropcommand => sub { dropToDirTree(); },
);
$picLB->bind('', sub {
# saved here for undo function
@savedselection2 = @savedselection;
@savedselection = $picLB->info('selection');
} );
$picLB->bind('', sub { showSelectedPic(); } );
$picLB->bind('', sub {
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
$thumbMenu->Popup(-popover => "cursor", -popanchor => "nw");
} );
# key-desc,Return,display the selected picture
$picLB->bind('', sub { showSelectedPic(); } );
$c->CanvasBind('', sub {
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
$picMenu->Popup(-popover => "cursor", -popanchor => "nw");
} );
# we can't bind all keys to the complete window ($top) as we have e.g. the IPTC Caption entry which should get all key events
addWindowKeyBindings($dirtree, $picLB);
addWindowKeyBindings($picLB, $picLB);
addWindowKeyBindings($c, $picLB);
addCommonKeyBindings($dirtree, $picLB);
addCommonKeyBindings($picLB, $picLB);
addCommonKeyBindings($c, $picLB);
# key-desc,d,display picture in own window
#$picLB->bind('', sub { showPicInOwnWin(); } );
$picLB->bind('', sub {
my @sellist = getSelection($picLB);
return unless checkSelection($top, 1, 0, \@sellist);
show_multiple_pics(\@sellist, 0);
} );
$dirtree->bind('', sub {
my $dir = getRightDir();
my @list = getPics($dir, WITH_PATH);
sortPics($config{SortBy}, $config{SortReverse}, \@list);
showThumbList(\@list, $dir); });
$dirtree->bind('', sub {
$dirtree->selectionClear();
$dirtree->selectionSet(getNearestItem($dirtree));
my $dir = getRightDir();
my @list = getPics($dir, WITH_PATH);
sortPics($config{SortBy}, $config{SortReverse}, \@list);
showThumbList(\@list, $dir); });
# window resize event
$top->bind("" => sub {
# only if dock is selected
return unless ($config{KeywordDialogDock});
# and the keyword dialog is open
return unless (Exists($keyw));
dock_keyword_dialog();
});
# support drag and drop from extern
# this enables dropping pictures and folders on the mapivi window
if ($Tk::VERSION < 804) {
$top->DropSite
(-dropcommand => \&dragAndDropExtern,
-droptypes => ($^O eq 'MSWin32' ? 'Win32' : ['KDE', 'XDND', 'Sun'])
);
}
else {
$top->DropSite
(#-entercommand => sub { print "DragAndDrop - Entercommand\n";},
-dropcommand => \&dragAndDropExtern,
-droptypes => ($^O eq 'MSWin32' ? 'Win32' : ['XDND', 'Sun']) # KDEsite was removed in Tk804.026
);
}
startup();
# show all types of images supported by Tk::Image
#my @types = $top->imageTypes;printlist(@types);
# Perl/Tk-Mainloop
$top->MainLoop;
# override the Motion sub of listbox (extended selection mode)
# seems not to help with the drag and drop problem
#sub Tk::HList::Motion {
#sub Tk::Listbox::Motion {
# return;
#}
##############################################################
# stillBusy - block some keys, untill loading of pictures is finished
##############################################################
sub stillBusy {
if ($showPicInAction) {
beep();
$userinfo = "busy (loading pic), please retry later"; $userInfoL->update;
return 1;
}
return 0;
}
##############################################################
# makeThumbListbox - create a scrolled HList for thumbnail display
##############################################################
sub makeThumbListbox {
my $widget = shift;
my $lb = $widget->Scrolled('HList',
-header => 1,
-separator => ';', # todo here we hope that ; will never be in a folder or file name
-pady => 0,
-columns => 6,
-scrollbars => 'osoe',
-selectmode => 'extended',
-background => $config{ColorBG},
-width => 30,
-height => 200,
)->pack(-expand => 1, -fill => 'both');
bindMouseWheel($lb);
my $colNr = 0;
if ($resizeAvail) {
my $thumbH = $lb->ResizeButton(-text => 'Thumbnail',
-relief => 'flat', -pady => 0,-anchor => 'w',
-widget => \$lb, -column => $colNr);
$lb->{thumbcol} = $colNr;
$lb->header('create', $colNr++, -itemtype => 'window', -widget => $thumbH, -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
my $sizeH = $lb->ResizeButton(-text => 'File',
-relief => 'flat', -pady => 0,-anchor => 'w',
-command => sub {
return unless ($lb == $picLB);
if ($config{SortBy} eq 'name') {
toggle(\$config{SortReverse});
} else {
$config{SortReverse} = 0;
}
$config{SortBy} = 'name';
updateThumbsPlus(); },
-widget => \$lb, -column => $colNr);
$lb->{filecol} = $colNr;
$lb->header('create', $colNr++, -itemtype => 'window', -widget => $sizeH, -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
my $iptcH = $lb->ResizeButton(-text => 'IPTC',
-relief => 'flat', -pady => 0,-anchor => 'w',
-command => sub {
return unless ($lb == $picLB);
if ($config{SortBy} eq 'urgency') {
toggle(\$config{SortReverse});
} else {
$config{SortReverse} = 0;
}
$config{SortBy} = 'urgency';
updateThumbsPlus(); },
-widget => \$lb, -column => $colNr);
$lb->{iptccol} = $colNr;
$lb->header('create', $colNr++, -itemtype => 'window', -widget => $iptcH, -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
my $comH = $lb->ResizeButton(-text => 'Comments',
-relief => 'flat', -pady => 0,-anchor => 'w',
-widget => \$lb, -column => $colNr);
$lb->{comcol} = $colNr;
$lb->header('create', $colNr++, -itemtype => 'window', -widget => $comH, -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
my $exifH = $lb->ResizeButton(-text => 'EXIF',
-relief => 'flat', -pady => 0,-anchor => 'w',
-command => sub {
return unless ($lb == $picLB);
$config{SortBy} = 'exifdate';
toggle(\$config{SortReverse});
updateThumbsPlus(); },
-widget => \$lb, -column => $colNr);
$lb->{exifcol} = $colNr;
$lb->header('create', $colNr++, -itemtype => 'window', -widget => $exifH, -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
my $dirH = $lb->ResizeButton(-text => 'Folder',
-relief => 'flat', -pady => 0,-anchor => 'w',
-command => sub {
return unless ($lb == $picLB);
if ($config{SortBy} eq 'name') {
toggle(\$config{SortReverse});
} else {
$config{SortReverse} = 0;
}
$config{SortBy} = 'name';
updateThumbsPlus(); },
-widget => \$lb, -column => $colNr);
$lb->{dircol} = $colNr;
$lb->header('create', $colNr, -itemtype => 'window', -widget => $dirH, -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
}
else { # no resizeAvail
$lb->{thumbcol} = $colNr;
$lb->header('create', $colNr++, -text => 'Thumbnail', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
#$lb->{namecol} = $colNr;
#$lb->header('create', $colNr++, -text => 'Name', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$lb->{filecol} = $colNr;
$lb->header('create', $colNr++, -text => 'File', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$lb->{iptccol} = $colNr;
$lb->header('create', $colNr++, -text => 'IPTC', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$lb->{comcol} = $colNr;
$lb->header('create', $colNr++, -text => 'Comments', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$lb->{exifcol} = $colNr;
$lb->header('create', $colNr++, -text => 'EXIF', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$lb->{dircol} = $colNr;
$lb->header('create', $colNr, -text => 'Folder', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
}
return $lb;
}
##############################################################
# addWindowKeyBindings - add key shortcuts to a widget
##############################################################
sub addWindowKeyBindings {
my $bind_w = shift; # widget to bind keys to
my $lb_w = shift; # thumbnail listbox to use
# key-desc,b,show backup picture (if available)
$bind_w->bind('', sub { showBackup(); });
# key-desc,w,show window list
$bind_w->bind('', sub { showWindowList(); });
# key-desc,Ctrl-r,rebuild selected thumbnails
$bind_w->bind('', sub { rebuildThumbs(); } );
# key-desc,Ctrl-s,search database
$bind_w->bind('', sub { searchMetaInfo(); } );
# key-desc,k,search by keyword (tag cloud)
$bind_w->bind('', sub { keyword_browse(); } );
# key-desc,o,open a new folder
$bind_w->bind('', sub { openDir(); } );
# key-desc,h,show hot folders
$bind_w->bind('', sub { $dirMenu->Popup(-popover => "cursor", -popanchor => "nw"); } );
# key-desc,u,update (reread folder and Image)
$bind_w->bind('', sub { updateThumbsPlus(); } );
# key-desc,F05,smart update (add new and remove deleted images)
$bind_w->bind('', sub { smart_update(); } );
# key-desc,U,update image
$bind_w->bind('', sub {
deleteCachedPics($actpic);
showPic($actpic);
} );
# layouts
# key-desc,l,cycle layout of folder thumbnail and picture frame
$bind_w->bind('', sub { $config{Layout}++; layout(1); } );
# key-desc,F01,toggle show menu bar
$bind_w->bind('', sub { $config{ShowMenu} = $config{ShowMenu} ? 0 : 1; showHideFrames(); } );
# key-desc,F02,toggle show status bar
$bind_w->bind('', sub { $config{ShowInfoFrame} = $config{ShowInfoFrame} ? 0 : 1; showHideFrames(); } );
# key-desc,F03,toggle show EXIF box
$bind_w->bind('', sub { $config{ShowEXIFField} = $config{ShowEXIFField} ? 0 : 1; showHideFrames(); } );
# key-desc,F04,toggle show comment box
$bind_w->bind('', sub { $config{ShowCaptionField} = $config{ShowCaptionField} ? 0 : 1; showHideFrames(); } );
# key-desc,F06,layout 0: folders-thumbnails-picture (25-30-45)
$bind_w->bind('', sub { $config{Layout} = 0 ; layout(1);} );
# key-desc,F07,layout 1: folders-thumbnails (20-80-0)
$bind_w->bind('', sub { $config{Layout} = 1 ; layout(1);} );
# key-desc,F08,layout 2: thumbnails (0-100-0)
$bind_w->bind('', sub { $config{Layout} = 2 ; layout(1);} );
# key-desc,F09,layout 3: thumbnails-picture (0-50-50)
$bind_w->bind('', sub { $config{Layout} = 3 ; layout(1);} );
# key-desc,F10,layout 4: picture (0-0-100)
$bind_w->bind('', sub { $config{Layout} = 4 ; layout(1); Tk->break; # stop default binding of this key
} );
# key-desc,F11,fullscreen mode
$bind_w->bind('', sub { topFullScreen(); });
# key-desc,Delete,delete selected pictures to trash
$bind_w->bind('', sub { deletePics($lb_w, TRASH); } );
# key-desc,Shift-Delete,remove selected pictures
$bind_w->bind('', sub { deletePics($lb_w, REMOVE); } );
# key-desc,q,quit mapivi
$bind_w->bind('', sub { quitMain(); } );
# key-desc,R,smart rename selected pictures (e.g to EXIF date)
$bind_w->bind('', sub { renameSmart($lb_w); } );
# key-desc,F12,quit mapivi
$bind_w->bind('', sub { quitMain(); } );
# show picture, EXIF, Comment and IPTC info
# key-desc,c,display JPEG comment
$bind_w->bind('', sub { showComment(); } );
# key-desc,t,display embedded EXIF thumbnail
$bind_w->bind('', sub { showEXIFThumb(); } );
# key-desc,Ctrl-v,toggle verbose output
$bind_w->bind('', sub { toggle(\$verbose); $userinfo = "verbose switched to $verbose"; $userInfoL->update; } );
# key-desc,Ctrl-c,crop (lossless)
$bind_w->bind('', sub { crop($lb_w); } );
# key-desc,Ctrl-b,add border and/or copyright
$bind_w->bind('', sub { losslessBorder(PIXEL); } );
# key-desc,Ctrl-q,change size/quality
$bind_w->bind('', sub { changeSizeQuality(); } );
# key-desc,Ctrl-o,open options dialog
$bind_w->bind('', sub { options(); } );
# key-desc,Ctrl-e,edit picture in GIMP
$bind_w->bind('', sub { GIMPedit(); } );
# key-desc,Ctrl-f,apply a filter to the picture
$bind_w->bind('', sub { filterPic(); } );
# key-desc,H,display picture histogram
$bind_w->bind('', sub { showHistogram($lb_w); });
# key-desc,9,rotate picture(s) 90 degrees clockwise
$bind_w->bind('', sub { rotate(90); });
# key-desc,8,rotate picture(s) 180 degrees clockwise
$bind_w->bind('', sub { rotate(180); });
# key-desc,7,rotate picture(s) 270 degrees clockwise
$bind_w->bind('', sub { rotate(270); });
# key-desc,0,auto rotate picture(s) (EXIF orientation)
$bind_w->bind('', sub { rotate("auto"); });
# key-desc,Escape,iconify the main window/close any other window
$bind_w->bind('', sub { $top->iconify; } );
# thumbnail navigation
# key-desc,Space,display the next picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
showPic(nextPic($actpic));
} );
# key-desc,S,display the next selected picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
my @sellist = $lb_w->info('selection');
showPic(nextSelectedPic($actpic));
reselect($lb_w, @sellist);
} );
# key-desc,Page-Down,display the next picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
showPic(nextPic($actpic));} );
# key-desc,Backspace,display the previous picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
showPic(prevPic($actpic));} );
# key-desc,Page-Up,display the previous picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
showPic(prevPic($actpic));} );
# key-desc,Home,display the first picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
my @childs = $lb_w->info('children');
return unless (@childs);
showPic($childs[0]); } );
# key-desc,End,display the last picture
$bind_w->bind('', sub {
return if (stillBusy()); # block, until last picture is loaded
if ($slideshow == 1) { $slideshow = 0; slideshow(); } # switch slideshow off
my @childs = $lb_w->info('children');
return unless (@childs);
showPic($childs[-1]);
});
# key-desc,Ctrl-g,goto picture
$bind_w->bind('', sub { gotoPic($lb_w); } );
# key-desc,s,start/stop slideshow
$bind_w->bind('', sub {
if ($slideshow == 0) { $slideshow = 1; } else { $slideshow = 0; }
slideshow();
} );
# key-desc,-,zoom out or faster slideshow
$bind_w->bind('', sub {
if ($slideshow) {
$config{SlideShowTime}-- if ($config{SlideShowTime} >= 1);
$userinfo = "slideshow time: ".$config{SlideShowTime}." sec"; $userInfoL->update;
}
else {
zoomStep(-1);
}
} );
# key-desc,+,zoom in or slideshow slower
$bind_w->bind('', sub {
if ($slideshow) {
$config{SlideShowTime}++ if ($config{SlideShowTime} < 30);
$userinfo = "slideshow time: ".$config{SlideShowTime}." sec"; $userInfoL->update;
}
else {
zoomStep(1);
}
});
# key-desc,Ctrl-h,display picture in original size (100% zoom)
$bind_w->bind('', sub { zoom100(); });
# key-desc,z,display picture in original size (100% zoom)
$bind_w->bind('', sub { zoom100(); });
# key-desc,f,fit picture in canvas (auto zoom)
$bind_w->bind('', sub { fitPicture(); });
}
##############################################################
# addCommonKeyBindings - add key shortcuts to a widget
##############################################################
sub addCommonKeyBindings {
my $bind_w = shift; # widget to bind keys to
my $lb_w = shift; # thumbnail listbox to use
# key-desc,a,add JPEG comment
$bind_w->bind('', sub { addComment($lb_w); } );
# key-desc,e,edit JPEG comment
$bind_w->bind('', sub { editComment($lb_w); } );
# key-desc,v,open picture in external viewer
$bind_w->bind('', sub { openPicInViewer($lb_w); } );
# key-desc,r,rename selected pictures
$bind_w->bind('', sub { renamePic($lb_w); } );
# key-desc,x,display embedded EXIF data
$bind_w->bind('', sub { displayEXIFData($lb_w); } );
# key-desc,Ctrl-a,select all pictures
$bind_w->bind('', sub { selectAll($lb_w); } );
# key-desc,i,display IPTC data
$bind_w->bind('', sub { displayIPTCData($lb_w); } );
# key-desc,Ctrl-i,edit IPTC data
$bind_w->bind('', sub { editIPTC($lb_w); } );
# key-desc,Ctrl-p,copy to print
$bind_w->bind('', sub { copyToPrint($lb_w); } );
# key-desc,Ctrl-l,show selected thumbnails on light table
$bind_w->bind('', sub { light_table_add_from_lb($lb_w); } );
# key-desc,Ctrl-t,add/remove categories
$bind_w->bind('', sub { editIPTCCategories($lb_w); } );
# key-desc,Ctrl-k,add/remove keywords
$bind_w->bind('', sub { editIPTCKeywords($lb_w); } );
# key-desc,Ctrl-F01,set IPTC urgency to 1 - high
$bind_w->bind('', sub { setIPTCurgency($lb_w, 1); } );
# key-desc,Ctrl-F02,set IPTC urgency to 2
$bind_w->bind('', sub { setIPTCurgency($lb_w, 2); } );
# key-desc,Ctrl-F03,set IPTC urgency to 3
$bind_w->bind('', sub { setIPTCurgency($lb_w, 3); } );
# key-desc,Ctrl-F04,set IPTC urgency to 4
$bind_w->bind('', sub { setIPTCurgency($lb_w, 4); } );
# key-desc,Ctrl-F05,set IPTC urgency to 5 - normal
$bind_w->bind('', sub { setIPTCurgency($lb_w, 5); } );
# key-desc,Ctrl-F06,set IPTC urgency to 6
$bind_w->bind('', sub { setIPTCurgency($lb_w, 6); } );
# key-desc,Ctrl-F07,set IPTC urgency to 7
$bind_w->bind('', sub { setIPTCurgency($lb_w, 7); } );
# key-desc,Ctrl-F08,set IPTC urgency to 8 - low
$bind_w->bind('', sub { setIPTCurgency($lb_w, 8); } );
# key-desc,Ctrl-F09,set IPTC urgency to 0 - none
$bind_w->bind('', sub { setIPTCurgency($lb_w, 0); } );
# key-desc,Ctrl-F10,remove IPTC urgency flag
$bind_w->bind('', sub { setIPTCurgency($lb_w, 9); } );
}
##############################################################
# startup - process all stuff needed to set up mapivi
##############################################################
sub startup {
print "sub startup ...\n" if $verbose;
$picLB->focus;
if ($config{NrOfRuns} == 0) {
print "first run ...\n" if $verbose;
makeConfigDir();
# todo this should be done outside mapivi (we need an installer!!! :)
#copyConfigPics();
#copyOtherStuff();
#copyPlugIns();
}
$config{NrOfRuns}++;
gratulation() if (($config{NrOfRuns} % 1000 == 0) and ($config{NrOfRuns} > 0)); # modulo
# create menus
createMenubar();
createDirMenu();
createThumbMenu();
createPicMenu();
checkSystem();
startStopClock();
# migrate from the old file name "dirInfo" to "SearchDataBase"
if (-f "$configdir/dirInfo") {
if (-f "$configdir/SearchDataBase") {
warn "Mapivi: there is something wrong! I found a file \"dirInfo\" and \"SearchDataBase\" in $configdir\n";
}
else {
if (rename("$configdir/dirInfo", "$configdir/SearchDataBase")) {
print "Mapivi: I have renamed the file \"dirInfo\" to \"SearchDataBase\" in $configdir\n";
}
else {
warn "Mapivi: error renaming \"dirInfo\" to \"SearchDataBase\" in $configdir: $!\n";
}
}
}
# try to get the saved database (meta info hash)
if ($config{SaveDatabase} and -f "$configdir/SearchDataBase") {
my $hashRef = retrieve("$configdir/SearchDataBase");
warn "could not retrieve searchDB" unless defined $hashRef;
%searchDB = %{$hashRef};
}
# try to get the saved hotlist folders
if (-f "$configdir/hotlist") {
my $hashRef = retrieve("$configdir/hotlist");
warn "could not retrieve hotlist" unless defined $hashRef;
%dirHotlist = %{$hashRef};
}
# try to get the saved folder properties
if (-f "$configdir/dirProperties") {
my $hashRef = retrieve("$configdir/dirProperties");
warn "could not retrieve dirProperties" unless defined $hashRef;
%dirProperties = %{$hashRef};
}
# try to get the saved ignore keywords
if (-f "$configdir/keywords_ignore") {
my $hashRef = retrieve("$configdir/keywords_ignore");
warn "could not retrieve keywords_ignore" unless defined $hashRef;
%ignore_keywords = %{$hashRef};
}
if (MatchEntryAvail) {
# try to get the saved entry values
if (-f $file_Entry_values) {
my $hashRef = retrieve($file_Entry_values);
warn "could not retrieve $file_Entry_values" unless defined $hashRef;
%entryHistory = %{$hashRef};
}
}
updateDirMenu();
if (-f $config{DefaultThumb}) {
$defaultthumbP = $picLB->Photo(-format => 'jpeg', -file => $config{DefaultThumb}, -gamma => $config{Gamma});
}
else {
warn "Mapivi info: no file ".$config{DefaultThumb}." found! (Please copy any thumbnail to this folder and rename it ".basename($config{DefaultThumb}).")\n";
undef $defaultthumbP;
}
layout(0);
# remove splash screen
$splash->Destroy if $splash;
# show main window
$top->deiconify;
$top->raise;
setDirProperties();
updateThumbs();
setAdjusterPos();
my $tmp = $config{ShowPic};
$config{ShowPic} = 0;
showPic($actpic) if ($config{SelectLastPic} and (defined $actpic) and ($actpic ne '') and (dirname($actpic) eq $actdir));
$config{ShowPic} = $tmp;
selectDirInTree($actdir);
checkTrash();
# if command line option -i is set or a memory card is inserted we start the import wizard
importWizard() if (($opt_i) or ($config{AutoImport} and (-d $config{ImportSource})));
if ($EvilOS) {
warn "Win32::Process module not available\n" unless (Win32ProcAvail);
}
$top->update();
}
##############################################################
# testSuite - automated regression tests for mapivi
##############################################################
sub testSuite {
my @childs = $picLB->info('children');
if (@childs < 2) {
$top->messageBox(-icon => 'error', -message => "test suite must be started in a folder with at least two picture!",
-title => "test suite", -type => 'OK');
return;
}
my $startdir = dirname($childs[0]);
my $rc = $top->messageBox(-icon => 'question', -message => "Start some internal test with ".scalar @childs." pictures in $actdir.\nTest results will go to STDOUT (shell/DOS-box where you've started Mapivi).\nOk to go on?",
-title => "Start test suite?", -type => 'OKCancel');
return unless ($rc =~ m/Ok/i);
# test single selection
print "testSuite: testing single selection\n";
foreach (@childs) {
selectThumb($picLB, $_);
my @sel = $picLB->info('selection');
print "testSuite: *** wrong selection\n" if (@sel != 1);
print "testSuite: *** wrong selection\n" if ($sel[0] ne $_);
}
# test all selection
print "testSuite: testing all selection\n";
selectAll($picLB);
my @sel = $picLB->info('selection');
print "testSuite: *** wrong selection\n" if (@sel != @childs);
my $dir1 = "$trashdir/testdir1";
my $dir2 = "$trashdir/testdir2";
# cleanup
foreach ($dir1, $dir2) {
print "testSuite: removing temp dir $_\n";
rmtree($_, 0, 1) if (-d $_); # dir, 0 = no message for each file, 1 = skip write protected files
}
foreach ($dir1, $dir2) { unless (makeDir($_, NO_ASK)) { print "testSuite: could not create $_\n"; } }
print "testSuite: temp dirs created\n";
foreach ($dir1, $dir2) { unless (-d $_) { warn "testSuite: *** $_ not found!\n"; return; } }
# test copy actdir -> dir1
print "testSuite: testing copy all\n";
selectAll($picLB);
copyPics($dir1, COPY, $picLB, @childs);
openDirPost($dir1);
my @childs1 = $picLB->info('children');
if (@childs1 != @childs) {
warn "testSuite: *** copy error ".scalar @childs1." ne ".scalar @childs."\n";
}
foreach my $i (0 .. $#childs1) {
# todo this will fail, if files are sorted by file date (copy date)
if (basename($childs[$i]) ne basename($childs1[$i])) {
warn "testSuite: *** copy error $childs[$i] ne $childs1[$i]\n";
}
}
# copy first pic dir1 -> dir2
print "testSuite: testing copy first\n";
selectThumb($picLB, $childs1[0]);
@sel = $picLB->info('selection');
if (@sel ne 1) {
warn "testSuite: *** sel error ".scalar @sel." ne 1\n";
}
copyPics($dir2, COPY, $picLB, @sel);
openDirPost($dir2);
my @childs2 = $picLB->info('children');
if (@childs2 ne 1) {
warn "testSuite: *** copy error ".scalar @childs2." ne 0\n";
}
if (basename($childs1[0]) ne basename($childs2[0])) {
warn "testSuite: *** copy error $childs[0] ne $childs1[0]\n";
}
# clean dir2
selectAll($picLB);
deletePics($picLB, TRASH);
# copy last pic dir1 -> dir2
print "testSuite: testing copy last\n";
openDirPost($dir1);
selectThumb($picLB, $childs1[-1]);
@sel = $picLB->info('selection');
if (@sel ne 1) {
warn "testSuite: *** sel error ".scalar @sel." ne 1\n";
}
copyPics($dir2, COPY, $picLB, @sel);
openDirPost($dir2);
@childs2 = $picLB->info('children');
if (@childs2 ne 1) {
warn "testSuite: *** copy error ".scalar @childs2." ne 0\n";
}
if (basename($childs1[-1]) ne basename($childs2[-1])) {
warn "testSuite: *** copy error $childs[-1] ne $childs1[-1]\n";
}
# clean dir2
print "testSuite: cleaning dir\n";
selectAll($picLB);
deletePics($picLB, TRASH);
# move all pics dir1 -> dir2
print "testSuite: testing move all\n";
openDirPost($dir1);
selectAll($picLB);
@sel = $picLB->info('selection');
movePics($dir2, $picLB, @sel);
openDirPost($dir2);
@childs2 = $picLB->info('children');
if (@childs2 != @childs1) {
warn "testSuite: *** move error ".scalar @childs2." ne ".scalar @childs1."\n";
}
# move first and last pics dir2 -> dir1
print "testSuite: testing move first and last\n";
selectThumb($picLB, $childs2[0]);
@sel = $picLB->info('selection');
movePics($dir1, $picLB, @sel);
selectThumb($picLB, $childs2[-1]);
@sel = $picLB->info('selection');
movePics($dir1, $picLB, @sel);
openDirPost($dir1);
@childs1 = $picLB->info('children');
if (@childs1 != 2) {
warn "testSuite: *** move error ".scalar @childs1." ne 2\n";
}
# test backup dir1
print "testSuite: testing backup all\n";
selectAll($picLB);
@sel = $picLB->info('selection');
copyPics($dir1, BACKUP, $picLB, @sel);
@childs1 = $picLB->info('children');
if (@childs1 != 4) {
warn "testSuite: *** backup error ".scalar @childs1." ne 4\n";
}
# test delete backups dir1
selectBak();
@sel = $picLB->info('selection');
warn "testSuite: *** sel error ".scalar @sel." ne 2\n" if (@sel != 2);
deletePics($picLB, TRASH);
@childs1 = $picLB->info('children');
warn "testSuite: *** delete backup error ".scalar @childs1." ne 2\n" if (@childs1 != 2);
# move the two pics back dir1 -> dir2
print "testSuite: testing move back\n";
selectAll($picLB);
@sel = $picLB->info('selection');
warn "testSuite: *** sel error ".scalar @sel." ne 2\n" if (@sel != 2);
movePics($dir2, $picLB, @sel);
@childs1 = $picLB->info('children');
if (@childs1 != 0) {
warn "testSuite: *** delete backup error ".scalar @childs1." ne 0\n";
}
# check if nothing is lost
openDirPost($dir2);
@childs2 = $picLB->info('children');
warn "testSuite: *** we lost some pics ".scalar @childs2." ne ".scalar @childs."\n" if (@childs2 != @childs);
warn "testSuite: move ".scalar @childs2." = ".scalar @childs."?\n";
# link all pics dir2 -> dir1
print "testSuite: testing link all\n";
openDirPost($dir2);
@childs2 = $picLB->info('children');
selectAll($picLB);
@sel = $picLB->info('selection');
linkPics($dir1, @sel);
@childs2 = $picLB->info('children');
openDirPost($dir1);
@childs1 = $picLB->info('children');
warn "testSuite: link ".scalar @childs2." = ".scalar @childs1."?\n";
if (@childs2 != @childs1) {
warn "testSuite: *** link error ".scalar @childs2." ne ".scalar @childs1."\n";
}
# clean dir1
print "testSuite: cleaning dir\n";
selectAll($picLB);
deletePics($picLB, TRASH);
# test comments first pic
print "testSuite: testing comment single\n";
my $testcom = "xxxcccxxx1234ABC";
openDirPost($dir2);
@childs2 = $picLB->info('children');
selectThumb($picLB, $childs2[0]);
@sel = $picLB->info('selection');
addCommentToPic($testcom, $sel[0], TOUCH);
my $com = getComment($sel[0], LONG);
if ($com !~ m/.*$testcom.*/) {
warn "testSuite: *** comment $com does not contain $testcom\n";
}
# test comments join
print "testSuite: testing comments remove and join\n";
# add a comment to all pics
selectAll($picLB);
@sel = $picLB->info('selection');
addCommentToPic($testcom, $_, TOUCH) foreach (@sel);
# remove the comments from the last pic, so we have at least one example for no comment
selectThumb($picLB, $childs2[-1]);
removeAllComments(NO_ASK);
warn "testSuite: *** remove comment error\n" if (scalar getComments($childs2[-1]) != 0);
selectAll($picLB);
my %comNr; # hash: key:dpic value:nr of comments
foreach (@childs2) {
my @com = getComments($_);
$comNr{$_} = scalar @com;
}
joinComments(NO_ASK);
foreach (@childs2) {
my @com = getComments($_);
my $nr = $comNr{$_};
$nr = 1 if ($nr >= 2);
print $comNr{$_}." -> $nr act: ".scalar @com."($#com)\n" if $verbose;
warn "testSuite: *** comment join error\n" if ($nr != @com);
}
# test rotate
print "testSuite: testing rotate single\n";
selectThumb($picLB, $childs2[0]);
rotate(90);
rotate(270);
my $size = getFileSize($childs2[0]);
rotate(90);
rotate(270);
warn "testSuite: *** rotate single file mismatch!\n" if ($size != getFileSize($childs2[0]));
@childs2 = $picLB->info('children');
warn "testSuite: *** rotate all 90 ".scalar @childs2." ne ".scalar @childs."\n" if (@childs2 != @childs);
##################################################
print "testSuite: going back to start dir\n";
openDirPost($startdir);
changeDir($startdir); # linking files changes the cwd so we must move back before we try to remove the dirs
# end
$top->messageBox(-icon => 'info', -message => "test suite finished",
-title => "test suite", -type => 'OK');
# cleanup
foreach ($dir1, $dir2) {
print "testSuite: removing temp dir $_\n";
rmtree($_, 0, 1) if (-d $_); # dir, 0 = no message for each file, 1 = skip write protected files
}
}
##############################################################
# addToCachedPics - add a image (path and file name) to
# the cachedPics list
# if it is already in the list, move it to
# the end
##############################################################
sub addToCachedPics {
my $dpic = shift;
for my $t ( 0 .. $#cachedPics ) {
if ($cachedPics[$t] eq $dpic) {
splice @cachedPics, $t, 1; # remove it from list
last;
}
}
push @cachedPics, $dpic; # add item to the list
print "addToCachedPics: $dpic list:$#cachedPics\n" if $verbose;
checkCachedPics();
}
##############################################################
# checkCachedPics - check if the cachedPics list contains more
# images than allowed, remove the oldest
# if necessary
##############################################################
sub checkCachedPics {
# first check if all entries are valid pictures
my @rm_list;
for my $t ( 0 .. $#cachedPics ) {
push @rm_list, $t unless (-f $cachedPics[$t]);
}
# remove the invalid pictures
for my $t (reverse @rm_list) {
my $dpic = $cachedPics[$t];
next unless ($dpic);
print "checkCachedPics: removing not existing $dpic\n" if $verbose;
$c->delete('withtag', $dpic); # remove it from the canvas
$photos{$dpic}->delete if $photos{$dpic}; # delete the photo object
delete $photos{$dpic}; # delete the hash item
splice @cachedPics, $t, 1; # remove not existing pictures it from list
}
# short the list, if it is to long
while (@cachedPics > $config{MaxCachedPics}) {
if ($actpic eq $cachedPics[0]) {
print "this is the aktual pic - skipping!\n" if $verbose;
next;
}
my $dpic = shift @cachedPics; # get the oldest
print "checkCachedPics: removing old $dpic list:$#cachedPics\n" if $verbose;
$c->delete('withtag', $dpic); # remove it from the canvas
$photos{$dpic}->delete if $photos{$dpic}; # delete the photo object
delete $photos{$dpic}; # delete the hash item
}
#printlist(@cachedPics);
# just for safety
warn "*** checkCachedPics: photos hash contains more than MaxCachedPics pics (".scalar @cachedPics."(".scalar(keys(%photos)).") > ".$config{MaxCachedPics}.")" if (keys %photos > $config{MaxCachedPics});
}
##############################################################
# renameCachedPic - rename a list item
##############################################################
sub renameCachedPic($$) {
my $old = shift;
my $new = shift;
return unless (defined $photos{$old});
# open new photo object
$photos{$new} = $top->Photo;
$photos{$new}->blank;
$photos{$new}->copy($photos{$old});
$c->delete('withtag', $old); # remove it from the canvas
$photos{$old}->delete if $photos{$old}; # delete the photo object
delete $photos{$old}; # delete the hash item
my $xoffset = 0; my $yoffset = 0;
$xoffset = int(($c->width - $photos{$new}->width) /2) if ($c->width > $photos{$new}->width);
$yoffset = int(($c->height - $photos{$new}->height)/2) if ($c->height > $photos{$new}->height);
# hide all items on the canvas
canvasHide();
# insert pic
my $id = $c->createImage($xoffset, $yoffset, -image => $photos{$new}, -tag => ["pic", $new], -anchor => "nw");
bindItem($id);
for my $t ( 0 .. $#cachedPics ) {
if ($cachedPics[$t] eq $old) {
$cachedPics[$t] = $new; # rename list item
}
}
print "renameCachedPic: $old -> $new\n" if $verbose;
checkCachedPics();
}
##############################################################
# deleteCachedPics - delete all or just one element(s)
# and photo objects of the cachedPics list
##############################################################
sub deleteCachedPics {
my $dpic = shift; # optional, if available this picture will be removed from the cachedPics list,
# if not available all elements will be deleted
if (defined($dpic) and isInList($dpic, \@cachedPics)) {
print "deleteCachedPics: delete single pic $dpic (".scalar @cachedPics.")\n" if $verbose;
$c->delete('withtag', $dpic); # remove it from the canvas
$photos{$dpic}->delete if $photos{$dpic}; # delete the photo object
delete $photos{$dpic}; # delete the hash item
#printlist(@cachedPics);
my @list = @cachedPics; # copy list
@cachedPics = (); # empty list
foreach my $i (reverse 0 .. $#list) {
unless ($list[$i] eq $dpic) {
print "deleteCachedPics: adding $list[$i]\n" if $verbose;
push @cachedPics, $list[$i];
}
}
}
else {
print "deleteCachedPics: delete all (".scalar @cachedPics.")\n" if $verbose;
foreach (@cachedPics) {
$c->delete('withtag', $_); # remove it from the canvas
$photos{$_}->delete if $photos{$_}; # delete the photo object
delete $photos{$_}; # delete the hash item
print "deleteCachedPics: deleting pic $_\n" if $verbose;
}
@cachedPics = (); # empty list
}
}
##############################################################
# showSelectedPic - displays the original picture of the
# selected thumbnail
##############################################################
sub showSelectedPic {
return if (stillBusy()); # block, until last picture is loaded
my @sellist = $picLB->info('selection');
# show index number in window
showNrOf();
return unless ($picLB->info('children'));
return if (@sellist > 1);
showPic($sellist[0]);
}
##############################################################
# showNrOf
##############################################################
sub showNrOf {
my @pics = $picLB->info('children');
my @sellist = $picLB->info('selection');
my $index = 0;
my $size = 0;
my $sizeStr = "";
if (@sellist >= 1) { # selection available
foreach (@pics) {
$index++;
last if ($_ eq $sellist[0]);
}
}
if (@sellist >= 2) { # more than one selected
foreach (@sellist) {
$size += getFileSize($_, NO_FORMAT);
}
$sizeStr = computeUnit($size) if $size;
$sizeStr = ", $sizeStr" if ($sizeStr ne "");
}
# show index number in window
$nrof = "$index/".@pics." (".@sellist."$sizeStr)";
}
##############################################################
# computeUnit - do a byte to kB or MB conversion
##############################################################
sub computeUnit {
my $size = shift;
my $sizeStr;
$size = int($size/1024); # KiloByte
if ($size > 1024) { # MegaByte
if ($size > 1024*1024) { # GigaByte
if ($size < (1024*1024*100)) { # less than 100GB
$size = int($size*10/(1024*1024))/10; # e.g. 6.9GB or 23.4GB
}
else {
$size = int($size/(1024*1024)); # e.g. 104GB
}
$sizeStr = "${size}GB";
}
else {
if ($size < (1024*100)) { # less than 100MB
$size = int($size*10/1024)/10; # e.g. 6.9MB or 23.4MB
}
else {
$size = int($size/1024); # e.g. 104MB
}
$sizeStr = "${size}MB";
}
}
else {
$sizeStr = "${size}kB";
}
return $sizeStr;
}
##############################################################
# showPic - displays the picture with the given index $i
##############################################################
sub showPic {
my $dpic = shift;
my @pics = $picLB->info('children');
return if ((!defined $dpic) or (!@pics));
if (@pics < 1) {
warn "no pictures in picLB!" if $verbose;
$userinfo = "no JPEG pictures in dir $actdir"; $userInfoL->update;
return;
}
$actpic = $dpic;
return if ((!defined $actpic) or ($actpic eq ""));
setTitle();
# show EXIF info and comment
showImageInfo($dpic);
my $pic = basename($dpic);
# select thumb in list even if picture is not shown (see "ShowPic" below)
selectThumb($picLB, $dpic);
return if (!$config{ShowPic});
# we are still not able to display RAW pictures (nefextract may be a solution for NEFs)
return if ($dpic =~ m/.*\.(nef)|(raw)$/i);
# do not show a picture if there is no picture frame
if (!$config{ShowPicFrame}) {
$userinfo = "$pic not displayed - no picture frame (hint: try F9 or F11)"; $userInfoL->update;
return;
}
# do not show a picture if the frame is very small
if ($mainF->width < 200) {
$userinfo = "$pic not displayed (picture frame too small)"; $userInfoL->update;
return;
}
$showPicInAction = 1;
$balloon->detach($c); # clear the balloon info for the actual pic (right frame of main window)
$userinfo = "loading $pic ..."; $userInfoL->update;
my @ids = $c->find('withtag', $dpic);
my $id;
if (@ids > 0) { # pic is already loaded
print "showPic: using cached pic $dpic\n" if $verbose;
# hide all items on the canvas
canvasHide();
$c->itemconfigure($ids[0], -state => 'normal');
$id = $ids[0];
$top->update();
}
else {
print "showPic: loading pic $dpic\n" if $verbose;
if (-f $dpic) { # load pic
$top->Busy();
#my $dpic_jpg = "";
#if ($dpic =~ m/(.*)\.nef$/i) {
# $dpic_jpg = $1.".jpg";
# print "$dpic is a NEF -> $dpic_jpg\n";
# my $command = "nefextract \"$dpic\" > \"$dpic_jpg\" ";
# execute($command);
#}
#if (-f $dpic_jpg) {
# load pic
# $photos{$dpic} = $top->Photo(-file => $dpic_jpg, -gamma => $config{Gamma});
# zoom pic
# autoZoom(\$photos{$dpic}, $dpic_jpg, $c->width, $c->height);
#}
#else {
# load pic
$photos{$dpic} = $top->Photo(-file => $dpic, -gamma => $config{Gamma});
# zoom pic
autoZoom(\$photos{$dpic}, $dpic, $c->width, $c->height) if (exists $photos{$dpic} and $config{AutoZoom});
#}
if (exists $photos{$dpic}) {
# center pic in canvas, only when it's smaller
my $xoffset = 0; my $yoffset = 0;
$xoffset = int(($c->width - $photos{$dpic}->width) /2) if ($c->width > $photos{$dpic}->width);
$yoffset = int(($c->height - $photos{$dpic}->height)/2) if ($c->height > $photos{$dpic}->height);
# hide all items on the canvas
canvasHide();
# insert pic
$id = $c->createImage($xoffset, $yoffset, -image => $photos{$dpic}, -tag => ['pic',"$dpic"], -anchor => 'nw');
bindItem($id);
addToCachedPics($dpic);
}
else {
$userinfo = "error loading $actpic"; $userInfoL->update;
warn "showPic: error loading $actpic!" if $verbose;
}
$top->Unbusy();
addToCachedPics($dpic);
}
else {
canvasHide();
warn "showPic: error $actpic not available!" if $verbose;
}
}
# show zoom info
showZoomInfo($dpic, $id);
showImageInfoCanvas($dpic);
increasePicPopularity($dpic);
updateOneRow($dpic, $picLB) if ($config{trackPopularity});
if ($config{ShowPicInfo}) {
# balloon info for displayed picture (right frame of the main window)
my $balloonmsg = makeBalloonMsg($dpic);
# bind the balloon to the canvas
$balloon->attach($c->Subwidget('canvas'), -balloonposition => 'mouse', -msg => {"pic" => $balloonmsg} );
}
else { $balloon->detach($c->Subwidget('canvas')); }
$userinfo = "$pic"; $userInfoL->update;
# adjust the canvas scrollbars
my ($x1, $y1, $x2, $y2) = $c->bbox($id);
if (defined($x1) and defined($x2) and defined($y1) and defined($y2)) {
$c->configure(-scrollregion => [0, 0, $x2-$x1, $y2-$y1]);
}
$top->Unbusy();
$showPicInAction = 0;
}
##############################################################
# canvasHide
##############################################################
sub canvasHide {
# hide all items on the canvas
$c->update();
#$c->itemconfigure('all', -state => 'hidden');
#$c->itemconfigure('withtag', 'pic', -state => 'hidden');
foreach ($c->find('withtag', 'pic')) {
$c->itemconfigure($_, -state => 'hidden');
}
}
##############################################################
# setTitle - set the window title and the userinfo to the
# actual pic
##############################################################
sub setTitle {
my $title = "";
$title = basename($actpic)." - " if ((defined $actpic) and ($actpic ne "") and (-f $actpic));
$title .= "MaPiVi $version";
# just a little gag
my (undef,undef,undef,$d,$m,$y,undef,undef, undef,undef) = localtime(time());
$y += 1900; $m++;
$title .= " - Happy new year $y!" if ($d == 1 and $m == 1);
$top->title($title);
$userinfo = basename($actpic); $userInfoL->update;
}
##############################################################
# increasePicPopularity
##############################################################
sub increasePicPopularity {
return unless ($config{trackPopularity});
my $dpic = shift;
if (defined $searchDB{$dpic}{POP}) {
$searchDB{$dpic}{POP}++;
}
else {
$searchDB{$dpic}{POP} = 1;
}
print "$dpic has been shown $searchDB{$dpic}{POP} times.\n" if $verbose;
}
##############################################################
# showMostPopularPics - display the Top 100 of the best rated pics
##############################################################
sub showMostPopularPics {
# open window
my $win = $top->Toplevel();
$win->title('Best rated pictures - TOP 100');
$win->iconimage($mapiviicon) if $mapiviicon;
my $text = "searching ...";
$win->Label(-textvariable => \$text)->pack(-expand => 0, -fill => 'x');
my $tlb = $win->Scrolled("HList",
-header => 1,
-separator => ';', # todo here we hope that ; will never be in a folder or file name
-pady => 0,
-columns => 3,
-scrollbars => 'osoe',
-selectmode => 'extended',
-background => $config{ColorBG}, #8fa8bf
-width => 100,
-height => 60,
)->pack(-expand => 1, -fill => "both");
bindMouseWheel($tlb);
$tlb->header('create', 0, -text => 'Place', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$tlb->header('create', 1, -text => 'Thumbnail', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
$tlb->header('create', 2, -text => 'Info', -headerbackground => $config{ColorEntry}, -borderwidth => $config{Borderwidth});
my $butF = $win->Frame()->pack(-fill =>'x', -padx => 3, -pady => 3);
my $Xbut = $butF->Button(-text => 'Close',
-command => sub {
$win->destroy();
})->pack(-side => 'left', -expand => 1, -fill => 'x', -padx => 3, -pady => 3);
$win->bind('', sub { $Xbut->invoke; });
$win->bind('', sub { $Xbut->invoke; });
$win->bind('', sub { selectAll($tlb); } );
$win->bind('', sub {
return if (!$tlb->info('children'));
my $dpic = getNearestItem($tlb);
showPicInOwnWin($dpic); });
$win->Popup(-popover => 'cursor');
repositionWindow($win);
my @populatity_list = sort {
my $urga = 0;
$urga = $searchDB{$a}{URG} if (defined $searchDB{$a}{URG});
$urga = 9 if ($urga == 0);
my $urgb = 0;
$urgb = $searchDB{$b}{URG} if (defined $searchDB{$b}{URG});
$urgb = 9 if ($urgb == 0);
$urga <=> $urgb;
} keys %searchDB;
# my @populatity_list = sort {
# my $popa = 0;
# $popa = $searchDB{$a}{POP} if (defined $searchDB{$a}{POP});
# my $popb = 0;
# $popb = $searchDB{$b}{POP} if (defined $searchDB{$b}{POP});
# $popb <=> $popa;
# } keys %searchDB;
$win->update();
$text = "loading ...";
my %thumbs;
foreach my $nr (0 .. 99) {
my $dpic = $populatity_list[$nr];
my $num = $nr + 1;
my $pic = basename($dpic);
my $path = dirname($dpic);
my $thumb = getThumbFileName($dpic);
$tlb->add($dpic);
$text = "loading $num ...";
$tlb->itemCreate($dpic, 0, -text => $num, -style => $comS);
if (-f $thumb) {
$thumbs{$thumb} = $top->Photo(-file => $thumb, -gamma => $config{Gamma});
if (defined $thumbs{$thumb}) {
$tlb->itemCreate($dpic, 1, -image => $thumbs{$thumb}, -itemtype => 'imagetext', -style => $thumbS);
}
}
my $pop = 0;
$pop = $searchDB{$dpic}{POP} if (defined $searchDB{$dpic}{POP});
my $urg = 0;
$urg = $searchDB{$dpic}{URG} if (defined $searchDB{$dpic}{URG});
$tlb->itemCreate($dpic, 2, -text => "$pic\n$path\nRating: $urg\n(viewed $pop times)", -style => $fileS);
}
$text = "Ready";
$win->waitWindow;
foreach (keys %thumbs) { $thumbs{$_}->delete if (defined $thumbs{$_}); } # free memory
}
##############################################################
# stopWatchStart
##############################################################
my $stopWatchTime;
sub stopWatchStart {
$stopWatchTime = Tk::timeofday();
}
##############################################################
# stopWatchStop
##############################################################
sub stopWatchStop {
my $text = '';
$text = shift;
printf "stopWatch: %.5f secs ($text)\n", (Tk::timeofday() - $stopWatchTime);
}
##############################################################
# selectThumb
##############################################################
sub selectThumb {
my $lb = shift;
my $index = shift;
$lb->selectionClear();
return unless (defined $index);
unless ($lb->info("exists", $index)) {
warn "selectThumb: $index is not availabel!" if $verbose;
return;
}
$lb->selectionSet($index);
$lb->anchorSet($index);
$lb->see($index);
$lb->update;
if ($config{CenterThumb}) {
my $next = $lb->info('next', $index);
my $prev = $lb->info('prev', $index);
$lb->see($prev) if ($prev);
$lb->update;
$lb->see($next) if ($next);
}
showNrOf();
}
##############################################################
# selectAll
##############################################################
sub selectAll {
my $lb = shift;
my @pics = $lb->info('children');
return unless (@pics);
$lb->selectionSet($pics[0], $pics[-1]);
showNrOf() if ($lb == $picLB);
}
##############################################################
# selectBak
##############################################################
sub selectBak {
$picLB->selectionClear();
my @pics = $picLB->info('children');
foreach (@pics) {
if ($_ =~ m/.*-bak\.jp(g|eg)$/i) {
$picLB->selectionSet($_);
}
}
showNrOf();
if (!defined $picLB->info('selection')) {
$top->messageBox(-icon => 'info', -message => "Nothing selected!\nThere are no file names matching the pattern: \"*-bak.jp(e)g\".",
-title => "No backups", -type => 'OK');
}
}
##############################################################
# selectInv
##############################################################
sub selectInv {
my @sellist = $picLB->info('selection');
$picLB->selectionClear();
my @pics = $picLB->info('children');
foreach (@pics) {
if (!isInList($_, \@sellist)) {
$picLB->selectionSet($_);
}
}
showNrOf();
}
##############################################################
# getThumbFileName - return the location of the corresponding
# thumbnail file (full path)
##############################################################
sub getThumbFileName($) {
my $dpic = shift;
my $dir = dirname( $dpic);
my $pic = basename($dpic);
# normalize the path
$dir =~ s!\\!\/!g; # replace Windows path delimiter with UNIX style \ -> /
#$dir =~ s/\\/\//g; # replace Windows path delimiter with UNIX style \ -> /
if (defined $thumbDBhash{$dir}) {
return $thumbDBhash{$dir}."/$pic";
}
#$dir =~ s!^([a-z]:)/!$1\\!i if $EvilOS; # replace E:/ with E:\ else Win will fire an error message that E: is not mounted
my @thumbDirNoNos = qw( /mnt/cdrom /mnt/dvd ); # todo
my $thumbDB = "$configdir/thumbDB";
my $thumbdir = "$dir/$thumbdirname";
# central thumbDB
if (($config{CentralThumbDB}) or # config option set to central thumbdir
(!-d $dir) or # if the folder is not mounted/available
((-d $thumbdir) and (!-w $thumbdir)) or # or .thumbdir exists but is write protected
(-f "$dir/.nothumbs") or # or file .nothumbs is found
((!-w $dir) and (!-d $thumbdir))) { # or dir is write protected but there is no .thumbdir
if ($EvilOS) { # in windows we have to get rid of the device names (C:\ d:/ etc.)
print "getThumbFileName: $dir " if $verbose;
$dir =~ s!^[a-z]:/!!i; # for slash
$dir =~ s!^[a-z]:\\!!i; # for backslash
print "-> $dir\n" if $verbose;
}
else { # for other OS (Linux etc.) we cut off special parts
foreach (@thumbDirNoNos) {
if ($dir =~ /^$_/) {
print "getThumbFileName: $dir " if $verbose;
$dir =~ s/^$_//; # cut off unwanted dir part e.g. /mnt/cdrom
print "-> $dir\n" if $verbose;
last; # one is enough
}
}
}
$thumbdir = "$thumbDB/$dir";
$thumbdir =~ s/\/+/\//g; # replace multiple slashes with one // -> /
}
$thumbDBhash{$dir} = $thumbdir; # store for quicker response
my $thumb = "$thumbdir/$pic"; # add the pic name
return $thumb;
}
##############################################################
# generateThumbs - generate thumbnails for each picture
# remove outdated thumbs
##############################################################
sub generateThumbs {
print "generateThumbs\n" if $verbose;
my $ask = shift; # ASK = ask the user befor making a thumbnail dir, NO_ASK
my $show = shift; # SHOW = show the generated thumbs in $picLB, NO_SHOW
my $getpics = shift; # optional bool, get the pics with getpics not from the listbox
my ($pic, $dpic, $lpic, $thumb, $string);
my $nrofprocs = 0;
my @pics;
if ((defined $getpics) and ($getpics == 1)) {
@pics = getPics($actdir, WITH_PATH);
# if the thumbs won't be shown, no need to sort
sortPics($config{SortBy}, $config{SortReverse}, \@pics) if ($show == SHOW);
}
else {
@pics = $picLB->info('children'); # this should be much faster than getPics($actdir);
}
# remove outdated thumbs and exif data
cleanSubDirs($actdir);
return if (@pics <= 0);
my $thumbdir = dirname(getThumbFileName("$actdir/dummy.jpg"));
return if (!makeDir("$thumbdir", $ask));
# if thumb dir is not writeable
if (!-w $thumbdir) {
$top->messageBox(-icon => 'warning', -message => "$thumbdir is not writeable, so mapivi is not able to generate thumbnails", -title => "No write access", -type => 'OK');
return;
}
# look what's to do
$nrToConvert = 0;
foreach $lpic (@pics) {
$dpic = $lpic;
next if (!getRealFile(\$dpic));
$thumb = getThumbFileName($lpic);
if (aNewerThanb($dpic, $thumb)) {
$nrToConvert++; # count the nr of thumbs to generate/refresh
}
}
return if ($nrToConvert == 0); # nothing to do
# ask the user, if he wants to update the thumbs now
if ($config{AskGenerateThumb}) {
my $rc = checkDialog("Generate thumbnails?",
"There are $nrToConvert thumbnails to generate.\nShall I do this now?",
\$config{AskGenerateThumb},
"ask every time",
"",
'OK', 'Cancel');
return if ($rc ne 'OK');
}
my $pre = makeCommandString(\%config);
# generate thumbs
my $i = 0; # pic list index
foreach $lpic (@pics) {
$dpic = $lpic;
next if (!getRealFile(\$dpic));
$pic = basename($dpic);
$thumb = getThumbFileName($lpic);
if (!aNewerThanb($dpic, $thumb)) {
$i++;
next;
}
if (-z $dpic) { # file is empty (size zero)
$top->messageBox(-icon => 'warning', -message => "$pic is an empty file. Skipping.",
-title => 'Error', -type => 'OK');
$i++;
next;
}
removeFile($thumb);
# try to get the EXIF thumbnail
if ($config{UseEXIFThumb}) {
my $errors = "";
extractThumb($dpic, $thumb, \$errors);
}
# found a EXIF thumbnail -> show it
if (-f $thumb) {
# here we increase the process counter, just because ...
proccount(1);
# ... in updateOneThumb it will be decreased
updateOneThumb($thumb, $lpic, $show);
$i++;
next;
}
# thumbnail is always in JPEG format, but the suffix of the picture is not changed
$string = "$pre \"$dpic\" JPEG:\"$thumb\" ";
print "command: $string\n" if $verbose;
if (!$EvilOS) { # running on a "good" OS like Linux we can use background processes :)
# start a background process for each pic
my $fh = Tk::IO->new(-linecommand => \&nop, -childcommand => [\&updateOneThumb, $thumb, $dpic, $show]);
#$hiresstart = [gettimeofday]; # hires - measure the loading time
$fh->exec($string);
proccount(1); # count processes
$nrofprocs = proccount();
if ($nrofprocs >= $config{MaxProcs}) {
# waiting for current process to finish
$fh->wait();
}
}
else { # we run on a evil OS like windows - no threading :(
proccount(1); # count processes
(system "$string") == 0 or warn "$string failed: $!";
updateOneThumb($thumb, $lpic, $show);
}
$i++;
}
print "...done\n" if $verbose;
}
##############################################################
# generateOneThumb
##############################################################
sub generateOneThumb {
my $dpic = shift;
my $pre = makeCommandString(\%config);
my $thumb = getThumbFileName($dpic);
my $string = "$pre \"$dpic\" JPEG:\"$thumb\" ";
execute($string);
}
##############################################################
# cleanSubDirs - remove thumbs and exif infos without a
# corresponding picture
##############################################################
sub cleanSubDirs {
my $dir = shift;
my $thumbdir = dirname(getThumbFileName("$dir/dummy.jpg"));
my $exifdir = "$dir/$exifdirname";
my $pic;
return if (!-d $dir);
# clean thumb and exif dir
foreach my $subdir ($thumbdir, $exifdir) {
if (-d $subdir) {
my @subpics = getPics($subdir, JUST_FILE); # no sort needed
foreach $pic (@subpics) {
if (!-f "$dir/$pic") {
removeFile("$subdir/$pic");
}
}
}
}
}
##############################################################
# makeCommandString - build up the command string for the
# generation of thumbnails depending on
# the settings in the given config hash
##############################################################
sub makeCommandString {
my $conf = shift;
my $pre = "";
$pre = " montage -size $conf->{'ThumbSize'}x$conf->{'ThumbSize'} -geometry $conf->{'ThumbSize'}x$conf->{'ThumbSize'}+$conf->{'ThumbBorder'}+$conf->{'ThumbBorder'} -quality $conf->{'ThumbQuality'} -background \"$conf->{'ColorThumbBG'}\" ";
#$pre .= "-frame $conf->{'ThumbBorder'}x$conf->{'ThumbBorder'} " if $conf->{UseThumbFrame};
$pre .= "-shadow " if $conf->{UseThumbShadow};
# ! Sharpen is the most time consuming option, when building thumbnails!
if ($conf->{ThumbSharpen} > 0) {
$pre .= "-sharpen $conf->{'ThumbSharpen'} " # the higher the value the slower
}
return $pre;
}
##############################################################
# light_table_open_window
##############################################################
sub light_table_open_window {
if (Exists($ltw)) {
$ltw->deiconify;
$ltw->raise;
$ltw->focus;
return;
}
# open window
$ltw = $top->Toplevel();
$ltw->title('Mapivi Light table');
$ltw->iconimage($mapiviicon) if $mapiviicon;
$ltw->bind('', sub {light_table_close(ASK);});
$ltw->bind('', sub {light_table_close(ASK);});
$ltw->bind('', sub {light_table_select_all();});
# window resize event
$ltw->bind("" => sub {
# if there is a timer running cancel it
$ltw->{LAST_RESIZE_TIMER_MH}->cancel if ($ltw->{LAST_RESIZE_TIMER_MH});
$ltw->{LAST_RESIZE_MH} = Tk::timeofday;
# after 200 msec we reorder the thumbnails according to the new geometry to give a preview
$ltw->{LAST_RESIZE_TIMER_MH} = $ltw->after(200, sub {
light_table_reorder();
});
});
# call quitMain when the window is closed by the window manager
$ltw->protocol("WM_DELETE_WINDOW" => sub { light_table_close(ASK); });
$ltw->{menu} = $ltw->Menu;
$ltw->configure(-menu => $ltw->{menu});
my $file_menu = $ltw->{menu}->cascade(-label => "Slideshow");
$file_menu->cget(-menu)->configure(-title => "Slideshow menu");
#$file_menu->command(-label => "Rename pics ...", -command => sub { rename_pics(); });
$file_menu->command(-label => "Open ...", -command => sub { light_table_open(RESET); });
$file_menu->command(-label => "Show selected pictures", -command => sub { my @sel = getSelection($ltw->{canvas}); show_multiple_pics(\@sel, 0);});
$file_menu->command(-label => "Add list ...", -command => sub { light_table_open(ADD); });
$file_menu->command(-label => "Save", -command => sub {
if ((defined $ltw->{file}) and (-f $ltw->{file})) {
light_table_save($ltw->{file});
}
});
$file_menu->command(-label => "Save as ...", -command => sub { light_table_save_as(); });
$file_menu->command(-label => "Clear", -command => sub { undef @light_table_list; light_table_clear(); });
$file_menu->command(-label => "Update", -command => sub { light_table_reorder(); });
$file_menu->command(-label => "Close", -command => sub { light_table_close(NO_ASK); });
my $sort_menu = $ltw->{menu}->cascade(-label => 'Sort');
$sort_menu->command(-label => 'file name (A - Z)',
-command => sub {
$ltw->Busy;
sortPics('name', 0, \@light_table_list);
$ltw->Unbusy;
light_table_reorder();
});
$sort_menu->command(-label => 'file name (Z - A)',
-command => sub {
$ltw->Busy;
sortPics('name', 1, \@light_table_list);
$ltw->Unbusy;
light_table_reorder();
});
$sort_menu->command(-label => 'EXIF date (new first)',
-command => sub {
$ltw->Busy;
sortPics('exifdate', 0, \@light_table_list);
$ltw->Unbusy;
light_table_reorder();
});
$sort_menu->command(-label => 'EXIF date (old first)',
-command => sub {
$ltw->Busy;
sortPics('exifdate', 1, \@light_table_list);
$ltw->Unbusy;
light_table_reorder();
});
$sort_menu->command(-label => 'IPTC urgency/rating (high first)',
-command => sub {
$ltw->Busy;
sortPics('urgency', 0, \@light_table_list);
$ltw->Unbusy;
light_table_reorder();
});
$sort_menu->command(-label => 'IPTC urgency (low first)',
-command => sub {
$ltw->Busy;
sortPics('urgency', 1, \@light_table_list);
$ltw->Unbusy;
light_table_reorder();
});
my $opt_menu = $ltw->{menu}->cascade(-label => "Options");
$ltw->{show_balloon} = 1; # todo: move to config hash
$ltw->{show_status} = 1; # todo: move to config hash
$opt_menu->checkbutton(-label => "show balloon info", -variable => \$ltw->{show_balloon}, -command => sub { light_table_balloon();});
$opt_menu->checkbutton(-label => "show status line", -variable => \$ltw->{show_status}, -command => sub { light_table_status();});
$ltw->{status_line} = $ltw->Label(-textvariable => \$ltw->{label});
$ltw->{frame} = $ltw->Scrolled('Canvas',
-scrollbars => 'oe',
-confine => 1,
-xscrollincrement => 117,
-yscrollincrement => 117,
-height => 570,
-width => 370,
-relief => 'flat',
-borderwidth => 0,
-highlightthickness => 0,
)->pack(-fill =>'both', -expand => 1, -padx => 3, -pady => 3);
#bindMouseWheel($ltw->{frame});
light_table_status();
$ltw->{canvas} = $ltw->{frame}->Subwidget('canvas');
my $context_menu = $ltw->Menu(-title => "Context Menu");
$ltw->bind('', sub {
$context_menu->Popup(-popover => "cursor", -popanchor => "nw");
} );
$ltw->bind('', sub {light_table_delete(); });
$context_menu->command(-image => compound_menu($top, 'move selected to top', 'go-first.png'), -command => sub { light_table_shift('top'); });
$context_menu->command(-image => compound_menu($top, 'move selected to bottom', 'go-first.png'), -command => sub { light_table_shift('bottom'); });
$context_menu->separator;
$context_menu->command(-label => 'remove selected from light table',
-accelerator => "",
-command => sub { light_table_delete(); });
$context_menu->command(-label => 'copy and rename selected',
-command => sub { light_table_copy_rename(); });
$context_menu->command(-image => compound_menu($top, 'copy to print ...', 'printer.png'), -command => sub { copyToPrint($ltw->{canvas}); });
$context_menu->separator;
$context_menu->command(-label => 'montage/index print ...',
-command => sub { my @pics = getSelection($ltw->{canvas}); indexPrint(\@pics); });
$context_menu->separator;
$context_menu->command(-image => compound_menu($top, 'open picture in external viewer', 'image-x-generic.png'),
-command => sub { openPicInViewer($ltw->{canvas}); });
#$context_menu->command(-label => 'Show in external viewer',
# -command => sub { openPicInViewer($ltw);(); });
#$context_menu->command(-label => 'Add pics', -command => sub { add_pics(); });
$ltw->{thumb_distance} = 5; # in pixels
$ltw->{thumb_size} = 108; # in pixels todo
$ltw->Popup;
checkGeometry(\$config{LtwGeometry});
$ltw->geometry($config{LtwGeometry});
}
##############################################################
# light_table_status
##############################################################
sub light_table_status {
if ($ltw->{show_status}) {
$ltw->{status_line}->pack(-before => $ltw->{frame} ,-fill => 'x');
}
else {
$ltw->{status_line}->packForget;
}
}
##############################################################
# light_table_open
##############################################################
sub light_table_open {
my $mode = shift; # must be ADD or RESET
my $text = 'Open';
$text = 'Add to' if ($mode == ADD);
my $fileSelect = $ltw->FileSelect(-title => "$text slideshow",
-initialfile => "slideshow.sld",
-create => 0,
-directory => $config{SlideShowDir},
-width => 30, -height => 30);
my $file = $fileSelect->Show;
return unless (defined $file);
return if ($file eq '');
return unless (-f $file);
unless (-T $file) {
$ltw->messageBox(-icon => 'warning',
-message => 'Please select a valid slideshow (ASCII) file.',
-title => 'Wrong file type',
-type => 'OK');
return;
}
$config{SlideShowDir} = dirname($file) if (-d dirname($file));
my $fh;
if (!open($fh, "<$file")) {
warn "open slideshow: Couldn't open $file: $!";
return;
}
if ($mode == RESET) {
# reset list and clean up canvas
undef @light_table_list;
light_table_clear();
}
my @pics;
my $pic_number = 0;
my $errors = '';
my $double = '';
my $double_count = 0;
while (<$fh>) {
chomp; # no newline
if ($_ =~ m|\"(.*)\"|) { # match just quoted lines
$pic_number++;
my $dpic;
# $dpic may also have a relative path!
if ($filespecAvail) {
$dpic = File::Spec->rel2abs($1, dirname($file));
}
print "found $dpic - " if $verbose;
if (-f $dpic) {
print "file\n" if $verbose;
if (isInList($dpic, \@light_table_list)) {
$double .= "$dpic\n";
$double_count++;
}
else {
push @pics, $dpic;
}
}
else {
print "no file\n" if $verbose;
$errors .= "error: $dpic not found! (number: $pic_number)\n";
}
}
else { $errors .= "info: ignoring line $_\n"; }
}
close $fh;
$errors .= "\nadded ".scalar @pics." of $pic_number pictures!\n";
# add pics to end of global list
push @light_table_list, @pics;
# add new pictures to light table
light_table_add_list(\@pics);
$ltw->{label} = scalar @light_table_list.' pictures';
if (($errors ne '') or ($double_count > 0)) {
my $text;
$text = "These $double_count pictures are already in the slideshow and have been skipped:\n$double\n\n" if ($double_count > 0);
$text .= "Information and errors while reading $file:\n$errors" if ($errors ne '');
showText("Information and Errors", $text, NO_WAIT);
}
if ($mode == RESET) {
$ltw->title('Light table: '.basename($file));
$ltw->{file} = $file;
}
}
##############################################################
# light_table_save_as
##############################################################
sub light_table_save_as {
my $fileSelect = $ltw->FileSelect(-title => "Save as (use .sld suffix)",
-initialfile => "slideshow.sld",
-create => 1,
-directory => $config{SlideShowDir},
-width => 30, -height => 30);
my $file = $fileSelect->Show;
return unless (defined $file);
return if ($file eq '');
$config{SlideShowDir} = dirname($file) if (-d dirname($file));
if (-f $file) {
my $rc = $ltw->messageBox(-icon => 'warning', -message => "Slideshow file $file exist.\nOk to overwrite?",
-title => "Overwrite slideshow?", -type => "OKCancel");
return if ($rc !~ m/Ok/i);
}
my $rc = 0;
# open window
my $win = $top->Toplevel();
$win->title('Save slideshow options');
$win->iconimage($mapiviicon) if $mapiviicon;
$win->Checkbutton(-variable => \$config{relative_path}, -text => "Use relative file paths")->pack(-anchor=>'w');
$win->Checkbutton(-variable => \$config{xnview_loop}, -text => "Loop slide show")->pack(-anchor=>'w');
$win->Checkbutton(-variable => \$config{xnview_fullscreen}, -text => "Full screen display")->pack(-anchor=>'w');
$win->Checkbutton(-variable => \$config{xnview_title}, -text => "Show title bar")->pack(-anchor=>'w');
$win->Checkbutton(-variable => \$config{xnview_filename}, -text => "Show file name")->pack(-anchor=>'w');
$win->Checkbutton(-variable => \$config{xnview_mouse}, -text => "Hide mouse")->pack(-anchor=>'w');
$win->Checkbutton(-variable => \$config{xnview_random}, -text => "Random order")->pack(-anchor=>'w');
my $but_frame =
$win->Frame()->pack(-fill =>'x');
my $ok_but =
$but_frame->Button(-text => 'OK',
-command => sub {
$rc = 1;
$win->withdraw();
$win->destroy();
})->pack(-side => 'left', -expand => 1, -fill => 'x', -padx => 2, -pady => 3);
my $x_but =
$but_frame->Button(-text => 'Cancel',
-command => sub {
$win->withdraw();
$win->destroy();
})->pack(-side => 'left', -expand => 1, -fill => 'x', -padx => 2, -pady => 3);
$win->Popup(-popover => 'cursor');
repositionWindow($win);
$win->waitWindow;
return unless ($rc);
light_table_save($file);
}
##############################################################
# light_table_save
##############################################################
sub light_table_save {
my $file = shift;
print "writing slideshow to $file\n" if $verbose;
my $fh;
if (!open($fh, ">$file")) {
print "could not open $file for write access!: $!\n";
return;
}
my $xnview_slideshow_header =
'# Slide Show Sequence
View = 1
CenterWindow = 0
ReadErrors = 1
BackgroundColor = 0';
print $fh "$xnview_slideshow_header\n";
print $fh "Loop = $config{xnview_loop}\n";
print $fh "FullScreen = $config{xnview_fullscreen}\n";
print $fh "TitleBar = $config{xnview_title}\n";
print $fh "HideMouse = $config{xnview_mouse}\n";
print $fh "RandomOrder = $config{xnview_random}\n";
print $fh "ShowFilename = $config{xnview_filename}\n";
foreach my $dpic (@light_table_list) {
my $rel = $dpic;
if ($filespecAvail and $config{relative_path}) {
$rel = File::Spec->abs2rel($dpic, dirname($file));
}
print $fh "\"$rel\"\n";
print "\"$rel\"\n" if $verbose;
}
close $fh;
$ltw->{label} = "wrote slideshow: ".basename($file);
$ltw->title('Light table: '.basename($file));
$ltw->{file} = $file;
}
##############################################################
# light_table_close
##############################################################
sub light_table_close {
my $ask = shift;
if ((defined $ask) and ($ask == ASK)) {
my $rc = $ltw->messageBox(-icon => 'question',
-message => "The slideshow will not be saved automatically.\nOK to close light table?",
-title => "Close light table?", -type => 'OKCancel');
return unless ($rc =~ m/Ok/i);
}
undef @light_table_list;
light_table_clear();
$config{LtwGeometry} = $ltw->geometry;
$ltw->destroy();
}
##############################################################
# light_table_clear
##############################################################
sub light_table_clear {
$ltw->{canvas}->delete('all');
# delete all photo objects (thumbnnails)
foreach (keys %light_table_thumbs) {
$light_table_thumbs{$_}->delete if (defined $light_table_thumbs{$_}); # delete photo object
delete $light_table_thumbs{$_}; # delete hash entry
}
$ltw->{label} = scalar @light_table_list.' pictures';
$ltw->title('Mapivi Light table');
}
##############################################################
# light_table_add_from_lb
##############################################################
sub light_table_add_from_lb {
my $lb = shift;
my @sellist = $lb->info('selection');
light_table_add(\@sellist);
}
##############################################################
# light_table_add
##############################################################
sub light_table_add {
my $list_ref = shift;
return unless checkSelection($top, 1, 0, $list_ref);
# open light table window if needed
light_table_open_window() unless (Exists($ltw));
my $error = '';
my $error_count = 0;
my @list;
# check for double pictures (not yet supported)
foreach my $dpic (@$list_ref) {
if (isInList($dpic, \@light_table_list)) {
$error .= "$dpic\n";
$error_count++;
}
else {
push @list, $dpic;
}
}
if ($error ne '') {
$error = "These $error_count pictures are already in the slideshow and have been skipped:\n\n".$error;
showText('Ignored pictures', $error, NO_WAIT);
}
return unless (@list);
# add selected pictures at end of slideshow list
push @light_table_list, @list;
# add selected pictures to light table
light_table_add_list(\@list);
}
##############################################################
# light_table_add_list
##############################################################
sub light_table_add_list {
my $list_ref = shift; # list of JPEG pics with full path
return if (@$list_ref < 1); # no pics to add
# get thumb size info from first thumbnail in list (this may be wrong, as others may be bigger)
my ($tw, $th) = getSize(getThumbFileName($$list_ref[0]));
$ltw->{thumb_size} = $tw if ($tw > 1);
my $i = 0;
my $pw = progressWinInit($ltw, "Add pictures to light table");
foreach my $dpic (@$list_ref) {
my $thumb = getThumbFileName($dpic);
last if progressWinCheck($pw);
$i++;
progressWinUpdate($pw, "adding picture ($i/".scalar @$list_ref.") ...", $i, scalar @$list_ref);
if (-f $thumb) {
# save all thumb photo objects in global hash %light_table_thumbs
# to delete them later
$light_table_thumbs{$dpic} = $ltw->Photo(-file => $thumb);
}
else {
if ($config{UseDefaultThumb} and $defaultthumbP) {
$light_table_thumbs{$dpic} = $defaultthumbP;
}
}
if ($light_table_thumbs{$dpic}) {
my $id = $ltw->{canvas}->createImage(0, 0,
-image => $light_table_thumbs{$dpic},
-tag => ['THUMB_MH',$dpic],
-anchor => 'nw');
# add bindings
$ltw->{canvas}->bind($id,'