Buttons for Emails
Right-click and 'save [link] as' to download.
The URL of any image is http://www.moveon.org/images/button/[filename]
Here's some image code you can copy, paste and edit:
<img src="http://www.moveon.org/images/[filename]" alt="Description [edit this]" />
% for (@images) {
<% $_ %>
% }
<%attr>
require_login => 1
<%init>
unless (dbi_exec_for_scalar($DBH, q|select 1 from user_list_map where user_id=? and list_id=446 limit 1|, $MO::user->id)) {
redirect('/login', errors => q|The e-mail address you used to log in isn't in the staff list. Please try another e-mail address or contact us.|, redirect=>construct_url($r->uri, %ARGS));
}
use File::Find;
my @images;
File::Find::find(
sub {
return if $File::Find::name =~ m{/\.} or -d $File::Find::name;
push @images, $File::Find::name
},
$m->request_comp->source_dir . '/');
@images = map {s{.*/images(/|$)}{.$1}; $_} @images;