version 1.6, 2001/11/19 01:16:17
|
version 1.7, 2001/11/20 21:33:36
|
Line 290 sub forbidden
|
Line 290 sub forbidden
|
sub checktable # если $param='delete' удаляет существующую таблицу, |
sub checktable # если $param='delete' удаляет существующую таблицу, |
# если $param='ask' спрашивает, не удалить ли |
# если $param='ask' спрашивает, не удалить ли |
# если $param не определено -- просто удаляет. |
# если $param не определено -- просто удаляет. |
|
# если $param='deletedata' -- удаляет из таблицы данные |
{ |
{ |
my ($TabName,$param) = @_; |
my ($TabName,$param) = @_; |
my ($ans); |
my ($ans); |
if (scalar(grep(/^$TabName$/i, &tablelist))) { |
if (scalar(grep(/^$TabName$/i, &tablelist))) { |
return 1 unless $param; |
return 1 unless $param; |
if ($param eq 'delete') {$ans='y';} |
if ($param =~ /delete/) {$ans='y';} |
else { |
else { |
print "Table $TabName exists. Do you want to delete it? "; |
print "Table $TabName exists. Do you want to delete it? "; |
$ans = <STDIN> |
$ans = <STDIN> |
} |
} |
if ($ans =~ /[yY]/) { |
if ($ans =~ /[yY]/) { |
|
if ($param eq 'delete') { |
$qbase->do("DROP TABLE $TabName"); |
$qbase->do("DROP TABLE $TabName"); |
print "deleted table $TabName\n"; |
print "deleted table $TabName\n"; |
return 0; |
} else { |
|
$qbase->do("DELETE FROM $TabName"); |
|
print "Deleted everything from $TabName\n"; |
|
} |
|
return 0; |
} else { |
} else { |
return 1 |
return 1 |
} |
} |