[ViewVC] Diff of: cvs/deliantra/Deliantra/bin/cf-slotutil

Comparing deliantra/Deliantra/bin/cf-slotutil (file contents):
Revision 1.1 by root, Sun Sep 28 05:58:01 2008 UTC vs.
Revision 1.2 by root, Sun Sep 28 07:34:51 2008 UTC

       }
    }
 }
 sub insert {
+   my ($apply) = @_;
    shift @ARGV;
    my $format = <STDIN>;
    my @slots = unpack $format, <STDIN>;
    my %res;
          print $fh Deliantra::archlist_to_string [
             map $arch->{$_},
                sort keys %$arch
          ];
          close $fh;
+         if ($apply) {
+            rename "$path~", $path;
+         } else {
-         system "diff", "-u", $path, "$path~";
+            system "diff", "-u", $path, "$path~";
-         unlink "$path~";
+            unlink "$path~";
+         }
       }
    };
 }
 binmode STDIN, ":utf8";
 binmode STDOUT, ":utf8";
 if ($ARGV[0] eq "extract") {
    extract;
 } elsif ($ARGV[0] eq "diff") {
-   insert;
+   insert 0;
+} elsif ($ARGV[0] eq "apply") {
+   insert 1;
 } else {
    die <<EOF;
 Usage:
     $0 extract 'filter' slot...
         extract slots from server archetypes file (NOT the .arc files!)
         Example: $0 extract '%type == 101' level
-    $0 diff [really]
+    $0 diff
         generates a diff against the .arc files found
         in \$DELIANTRA_ARCHDIR or ".".
         Example: $0 diff <file
+    $0 apply
+        like diff, but applies it in-place
 EOF
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines