a nN0^ 9.ς эh^\ \Physical Address¡™£¢∞§¶•ªºphysical_addressdadatestlistDada Test List¡™£¢∞§¶•ªºlist_namelist information¡™£¢∞§¶•ªºinfo L rLnN0^ 9.ςэh^Privacy Policy¡™£¢∞§¶•ªºprivacy_policypasswordpasswordtest@example.comlist_owner_emailXdnvuxiAZJQXOncB=SuKZ8AkUUG&&4AjVS<6XHVocipher_keyUaadmin_menuaNAV-Mass Mailing=1;SUBNAV-Send a Message=1;SUBNAV-Send a Webpage=1;SUBNAV-Monitor Your Mailings /=1;NAV-Membership=1;SUBNAV-View=1;SUBNAV-Recent Activity=1;SUBNAV-Invite/Subscribe/Add=1;SUBNAV-Remove=1;SUBNAV-Options=0;NAV-Your Mailing List=1;SUBNAV-List Information=1;SUBNAV-List Password=1;SUBNAV-Mailing List Options=1;SUBNAV-Delete This Mailing List=0;NAV-Mail Sending=1;SUBNAV-Sending Preferences=1;SUBNAV-Advanced Sending Preferences=1;SUBNAV-Mass Mailing Preferences=1;NAV-Message Archives=1;SUBNAV-View Archive=1;SUBNAV-Archive Options=1;SUBNAV-Advanced Archive Options=1;NAV-Appearance and Templates=1;SUBNAV-Your Mailing List Template=1;SUBNAV-Email Message Templates=1;SUBNAV-HTML Screen Templates=1;SUBNAV-Subscription Form HTML=1;SUBNAV-Create a Back Link=1;NAV-Profiles=1;SUBNAV-Profile Fields=1;NAV-Plugins=1;NAV-Extensions=1;NAV-Your List Control Panel=0;SUBNAV-Customize Feature Set=0;SUBNAV-Options=0;NAV-App Information=1;SUBNAV-Configuration=1;SUBNAV-About Dada Mail=1;t type=\"checkbox\" name='NAV-$nav->{-Title}' value=\"1\" />$nav->{-Title} five\n"; $menu .= $nav_entry; } } return $menu; } =pod =head2 create_save_set foreach(@params){$param_hash{$_} = $q->param($_);} my $save_set = create_save_set(\%param_hash); my %new_info = (list => $list, admin_menu => $save_set); setup_list(\%new_info); creates a packed string to save admin menu information, The format is really weird, take mi word for it. =cut sub create_save_set { my $param_hashref = shift || undef; my $save_set; my $prev_info = 1; if ( !defined($param_hashref) ) { $prev_info = 0; } my @Global_Admin_Menu_Copy = @$DADA::Config::ADMIN_MENU; foreach my $nav (@Global_Admin_Menu_Copy) { my $default = 0; if ( $prev_info == 0 ) { $default = $nav->{-Activated}; } my $save_nav = $param_hashref->{"NAV-$nav->{-Title}"} || $default; #$nav->{-Activated}; $save_set .= "NAV-$nav->{-Title}\=$save_nav;"; foreach my $subnav ( @{ $nav->{-Submenu} } ) { my $s_default = 0; if ( $prev_info == 0 ) { $s_default = $subnav->{-Activated}; } my $save_subnav = $param_hashref->{"SUBNAV-$subnav->{-Title}"} || $s_default; #|| $subnav->{-Activated}; $save_set .= "SUBNAV-$subnav->{-Title}\=$save_subnav;"; } } return $save_set; } 1; =pod =head1 COPYRIGHT Copyright (c) 1999 - 2012 Justin Simoni All rights reserved. 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. =cut my ( $monitor_mailout_report, $total_mailouts, $active_mailouts, $paused_mailouts, $queued_mailouts, $inactive_mailouts ) = DADA::Mail::MailOut::monitor_mailout( { -verbose => 0, -list => $li->{list}, -action => 0, } ); $nav_total_mailouts = $total_mailouts; }; if ($@) { warn "Problems filling out the 'Sending Monitor' admin menu item with interesting bits of information about the mailouts: $@"; } require DADA::Template::Widgets; #-------------------------------------------------