[vhffs-dev] [808] renaming Vhffs::Panel::Mailinglist to Vhffs::Panel::MailingList ( part one)

[subversion@xxxxxxxxx]

Revision: 808
Author:   gradator
Date:     2007-08-29 23:45:26 +0000 (Wed, 29 Aug 2007)

Log Message:
-----------
renaming Vhffs::Panel::Mailinglist to Vhffs::Panel::MailingList (part one)

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Panel/Mailinglist.pm
    trunk/vhffs-api/src/Vhffs/Panel/Main.pm
    trunk/vhffs-irc/modobot.pl
    trunk/vhffs-panel/admin/mailing/list.pl
    trunk/vhffs-panel/admin/moderation.pl
    trunk/vhffs-panel/mailinglist/create.pl
    trunk/vhffs-panel/mailinglist/index.pl


Modified: trunk/vhffs-api/src/Vhffs/Panel/Mailinglist.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Panel/Mailinglist.pm	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-api/src/Vhffs/Panel/Mailinglist.pm	2007-08-29 23:45:26 UTC (rev 808)
@@ -30,7 +30,7 @@
 # POSSIBILITY OF SUCH DAMAGE.
 
 
-package Vhffs::Panel::Mailinglist;
+package Vhffs::Panel::MailingList;
 
 use DBI;
 use POSIX qw(locale_h);
@@ -75,7 +75,7 @@
 
 =head2 getall_per_group
 
-    $ml = Vhffs::Panel::Mailinglist::getall_per_group($vhffs, $gid);
+    $ml = Vhffs::Panel::MailingList::getall_per_group($vhffs, $gid);
 
 Returns an array of hashrefs (oid, displayname, active, state (localized string)) of all mailing lists owned by
 a given group.
@@ -104,7 +104,7 @@
 
 =head2 getall_mdomains_per_group
 
-    $domains = Vhffs::Panel::Mailinglist::getall_mdomains_per_group($vhffs, $gid);
+    $domains = Vhffs::Panel::MailingList::getall_mdomains_per_group($vhffs, $gid);
 
 Returns an array of hashref (domain) of all active mail domains for
 a given group.

Modified: trunk/vhffs-api/src/Vhffs/Panel/Main.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Panel/Main.pm	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-api/src/Vhffs/Panel/Main.pm	2007-08-29 23:45:26 UTC (rev 808)
@@ -25,7 +25,7 @@
 use Vhffs::Panel::Cvs;
 use Vhffs::Panel::DNS;
 use Vhffs::Panel::Mail;
-use Vhffs::Panel::Mailinglist;
+use Vhffs::Panel::MailingList;
 use Vhffs::Panel::Mysql;
 use Vhffs::Panel::Pgsql;
 use Vhffs::Panel::Repository;
@@ -565,7 +565,7 @@
         }
 
         if($config->use_mailing) {
-            my $ml = Vhffs::Panel::Mailinglist::getall_per_group( $vhffs, $gid );
+            my $ml = Vhffs::Panel::MailingList::getall_per_group( $vhffs, $gid );
             $services_list .= $self->create_service_index('mailinglist', $ml);
         }
 

Modified: trunk/vhffs-irc/modobot.pl
===================================================================
--- trunk/vhffs-irc/modobot.pl	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-irc/modobot.pl	2007-08-29 23:45:26 UTC (rev 808)
@@ -193,7 +193,7 @@
     if( $vhffs->get_config->use_mailing == 1 )
     {
         #Treat Mailing lists to moderate
-        use Vhffs::Panel::Mailinglist;
+        use Vhffs::Panel::MailingList;
         my $mls = Vhffs::Services::MailingList::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION );
 
         if( defined $mls )

Modified: trunk/vhffs-panel/admin/mailing/list.pl
===================================================================
--- trunk/vhffs-panel/admin/mailing/list.pl	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-panel/admin/mailing/list.pl	2007-08-29 23:45:26 UTC (rev 808)
@@ -44,7 +44,7 @@
 use Vhffs::Main;
 use Vhffs::Panel::Main;
 use Vhffs::Panel::Menu;
