[vhffs-dev] [1011] Removing unused prefs_save in repositories.

[subversion@xxxxxxxxxxxxx]

Revision: 1011
Author:   beuss
Date:     2007-10-21 19:00:47 +0000 (Sun, 21 Oct 2007)

Log Message:
-----------
Removing unused prefs_save in repositories.

Modified Paths:
--------------
    trunk/vhffs-panel/Makefile.am

Removed Paths:
-------------
    trunk/vhffs-panel/repository/prefs_save.pl


Modified: trunk/vhffs-panel/Makefile.am
===================================================================
--- trunk/vhffs-panel/Makefile.am	2007-10-21 18:24:54 UTC (rev 1010)
+++ trunk/vhffs-panel/Makefile.am	2007-10-21 19:00:47 UTC (rev 1011)
@@ -131,7 +131,6 @@
 	repository/create.pl \
 	repository/delete.pl \
 	repository/index.pl \
-	repository/prefs_save.pl \
 	repository/prefs.pl \
 	svn/create.pl \
 	svn/delete.pl \

Deleted: trunk/vhffs-panel/repository/prefs_save.pl
===================================================================
--- trunk/vhffs-panel/repository/prefs_save.pl	2007-10-21 18:24:54 UTC (rev 1010)
+++ trunk/vhffs-panel/repository/prefs_save.pl	2007-10-21 19:00:47 UTC (rev 1011)
@@ -1,108 +0,0 @@
-#!%PERL% -w
-# Copyright (c) vhffs project and its contributors
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without 
-# modification, are permitted provided that the following conditions 
-# are met:
-#
-# 1. Redistributions of source code must retain the above copyright 
-#   notice, this list of conditions and the following disclaimer.
-#2. Redistributions in binary form must reproduce the above copyright
-#   notice, this list of conditions and the following disclaimer in 
-#   the documentation and/or other materials provided with the 
-#   distribution.
-#3. Neither the name of vhffs nor the names of its contributors 
-#   may be used to endorse or promote products derived from this 
-#   software without specific prior written permission.
-#
-#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
-#"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
-#LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
-#FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 
-#COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
-#INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
-#BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
-#LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 
-#CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 
-# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
-# POSSIBILITY OF SUCH DAMAGE.
-
-
-use POSIX qw(locale_h);
-use HTML::Template;
-use locale;
-use Locale::gettext;
-use CGI;
-use CGI::Session;
-use strict;
-
-
-use lib '%VHFFS_LIB_DIR%';
-use Vhffs::User;
-use Vhffs::Main;
-use Vhffs::Group;
-use Vhffs::Panel::Main;
-use Vhffs::Panel::Menu;
-use Vhffs::Panel::Group;
-use Vhffs::Services::Repository;
-
-my $panel = new Vhffs::Panel::Main();
-exit 0 unless $panel;
-my $session = $panel->get_session;
-exit 0 unless $session;
-
-my $vhffs = $panel->{'vhffs'};
-my $maintemplate = $panel->{'template'};
-my $user = $panel->{'user'};
-my $group = $panel->{'group'};
-my $cgi = $panel->{'cgi'};
-my $message;
-my $owner = $cgi->param("PROJECT_OWNER");
-
-my $repo_name = $cgi->param( "REPO_NAME" );
-my $public = $cgi->param( "PUBLIC" );
-
-my $templatedir = $vhffs->get_config->get_templatedir;
-
-my $repo = Vhffs::Services::Repository::get_by_reponame( $vhffs , $repo_name );
-
-if( ! defined $repo_name )
-{
-    $message = sprintf( gettext("CGI Error ! %s"), $repo_name );
-}
-elsif( ! defined $repo )
-{
-	$message = gettext( "Cannot retrieve informations about this Download repository" );
-}
-elsif( ( Vhffs::Acl::what_perm_for_user( $user , $repo , $vhffs ) < Vhffs::Constants::ACL_MODIFY ) && ( $user->is_admin != 1 ) )
-{
-	$message = gettext( "You're not allowed to do this (ACL rights)" );
-}
-elsif( $repo->get_status != Vhffs::Constants::ACTIVATED )
-{
-    $message = gettext( "This object is not functionnal yet. Please wait creation or moderation.");
-}
-else
-{
-
-#	$repo->set_status( Vhffs::Constants::WAITING_FOR_MODIFICATION );	
-
-	#Commit what we modify on the current object
-	if( $repo->commit < 0 )
-	{
-	        $message .= gettext("An error occured while updating the Download repository");
-	}  
-	else  
-	{
-        	$message .= gettext("Download repository updated");
-	}
-}
-
-my $template = new HTML::Template( filename => $templatedir."/panel/misc/simplemsg.tmpl" );
-$template->param( MESSAGE => $message );
-
-$panel->set_refresh_url( "/group/view.pl?project=".$repo->get_group->get_groupname, 0);
-$panel->build( $template );
-$panel->display;