diff options
author | Daniel Friesel <derf@finalrewind.org> | 2016-12-28 01:40:22 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2016-12-28 01:40:22 +0100 |
commit | 1af791ab3995202b87596a3cc8f6cca3a542be58 (patch) | |
tree | 758f06be79200c519d90ee6fd2008eede10fcf5a /lib/App/Dthumb/Data.pm.PL | |
parent | f031a3971aa32839917afb8c6b4ac2878f70b545 (diff) |
start switch to fancybox2
Diffstat (limited to 'lib/App/Dthumb/Data.pm.PL')
-rw-r--r-- | lib/App/Dthumb/Data.pm.PL | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL index b2d0a33..32ba162 100644 --- a/lib/App/Dthumb/Data.pm.PL +++ b/lib/App/Dthumb/Data.pm.PL @@ -8,16 +8,13 @@ use MIME::Base64 qw(encode_base64); my ($out_file) = @ARGV; open( my $out_fh, '>', $out_file ); -opendir( my $share_dh, 'share' ); -opendir( my $share_lb_dh, 'share/lightbox' ); -opendir( my $share_sb_dh, 'share/shadowbox' ); print {$out_fh} <DATA>; for my $file ( - read_dir( 'share', prefix => 1 ), - read_dir( 'share/lightbox', prefix => 1 ), - read_dir( 'share/shadowbox', prefix => 1 ) + read_dir( 'share', prefix => 1 ), + read_dir( 'share/css', prefix => 1 ), + read_dir( 'share/js', prefix => 1 ) ) { @@ -37,9 +34,6 @@ for my $file ( printf {$out_fh} ( "______[ %s ]______\n%s\n", $file, $content, ); } -closedir($share_dh); -closedir($share_lb_dh); -closedir($share_sb_dh); close($out_fh); __DATA__ |