4 use FS::UID qw(adminsuidsetup dbh);
5 use FS::Schema qw(dbdef);
6 use FS::Record; #why is this necessary
8 adminsuidsetup shift or die "usage: pg-sizer user";
15 foreach my $table ( dbdef->tables ) {
16 warn "sizing $table...\n" if $verbose;
17 my $sth = dbh->prepare("SELECT pg_total_relation_size('$table')")
19 $sth->execute or die $sth->errstr;
20 my $size = $sth->fetchrow_arrayref->[0];
21 $size{$table} = $size;
23 my $psth = dbh->prepare("SELECT pg_size_pretty( $size )")
25 $psth->execute or die $psth->errstr;
26 my $prettysize = $psth->fetchrow_arrayref->[0];
27 $prettysize{$table} = $prettysize;
29 warn "$table: $prettysize{$table}\n" if $verbose;
32 foreach my $table ( reverse sort { $size{$a} <=> $size{$b} } keys %size ) {
33 #print "$table: $size{$table}\n";
34 print "$table: $prettysize{$table}\n";