120 lines
2.0 KiB
Perl
Executable File
120 lines
2.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
|
|
use strict;
|
|
package LJ::Img;
|
|
use vars qw(%img);
|
|
|
|
$img{'btn_up'} = {
|
|
'src' => '/btn_up.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Up',
|
|
};
|
|
|
|
$img{'btn_down'} = {
|
|
'src' => '/btn_dn.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Down',
|
|
};
|
|
|
|
$img{'btn_del'} = {
|
|
'src' => '/btn_del.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Delete',
|
|
};
|
|
|
|
$img{'btn_freeze'} = {
|
|
'src' => '/btn_freeze.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Freeze',
|
|
};
|
|
|
|
$img{'btn_unfreeze'} = {
|
|
'src' => '/btn_unfreeze.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Unfreeze',
|
|
};
|
|
|
|
$img{'btn_scr'} = {
|
|
'src' => '/btn_scr.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Screen',
|
|
};
|
|
|
|
$img{'btn_unscr'} = {
|
|
'src' => '/btn_unscr.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Unscreen',
|
|
};
|
|
|
|
$img{'prev_entry'} = {
|
|
'src' => '/btn_prev.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Previous Entry',
|
|
};
|
|
|
|
$img{'next_entry'} = {
|
|
'src' => '/btn_next.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Next Entry',
|
|
};
|
|
|
|
$img{'memadd'} = {
|
|
'src' => '/memadd.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Add to memories!',
|
|
};
|
|
|
|
$img{'editentry'} = {
|
|
'src' => '/btn_edit.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Edit Entry',
|
|
};
|
|
|
|
$img{'edittags'} = {
|
|
'src' => '/btn_edittags.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Edit Tags',
|
|
};
|
|
|
|
$img{'tellfriend'} = {
|
|
'src' => '/btn_tellfriend.gif',
|
|
'width' => 22,
|
|
'height' => 20,
|
|
'alt' => 'Tell a Friend!',
|
|
};
|
|
|
|
$img{'placeholder'} = {
|
|
'src' => '/imageplaceholder2.png',
|
|
'width' => 35,
|
|
'height' => 35,
|
|
'alt' => 'Image',
|
|
};
|
|
|
|
$img{'xml'} = {
|
|
'src' => '/xml.gif',
|
|
'width' => 36,
|
|
'height' => 14,
|
|
'alt' => 'XML Source',
|
|
};
|
|
|
|
# load the site-local version, if it's around.
|
|
if (-e "$LJ::HOME/cgi-bin/imageconf-local.pl") {
|
|
require "$LJ::HOME/cgi-bin/imageconf-local.pl";
|
|
}
|
|
|
|
1;
|
|
|