• Your recent searches
Album
1 match

 view release on metacpan or  search on metacpan

script/album  view on Meta::CPAN 

}

sub ixname($;$) {
    my ($n, $rel) = @_;
    my $f = sprintf("index%04d.html", $n + 1);
    return $f if $rel;
    d_index($f);
}

# To aid XHTML compliancy.
sub br { "<br />" }

# Pseudo-smart approach to creating paired single/double quotes.
# Note that the (s-|s\s|t\s) case is specific to the dutch language,
# but probably won't harm other languages...
# Yes, you'll get stupid results with input like rock'n'roll.

sub fixquotes($) {
    my ($t) = @_;

    # HTML::Entities will already have turned " into &quot; -- undo.

script/album  view on Meta::CPAN 

	if ( $encoding ) {
	    warn("WARNING: Module HTML::Entities not found.\n".
		 "Encoding of the HTML files may be incorrect!\n");
	}
	no warnings 'redefine';
	*html = sub($) {
	    my ($t) = @_;
	    return '' unless $t;
	    $t =~ s/&/&amp;/g;
	    $t =~ s/</&lt;/g;
	    $t =~ s/>/&gt;/g;
	    fixquotes($t);
	};
    }
    goto &html;
}

sub htmln($) {
    # Escape HTML sensitive characters, and turn newlines into <br>.
    my $t = html(shift);
    return '' unless $t;

script/album  view on Meta::CPAN 

    $t =~ s/\n/\n$n/g;
    $t;
}

sub img($%) {
    my ($file, %atts) = @_;
    my $ret = "<img src='" . $file . "'";
    foreach ( sort(keys(%atts)) ) {
	$ret .= " $_='" . $atts{$_} . "'";
    }
    $ret . "/>";
}

#### Size helpers.

sub bytes($) {
    my $t = shift;
    return $t . "b" if $t < 10*1024;
    return ($t >> 10) . "kb" if $t < 10*1024*1024;
    ($t >> 20) . "Mb";
}

script/album  view on Meta::CPAN 

	    # We cannot use $el->seq, since that's the info.dat order
	    # which includes the skipped entries.
	    my $dst = ($e->type == T_REF) ? $e->assoc_name :
	      d_index($e->type == T_MPG ? $e->assoc_name : $e->dest_name);
	    my $img = "<a name='" . sprintf("img%04d", $seq) . "' " .
	              ($e->type == T_REF ? " target=\"_blank\"" : "").
		      "href='" .
		      d_up(($e->type == T_REF ? $e->dest_name : d_medium(sprintf("img%04d.html", $seq)))) .
#		      "' border='0" .
		      "'>" .
		      "<img src='" . d_up($dst) . "'/></a>";

	    $jnl .= "<tr>\n".
	            "  <td class='jl'>\n".
		    "    " . indent($t || "&nbsp;", 4) . "\n".
		    "  </td>\n".
		    "  <td class='jr'>\n".
		    "    " . indent($img, 4) . "\n".
		    "  </td>\n".
		    "</tr>\n";
	    $seq++;

script/album  view on Meta::CPAN 