-use Vhffs::Panel::Mailinglist;
+use Vhffs::Panel::MailingList;
 
 my $panel = new Vhffs::Panel::Main();
 if(!$panel)  {
@@ -88,7 +88,7 @@
     $template->param( TEXT_TITLE3 => gettext('State') );
 
 
-    my $lists = Vhffs::Panel::Mailinglist::search( $vhffs, $name );
+    my $lists = Vhffs::Panel::MailingList::search( $vhffs, $name );
 
     if( defined $lists )
     {

Modified: trunk/vhffs-panel/admin/moderation.pl
===================================================================
--- trunk/vhffs-panel/admin/moderation.pl	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-panel/admin/moderation.pl	2007-08-29 23:45:26 UTC (rev 808)
@@ -257,7 +257,7 @@
 	if( $vhffs->get_config->use_mailing == 1 )
 	{
 		#Treat Mail domains to moderate
-		use Vhffs::Panel::Mailinglist;
+		use Vhffs::Panel::MailingList;
 		$template->param( TEXT_MAILING => gettext("List awaiting validation") );
 		my $mls = Vhffs::Services::MailingList::getall( $vhffs , Vhffs::Constants::WAITING_FOR_VALIDATION );
 		$output = "";

Modified: trunk/vhffs-panel/mailinglist/create.pl
===================================================================
--- trunk/vhffs-panel/mailinglist/create.pl	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-panel/mailinglist/create.pl	2007-08-29 23:45:26 UTC (rev 808)
@@ -77,7 +77,7 @@
         $localpart = '';
     } elsif( $domain ne $default_domain && (! Vhffs::Panel::Mail::is_owned_by_group( $vhffs, $domain, $group->get_gid ) ) ) {
         $panel->add_error( gettext('You do not own this domain !') );
-    } elsif( !defined(Vhffs::Panel::Mailinglist::create_list( $vhffs, $localpart, $domain, $description, $user, $group )) ) {
+    } elsif( !defined(Vhffs::Panel::MailingList::create_list( $vhffs, $localpart, $domain, $description, $user, $group )) ) {
         $panel->add_error( gettext('An error occured while creating the object.It probably already exists') );
     } else {
         my $url = '/panel.pl?project='.$panel->{groupname}.'&msg='.gettext('The mailing list object was successfully created !');
@@ -86,7 +86,7 @@
 }
 
 if(!$submitted || $panel->has_errors()) {
-    my $domains = Vhffs::Panel::Mailinglist::getall_mdomains_per_group( $vhffs, $group->get_gid );
+    my $domains = Vhffs::Panel::MailingList::getall_mdomains_per_group( $vhffs, $group->get_gid );
     push(@$domains, { domain => $default_domain }) if(defined $default_domain);
 
     my $template;

Modified: trunk/vhffs-panel/mailinglist/index.pl
===================================================================
--- trunk/vhffs-panel/mailinglist/index.pl	2007-08-29 23:43:28 UTC (rev 807)
+++ trunk/vhffs-panel/mailinglist/index.pl	2007-08-29 23:45:26 UTC (rev 808)
@@ -38,7 +38,7 @@
 
 use lib '%VHFFS_LIB_DIR%';
 use Vhffs::Panel::Main;
-use Vhffs::Panel::Mailinglist;
+use Vhffs::Panel::MailingList;
 
 my $panel = new Vhffs::Panel::Main();
 if(!$panel)  {
@@ -56,7 +56,7 @@
     # Group is in session => access is granted for user and group is activated
     # no need to check
     $panel->set_title( sprintf(gettext('Mailing lists for %s'), $group->get_groupname) );
-    my $mls = Vhffs::Panel::Mailinglist::getall_per_group( $vhffs, $group->get_gid );
+    my $mls = Vhffs::Panel::MailingList::getall_per_group( $vhffs, $group->get_gid );
     if($mls < 0) {
         $panel->add_error( gettext('Unable to get mailing lists') );
     } else {