Copying missing files from rel-1-2 to trunk
[wip/koha-chris_n.git] / koha.upgrade
1 #!/usr/bin/perl -w
2
3 my %configfile;
4 open (KC, "/etc/koha.conf");
5 while (<KC>) {
6  chomp;
7  (next) if (/^\s*#/);
8  if (/(.*)\s*=\s*(.*)/) {
9    my $variable=$1;
10    my $value=$2;
11    # Clean up white space at beginning and end
12    $variable=~s/^\s*//g;
13    $variable=~s/\s*$//g;
14    $value=~s/^\s*//g;
15    $value=~s/\s*$//g;
16    $configfile{$variable}=$value;
17  }
18 }
19
20 my $intranetdir=$configfile{'intranetdir'};
21 my $opacdir=$configfile{'opacdir'};
22 my $kohaversion=$configfile{'kohaversion'};
23 my $database=$configfile{'database'};
24 my $host=$configfile{'host'};
25 my $user=$configfile{'user'};
26 my $pass=$configfile{'pass'};
27
28
29 ($kohaversion) || ($kohaversion='unknown version');
30 my $newversion=`cat koha.version`;
31 chomp $newversion;
32
33 print qq|
34
35 ================
36 = Koha Upgrade =
37 ================
38
39 You are attempting to upgrade from Koha $kohaversion to $newversion.
40
41 We recommend that you do a complete backup of all your files before upgrading.
42 This upgrade script will make a backup copy of your files for you.
43
44 Would you like to proceed?  ([Y]/N):  
45 |;
46
47 my $answer = <STDIN>;
48 chomp $answer;
49
50 if ($answer eq "Y" || $answer eq "y") {
51         print "Great! continuing upgrade... \n";
52     } else {
53     print qq|
54
55 Aborting.  Please re-run koha.upgrade when you are ready to upgrade Koha.
56 |;
57     exit;
58 };
59
60 my $backupdir='/usr/local/koha/backups';
61 print "Please specify a backup directory [$backupdir]: ";  
62
63 $answer = <STDIN>;
64 chomp $answer;
65
66 if ($answer) {
67     $backupdir=$answer;
68 }
69
70 if (! -e $backupdir) {
71    my $result=mkdir ($backupdir, oct(770));
72    if ($result==0) {
73        my @dirs = split(m#/#, $backupdir);
74         my $checkdir='';
75         foreach (@dirs) {
76             $checkdir.="$_/";
77             unless (-e "$checkdir") {
78                 mkdir($checkdir, 0775);
79             }
80         }
81    }
82 }
83
84 chmod 0770, $backupdir;
85
86 # Backup MySql database
87 #
88 #
89 my $mysql;
90 my $mysqldir;
91
92 foreach my $mysql (qw(/usr/local/mysql
93                       /opt/mysql
94                     )) {
95     if ( -d $mysql ) {
96             $mysqldir=$mysql;
97     }
98 }
99 if (!$mysqldir){
100     $mysqldir='/usr';
101 }
102
103
104
105 my ($sec, $min, $hr, $day, $month, $year) = (localtime(time))[0,1,2,3,4,5];
106 $month++;
107 $year+=1900;
108 my $date= sprintf "%4d-%02d-%02d_%02d:%02d:%02d", $year, $month, $day,$hr,$min,$sec;
109
110 open (MD, "$mysqldir/bin/mysqldump --user=$user --password=$pass --host=$host $database|");
111
112 open BF, ">$backupdir/Koha.backup_$date";
113
114 my $itemcounter=0;
115 my $bibliocounter=0;
116 my $biblioitemcounter=0;
117 my $membercounter=0;
118
119 while (<MD>) {
120     (/insert into items /i) && ($itemcounter++);
121     (/insert into biblioitems /i) && ($biblioitemcounter++);
122     (/insert into biblio /i) && ($bibliocounter++);
123     (/insert into borrowers /i) && ($membercounter++);
124     print BF $_;
125 }
126
127 close BF;
128 close MD;
129
130
131 my $filels=`ls -hl $backupdir/Koha.backup_$date`;
132 chomp $filels;
133 printf qq|
134
135 Backed up:
136
137 %6d biblio entries
138 %6d biblioitems entries
139 %6d items entries
140 %6d borrowers
141
142 $filels
143
144 Does this look right? ([Y]/N):
145 |, $bibliocounter, $biblioitemcounter, $itemcounter, $membercounter;
146
147 $answer = <STDIN>;
148 chomp $answer;
149
150 if ($answer=~/^n/i) {
151     print qq|
152
153 Aborting.  The database dump is located in:
154
155         $backupdir/Koha.backup_$date
156
157 |;
158     exit;
159 } else {
160         print "Great! continuing upgrade... \n";
161 };
162
163
164
165 if ($opacdir && $intranetdir) {
166     print qq|
167
168 I believe that your old files are located in:
169
170   OPAC:      $opacdir
171   INTRANET:  $intranetdir
172
173
174 Does this look right?  ([Y]/N):
175 |;
176     $answer = <STDIN>;
177     chomp $answer;
178
179     if ($answer =~/n/i) {
180         $intranetdir='';
181         $opacdir='';
182     } else {
183         print "Great! continuing upgrade... \n";
184     }
185 }
186
187
188 if (!$opacdir || !$intranetdir) {
189     $intranetdir='';
190     $opacdir='';
191     while (!$intranetdir) {
192         print "Please specify the location of your INTRANET files: ";  
193
194         $answer = <STDIN>;
195         chomp $answer;
196
197         if ($answer) {
198             $intranetdir=$answer;
199         }
200         if (! -e "$intranetdir/htdocs") {
201             print "\nCouldn't find the htdocs directory here.  That doesn't look right.\nPlease enter another location.\n\n";
202             $intranetdir='';
203         }
204     }
205     while (!$opacdir) {
206         print "Please specify the location of your OPAC files: ";  
207
208         $answer = <STDIN>;
209         chomp $answer;
210
211         if ($answer) {
212             $opacdir=$answer;
213         }
214         if (! -e "$opacdir/htdocs") {
215             print "\nCouldn't find the htdocs directory here.  That doesn't look right.\nPlease enter another location.\n\n";
216             $opacdir='';
217         }
218     }
219 }
220
221
222
223 print "\n\nBacking up old Koha scripts...\n";
224 print     "===============================\n\n";
225
226 mkdir "$backupdir/kohafiles-$date", 0770;
227 mkdir "$backupdir/kohafiles-$date/intranet", 0770;
228 mkdir "$backupdir/kohafiles-$date/opac", 0770;
229
230 my $result=system("cp -R $intranetdir/* $backupdir/kohafiles-$date/intranet/");
231 if ($result) {
232     print "Error encounted when copying $intranetdir to $backupdir/kohafiles-$date/intranet/\n";
233     exit;
234 } else {
235     system("rm -rf $intranetdir/*");
236 }
237 $result=system("cp -R $opacdir/* $backupdir/kohafiles-$date/opac/");
238 if ($result) {
239     print "Error encounted when copying $opacdir to $backupdir/kohafiles-$date/opac/\n";
240     exit;
241 } else {
242     system("rm -rf $opacdir/*");
243 }
244
245    print "Creating $intranetdir/htdocs...\n";
246    mkdir ("$intranetdir/htdocs", oct(750));
247    print "Creating $intranetdir/cgi-bin...\n";
248    mkdir ("$intranetdir/cgi-bin", oct(750));
249    print "Creating $intranetdir/modules...\n";
250    mkdir ("$intranetdir/modules", oct(750));
251    print "Creating $intranetdir/scripts...\n";
252    mkdir ("$intranetdir/scripts", oct(750));
253    chmod (oct(770), "$opacdir");
254    print "Creating $opacdir/htdocs...\n";
255    mkdir ("$opacdir/htdocs", oct(750));
256    print "Creating $opacdir/cgi-bin...\n";
257    mkdir ("$opacdir/cgi-bin", oct(750));
258
259 my $httpduser;
260 my $realhttpdconf;
261
262 foreach my $httpdconf (qw(/usr/local/apache/conf/httpd.conf
263                       /usr/local/etc/apache/httpd.conf
264                       /usr/local/etc/apache/apache.conf
265                       /var/www/conf/httpd.conf
266                       /etc/apache/conf/httpd.conf
267                       /etc/apache/conf/apache.conf
268                       /etc/apache-ssl/conf/apache.conf
269                       /etc/httpd/conf/httpd.conf
270                       /etc/httpd/httpd.conf)) {
271    if ( -f $httpdconf ) {
272             $realhttpdconf=$httpdconf;
273             open (HTTPDCONF, $httpdconf) or warn "Insufficient privileges to open $httpdconf for reading.\n";
274       while (<HTTPDCONF>) {
275          if (/^\s*User\s+"?([-\w]+)"?\s*$/) {
276             $httpduser = $1;
277          }
278       }
279       close(HTTPDCONF);
280    }
281 }
282 $httpduser ||= 'Undetermined';
283
284 print "\n\nINSTALLING KOHA...\n";
285 print "\n\n==================\n";
286 print "Copying internet-html files to $intranetdir/htdocs...\n";
287 system("cp -R intranet-html/* $intranetdir/htdocs/");
288 print "Copying intranet-cgi files to $intranetdir/cgi-bin...\n";
289 system("cp -R intranet-cgi/* $intranetdir/cgi-bin/");
290 print "Copying script files to $intranetdir/scripts...\n";
291 system("cp -R scripts/* $intranetdir/scripts/");
292 print "Copying module files to $intranetdir/modules...\n";
293 system("cp -R modules/* $intranetdir/modules/");
294 print "Copying opac-html files to $opacdir/htdocs...\n";
295 system("cp -R opac-html/* $opacdir/htdocs/");
296 print "Copying opac-cgi files to $opacdir/cgi-bin...\n";
297 system("cp -R opac-cgi/* $opacdir/cgi-bin/");
298
299 system("chown -R root.$httpduser $opacdir");
300 system("chown -R root.$httpduser $intranetdir");
301
302
303 print qq|
304
305 Upgrading Database
306 ==================
307 |;
308 system ("perl -I $intranetdir/modules scripts/updater/updatedatabase");
309
310
311
312 print qq|
313
314 ==========================
315 = Koha Upgrade Completed =
316 ==========================
317 The Koha Upgrade is finished.  If you are upgrading from a version of Koha
318 prior to 1.2.1, it is likely that you will have to modify your Apache
319 configuration to point it to the new files.
320
321 In your INTRANET VirtualHost section you should have:
322   DocumentRoot $intranetdir/htdocs
323   ScriptAlias /cgi-bin/koha/ $intranetdir/cgi-bin/
324   SetEnv PERL5LIB $intranetdir/modules
325
326 In the OPAC VirtualHost section you should have:
327   DocumentRoot $opacdir/htdocs
328   ScriptAlias /cgi-bin/koha/ $opacdir/cgi-bin/
329   SetEnv PERL5LIB $intranetdir/modules
330
331 You may also need to uncomment a "LoadModules env_module ... " line and restart
332 Apache.
333
334 Please report any problems you encounter through http://bugs.koha.org/
335 |;