projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove finishes and derive disconnect instead
[spider.git]
/
perl
/
create_sysop.pl
diff --git
a/perl/create_sysop.pl
b/perl/create_sysop.pl
index 840ddef4da303b324e9ef639781f0a5138c90380..52cd941f779c7b05ec6e9e8ebb2c6221c9f8c493 100755
(executable)
--- a/
perl/create_sysop.pl
+++ b/
perl/create_sysop.pl
@@
-23,7
+23,7
@@
use DXUser;
sub delete_it
{
sub delete_it
{
-
system("rm -f $userfn*"
);
+
DXUser->del_file($userfn
);
}
sub create_it
}
sub create_it
@@
-80,19
+80,19
@@
if (-e "$userfn") {
$ans = <STDIN>;
if ($ans =~ /^[Yy]/) {
delete_it();
$ans = <STDIN>;
if ($ans =~ /^[Yy]/) {
delete_it();
- DXUser->init($userfn);
+ DXUser->init($userfn
, 1
);
create_it();
} else {
print "Do you wish to reset your cluster and sysop information? [y/N]: ";
$ans = <STDIN>;
if ($ans =~ /^[Yy]/) {
create_it();
} else {
print "Do you wish to reset your cluster and sysop information? [y/N]: ";
$ans = <STDIN>;
if ($ans =~ /^[Yy]/) {
- DXUser->init($userfn);
+ DXUser->init($userfn
, 1
);
create_it();
}
}
} else {
create_it();
}
}
} else {
- DXUser->init($userfn);
+ DXUser->init($userfn
, 1
);
create_it();
}
DXUser->finish();
create_it();
}
DXUser->finish();