mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhamain.pl,2.85,2.86 mhinit.pl,2.52,2.53

2005-07-07 19:04:12
Update of mhonarc/MHonArc/lib
Modified Files:
	mhamain.pl mhinit.pl 
Log Message:
[bug #2641]: Added $CBMailFolderRead and $CBMessageConverted.  When
and how they are invoked are described in API appendix of docs.


======================================================================
FILE: mhonarc/MHonArc/lib/mhamain.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhamain.pl?rev=2.86>

<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhamain.pl.diff?r1=2.85&r2=2.86&diff_format=h>
--- mhamain.pl	7 Jul 2005 05:32:20 -0000	2.85
+++ mhamain.pl	8 Jul 2005 02:04:06 -0000	2.86
@@ -300,4 +300,12 @@
                     $handle, $index, $fields, $NoMsgPgs))) {
                 $AddIndex{$index} = 1;
+                ## Invoke callback if defined
+                if (defined($CBMessageConverted) &&
+                        defined(&$CBMessageConverted)) {
+                    &$CBMessageConverted($fields, +{
+                        folder => undef,
+                        file   => '-',
+                    });
+                }
             }
         }
@@ -325,5 +333,5 @@
                 local($_);
                 MHFILE: foreach (@files) {
-                    $mesgfile = "${mbox}${DIRSEP}${_}";
+                    $mesgfile = join($DIRSEP, $mbox, $_);
                     eval {
                         $fh = file_open($mesgfile);
@@ -352,4 +360,13 @@
                                 delete $Message{$index};
                             }
+                            ## Invoke callback if defined
+                            if (defined($CBMessageConverted) &&
+                                    defined(&$CBMessageConverted)) {
+                                &$CBMessageConverted($fields, +{
+                                    folder => $mbox,
+                                    file   => $mesgfile,
+                                });
+                            }
+
                         } else {
                             $index = undef;
@@ -394,4 +411,12 @@
                                 delete $Message{$index};
                             }
+                            ## Invoke callback if defined
+                            if (defined($CBMessageConverted) &&
+                                    defined(&$CBMessageConverted)) {
+                                &$CBMessageConverted($fields, +{
+                                    folder => $mbox,
+                                    file   => undef,
+                                });
+                            }
                         } else {
                             $index = undef;
@@ -406,4 +431,11 @@
 
             } # END: else UUCP mailbox
+
+            ## Invoke callback if defined
+            if (defined($CBMailFolderRead) &&
+                    defined(&$CBMailFolderRead)) {
+                &$CBMailFolderRead($mbox);
+            }
+
         } # END: foreach $mbox
     } # END: Else converting mailboxes

======================================================================
FILE: mhonarc/MHonArc/lib/mhinit.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhinit.pl?rev=2.53>

<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhinit.pl.diff?r1=2.52&r2=2.53&diff_format=h>
--- mhinit.pl	15 Dec 2004 20:33:39 -0000	2.52
+++ mhinit.pl	8 Jul 2005 02:04:06 -0000	2.53
@@ -65,4 +65,14 @@
     unless defined($CBRawMessageBodyRead);
 
+## After a message has been converted
+##      &$invoke($fields, +{ folder => $filename, file => $filename });
+$CBMessageConverted = undef
+    unless defined($CBMessageConverted);
+
+## After a mail folder has been read
+##      &invoke($filename);
+$CBMailFolderRead = undef
+    unless defined($CBMailFolderRead);
+
 ## When a resource variable is being expanded:
 ##      ($result, $recurse, $canclip) = &invoke($index, $varname, $arg);


---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS