17 lines
450 B
Perl
Executable File
17 lines
450 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
my $projectName = $ARGV[0];
|
|
|
|
#------------------------------------------------------------
|
|
# Delete the webshare project directory
|
|
#------------------------------------------------------------
|
|
|
|
if ( -e "/opt/webshare/$projectName" ) {
|
|
system("/bin/rm -Rf /opt/webshare/$projectName");
|
|
system("/bin/rm -f /home/e-smith/db/webshare/htpasswd.$projectName");
|
|
system("/sbin/e-smith/signal-event ibay-modify");
|
|
}
|
|
|
|
exit(0);
|
|
|