diff options
Diffstat (limited to 'img/lib/IM/Config.pm.in')
| -rw-r--r-- | img/lib/IM/Config.pm.in | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/img/lib/IM/Config.pm.in b/img/lib/IM/Config.pm.in index 1fc3b263..7045bda6 100644 --- a/img/lib/IM/Config.pm.in +++ b/img/lib/IM/Config.pm.in @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Dec 7, 2002 +### Revised: Mar 22, 2003 ### -my $PM_VERSION = "IM::Config.pm version 20021207(IM142)"; +my $PM_VERSION = "IM::Config.pm version 20030322(IM144)"; package IM::Config; require 5.003; @@ -32,7 +32,7 @@ use vars qw(@ISA @EXPORT); mail_dir mail_path news_dir news_path queue_dir queue_path inbox_folder draft_folder trash_folder config_cases config_case_inbox preserve_dot - folder_mode msg_mode allowcrlf use_cl no_sync fsync_no + folder_mode msg_mode allowcrlf use_cl no_sync fsync_no preferred_fsync_no addrbook_file aliases_file petname_file context_file getchksbr_file getsbr_file scansbr_file scan_header_pick address addresses_regex @@ -44,7 +44,7 @@ use vars qw(@ISA @EXPORT); expand_path usetouchfile touchfile namazuv2 namazu_lock_dir namazu_lock_path pop_timeout imap_timeout nntp_timeout dns_timeout connect_timeout command_timeout rcv_buf_siz - db_type file_attr $SSH_PATH); + db_type file_attr ssh_path); ## ## Constant @@ -108,6 +108,7 @@ BEGIN { 'usecl;b;;UseCL' => 'Use value of Content-Length header for delimitation', 'nosync;b;;NoSync' => 'Do not need fsync(2) on writing file', 'fsyncnumber;i;;FsyncNumber' => 'System call number of fsync', + 'sshpath;s;;SshPath' => 'Path name of SSH program', 'allowcrlf;b;;AllowCRLF' => 'CRLF may be in saved message', 'preservedot;b;;PreserveDot' => 'Not substitute "." with "/"', 'addrbookfile;s;;AddrBookFile' => 'Address book file', @@ -801,7 +802,11 @@ sub no_sync() { } sub fsync_no() { - return $FsyncNumber || $FSYNC_NO; + return $FSYNC_NO; +} + +sub preferred_fsync_no() { + return $FsyncNumber; } sub addrbook_file() { @@ -956,6 +961,10 @@ sub db_type() { return $IM_DB_TYPE; } +sub ssh_path() { + return $SshPath || $SSH_PATH; +} + sub namazuv2() { return $NamazuV2; } @@ -1098,7 +1107,7 @@ home_dir conf_dir mail_dir mail_path news_dir news_path queue_dir queue_path inbox_folder draft_folder trash_folder config_cases config_case_inbox preserve_dot -folder_mode msg_mode allowcrlf use_cl no_sync fsync_no +folder_mode msg_mode allowcrlf use_cl no_sync fsync_no preferred_fsync_no addrbook_file aliases_file petname_file context_file getchksbr_file getsbr_file scansbr_file scan_header_pick address addresses_regex @@ -1110,7 +1119,7 @@ usepwagent pwagentport pwagent_tmp_dir pwagent_tmp_path usepwfiles pwfiles expand_path usetouchfile touchfile namazuv2 namazu_lock_dir namazu_lock_path pop_timeout imap_timeout nntp_timeout dns_timeout connect_timeout command_timeout rcv_buf_siz -db_type file_attr +db_type file_attr ssh_path =head1 DESCRIPTION |