popfile-commit

[Manni H. <man...@us...>]

Update of /cvsroot/popfile/engine/Services/IMAP
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25319/Services/IMAP

Modified Files:
      Tag: b0_22_2
	Client.pm 
Log Message:
Sanity-check our configuration values and add tests for this.

Index: Client.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP/Client.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -d -r1.1.2.3 -r1.1.2.4
*** Client.pm	26 Nov 2007 11:12:39 -0000	1.1.2.3
--- Client.pm	30 Nov 2007 21:13:40 -0000	1.1.2.4
***************
*** 653,657 ****
  
      if ( $result != 1 ) {
!         $self->log_( 0, "SEARCH command failed (return value: $result)!" );
      }
  
--- 653,657 ----
  
      if ( $result != 1 ) {
!         $self->log_( 0, "SEARCH command failed (return value: $result, used UID was [$uid])!" );
      }
  
***************
*** 881,885 ****
      # get
      else {
!         if ( exists $hash{$folder} ) {
              return $hash{$folder};
          }
--- 881,885 ----
      # get
      else {
!         if ( exists $hash{$folder} && $hash{$folder} =~ /^\d+$/  ) {
              return $hash{$folder};
          }
***************
*** 926,930 ****
      # get
      else {
!         if ( exists $hash{$folder} ) {
              return $hash{$folder};
          }
--- 926,930 ----
      # get
      else {
!         if ( exists $hash{$folder} && $hash{$folder} =~ /^\d+$/  ) {
              return $hash{$folder};
          }