root
5 years ago
1 changed files with 0 additions and 66 deletions
+ 0
- 66
bin/dev_cleanup_db.pl
View File
| @@ -1,66 +0,0 @@ | |||
| #!/usr/bin/perl | |||
| use strict; | |||
| use JSON; | |||
| use DBI; | |||
| use warnings; | |||
| my $conf = load_conf("../etc/autodoc.json"); | |||
| my $dbh = sqlconnect($conf->{sql}); | |||
| my @del = ( | |||
| 'pages', | |||
| 'documents', | |||
| 'tags', | |||
| 'words' | |||
| ); | |||
| foreach ( @del ) { | |||
| print "DELETE FROM $_\n"; | |||
| sqlquery($dbh, "DELETE FROM $_"); | |||
| } | |||
| my $q = sqlquery($dbh, "SHOW TABLE STATUS"); | |||
| while(my $h = $q->fetchrow_hashref()) { | |||
| print "="x80 . "\n"; | |||
| foreach my $name ( sort keys %{$h} ) { | |||
| next if $name !~ /^(Name|Rows)$/; | |||
| printf("%10s: %s\n", | |||
| $name, | |||
| defined $h->{$name} ? $h->{$name} : 'NULL' | |||
| ); | |||
| } | |||
| } | |||
| sub load_conf { | |||
| my($file) = @_; | |||
| my $x=''; | |||
| open(F,"$file") || fatal_api_error(500,"Failed to load configuration file"); | |||
| while(<F>) { $x.=$_; } | |||
| close(F); | |||
| return from_json($x); | |||
| } | |||
| sub sqlconnect { | |||
| my($sql) = @_; | |||
| my $dsn = "DBI:mysql:database=$sql->{base};host=$sql->{host}"; | |||
| my $dbh = DBI->connect($dsn, $sql->{user}, $sql->{pass}) || \\ | |||
| print STDERR "Failed to connect to database\n"; | |||
| return $dbh; | |||
| } | |||
| sub sqlquery { | |||
| my $dbh = shift; | |||
| my $query = shift; | |||
| my @args = @_; | |||
| my $sth = $dbh->prepare($query) || print STDERR $dbh->error(); | |||
| $sth->execute(@args) || print STDERR $sth->error(); | |||
| return $sth; | |||
| } | |||
Loading…