← Back to branch summary

~ubuntu-branches/ubuntu/precise/netatalk/precise

« back to all changes in this revision

Viewing changes to contrib/shell_utils/apple_rm.in

  • Committer: Bazaar Package Importer
  • Author(s): Sebastian Rittau
  • Date: 2004-01-19 12:43:49 UTC
  • Revision ID: james.westby@ubuntu.com-20040119124349-es563jbp0hk0ae51
Tags: upstream-1.6.4
Import upstream version 1.6.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
contrib/shell_utils/apple_rm.in
 
1
#!@PERL@
 
2
# 
 
3
# $Id: apple_rm.in,v 1.1 2002/01/17 05:59:25 srittau Exp $
 
4
 
 
5
$USAGE = <<USAGE;
 
6
Usage: $0 filename ...
 
7
Do an apple remove, remove the resource fork as well
 
8
USAGE
 
9
 
 
10
die $USAGE if @ARGV < 1;
 
11
 
 
12
foreach $path (@ARGV) {
 
13
    if (!-f $path) {
 
14
        print STDERR "file $path does not exist\n";
 
15
        die $USAGE;
 
16
    }
 
17
 
 
18
    ($dir, $file) = &split_dir_file($path);
 
19
 
 
20
    $cmd = "rm '$path'";
 
21
    system $cmd || die "error executing $cmd";
 
22
    
 
23
    $cmd = "rm '$dir/.AppleDouble/$file'";
 
24
    system $cmd || die "error executing $cmd";
 
25
}
 
26
 
 
27
# split a file path into a directory and file name.
 
28
sub split_dir_file {
 
29
    my $path = shift;
 
30
 
 
31
    @path_elems = split(/\//, $path);
 
32
 
 
33
    my $file = pop(@path_elems);
 
34
    my $dir;
 
35
    if (!@path_elems) {
 
36
        $dir = '.';
 
37
    } else {
 
38
        $dir = join('/', @path_elems);
 
39
    }
 
40
 
 
41
    $dir, $file;
 
42
}