- print "\nUse this to suppress insertion of SquirrelMail Received: headers\n";
- print "in outbound messages.\n\n";
-
- $YesNo = 'n';
- $YesNo = 'y' if ( lc($skip_SM_header) eq 'true' );
-
- print "Suppress SM header (y/n) [$WHT$YesNo$NRM]: $WHT";
- $new_skip_SM_header = <STDIN>;
- chomp($new_skip_SM_header);
-
- return 'true' if ( lc($new_skip_SM_header) eq 'y' );
- return 'false' if ( lc($new_skip_SM_header) eq 'n' );
- return $skip_SM_header;
+ print "Encryption key allows to hide SquirrelMail Received: headers\n";
+ print "in outbound messages. Interface uses encryption key to encode\n";
+ print "username, remote address and proxied address, then stores encoded\n";
+ print "information in X-Squirrel-* headers.\n";
+ print "\n";
+ print "Warning: used encryption function is not bulletproof. When used\n";
+ print "with static encryption keys, it provides only minimal security\n";
+ print "measures and information can be decoded quickly.\n";
+ print "\n";
+ print "Encoded information can be decoded with decrypt_headers.php script\n";
+ print "from SquirrelMail contrib/ directory.\n";
+ print "\n";
+ print "Enter encryption key: ";
+ $new_encode_header_key = <STDIN>;
+ if ( $new_encode_header_key eq "\n" ) {
+ $new_encode_header_key = $encode_header_key;
+ } else {
+ $new_encode_header_key =~ s/[\r\n]//g;
+ }
+ return $new_encode_header_key;