#!/usr/bin/perl ## # create_cdimage_table.pl # create the bacula table for CD image management # # Copyright (C) 2004 Kern Sibbald # # Thu Dec 09 2004 D. Scott Barninger <barninger at fairfieldcomputers.com> # ASSIGNMENT OF COPYRIGHT # FOR VALUE RECEIVED, D. Scott Barninger hereby sells, transfers and # assigns unto Kern Sibbald, his successors, assigns and personal representatives, # all right, title and interest in and to the copyright in this software. # D. Scott Barninger warrants good title to said copyright, that it is # free of all liens, encumbrances or any known claims against said copyright. # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public # License version 2 as published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public # License along with this program; if not, write to the Free # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, # MA 02111-1307, USA. ## $VERSION = "0.2.1"; require 5.000; use strict 'vars', 'refs', 'subs'; use DBI; #------------------------------------------------------------------------------------ # configuration section my($dbh,$sql,$database,$host,$user,$password,$db_driver,$db_name_param); $database = "bacula"; $host = "localhost"; $user = "bacula"; $password = ""; ## database driver selection - uncomment one set # MySQL $db_driver = "mysql"; $db_name_param = "database"; # Postgresql # $db_driver = "Pg"; # $db_name_param = "dbname"; ## # end configuration section #------------------------------------------------------------------------------------ # connect to the database $dbh = DBI->connect("DBI:$db_driver:$db_name_param=$database;host=$host","$user","$password",{'RaiseError' => 1}) || die("Unable to connect to database."); if ($db_driver eq "mysql") { $sql = "CREATE TABLE CDImages ( MediaId INTEGER UNSIGNED NOT NULL, LastBurn DATETIME NOT NULL, PRIMARY KEY (MediaId))"; } if ($db_driver eq "Pg") { $sql = "CREATE TABLE CDImages ( MediaId integer not null, LastBurn timestamp without time zone not null, primary key (MediaId))"; } $dbh->do($sql); $dbh->disconnect(); print "\nFinished creating the CDImages table.\n"; exit; #-------------------------------------------------------------------# # Changelog # # 0.2 14 Aug 2004 # first functional version # # 0.2.1 15 Aug 2004 # add configuration option for Postgresql driver