]> git.sur5r.net Git - bacula/bacula/blob - gui/bimagemgr/create_cdimage_table.pl
Move bat and mtx to their own spec files
[bacula/bacula] / gui / bimagemgr / create_cdimage_table.pl
1 #!/usr/bin/perl
2 ##
3 # create_cdimage_table.pl
4 # create the bacula table for CD image management
5 #
6 # Copyright (C) 2004 Kern Sibbald
7 #
8 # Thu Dec 09 2004 D. Scott Barninger <barninger at fairfieldcomputers.com>
9 # ASSIGNMENT OF COPYRIGHT
10 # FOR VALUE RECEIVED, D. Scott Barninger hereby sells, transfers and 
11 # assigns unto Kern Sibbald, his successors, assigns and personal representatives, 
12 # all right, title and interest in and to the copyright in this software.
13 # D. Scott Barninger warrants good title to said copyright, that it is 
14 # free of all liens, encumbrances or any known claims against said copyright.
15 #
16 # This program is free software; you can redistribute it and/or
17 # modify it under the terms of the GNU General Public
18 # License version 2 as published by the Free Software Foundation.
19 #
20 # This program is distributed in the hope that it will be useful,
21 # but WITHOUT ANY WARRANTY; without even the implied warranty of
22 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
23 # General Public License for more details.
24 #
25 # You should have received a copy of the GNU General Public
26 # License along with this program; if not, write to the Free
27 # Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
28 # MA 02111-1307, USA.
29 ##
30
31 $VERSION = "0.2.1";
32
33 require 5.000; use strict 'vars', 'refs', 'subs';
34 use DBI;
35
36 #------------------------------------------------------------------------------------
37 # configuration section
38 my($dbh,$sql,$database,$host,$user,$password,$db_driver,$db_name_param);
39 $database = "bacula";
40 $host = "localhost";
41 $user = "bacula";
42 $password = "";
43 ## database driver selection - uncomment one set
44 # MySQL
45 $db_driver = "mysql";
46 $db_name_param = "database";
47 # Postgresql
48 # $db_driver = "Pg";
49 # $db_name_param = "dbname";
50 ##
51 # end configuration section
52 #------------------------------------------------------------------------------------
53
54 # connect to the database
55 $dbh = DBI->connect("DBI:$db_driver:$db_name_param=$database;host=$host","$user","$password",{'RaiseError' => 1}) || die("Unable to connect to database.");
56
57 if ($db_driver eq "mysql") {
58 $sql = "CREATE TABLE CDImages (
59                                 MediaId INTEGER UNSIGNED NOT NULL,
60                                 LastBurn DATETIME NOT NULL,
61                                 PRIMARY KEY (MediaId))";
62 }
63
64 if ($db_driver eq "Pg") {
65 $sql = "CREATE TABLE CDImages (
66                                 MediaId integer not null,
67                                 LastBurn timestamp without time zone not null,
68                                 primary key (MediaId))";
69 }
70
71 $dbh->do($sql);
72
73 $dbh->disconnect();
74 print "\nFinished creating the CDImages table.\n";
75 exit;
76
77 #-------------------------------------------------------------------#
78 # Changelog
79 #
80 # 0.2 14 Aug 2004
81 # first functional version
82 #
83 # 0.2.1 15 Aug 2004
84 # add configuration option for Postgresql driver
85