| 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)) { |
| 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; |
| 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'); |