/[sympa]/branches/sympa-6.0-branch/wwsympa/wwsympa.fcgi.in
ViewVC logotype

Diff of /branches/sympa-6.0-branch/wwsympa/wwsympa.fcgi.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 6706 by serge.aumont, Wed Oct 13 08:46:06 2010 UTC Revision 7358 by david.verdin, Fri May 11 09:00:52 2012 UTC
# Line 15974  sub do_viewlogs { Line 15974  sub do_viewlogs {
15974  sub do_arc_manage {  sub do_arc_manage {
15975      &wwslog('info', "do_arc_manage ($in{'list'})");      &wwslog('info', "do_arc_manage ($in{'list'})");
15976    
15977        ## Access control
15978        unless (defined &check_authz('do_arc', 'web_archive.access')) {
15979            return undef;
15980        }
15981        
15982      my $search_base = $wwsconf->{'arc_path'}.'/'.$list->get_list_id();      my $search_base = $wwsconf->{'arc_path'}.'/'.$list->get_list_id();
15983      opendir ARC, "$search_base";      opendir ARC, "$search_base";
15984      foreach my $dir (sort {$b cmp $a} grep(!/^\./,readdir ARC)) {      foreach my $dir (sort {$b cmp $a} grep(!/^\./,readdir ARC)) {
# Line 15991  sub do_arc_download { Line 15996  sub do_arc_download {
15996            
15997      &wwslog('info', "do_arc_download ($in{'list'})");      &wwslog('info', "do_arc_download ($in{'list'})");
15998            
15999        ## Access control
16000        unless (defined &check_authz('do_arc', 'web_archive.access')) {
16001            return undef;
16002        }
16003        
16004      ##zip file name:listname_archives.zip        ##zip file name:listname_archives.zip  
16005      my $zip_file_name = $in{'list'}.'_archives.zip';      my $zip_file_name = $in{'list'}.'_archives.zip';
16006      my $zip_abs_file = $Conf{'tmpdir'}.'/'.$zip_file_name;      my $zip_abs_file = $Conf{'tmpdir'}.'/'.$zip_file_name;
# Line 16091  sub do_arc_delete { Line 16101  sub do_arc_delete {
16101            
16102      &wwslog('info', "do_arc_delete ($in{'list'})");      &wwslog('info', "do_arc_delete ($in{'list'})");
16103            
16104        ## Access control
16105        unless (defined &check_authz('do_arc', 'web_archive.access')) {
16106            return undef;
16107        }
16108        
16109      unless (defined  $in{'directories'}){      unless (defined  $in{'directories'}){
16110          &report::reject_report_web('user','select_month',{},$param->{'action'});          &report::reject_report_web('user','select_month',{},$param->{'action'});
16111          &wwslog('info','No Archives months selected');          &wwslog('info','No Archives months selected');


Legend:
Removed lines/characters  
Changed lines/characters
  Added lines/characters

  ViewVC Help
Powered by ViewVC 1.2.1