db/prgsrc/dbchgk.pm - diff

Return to dbchgk.pm CVS log

Up to [Local Repository] / db / prgsrc

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
}	}