Cross Reference: /haiku-fatelf/src/bin/sharutils/src/remsync

6 # Synchronization tool for remote directories.
42 $NEWLY_CREATED_SCAN = 2;	# Instead of 1, when by remote request
74   remote [ADDRESS [DIRECTORY]]   declare remote ADDRESS, modify its DIRECTORY
77   delete TYPE DATA               delete the remote, scan or ignore having DATA
358     print "REMOTE:\n" if @remote;
452 ## Synopsis: `remote'.
461     foreach (@remote)
464 	print "  [$index]\t$_ $remote{$_}\n";
468 ## Create a new remote given its REMOTE address, modify its DIRECTORY.
469 ## Synopsis: `remote REMOTE DIRECTORY'.
473     local ($remote, $directory) = @_;
478     $remote =~ tr/A-Z/a-z/;
479     $remote = @remote[$remote - 1] if ($remote > 0 && $remote <= @remote);
481     if (defined $remote{$remote})
483 	if ($directory && $remote{$remote} ne $directory)
485 	    $remote{$remote} = $directory;
488 	elsif ($remote{$remote} ne "-")
490 	    &diagnose ("Remote directory is known to be \`$remote{$remote}\'");
494 		$remote{$remote} = "-";
503 	    &create_remote ($remote, $directory);
507 	    &create_remote ($remote, "-");
508 	    $index = @remote;
509 	    &warn ("You may also use \`remote $index DIRECTORY\'"
510 		   . " if you know the remote directory");
515 ## Delete an existing remote given its ADDRESS address.
516 ## Synopsis: `delete remote ADDRESS'.
520     local ($remote) = @_;
524     $remote = @remote[$remote - 1] if ($remote > 0 && $remote <= @remote);
525     &delete_remote ($remote);
670 	&warn ("Broadcasting to address \`$remote[$site]\'");
704 	    foreach (@remote)
706 		print OUTPUT "remote\t$_ $remote{$_}\n";
762 	    system "mailshar $remote[$site] $ARCHIVE"
764 			       . " to address \`$remote[$site]\'");
878 	elsif (/^remote\t([^ ]+) ([^ ]+)$/)
1039 	   . " remote was \`$here_home_received\'");
1131 	# Reconciliate remote information.
1133 	foreach $remote (sort keys %remote)
1135 	    if (defined $remote_received{$remote})
1137 		if ($remote{$remote} ne $remote_received{$remote})
1139 		    &diagnose ("Conflicting directories for \`$remote\'");
1140 		    &warn ("registered as \`$remote{$remote}\' here and");
1141 		    &warn ("as \`$remote_received{$remote}\' remotely");
1143 		delete $remote_received{$remote};
1145 	    elsif ($remote ne $here_email_received)
1147 		&diagnose ("Remote \`$remote\' is not registered remotely");
1149 		delete $remote{$remote} if /(y|yes)/i;
1152 	foreach $remote (sort keys %remote_received)
1154 	    if ($remote ne $here_email)
1156 		&diagnose ("Remote \`$remote\' is registered remotely"
1159 		&create_remote ($remote, $remote_received{$remote})
1162 	    delete $remote_received{$remote};
1216 	# Use remote information for initializing the local one.
1232 	@remote = @remote_received;
1234 	%remote = %remote_received;
1290 	@signature = ("-") x @remote;
1309 		# If we do have an idea of a remote file\'s signature, and
1410 	    &query ("Should I recreate it from remote copy (y/n)? [y]");
1458     %remote = ();
1487 	    elsif (/^remote\t([^ ]+) ([^ ]+)$/)
1510 		for ($index = 0; $index < @remote; $index++)
1600     &diagnose ("There are no declared remote connections, yet")
1601 	if ! @remote;
1602     foreach (@remote)
1604 	print CONFIG "remote\t$_ $remote{$_}\n";
1760 	    $signature{$_} = join (" ", ("-") x @remote);
1968 	@site_set = 0 .. @remote - 1;
1976 	@site_set = 0 .. @remote - 1;
2002     local ($remote, $directory) = @_;
2004     push (@remote, $remote);
2005     $remote{$remote} = $directory;
2017     local ($remote, $new_remote) = @_;
2019     return if $remote eq $new_remote;
2020     $remote[&validated_remote_index ($remote)] = $new_remote;
2021     $remote{$new_remote} = $remote{$remote};
2022     delete $remote{$remote};
2030     local ($remote) = @_;
2033     $index = &validated_remote_index ($remote);
2034     @remote = @remote[0 .. $index - 1, $index + 1 .. @remote - 1];
2035     delete $remote{$remote};
2050     local ($remote) = @_;
2053     $index = &remote_index ($remote);
2055     &interrupt ("Specification \`$remote\' invalid for remote address");
2062     local ($remote) = @_;
2065     $remote = @remote[$remote - 1] if ($remote > 0 && $remote <= @remote);
2067     foreach (@remote)
2069 	return $index if $remote eq $_;