fo_arcview.pl and Archive.pm should now be nearly ready to go online. TODO: Some...

diff --git a/selfforum-cgi/shared/Template/Archive.pm b/selfforum-cgi/shared/Template/Archive.pm
index a22f26925e446482aed6697d3903b71ce34fb0bc..7e97addba3e87a4a6b95350430ad3ea6abc3e0bd 100644 (file)
--- a/selfforum-cgi/shared/Template/Archive.pm
+++ b/selfforum-cgi/shared/Template/Archive.pm
@@ -41,17 +41,76 @@ use Template::_thread;
 #
 use base qw(Exporter);
 @Template::Archive::EXPORT = qw(
+    print_overview_as_HTML
     print_year_as_HTML
     print_month_as_HTML
     print_thread_as_HTML
 );
 
 
+### print_overview_as_HTML () ##################################################
+#
+# archive entry
+#
+# Params: $arcdir     main archive directory
+#         $tempfile   template filename
+#         $param      hash reference
+# Return: -none-
+#
+sub print_overview_as_HTML($$$) {
+    my ($arcdir, $tempfile, $param) = @_;
+
+    my $assign = $param->{'assign'};
+
+    my $template = new Template $tempfile;
+
+    #
+    # archiveDocStart
+    #
+    print ${$template->scrap(
+        $assign->{'archiveDocStart'}
+    )};
+
+    #
+    # globbing to find year directories
+    #
+    for (<$arcdir????>) {
+        s/$arcdir//;
+        print ${$template->scrap(
+            $assign->{'archiveDocEntry'},
+            {
+                $assign->{'year'}   => $_
+            }
+
+        )};
+    }
+
+#   for (my $month = 1; $month <= 12; $month++) {
+#       if (-e $yeardir.$month.'/') {
+#           print ${$template->scrap(
+#               $assign->{'yearDocEntry'},
+#               {
+#                   $assign->{'year'}       => $param->{'year'},
+#                   $assign->{'month'}      => $month,
+#                   $assign->{'monthName'}  => month($month)
+#               }
+#           )};
+#       }
+#   }
+
+    #
+    # archiveDocEnd
+    #
+    print ${$template->scrap(
+        $assign->{'archiveDocEnd'}
+    )};
+}
+
 ### print_year_as_HTML () ######################################################
 #
 # yearly overview over months
 #
-# Params:
+# Params: $yeardir    directory, which contains month directories
 #         $tempfile   template filename
 #         $param      hash reference
 # Return: -none-
@@ -77,8 +136,6 @@ sub print_year_as_HTML($$$) {
 
     my $tmplparam = {
             $assign->{'year'}           => $param->{'year'},
-#           $assign->{'month'}          => $param->{'month'},
-#           $assign->{'monthName'}      => month($param->{'month'})
     };
 
     #
@@ -194,8 +251,6 @@ sub print_month_as_HTML($$$) {
         $assign->{'monthDocEnd'},
         $tmplparam
     )};
-
-
 }
 
 ### print_thread_as_HTML () ####################################################

diff --git a/selfforum-cgi/user/fo_arcview.pl b/selfforum-cgi/user/fo_arcview.pl
index 36c075ebc0831e626d2de12ac850cf01c37dcd30..46bd8e91e82afd1f9c9176b83d4d4b2b9a5215a2 100644 (file)
--- a/selfforum-cgi/user/fo_arcview.pl
+++ b/selfforum-cgi/user/fo_arcview.pl
@@ -38,6 +38,7 @@ use CGI::Carp qw(fatalsToBrowser);
 use Conf;
 use Conf::Admin;
 use Template::Archive qw(
+    print_overview_as_HTML
     print_year_as_HTML
     print_month_as_HTML
     print_thread_as_HTML
@@ -107,7 +108,13 @@ if ($year) {
         );
     }
 } else {
-#   print_overview_as_HTML();
+    print_overview_as_HTML(
+        $conf->{'files'}->{'archivePath'},
+        $show_archive->{'templateFile'},
+        {
+            'assign'        => $show_archive->{'assign'}
+        }
+    );
 }
 
 #