+sub unixtoamiga
+{
+ my $unixpath = shift;
+
+ my @parts = split("/",$unixpath);
+ my $isdir = 0;
+ $isdir = 1 if substr($unixpath,-1) eq "/";
+
+ my $first = 1;
+ my $amigapath = "";
+
+ my $i = 0;
+
+ for($i = 0; $i <= $#parts;$i++)
+ {
+ next if $parts[$i] eq ".";
+ if($parts[$i] eq "..")
+ {
+ $parts[$i] = "/";
+ }
+ if($i == 0)
+ {
+ if($parts[$i] eq "")
+ {
+ $amigapath .= $parts[$i + 1] . ":";
+ $i++;
+ next;
+ }
+ }
+ $amigapath .= $parts[$i];
+ if($i != $#parts)
+ {
+ $amigapath .= "/" unless $parts[$i] eq "/" ;
+ }
+ else
+ {
+ if($isdir)
+ {
+ $amigapath .= "/" unless $parts[$i] eq "/" ;
+ }
+ }
+ }
+
+ return $amigapath;
+}
+
+sub amigaprotect
+{
+ my ($file,$bits) = @_;
+ print "PROTECT: File $file\n";
+ system("PROTECT $file $bits")
+ unless $opts{notify};
+}
+