Xend
Xbegin 644 first.png
XMB5!.1PT*&@H````-24A$4@```"$````A"`````!RCYVS```!;4E$050XC873
XMNT["4!C`\7]+"<&%@?``)"9V,`8F77D#XF4$W44G0Q"7+BI1)X75(*QBV!P<
XM8'6QQAC%B0<P#"P2PLVAI3TMK9[E.SGGU^_2Y$AM_EF*&2<]]TTT((A!JSGJ
XMND4\F$Z%`:D-/R<Z(=4M.D.2ITL@M1D4=56+1=RB_UGN),_"R-#2U>KR`B"R
XM457U%LC01%,6[@&4'$V0F8Q",9]!5P!D>EU5*/%FA.F[=2([OZK=&K'TZ"/J
XMY2D`YP]"-\+]K'YME"@)P"%,,+D4@5AE#J[N'97M''<5H]1%P]F\E:-6,9HL
XMN8"5X]6<XGGB`E:.1,[8K6_Y";+[QK;@)O8LNP<`2/D=/T'F$(#`T;:?L$A^
XM4Q3B/Y6RT@V`7)0:W@(RLQ<`CF=^@FS"B(4/H8]HO-.WR9IYO"J(0'#XC??Z
XM,F=)HXT]P;A,&A1(/>E[6M0C0[F33-EOSG/-WQP,6DTO8+_;OY?\'^`7/!!E
X1K2\A))\`````245.1*Y"8((`
X`
Xend
Xbegin 644 first-gr.png
XMB5!.1PT*&@H````-24A$4@```"$````A"`````!RCYVS```!2DE$050XC873
XM36K"0!3`\7]B1"P%H5&$?@A"H=EFUZTW\`@]0$_0;K)I3Y`#>(3LNX@WR++I
XM2M"V(-520131U"XF'Y,QJ6_S(//+O)?,/&W(D3#B',W5%;,BB;7O;4>JZ%;[
XMO3J@#6'U&%"S5!%NL)].0!NR?@@LI]50Q>+5#>WG.CKX@36X/@`T;@=6X(,.
XM'HYQL`Y@W..!3K2MM4H^]`9`9SZRI!*12/LH?:+GWYK^B#Q9E8CIQQZ`\4SJ
XM)@]$B8D$<GLDX%T&LDC!%\4B!B@@ZR,!XQG%8ODI\O=2`6F5TW.1SYIE@O:%

script/album  view on Meta::CPAN 

XM``````````````````````````````````````````(L[$ML\`JQ/%G^FC/)
XMEJ;>#Y&=Y<NG;Y7+J_65QX,>[:Y]5J1TXY,<?]9SO:Y73.]N/5;BP(,*=[``
XM7SQ%UTNC4RWZSR\4R[QA&IE9XLZ2QQQRSX[WX]O#SX98ZOKC<,<_7#/"\>>\
XM77GIFQ]&=^*\?!SWJ9/7,L<IU765G%3:FHJ(L[)WZ>``":`(H`H`````````
XM`````````````````````````````````````BRZ$`9^1E,./;5NH\'/R7+/
XMZ[8M:CG;>3/;O9](G%C)CO\`4MM<K6I$MV3J!^,-18GABJ``@``L_H\1J?Z!
XMMJ:LU6;8-2F)GQ=;C'%RY<67?<=9?[,\,<YU&YTSCMQ<LS_79\RXY\=W*]'Q
XM_DR367KK.F<>JJSCE,O%_6I4Q0%9P`%`````````````````````````````
XM```````````````!-J`$*`GZK')9,:#E\WEF./\`%Y>/'[9?:IGE>3/7XZR?
XM7!QZK<AE==,;6]IIRM;59XDJU`18`!25``!85&@210`677B`-]93MQY>+5WB
XMW&YE^.DZ1QXN7+"ZKV<?+CE/>WGY.*9N/\N*[G;I.F;'TAYN#G^W5Z>F:OE=
XM)6<!+TJH````";4``````````````````````````````````````$UL\.XO
XM5@&M^!/\2[0+_'NO%\SEWEJ/3\GDDX[/UX<)<KNL]5J1OBQUW5ROXN5ZZ8_7
XM&UN&]$494GJH(*D6)`47\0!8@47]6II4`3:@`(+^(3U=&BXY:6R9>LZ)=-RC
XMGR<64[Q7A^1>/^.3KCEN]^,<W%CEWC'7GIFQZ^'.<C64U7S?MR\5_P`>OAYY
XME)N]NDK-CO+TA+OP:9771I.S=_07<3]6%```````````````````````````
XM````````````]32BH33.=^LW5O\`;S?,YOMC]8Q:U'#FSN7)_C6,U&./']K6
XM5TY=5N00O<(YK#8:78I"TGI065"""[Z2Y&5U''++=60=?LU*\_;6.6E\FNU$
XMQRVU6;`BI%0!-KZ``F!LI%V*GXUAE8A>UE1K+&<D[<,N.X7>+K]F\;+ZZ3I,
XM<N+Y&4NLNGLPSQRGKR<O#]^YTXX99<-[W77GIFQ]/>D]<OC\\Y.G:ZVUNLX>
XM`F_QI%`$`!0``````````````````````````````````U1+;,=IIC'-RSCF
XMJ\'>>=OXW\K/_DR,)]9TY]5N+YCIGU;>QRK:165GB!^E%$(?I/2HJ_B;D],?
XM&.2K(:SR9;\7@XKE=LXS[74>WX^'UQ[=N>6;TF?%+CU'EY.++&[>_P`\2XS/
XMJM^6/3Y\RL=,,_[;Y^#5_C'"2SURZY;E>CV$<L<[*ZS*6.5C:I.C:H@!`">K
XMHT"=K#8@:#:$&IE=_P"+GCAG/.V%G3<J8XY<>?'?M.HZ\/R.]9>NDOWFLO'+
XMEX).\72=)CV\>4SG2WKU\W#FY>++5\>[CY<<YW>W6=,6-_JFOZ\&D//1)WZU
XMJ:$0`4````````````````````````````````CS_*YM8W%UYK],?MMX.3+_
XM`),]L6M1./'=MK>]=$_C&=[KC:W%I#\(RJ+#HH@5)ZHI.EG8END@N74<,LMW
XM37)ELXN/[9.O,9KK\;CU9D]67?B828X:(]',<;2=+YV*WC.K['+EX9EVZ>-1
XMSO+4Z?.Y,+C4QRL?0Y./'*>/)R\%QNW/KAUG1CEMN//NRMX9.-C>NO2^,2M2

script/album  view on Meta::CPAN 

XMS^V3KQRQ:S;][VU)I,9IK;U<<N756^(([.-79=,J"5+I:S;I6BQ+-ERB?:*)
XMW/';@Y\\;_*].-L2]L6+'UN'Y&&4UOMZ)=OA89W"[CV_&^5;J9.=Y;U]"S;%
XMQ,,\<O*WMD<KN71*Z?7;&6.KT@4_"7KM/T50!0!``43QCY'_`,JW6/D?_*BQ
XM\KE]8];Y/:QXE=(GZ5:C-=)0-`T)M4L07PWN"?J*WAE]>JZ63..5T8Y644^M
XMF6BSIUW,YJ>N6>-QO8EAAE<7:9?::<)VLOUJ6:SCTX^*Y8<DO3IMFQFQ0&6<
XM`6"(H;0%E3TB*ZXY?C6MN.V\,M>GXSCI,M+=9QGJCMQVQURS_P`4EVY\_)]9
XMJ.N=LQ>'EMRR=;WKEY,,;ED]O%CK%RX./J5Z=S&//UTZ<\LY74<[VN5[3US=
XM9%@GBB@``!194JZ1($=,9J;9Q3ES^L=)$M8^1R=:CSX^F5WD;>G^?+EU727H
XMGK.*UZ)'&UHTS*LJLFDNV]PT*YLYS;K<6;QVB.'UO]EQ_P!=[Q9,_P#%DNM.
XM.O\`3>G3/'ZLZ56=GVOI8B7DUZ.#Y-PKZ'Q_D3DZO3Y$TN.>6-W*Q>5E??W/
XM[*^9\;Y?UU,J^AP\N/)-QRLQHN#-_C75,IL'/>U3+JDIBJ(J*``C'R/_`)5O
XM3//WQ4(^3G_VK%E=>3'NN=OX-RI?$D6D9;E0A0QJ4"B-:`(H0#6EQMEZ=)9E
XMZY3U?]0:RPO_`.7._P!5VPY/RG)A-;@CE.G7CS_MRUH$L>N67P>?#.QVQREC
XMG8S8VG9%]98L/PD/PE$4$%4VA$&\<G3&N+6.08Z98[<LN*;=95ZV>F+#&?6,
XM97MK.].>]U&I"^DT5%59ZK+2";4`%B""PUL]:Q]:D2TNL<>WEY,[E>W3Y&??
XM3SVO1_/EBT)ZBQZ.9CEU6Q-GK>N:QCDRU>FI[IG/&6J+CE:ZXW;CC-.O'K8.
XMDCIA#&?JW+&3U!OZ_P!IE>.37ZXY<]\D9F'W_E;HQ=9YL+EWB\^4L]>O+.<<
XMU.WFSR^U:@YVFJU<9.V=WR1=$JS'++J.W%P99WN/=\?XDQ[KGUU&Y'D^/\;*
XMV6Q]+@XYQS4=,<9C%KE:H;3;-R,$Y/[<>3/7AS<F4ZTY<>\\NP>G#O';43&:
XMQ76XB@D!53*?::4!\[YF'UKRZ[?5^1Q_>6OF<N-QRHLK%2-6=,P:E%L*1,;E
XM0/T1K0(5&@!,70`4;X\OK?Y=L0177*3+N.=GU7'+7_C>IE!'+QK#+59SQL)`



( run in 0.695 second using v1.01-cache-2.11-cpan-4e7a2411597 )