root/misc/svknuke

Revision 1933 (checked in by miyagawa, 13 years ago)

added svknuke

  • Property svn:executable set to *
Line 
1 #!/usr/bin/perl
2 use strict;
3 system("svk cleanup");
4 unlink "$ENV{HOME}/.svk/lock"; # don't care about failure
5
6 my $info = `svk info`;
7 if ($info && $info =~ m|Depot Path: (//mirror/\w+)/|) {
8     system ("svk mirror --unlock $1");
9 }
10
Note: See TracBrowser for help on using the browser.