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

75   scan [PATTERN]                 scan directory with \`find\' for shell PATTERN
77   delete TYPE DATA               delete the remote, scan or ignore having DATA
361     print "SCAN:\n" if %scan;
529 ## Synopsis: `scan'.
538     @scan = ();
539     foreach (sort keys %scan)
542 	push (@scan, $_);
548 ## Synopsis: `scan SCAN'.
552     local ($scan) = @_;
556     if (defined $scan{$scan})
558 	&diagnose ("Redundant creation of scan \`$scan\'");
562 	$scan{$scan} = 1;
569 ## Synopsis: `delete scan SCAN'.
573     local ($scan) = @_;
577     $scan = @scan[$scan - 1] if ($scan > 0 && $scan <= @scan);
578     if (defined $scan{$scan})
580 	delete $scan{$scan};
586 	&diagnose ("Cannot delete inexisting scan \`$scan\'");
708 	    foreach (sort keys %scan)
710 		print OUTPUT "scan\t$_\n";
884 	elsif (/^scan\t([^ ]+)$/)
954     local ($email, $home, $string, $scan, $ignore);
1165 	# Reconciliate scan information.
1167 	foreach $scan (sort keys %scan)
1169 	    if (defined $scan_received{$scan})
1171 		delete $scan_received{$scan};
1175 		&diagnose ("Scan \`$scan\' is not registered remotely");
1177 		delete $scan{$scan} if /(y|yes)/i;
1180 	foreach $scan (sort keys %scan_received)
1183 		("Scan \`$scan\' is registered remotely and not locally");
1185 	    $scan{$scan} = $NEWLY_CREATED_SCAN if /(y|yes)/i;
1186 	    delete $scan_received{$scan};
1236 	%scan = %scan_received;
1459     %scan = ();
1495 	    elsif (/^scan\t([^ ]+)$/)
1497 		$scan{$1} = 1;
1607     foreach (sort keys %scan)
1609 	print CONFIG "scan\t$_\n";
1649     # Trigger execution of find with all the %scan parameters.
1651     if (%scan == 0)
1658 	foreach (sort keys %scan)
1704 	    if (! defined $scan{$file})
1706 		&diagnose ("And this is not even a valid scan.  Bizarre...");
1708 	    elsif ($scan{$file} != $NEWLY_CREATED_SCAN)
1710 		&query ("Should I delete this scan (y/n)? [y]");