File: dropconfig.pl

package info (click to toggle)
pronto 2.4.0-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,112 kB
  • ctags: 488
  • sloc: perl: 22,159; makefile: 140; sh: 34; sql: 7
file content (16 lines) | stat: -rwxr-xr-x 504 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl
use Postgres;

# Run this if you are upgrading from v1.0b or v1.1b to drop
# the un-used config table.  Not needed if you are upgrading from
# v1.2b or higher, or if this is a new installation.
#

$user = $ENV{USER};
$conn=db_connect("$user") or die "Cannot connect to $user\'s database.
 Make sure that your administrator has installed and configured PostgreSQL
 on this machine for you.";
$sql="drop table config;";
$query=$conn->execute($sql);
print ("Depreciated Table Dropped.\n");