[popfile-commit] engine/UI HTML.pm,1.71,1.72

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv19251/UI

Modified Files:
	HTML.pm 
Log Message:
Fix bug 684967 by ensuring that all socket communication is done in binmode and that file writes use \n so that we are strict in using CRLF on the network and flexible in using CR or LF as appropriate file local files depending on the platform POPFile is running on.  If we use \n for files that are not binmode then Perl takes care of the appropriate translation; on the other hand we do not want Perl taking care of translation on the network and you use $eol and binmode together

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** HTML.pm	17 Feb 2003 18:49:00 -0000	1.71
--- HTML.pm	18 Feb 2003 14:46:34 -0000	1.72
***************
*** 2043,2055 ****
  
      if ( defined $magnet && $magnet ne '' ) {
!         print CLASS "$bucket MAGNET $magnet$eol";
      } elsif (defined $reclassified && $reclassified == 1) {
!         print CLASS "RECLASSIFIED$eol";
!         print CLASS "$bucket$eol";
          if (defined $usedtobe && $usedtobe ne '') {
!             print CLASS "$usedtobe$eol";
          }
      } else {
!         print CLASS "$bucket$eol";
      }
  }
--- 2043,2055 ----
  
      if ( defined $magnet && $magnet ne '' ) {
!         print CLASS "$bucket MAGNET $magnet\n";
      } elsif (defined $reclassified && $reclassified == 1) {
!         print CLASS "RECLASSIFIED\n";
!         print CLASS "$bucket\n";
          if (defined $usedtobe && $usedtobe ne '') {
!             print CLASS "$usedtobe\n";
          }
      } else {
!         print CLASS "$bucket\n";
      }
  }