My modified version of Chris Shoemaker's improved batch-file handling.
[rsync/rsync.git] / options.c
CommitLineData
7a24c346 1/* -*- c-file-style: "linux" -*-
dfa32483 2 *
dafe63ca
MP
3 * Copyright (C) 1998-2001 by Andrew Tridgell <tridge@samba.org>
4 * Copyright (C) 2000, 2001, 2002 by Martin Pool <mbp@samba.org>
dfa32483 5 *
dafe63ca
MP
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
dfa32483 10 *
dafe63ca
MP
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
dfa32483 15 *
dafe63ca
MP
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 */
7a6421fa 20
7a6421fa 21#include "rsync.h"
2855f61f 22#include "popt.h"
7a6421fa 23
7be73df4 24extern int sanitize_paths;
99218d82 25extern int select_timeout;
7be73df4 26extern char curr_dir[MAXPATHLEN];
bf6dcd17 27extern struct exclude_list_struct exclude_list;
8645af1d 28
7a6421fa 29int make_backups = 0;
1bfbf40b
MP
30
31/**
dfa32483 32 * If 1, send the whole file as literal data rather than trying to
dafe63ca 33 * create an incremental diff.
1bfbf40b 34 *
dfa32483 35 * If -1, then look at whether we're local or remote and go by that.
dafe63ca
MP
36 *
37 * @sa disable_deltas_p()
1bfbf40b 38 **/
dfa32483 39int whole_file = -1;
1bfbf40b 40
dfa32483 41int archive_mode = 0;
716e73d4 42int keep_dirlinks = 0;
7a6421fa
AT
43int copy_links = 0;
44int preserve_links = 0;
45int preserve_hard_links = 0;
46int preserve_perms = 0;
47int preserve_devices = 0;
48int preserve_uid = 0;
49int preserve_gid = 0;
50int preserve_times = 0;
51int update_only = 0;
52int cvs_exclude = 0;
a5c11139
WD
53int dry_run = 0;
54int local_server = 0;
55int ignore_times = 0;
56int delete_mode = 0;
57int delete_excluded = 0;
58int one_file_system = 0;
4f3e9a0f 59int protocol_version = PROTOCOL_VERSION;
a5c11139
WD
60int sparse_files = 0;
61int do_compression = 0;
62int am_root = 0;
63int orig_umask = 0;
ea5164d1
WD
64int relative_paths = -1;
65int implied_dirs = 1;
7a6421fa
AT
66int numeric_ids = 0;
67int force_delete = 0;
68int io_timeout = 0;
7a6421fa
AT
69int read_only = 0;
70int module_id = -1;
71int am_server = 0;
30ce7e8a 72int am_sender = 0;
4337c8f8 73int am_generator = 0;
ea5164d1
WD
74char *files_from = NULL;
75int filesfrom_fd = -1;
76char *remote_filesfrom_file = NULL;
77int eol_nulls = 0;
7a6421fa 78int recurse = 0;
1312d9fc
WD
79int am_daemon = 0;
80int daemon_over_rsh = 0;
a5c11139
WD
81int do_stats = 0;
82int do_progress = 0;
83int keep_partial = 0;
84int safe_symlinks = 0;
85int copy_unsafe_links = 0;
86int size_only = 0;
87int bwlimit = 0;
3c74c3a3 88size_t bwlimit_writemax = 0;
a5c11139
WD
89int delete_after = 0;
90int only_existing = 0;
91int opt_ignore_existing = 0;
92int max_delete = 0;
93int ignore_errors = 0;
94int modify_window = 0;
95int blocking_io = -1;
2289bf64 96int checksum_seed = 0;
da9d12f5 97unsigned int block_size = 0;
7a6421fa 98
b35d0d8e 99
13e29995 100/** Network address family. **/
6ab6d4bf 101#ifdef INET6
13e29995 102int default_af_hint = 0; /* Any protocol */
6ab6d4bf 103#else
13e29995 104int default_af_hint = AF_INET; /* Must use IPv4 */
6ab6d4bf 105#endif
06963d0f 106
13e29995
MP
107/** Do not go into the background when run as --daemon. Good
108 * for debugging and required for running as a service on W32,
109 * or under Unix process-monitors. **/
110int no_detach = 0;
111
088aac85
DD
112int write_batch = 0;
113int read_batch = 0;
d175d7e1
WD
114int backup_dir_len = 0;
115int backup_suffix_len;
e0391f81 116unsigned int backup_dir_remainder;
6902ed17 117
d175d7e1 118char *backup_suffix = NULL;
7a6421fa 119char *tmpdir = NULL;
375a4556 120char *compare_dest = NULL;
30e8c8e1 121char *config_file = NULL;
7a6421fa 122char *shell_cmd = NULL;
b6062654 123char *log_format = NULL;
65575e96 124char *password_file = NULL;
41bd28fe 125char *rsync_path = RSYNC_PATH;
66203a98 126char *backup_dir = NULL;
e0391f81 127char backup_dir_buf[MAXPATHLEN];
7a6421fa 128int rsync_port = RSYNC_PORT;
59c95e42 129int link_dest = 0;
7a6421fa
AT
130
131int verbose = 0;
b86f0cef 132int quiet = 0;
7a6421fa 133int always_checksum = 0;
f7632fc6 134int list_only = 0;
7a6421fa 135
beb93684 136#define MAX_BATCH_PREFIX_LEN 256 /* Must be less than MAXPATHLEN-13 */
088aac85 137char *batch_prefix = NULL;
6902ed17 138
e1add893 139static int daemon_opt; /* sets am_daemon after option error-reporting */
5b56cc19
AT
140static int modify_window_set;
141
06963d0f 142/** Local address to bind. As a character string because it's
fdf57ede 143 * interpreted by the IPv6 layer: should be a numeric IP4 or IP6
06963d0f
MP
144 * address, or a hostname. **/
145char *bind_address;
5c9730a4 146
7a24c346 147
27a12348 148static void print_rsync_version(enum logcode f)
7a24c346 149{
dfa32483
WD
150 char const *got_socketpair = "no ";
151 char const *hardlinks = "no ";
152 char const *links = "no ";
a358449a 153 char const *ipv6 = "no ";
736a6a29 154 STRUCT_STAT *dumstat;
0c80cd8e
MP
155
156#ifdef HAVE_SOCKETPAIR
dfa32483 157 got_socketpair = "";
0c80cd8e 158#endif
2855f61f
MP
159
160#if SUPPORT_HARD_LINKS
dfa32483 161 hardlinks = "";
2855f61f
MP
162#endif
163
164#if SUPPORT_LINKS
dfa32483 165 links = "";
2855f61f
MP
166#endif
167
a358449a
MP
168#if INET6
169 ipv6 = "";
dfa32483 170#endif
a358449a 171
dfa32483
WD
172 rprintf(f, "%s version %s protocol version %d\n",
173 RSYNC_NAME, RSYNC_VERSION, PROTOCOL_VERSION);
174 rprintf(f,
45ddbf62 175 "Copyright (C) 1996-2004 by Andrew Tridgell and others\n");
3b4b1984 176 rprintf(f, "<http://rsync.samba.org/>\n");
dfa32483
WD
177 rprintf(f, "Capabilities: %d-bit files, %ssocketpairs, "
178 "%shard links, %ssymlinks, batchfiles, \n",
a5c11139 179 (int) (sizeof (OFF_T) * 8),
dfa32483 180 got_socketpair, hardlinks, links);
2855f61f 181
736a6a29
MP
182 /* Note that this field may not have type ino_t. It depends
183 * on the complicated interaction between largefile feature
184 * macros. */
7a52790b 185 rprintf(f, " %sIPv6, %d-bit system inums, %d-bit internal inums\n",
dfa32483 186 ipv6,
a5c11139 187 (int) (sizeof dumstat->st_ino * 8),
5f381268 188 (int) (sizeof (uint64) * 8));
fc0302cf
MP
189#ifdef MAINTAINER_MODE
190 rprintf(f, " panic action: \"%s\"\n",
191 get_panic_action());
192#endif
736a6a29 193
7a24c346 194#ifdef NO_INT64
dfa32483 195 rprintf(f, "WARNING: no 64-bit integers on this platform!\n");
7a24c346 196#endif
7b329a2d
MP
197
198 rprintf(f,
199"\n"
200"rsync comes with ABSOLUTELY NO WARRANTY. This is free software, and you\n"
201"are welcome to redistribute it under certain conditions. See the GNU\n"
202"General Public Licence for details.\n"
203 );
7a24c346
MP
204}
205
206
0f3203c3 207void usage(enum logcode F)
7a6421fa 208{
2855f61f 209 print_rsync_version(F);
704f908e 210
3ff984d7 211 rprintf(F,"\nrsync is a file transfer program capable of efficient remote update\nvia a fast differencing algorithm.\n\n");
704f908e 212
9ef53907 213 rprintf(F,"Usage: rsync [OPTION]... SRC [SRC]... [USER@]HOST:DEST\n");
704f908e 214 rprintf(F," or rsync [OPTION]... [USER@]HOST:SRC DEST\n");
9ef53907 215 rprintf(F," or rsync [OPTION]... SRC [SRC]... DEST\n");
14d43f1f 216 rprintf(F," or rsync [OPTION]... [USER@]HOST::SRC [DEST]\n");
9ef53907 217 rprintf(F," or rsync [OPTION]... SRC [SRC]... [USER@]HOST::DEST\n");
14d43f1f 218 rprintf(F," or rsync [OPTION]... rsync://[USER@]HOST[:PORT]/SRC [DEST]\n");
eaa4c150 219 rprintf(F," or rsync [OPTION]... SRC [SRC]... rsync://[USER@]HOST[:PORT]/DEST\n");
9ef53907
DD
220 rprintf(F,"SRC on single-colon remote HOST will be expanded by remote shell\n");
221 rprintf(F,"SRC on server remote HOST may contain shell wildcards or multiple\n");
222 rprintf(F," sources separated by space as long as they have same top-level\n");
704f908e
AT
223 rprintf(F,"\nOptions\n");
224 rprintf(F," -v, --verbose increase verbosity\n");
b86f0cef 225 rprintf(F," -q, --quiet decrease verbosity\n");
704f908e 226 rprintf(F," -c, --checksum always checksum\n");
06891710 227 rprintf(F," -a, --archive archive mode, equivalent to -rlptgoD\n");
704f908e
AT
228 rprintf(F," -r, --recursive recurse into directories\n");
229 rprintf(F," -R, --relative use relative path names\n");
ea5164d1
WD
230 rprintf(F," --no-relative turn off --relative\n");
231 rprintf(F," --no-implied-dirs don't send implied dirs with -R\n");
6839140e 232 rprintf(F," -b, --backup make backups (see --suffix & --backup-dir)\n");
e20c5e95 233 rprintf(F," --backup-dir make backups into this directory\n");
6839140e 234 rprintf(F," --suffix=SUFFIX backup suffix (default %s w/o --backup-dir)\n",BACKUP_SUFFIX);
704f908e 235 rprintf(F," -u, --update update only (don't overwrite newer files)\n");
716e73d4 236 rprintf(F," -K, --keep-dirlinks treat symlinked dir on receiver as dir\n");
13e29995 237 rprintf(F," -l, --links copy symlinks as symlinks\n");
06d76beb
WD
238 rprintf(F," -L, --copy-links copy the referent of all symlinks\n");
239 rprintf(F," --copy-unsafe-links copy the referent of \"unsafe\" symlinks\n");
240 rprintf(F," --safe-links ignore \"unsafe\" symlinks\n");
704f908e
AT
241 rprintf(F," -H, --hard-links preserve hard links\n");
242 rprintf(F," -p, --perms preserve permissions\n");
243 rprintf(F," -o, --owner preserve owner (root only)\n");
244 rprintf(F," -g, --group preserve group\n");
245 rprintf(F," -D, --devices preserve devices (root only)\n");
dfa32483 246 rprintf(F," -t, --times preserve times\n");
704f908e
AT
247 rprintf(F," -S, --sparse handle sparse files efficiently\n");
248 rprintf(F," -n, --dry-run show what would have been transferred\n");
249 rprintf(F," -W, --whole-file copy whole files, no incremental checks\n");
93689aa5 250 rprintf(F," --no-whole-file turn off --whole-file\n");
704f908e 251 rprintf(F," -x, --one-file-system don't cross filesystem boundaries\n");
dfa32483 252 rprintf(F," -B, --block-size=SIZE checksum blocking size (default %d)\n",BLOCK_SIZE);
54170a08 253 rprintf(F," -e, --rsh=COMMAND specify the remote shell\n");
704f908e 254 rprintf(F," --rsync-path=PATH specify path to rsync on the remote machine\n");
1347d512 255 rprintf(F," --existing only update files that already exist\n");
6839140e 256 rprintf(F," --ignore-existing ignore files that already exist on receiving side\n");
704f908e 257 rprintf(F," --delete delete files that don't exist on the sending side\n");
b33b791e 258 rprintf(F," --delete-excluded also delete excluded files on the receiving side\n");
ad1a09a5 259 rprintf(F," --delete-after receiver deletes after transferring, not before\n");
db2b5cb7 260 rprintf(F," --ignore-errors delete even if there are I/O errors\n");
0b73ca12 261 rprintf(F," --max-delete=NUM don't delete more than NUM files\n");
c95da96a 262 rprintf(F," --partial keep partially transferred files\n");
704f908e
AT
263 rprintf(F," --force force deletion of directories even if not empty\n");
264 rprintf(F," --numeric-ids don't map uid/gid values by user/group name\n");
db2b5cb7 265 rprintf(F," --timeout=TIME set I/O timeout in seconds\n");
6839140e
WD
266 rprintf(F," -I, --ignore-times turn off mod time & file size quick check\n");
267 rprintf(F," --size-only ignore mod time for quick check (use size)\n");
268 rprintf(F," --modify-window=NUM compare mod times with reduced accuracy\n");
704f908e 269 rprintf(F," -T --temp-dir=DIR create temporary files in directory DIR\n");
375a4556 270 rprintf(F," --compare-dest=DIR also compare destination files relative to DIR\n");
8294b00c 271 rprintf(F," --link-dest=DIR create hardlinks to DIR for unchanged files\n");
d9fcc198 272 rprintf(F," -P equivalent to --partial --progress\n");
704f908e 273 rprintf(F," -z, --compress compress file data\n");
ea5164d1 274 rprintf(F," -C, --cvs-exclude auto ignore files in the same way CVS does\n");
2acf81eb 275 rprintf(F," --exclude=PATTERN exclude files matching PATTERN\n");
858fb9eb 276 rprintf(F," --exclude-from=FILE exclude patterns listed in FILE\n");
2acf81eb 277 rprintf(F," --include=PATTERN don't exclude files matching PATTERN\n");
858fb9eb 278 rprintf(F," --include-from=FILE don't exclude patterns listed in FILE\n");
ea5164d1 279 rprintf(F," --files-from=FILE read FILE for list of source-file names\n");
6839140e 280 rprintf(F," -0 --from0 all *-from file lists are delimited by nulls\n");
dfa32483 281 rprintf(F," --version print version number\n");
db2b5cb7 282 rprintf(F," --daemon run as an rsync daemon\n");
dfa32483
WD
283 rprintf(F," --no-detach do not detach from the parent\n");
284 rprintf(F," --address=ADDRESS bind to the specified address\n");
285 rprintf(F," --config=FILE specify alternate rsyncd.conf file\n");
704f908e 286 rprintf(F," --port=PORT specify alternate rsyncd port number\n");
db2b5cb7 287 rprintf(F," --blocking-io use blocking I/O for the remote shell\n");
dfa32483
WD
288 rprintf(F," --no-blocking-io turn off --blocking-io\n");
289 rprintf(F," --stats give some file transfer stats\n");
290 rprintf(F," --progress show progress during transfer\n");
291 rprintf(F," --log-format=FORMAT log file transfers using specified format\n");
65575e96 292 rprintf(F," --password-file=FILE get password from FILE\n");
ef5d23eb 293 rprintf(F," --bwlimit=KBPS limit I/O bandwidth, KBytes per second\n");
088aac85
DD
294 rprintf(F," --write-batch=PREFIX write batch fileset starting with PREFIX\n");
295 rprintf(F," --read-batch=PREFIX read batch fileset starting with PREFIX\n");
c8d895de 296 rprintf(F," --checksum-seed=NUM set block/file checksum seed\n");
06963d0f 297#ifdef INET6
3dd22903
WD
298 rprintf(F," -4 --ipv4 prefer IPv4\n");
299 rprintf(F," -6 --ipv6 prefer IPv6\n");
06963d0f 300#endif
3dd22903 301 rprintf(F," -h, --help show this help screen\n");
7a6421fa
AT
302
303 rprintf(F,"\n");
b72f24c7
AT
304
305 rprintf(F,"\nPlease see the rsync(1) and rsyncd.conf(5) man pages for full documentation\n");
2855f61f 306 rprintf(F,"See http://rsync.samba.org/ for updates, bug reports, and answers\n");
7a6421fa
AT
307}
308
1f3d6cdd
WD
309enum {OPT_VERSION = 1000, OPT_SENDER, OPT_EXCLUDE, OPT_EXCLUDE_FROM,
310 OPT_DELETE_AFTER, OPT_DELETE_EXCLUDED, OPT_LINK_DEST,
311 OPT_INCLUDE, OPT_INCLUDE_FROM, OPT_MODIFY_WINDOW,
99218d82 312 OPT_READ_BATCH, OPT_WRITE_BATCH, OPT_TIMEOUT,
c67d1386 313 OPT_REFUSED_BASE = 9000};
7a6421fa 314
2855f61f
MP
315static struct poptOption long_options[] = {
316 /* longName, shortName, argInfo, argPtr, value, descrip, argDesc */
dfa32483 317 {"version", 0, POPT_ARG_NONE, 0, OPT_VERSION, 0, 0},
d175d7e1 318 {"suffix", 0, POPT_ARG_STRING, &backup_suffix, 0, 0, 0 },
3dd22903
WD
319 {"rsync-path", 0, POPT_ARG_STRING, &rsync_path, 0, 0, 0 },
320 {"password-file", 0, POPT_ARG_STRING, &password_file, 0, 0, 0 },
afb6e945
WD
321 {"ignore-times", 'I', POPT_ARG_NONE, &ignore_times, 0, 0, 0 },
322 {"size-only", 0, POPT_ARG_NONE, &size_only, 0, 0, 0 },
8b54f004 323 {"modify-window", 0, POPT_ARG_INT, &modify_window, OPT_MODIFY_WINDOW, 0, 0 },
afb6e945
WD
324 {"one-file-system", 'x', POPT_ARG_NONE, &one_file_system, 0, 0, 0 },
325 {"delete", 0, POPT_ARG_NONE, &delete_mode, 0, 0, 0 },
326 {"existing", 0, POPT_ARG_NONE, &only_existing, 0, 0, 0 },
327 {"ignore-existing", 0, POPT_ARG_NONE, &opt_ignore_existing, 0, 0, 0 },
1de50993 328 {"delete-after", 0, POPT_ARG_NONE, 0, OPT_DELETE_AFTER, 0, 0 },
8b54f004 329 {"delete-excluded", 0, POPT_ARG_NONE, 0, OPT_DELETE_EXCLUDED, 0, 0 },
afb6e945
WD
330 {"force", 0, POPT_ARG_NONE, &force_delete, 0, 0, 0 },
331 {"numeric-ids", 0, POPT_ARG_NONE, &numeric_ids, 0, 0, 0 },
8b54f004
MP
332 {"exclude", 0, POPT_ARG_STRING, 0, OPT_EXCLUDE, 0, 0 },
333 {"include", 0, POPT_ARG_STRING, 0, OPT_INCLUDE, 0, 0 },
334 {"exclude-from", 0, POPT_ARG_STRING, 0, OPT_EXCLUDE_FROM, 0, 0 },
335 {"include-from", 0, POPT_ARG_STRING, 0, OPT_INCLUDE_FROM, 0, 0 },
afb6e945 336 {"safe-links", 0, POPT_ARG_NONE, &safe_symlinks, 0, 0, 0 },
8b54f004 337 {"help", 'h', POPT_ARG_NONE, 0, 'h', 0, 0 },
afb6e945
WD
338 {"backup", 'b', POPT_ARG_NONE, &make_backups, 0, 0, 0 },
339 {"dry-run", 'n', POPT_ARG_NONE, &dry_run, 0, 0, 0 },
340 {"sparse", 'S', POPT_ARG_NONE, &sparse_files, 0, 0, 0 },
341 {"cvs-exclude", 'C', POPT_ARG_NONE, &cvs_exclude, 0, 0, 0 },
342 {"update", 'u', POPT_ARG_NONE, &update_only, 0, 0, 0 },
716e73d4 343 {"keep-dirlinks", 'K', POPT_ARG_NONE, &keep_dirlinks, 0, 0, 0 },
afb6e945
WD
344 {"links", 'l', POPT_ARG_NONE, &preserve_links, 0, 0, 0 },
345 {"copy-links", 'L', POPT_ARG_NONE, &copy_links, 0, 0, 0 },
346 {"whole-file", 'W', POPT_ARG_VAL, &whole_file, 1, 0, 0 },
347 {"no-whole-file", 0, POPT_ARG_VAL, &whole_file, 0, 0, 0 },
348 {"copy-unsafe-links", 0, POPT_ARG_NONE, &copy_unsafe_links, 0, 0, 0 },
349 {"perms", 'p', POPT_ARG_NONE, &preserve_perms, 0, 0, 0 },
350 {"owner", 'o', POPT_ARG_NONE, &preserve_uid, 0, 0, 0 },
351 {"group", 'g', POPT_ARG_NONE, &preserve_gid, 0, 0, 0 },
352 {"devices", 'D', POPT_ARG_NONE, &preserve_devices, 0, 0, 0 },
353 {"times", 't', POPT_ARG_NONE, &preserve_times, 0, 0, 0 },
354 {"checksum", 'c', POPT_ARG_NONE, &always_checksum, 0, 0, 0 },
8b54f004
MP
355 {"verbose", 'v', POPT_ARG_NONE, 0, 'v', 0, 0 },
356 {"quiet", 'q', POPT_ARG_NONE, 0, 'q', 0, 0 },
dfa32483 357 {"archive", 'a', POPT_ARG_NONE, &archive_mode, 0, 0, 0 },
afb6e945 358 {"server", 0, POPT_ARG_NONE, &am_server, 0, 0, 0 },
dfa32483 359 {"sender", 0, POPT_ARG_NONE, 0, OPT_SENDER, 0, 0 },
afb6e945 360 {"recursive", 'r', POPT_ARG_NONE, &recurse, 0, 0, 0 },
ea5164d1
WD
361 {"relative", 'R', POPT_ARG_VAL, &relative_paths, 1, 0, 0 },
362 {"no-relative", 0, POPT_ARG_VAL, &relative_paths, 0, 0, 0 },
afb6e945
WD
363 {"rsh", 'e', POPT_ARG_STRING, &shell_cmd, 0, 0, 0 },
364 {"block-size", 'B', POPT_ARG_INT, &block_size, 0, 0, 0 },
365 {"max-delete", 0, POPT_ARG_INT, &max_delete, 0, 0, 0 },
99218d82 366 {"timeout", 0, POPT_ARG_INT, &io_timeout, OPT_TIMEOUT, 0, 0 },
afb6e945
WD
367 {"temp-dir", 'T', POPT_ARG_STRING, &tmpdir, 0, 0, 0 },
368 {"compare-dest", 0, POPT_ARG_STRING, &compare_dest, 0, 0, 0 },
7be73df4 369 {"link-dest", 0, POPT_ARG_STRING, &compare_dest, OPT_LINK_DEST, 0, 0 },
2855f61f 370 /* TODO: Should this take an optional int giving the compression level? */
afb6e945 371 {"compress", 'z', POPT_ARG_NONE, &do_compression, 0, 0, 0 },
e1add893 372 {"daemon", 0, POPT_ARG_NONE, &daemon_opt, 0, 0, 0 },
afb6e945
WD
373 {"no-detach", 0, POPT_ARG_NONE, &no_detach, 0, 0, 0 },
374 {"stats", 0, POPT_ARG_NONE, &do_stats, 0, 0, 0 },
375 {"progress", 0, POPT_ARG_NONE, &do_progress, 0, 0, 0 },
376 {"partial", 0, POPT_ARG_NONE, &keep_partial, 0, 0, 0 },
377 {"ignore-errors", 0, POPT_ARG_NONE, &ignore_errors, 0, 0, 0 },
378 {"blocking-io", 0, POPT_ARG_VAL, &blocking_io, 1, 0, 0 },
379 {"no-blocking-io", 0, POPT_ARG_VAL, &blocking_io, 0, 0, 0 },
dfa32483 380 {0, 'P', POPT_ARG_NONE, 0, 'P', 0, 0 },
afb6e945
WD
381 {"config", 0, POPT_ARG_STRING, &config_file, 0, 0, 0 },
382 {"port", 0, POPT_ARG_INT, &rsync_port, 0, 0, 0 },
383 {"log-format", 0, POPT_ARG_STRING, &log_format, 0, 0, 0 },
384 {"bwlimit", 0, POPT_ARG_INT, &bwlimit, 0, 0, 0 },
8b54f004 385 {"address", 0, POPT_ARG_STRING, &bind_address, 0, 0, 0 },
afb6e945
WD
386 {"backup-dir", 0, POPT_ARG_STRING, &backup_dir, 0, 0, 0 },
387 {"hard-links", 'H', POPT_ARG_NONE, &preserve_hard_links, 0, 0, 0 },
dfa32483
WD
388 {"read-batch", 0, POPT_ARG_STRING, &batch_prefix, OPT_READ_BATCH, 0, 0 },
389 {"write-batch", 0, POPT_ARG_STRING, &batch_prefix, OPT_WRITE_BATCH, 0, 0 },
ea5164d1
WD
390 {"files-from", 0, POPT_ARG_STRING, &files_from, 0, 0, 0 },
391 {"from0", '0', POPT_ARG_NONE, &eol_nulls, 0, 0, 0},
392 {"no-implied-dirs", 0, POPT_ARG_VAL, &implied_dirs, 0, 0, 0 },
4f3e9a0f 393 {"protocol", 0, POPT_ARG_INT, &protocol_version, 0, 0, 0 },
c8d895de 394 {"checksum-seed", 0, POPT_ARG_INT, &checksum_seed, 0, 0, 0 },
06963d0f 395#ifdef INET6
3dd22903
WD
396 {"ipv4", '4', POPT_ARG_VAL, &default_af_hint, AF_INET, 0, 0 },
397 {"ipv6", '6', POPT_ARG_VAL, &default_af_hint, AF_INET6, 0, 0 },
06963d0f 398#endif
8b54f004 399 {0,0,0,0, 0, 0, 0}
2855f61f 400};
7a6421fa 401
06963d0f 402
e51094b7 403static char err_buf[200];
cd8185f2 404
2855f61f 405
dafe63ca
MP
406/**
407 * Store the option error message, if any, so that we can log the
408 * connection attempt (which requires parsing the options), and then
409 * show the error later on.
410 **/
cd8185f2
AT
411void option_error(void)
412{
e51094b7
WD
413 if (!err_buf[0]) {
414 strcpy(err_buf, "Error parsing options: "
415 "option may be supported on client but not on server?\n");
cd8185f2 416 }
e51094b7 417
e51094b7 418 rprintf(FERROR, RSYNC_NAME ": %s", err_buf);
cd8185f2
AT
419}
420
dafe63ca
MP
421
422/**
27ed20f7
WD
423 * Tweak the option table to disable all options that the rsyncd.conf
424 * file has told us to refuse.
dafe63ca 425 **/
27ed20f7 426static void set_refuse_options(char *bp)
cd8185f2 427{
27ed20f7
WD
428 struct poptOption *op;
429 char *cp;
430
431 while (1) {
432 if ((cp = strchr(bp, ' ')) != NULL)
433 *cp= '\0';
55afbb52
WD
434 for (op = long_options; ; op++) {
435 if (!op->longName) {
436 rprintf(FLOG,
437 "Unknown option %s in \"refuse options\" setting\n",
438 bp);
439 break;
440 }
27ed20f7 441 if (strcmp(bp, op->longName) == 0) {
c67d1386 442 op->val = (op - long_options)+OPT_REFUSED_BASE;
27ed20f7
WD
443 break;
444 }
cd8185f2 445 }
27ed20f7
WD
446 if (!cp)
447 break;
448 *cp = ' ';
449 bp = cp + 1;
cd8185f2 450 }
cd8185f2
AT
451}
452
453
2855f61f
MP
454static int count_args(char const **argv)
455{
dfa32483 456 int i = 0;
2855f61f 457
dfa32483
WD
458 while (argv[i] != NULL)
459 i++;
460
461 return i;
2855f61f
MP
462}
463
464
dafe63ca
MP
465/**
466 * Process command line arguments. Called on both local and remote.
467 *
468 * @retval 1 if all options are OK; with globals set to appropriate
469 * values
470 *
471 * @retval 0 on error, with err_buf containing an explanation
472 **/
2855f61f 473int parse_arguments(int *argc, const char ***argv, int frommain)
7a6421fa 474{
d853783f 475 int opt;
cd8185f2 476 char *ref = lp_refuse_options(module_id);
7be73df4 477 const char *arg;
dfa32483 478 poptContext pc;
d853783f 479
27ed20f7
WD
480 if (ref && *ref)
481 set_refuse_options(ref);
482
dfa32483 483 /* TODO: Call poptReadDefaultConfig; handle errors. */
cd8185f2 484
dfa32483
WD
485 /* The context leaks in case of an error, but if there's a
486 * problem we always exit anyhow. */
487 pc = poptGetContext(RSYNC_NAME, *argc, *argv, long_options, 0);
2855f61f
MP
488
489 while ((opt = poptGetNextOpt(pc)) != -1) {
dfa32483
WD
490 /* most options are handled automatically by popt;
491 * only special cases are returned and listed here. */
2855f61f 492
d853783f
AT
493 switch (opt) {
494 case OPT_VERSION:
dfa32483 495 print_rsync_version(FINFO);
d853783f 496 exit_cleanup(0);
dfa32483 497
5b56cc19 498 case OPT_MODIFY_WINDOW:
dfa32483
WD
499 /* The value has already been set by popt, but
500 * we need to remember that we're using a
501 * non-default setting. */
5b56cc19
AT
502 modify_window_set = 1;
503 break;
1de50993
WD
504
505 case OPT_DELETE_AFTER:
506 delete_after = 1;
507 delete_mode = 1;
508 break;
509
b33b791e
DD
510 case OPT_DELETE_EXCLUDED:
511 delete_excluded = 1;
512 delete_mode = 1;
513 break;
514
d853783f 515 case OPT_EXCLUDE:
fa0c1939
WD
516 if (am_server || sanitize_paths)
517 return 0; /* Impossible... */
357406ec 518 add_exclude(&exclude_list, poptGetOptArg(pc), 0);
d853783f
AT
519 break;
520
521 case OPT_INCLUDE:
fa0c1939
WD
522 if (am_server || sanitize_paths)
523 return 0; /* Impossible... */
8645af1d 524 add_exclude(&exclude_list, poptGetOptArg(pc),
357406ec 525 XFLG_DEF_INCLUDE);
d853783f
AT
526 break;
527
528 case OPT_EXCLUDE_FROM:
fa0c1939
WD
529 if (am_server || sanitize_paths)
530 return 0; /* Impossible... */
7be73df4 531 arg = poptGetOptArg(pc);
7be73df4 532 add_exclude_file(&exclude_list, arg,
357406ec 533 XFLG_FATAL_ERRORS);
d853783f
AT
534 break;
535
93695764 536 case OPT_INCLUDE_FROM:
fa0c1939
WD
537 if (am_server || sanitize_paths)
538 return 0; /* Impossible... */
7be73df4 539 arg = poptGetOptArg(pc);
7be73df4 540 add_exclude_file(&exclude_list, arg,
357406ec 541 XFLG_FATAL_ERRORS | XFLG_DEF_INCLUDE);
93695764
DD
542 break;
543
d853783f
AT
544 case 'h':
545 usage(FINFO);
546 exit_cleanup(0);
547
d853783f
AT
548 case 'v':
549 verbose++;
550 break;
7a6421fa 551
b86f0cef 552 case 'q':
f98c60bf
WD
553 if (frommain)
554 quiet++;
b86f0cef
DD
555 break;
556
d853783f
AT
557 case OPT_SENDER:
558 if (!am_server) {
559 usage(FERROR);
65417579 560 exit_cleanup(RERR_SYNTAX);
d853783f
AT
561 }
562 am_sender = 1;
563 break;
564
d9fcc198
AT
565 case 'P':
566 do_progress = 1;
567 keep_partial = 1;
568 break;
569
088aac85
DD
570 case OPT_WRITE_BATCH:
571 /* popt stores the filename in batch_prefix for us */
572 write_batch = 1;
573 break;
574
76f79ba7 575 case OPT_READ_BATCH:
088aac85 576 /* popt stores the filename in batch_prefix for us */
6902ed17
MP
577 read_batch = 1;
578 break;
ea5164d1 579
99218d82
WD
580 case OPT_TIMEOUT:
581 if (io_timeout && io_timeout < select_timeout)
582 select_timeout = io_timeout;
583 break;
584
59c95e42
DD
585 case OPT_LINK_DEST:
586#if HAVE_LINK
59c95e42
DD
587 link_dest = 1;
588 break;
589#else
d175d7e1 590 snprintf(err_buf, sizeof err_buf,
dfa32483 591 "hard links are not supported on this %s\n",
59c95e42 592 am_server ? "server" : "client");
59c95e42
DD
593 return 0;
594#endif
595
d853783f 596 default:
55afbb52 597 /* A large opt value means that set_refuse_options()
c67d1386
WD
598 * turned this option off (opt-BASE is its index). */
599 if (opt >= OPT_REFUSED_BASE) {
600 struct poptOption *op =
601 &long_options[opt-OPT_REFUSED_BASE];
27ed20f7
WD
602 int n = snprintf(err_buf, sizeof err_buf,
603 "This server does not support --%s\n",
604 op->longName) - 1;
605 if (op->shortName) {
606 snprintf(err_buf+n, sizeof err_buf-n,
607 " (-%c)\n", op->shortName);
608 }
609 } else {
610 snprintf(err_buf, sizeof err_buf,
611 "%s%s: %s\n",
612 am_server ? "on remote machine: " : "",
613 poptBadOption(pc, POPT_BADOPTION_NOALIAS),
614 poptStrerror(opt));
615 }
dfa32483 616 return 0;
d853783f 617 }
7a6421fa 618 }
2855f61f 619
e1add893 620#if !SUPPORT_LINKS
54e87b4b 621 if (preserve_links && !am_sender) {
e1add893
WD
622 snprintf(err_buf, sizeof err_buf,
623 "symlinks are not supported on this %s\n",
624 am_server ? "server" : "client");
e1add893
WD
625 return 0;
626 }
627#endif
628
629#if !SUPPORT_HARD_LINKS
630 if (preserve_hard_links) {
631 snprintf(err_buf, sizeof err_buf,
632 "hard links are not supported on this %s\n",
633 am_server ? "server" : "client");
e1add893
WD
634 return 0;
635 }
636#endif
637
088aac85 638 if (write_batch && read_batch) {
d175d7e1
WD
639 rprintf(FERROR,
640 "write-batch and read-batch can not be used together\n");
641 exit_cleanup(RERR_SYNTAX);
088aac85 642 }
b9f592fb
WD
643 if ((write_batch || read_batch) && am_server) {
644 rprintf(FERROR,
645 "batch-mode is incompatible with server mode\n");
646 /* We don't actually exit_cleanup(), so that we can still service
647 * older version clients that still send batch args to server. */
648 read_batch = write_batch = 0;
649 batch_prefix = NULL;
650 }
beb93684
WD
651 if (batch_prefix && strlen(batch_prefix) > MAX_BATCH_PREFIX_LEN) {
652 rprintf(FERROR,
ce58b1b4 653 "the batch-file prefix must be %d characters or less.\n",
beb93684
WD
654 MAX_BATCH_PREFIX_LEN);
655 exit_cleanup(RERR_SYNTAX);
656 }
088aac85 657
ce58b1b4
WD
658 if (tmpdir && strlen(tmpdir) >= MAXPATHLEN - 10) {
659 rprintf(FERROR, "the --temp-dir path is WAY too long.\n");
660 exit_cleanup(RERR_SYNTAX);
661 }
662
dfa32483 663 if (archive_mode) {
ea5164d1
WD
664 if (!files_from)
665 recurse = 1;
dfa32483
WD
666#if SUPPORT_LINKS
667 preserve_links = 1;
668#endif
669 preserve_perms = 1;
670 preserve_times = 1;
671 preserve_gid = 1;
672 preserve_uid = 1;
673 preserve_devices = 1;
674 }
675
ea5164d1
WD
676 if (relative_paths < 0)
677 relative_paths = files_from? 1 : 0;
678
7be73df4
WD
679 *argv = poptGetArgs(pc);
680 if (*argv)
681 *argc = count_args(*argv);
682 else
683 *argc = 0;
684
685 if (sanitize_paths) {
686 int i;
687 for (i = *argc; i-- > 0; )
688 (*argv)[i] = alloc_sanitize_path((*argv)[i], NULL);
689 if (tmpdir)
690 tmpdir = alloc_sanitize_path(tmpdir, curr_dir);
691 if (compare_dest)
692 compare_dest = alloc_sanitize_path(compare_dest, curr_dir);
7be73df4
WD
693 if (backup_dir)
694 backup_dir = alloc_sanitize_path(backup_dir, curr_dir);
695 if (files_from)
696 files_from = alloc_sanitize_path(files_from, curr_dir);
697 }
698
5df1fcf2
WD
699 if (daemon_opt) {
700 daemon_opt = 0;
701 am_daemon = 1;
702 return 1;
703 }
704
d175d7e1 705 if (!backup_suffix)
e0391f81 706 backup_suffix = backup_dir ? "" : BACKUP_SUFFIX;
d175d7e1 707 backup_suffix_len = strlen(backup_suffix);
80ddadb7
WD
708 if (strchr(backup_suffix, '/') != NULL) {
709 rprintf(FERROR, "--suffix cannot contain slashes: %s\n",
710 backup_suffix);
711 exit_cleanup(RERR_SYNTAX);
712 }
e0391f81
WD
713 if (backup_dir) {
714 backup_dir_len = strlcpy(backup_dir_buf, backup_dir, sizeof backup_dir_buf);
715 backup_dir_remainder = sizeof backup_dir_buf - backup_dir_len;
716 if (backup_dir_remainder < 32) {
717 rprintf(FERROR, "the --backup-dir path is WAY too long.\n");
718 exit_cleanup(RERR_SYNTAX);
719 }
720 if (backup_dir_buf[backup_dir_len - 1] != '/') {
721 backup_dir_buf[backup_dir_len++] = '/';
722 backup_dir_buf[backup_dir_len] = '\0';
723 }
8dcf9335 724 if (verbose > 1 && !am_sender)
e0391f81 725 rprintf(FINFO, "backup_dir is %s\n", backup_dir_buf);
8dcf9335 726 } else if (!backup_suffix_len && (!am_server || !am_sender)) {
d175d7e1
WD
727 rprintf(FERROR,
728 "--suffix cannot be a null string without --backup-dir\n");
729 exit_cleanup(RERR_SYNTAX);
730 }
731
e2559dbe
S
732 if (do_progress && !verbose)
733 verbose = 1;
734
3c74c3a3
WD
735 if (bwlimit) {
736 bwlimit_writemax = (size_t)bwlimit * 128;
737 if (bwlimit_writemax < 512)
738 bwlimit_writemax = 512;
739 }
740
ea5164d1
WD
741 if (files_from) {
742 char *colon;
3e89da86 743 if (*argc != 2 && !(am_server && am_sender && *argc == 1)) {
ea5164d1
WD
744 usage(FERROR);
745 exit_cleanup(RERR_SYNTAX);
746 }
63596e1c 747 if (strcmp(files_from, "-") == 0) {
ea5164d1 748 filesfrom_fd = 0;
63596e1c
WD
749 if (am_server)
750 remote_filesfrom_file = "-";
751 }
ea5164d1
WD
752 else if ((colon = find_colon(files_from)) != 0) {
753 if (am_server) {
754 usage(FERROR);
755 exit_cleanup(RERR_SYNTAX);
756 }
757 remote_filesfrom_file = colon+1 + (colon[1] == ':');
758 if (strcmp(remote_filesfrom_file, "-") == 0) {
759 rprintf(FERROR, "Invalid --files-from remote filename\n");
760 exit_cleanup(RERR_SYNTAX);
761 }
762 } else {
ea5164d1
WD
763 filesfrom_fd = open(files_from, O_RDONLY|O_BINARY);
764 if (filesfrom_fd < 0) {
765 rsyserr(FERROR, errno,
766 "failed to open files-from file %s",
767 files_from);
768 exit_cleanup(RERR_FILEIO);
769 }
770 }
771 }
772
b11ed3b1 773 return 1;
7a6421fa
AT
774}
775
776
dafe63ca
MP
777/**
778 * Construct a filtered list of options to pass through from the
779 * client to the server.
780 *
781 * This involves setting options that will tell the server how to
782 * behave, and also filtering out options that are processed only
783 * locally.
784 **/
7a6421fa
AT
785void server_options(char **args,int *argc)
786{
d853783f
AT
787 int ac = *argc;
788 static char argstr[50];
f98c60bf 789 char *arg;
ef5d23eb 790
d853783f
AT
791 int i, x;
792
93689aa5
DD
793 if (blocking_io == -1)
794 blocking_io = 0;
795
d853783f
AT
796 args[ac++] = "--server";
797
1312d9fc
WD
798 if (daemon_over_rsh) {
799 args[ac++] = "--daemon";
800 *argc = ac;
801 /* if we're passing --daemon, we're done */
802 return;
803 }
804
d853783f
AT
805 if (!am_sender)
806 args[ac++] = "--sender";
807
808 x = 1;
809 argstr[0] = '-';
f98c60bf 810 for (i = 0; i < verbose; i++)
d853783f 811 argstr[x++] = 'v';
f0b36a48 812
b86f0cef 813 /* the -q option is intentionally left out */
d853783f
AT
814 if (make_backups)
815 argstr[x++] = 'b';
816 if (update_only)
817 argstr[x++] = 'u';
818 if (dry_run)
819 argstr[x++] = 'n';
820 if (preserve_links)
821 argstr[x++] = 'l';
822 if (copy_links)
823 argstr[x++] = 'L';
716e73d4
WD
824 if (keep_dirlinks && am_sender)
825 argstr[x++] = 'K';
1bfbf40b 826
dfa32483 827 if (whole_file > 0)
d853783f 828 argstr[x++] = 'W';
bceec82f
MP
829 /* We don't need to send --no-whole-file, because it's the
830 * default for remote transfers, and in any case old versions
831 * of rsync will not understand it. */
dfa32483 832
d853783f
AT
833 if (preserve_hard_links)
834 argstr[x++] = 'H';
835 if (preserve_uid)
836 argstr[x++] = 'o';
837 if (preserve_gid)
838 argstr[x++] = 'g';
839 if (preserve_devices)
840 argstr[x++] = 'D';
841 if (preserve_times)
842 argstr[x++] = 't';
843 if (preserve_perms)
844 argstr[x++] = 'p';
845 if (recurse)
846 argstr[x++] = 'r';
847 if (always_checksum)
848 argstr[x++] = 'c';
849 if (cvs_exclude)
850 argstr[x++] = 'C';
851 if (ignore_times)
852 argstr[x++] = 'I';
853 if (relative_paths)
854 argstr[x++] = 'R';
855 if (one_file_system)
856 argstr[x++] = 'x';
857 if (sparse_files)
858 argstr[x++] = 'S';
859 if (do_compression)
860 argstr[x++] = 'z';
f0b36a48 861
dfa32483 862 /* this is a complete hack - blame Rusty
f0b36a48
AT
863
864 this is a hack to make the list_only (remote file list)
865 more useful */
dfa32483 866 if (list_only && !recurse)
f0b36a48
AT
867 argstr[x++] = 'r';
868
d853783f
AT
869 argstr[x] = 0;
870
f98c60bf
WD
871 if (x != 1)
872 args[ac++] = argstr;
d853783f 873
195bd906 874 if (block_size) {
f98c60bf
WD
875 if (asprintf(&arg, "-B%u", block_size) < 0)
876 goto oom;
877 args[ac++] = arg;
dfa32483 878 }
d853783f 879
0b73ca12 880 if (max_delete && am_sender) {
f98c60bf
WD
881 if (asprintf(&arg, "--max-delete=%d", max_delete) < 0)
882 goto oom;
883 args[ac++] = arg;
dfa32483
WD
884 }
885
d853783f 886 if (io_timeout) {
f98c60bf
WD
887 if (asprintf(&arg, "--timeout=%d", io_timeout) < 0)
888 goto oom;
889 args[ac++] = arg;
dfa32483 890 }
d853783f 891
ef5d23eb 892 if (bwlimit) {
f98c60bf
WD
893 if (asprintf(&arg, "--bwlimit=%d", bwlimit) < 0)
894 goto oom;
895 args[ac++] = arg;
ef5d23eb
DD
896 }
897
d175d7e1
WD
898 if (backup_dir) {
899 args[ac++] = "--backup-dir";
900 args[ac++] = backup_dir;
901 }
902
903 /* Only send --suffix if it specifies a non-default value. */
f98c60bf 904 if (strcmp(backup_suffix, backup_dir ? "" : BACKUP_SUFFIX) != 0) {
191e40da 905 /* We use the following syntax to avoid weirdness with '~'. */
f98c60bf
WD
906 if (asprintf(&arg, "--suffix=%s", backup_suffix) < 0)
907 goto oom;
908 args[ac++] = arg;
d853783f
AT
909 }
910
b33b791e
DD
911 if (delete_excluded)
912 args[ac++] = "--delete-excluded";
f98c60bf
WD
913 else if (delete_mode)
914 args[ac++] = "--delete";
b33b791e 915
f83f0548
AT
916 if (size_only)
917 args[ac++] = "--size-only";
918
5b56cc19 919 if (modify_window_set) {
f98c60bf
WD
920 if (asprintf(&arg, "--modify-window=%d", modify_window) < 0)
921 goto oom;
922 args[ac++] = arg;
5b56cc19
AT
923 }
924
c8d895de 925 if (checksum_seed) {
221ddb94 926 if (asprintf(&arg, "--checksum-seed=%d", checksum_seed) < 0)
c8d895de
WD
927 goto oom;
928 args[ac++] = arg;
929 }
930
d853783f
AT
931 if (keep_partial)
932 args[ac++] = "--partial";
933
934 if (force_delete)
935 args[ac++] = "--force";
936
57df171b
AT
937 if (delete_after)
938 args[ac++] = "--delete-after";
939
ef55c686
AT
940 if (ignore_errors)
941 args[ac++] = "--ignore-errors";
942
b5313607
DD
943 if (copy_unsafe_links)
944 args[ac++] = "--copy-unsafe-links";
945
d853783f
AT
946 if (safe_symlinks)
947 args[ac++] = "--safe-links";
948
949 if (numeric_ids)
950 args[ac++] = "--numeric-ids";
951
0b73ca12 952 if (only_existing && am_sender)
1347d512
AT
953 args[ac++] = "--existing";
954
dfa32483 955 if (opt_ignore_existing && am_sender)
3d6feada
MP
956 args[ac++] = "--ignore-existing";
957
d853783f
AT
958 if (tmpdir) {
959 args[ac++] = "--temp-dir";
960 args[ac++] = tmpdir;
961 }
962
375a4556
DD
963 if (compare_dest && am_sender) {
964 /* the server only needs this option if it is not the sender,
965 * and it may be an older version that doesn't know this
966 * option, so don't send it if client is the sender.
967 */
59c95e42 968 args[ac++] = link_dest ? "--link-dest" : "--compare-dest";
375a4556
DD
969 args[ac++] = compare_dest;
970 }
971
ea5164d1
WD
972 if (files_from && (!am_sender || remote_filesfrom_file)) {
973 if (remote_filesfrom_file) {
974 args[ac++] = "--files-from";
975 args[ac++] = remote_filesfrom_file;
976 if (eol_nulls)
977 args[ac++] = "--from0";
978 } else {
979 args[ac++] = "--files-from=-";
980 args[ac++] = "--from0";
981 }
982 }
983
d853783f 984 *argc = ac;
f98c60bf
WD
985 return;
986
987 oom:
988 out_of_memory("server_options");
7a6421fa
AT
989}
990
ea5164d1
WD
991/**
992 * Return the position of a ':' IF it is not part of a filename (i.e. as
993 * long as it doesn't occur after a slash.
994 */
995char *find_colon(char *s)
996{
997 char *p, *p2;
998
999 p = strchr(s,':');
f98c60bf
WD
1000 if (!p)
1001 return NULL;
ea5164d1
WD
1002
1003 /* now check to see if there is a / in the string before the : - if there is then
1004 discard the colon on the assumption that the : is part of a filename */
1005 p2 = strchr(s,'/');
f98c60bf
WD
1006 if (p2 && p2 < p)
1007 return NULL;
ea5164d1
WD
1008
1009 return p;
1010}