1: #!/usr/bin/perl -w
2: #
3: # The LearningOnline Network
4: #
5: # $Id: modify_config_files.pl,v 1.25 2024/07/08 23:46:06 raeburn Exp $
6: #
7: # Copyright Michigan State University Board of Trustees
8: #
9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
10: #
11: # LON-CAPA is free software; you can redistribute it and/or modify
12: # it under the terms of the GNU General Public License as published by
13: # the Free Software Foundation; either version 2 of the License, or
14: # (at your option) any later version.
15: #
16: # LON-CAPA is distributed in the hope that it will be useful,
17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19: # GNU General Public License for more details.
20: #
21: # You should have received a copy of the GNU General Public License
22: # along with LON-CAPA; if not, write to the Free Software
23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24: #
25: # /home/httpd/html/adm/gpl.txt
26: #
27: # http://www.lon-capa.org/
28: #
29: ###
30:
31: =pod
32:
33: =head1 NAME
34:
35: B<modify_config_files.pl>
36:
37: =head1 SYNOPSIS
38:
39: This script modifies local MySQL configuration file(s), which will be:
40: /home/www/.my.cnf and, depending on distro/version also one of:
41: /etc/my.cnf, /etc/mysql/my.cnf, /etc/mysql/mysql.conf.d/mysqld.cnf,
42: or /etc/mysql/mariadb.conf.d/50-server.cnf, and also the file used to
43: store information about the LON-CAPA package repositories located at
44: install.loncapa.org. which provide rpm or deb packages created for the
45: Linux distro/version being used. The file to modify will be one of:
46: /etc/yum.conf (for CentOS/Scientific Linux/RHEL >=5 and <8),
47: /etc/apt/sources.list (for Debian < 10 and Ubuntu < 22), or
48: /etc/apt/sources.list.d/loncapa.list (for Debian >= 10 and Ubuntu > 20),
49: /etc/sysconfig/rhn/sources (for RHEL4), or /etc/yum.repos.d/loncapa.repo
50: (for Fedora >= 21; Oracle Linux; AlmaLinux; RockyLinux; CentOS/RHEL >= 8).
51:
52: The script also modifies /home/www/.inputrc on Linux distros which have
53: readline 8.1 or newer, i.e., CentOS/Scientific Linux/RHEL >= 9,
54: Ubuntu >= 22, Debian >= 12, and Fedora >= 34.
55:
56: =head1 DESCRIPTION
57:
58: This script will modify /etc/my.cnf, /etc/mysql/my.cnf,
59: /etc/mysql/mysql.conf.d/mysqld.cnf, or
60: /etc/mysql/mariadb.conf.d/50-server.cnf,
61: and /etc/yum.conf, /etc/yum.repos.d/loncapa.repo,
62: /etc/apt/sources.list, /etc/apt/sources.list.d/loncapa.list or
63: /etc/sysconfig/rhn/sources and /home/www/.inputrc to ensure
64: certain parameters are set properly.
65:
66: The LON-CAPA yum repositories are added to /etc/yum.conf,
67: /etc/yum.repos.d/loncapa.repo, or /etc/sysconfig/rhn/sources
68: and the LON-CAPA apt repositories are added to
69: /etc/apt/sources.list or /etc/apt/sources.list.d/loncapa.list.
70:
71: The /etc/my.cnf, /etc/mysql/my.cnf /etc/mysql/mysql.conf.d/mysqld.cnf
72: or /etc/mysql/mariadb.conf.d/50-server.cnf file is modified to set the
73: wait_timeout to 1 year. Backup copies of each file are made in
74: /etc, /etc/apt, and /etc/sysconfig/rhn, as appropriate.
75:
76: =cut
77:
78: use strict;
79: use File::Copy;
80: use lib '/home/httpd/lib/perl/';
81: use LONCAPA::Configuration;
82: my $loncapa_config=LONCAPA::Configuration::read_conf('loncapa.conf');
83:
84: open(DSH,"$$loncapa_config{'lonDaemons'}/distprobe |");
85: my $dist = <DSH>;
86: chomp($dist);
87: close(DSH);
88:
89: my $yum_status;
90: my $loninst = 'http://install.loncapa.org';
91: my $loninst_re = 'http://install\.loncapa\.org';
92: if ($dist =~ /^fedora(\d+)$/) {
93: my $file = '/etc/yum.conf';
94: my $ver = $1;
95: my $gpgchk = '0';
96: my $gpg = "$loninst/versions/fedora/RPM-GPG-KEY-loncapa";
97: my $nobackup;
98: if ($ver > 6) {
99: $gpgchk = '1';
100: }
101: if ($ver >= 21) {
102: $file = '/etc/yum.repos.d/loncapa.repo';
103: $nobackup = 1;
104: }
105: $yum_status =
106: &update_file($file,
107: [{section => 'loncapa-updates-basearch',
108: key => 'name=',
109: value => 'Fedora Core $releasever LON-CAPA $basearch Updates',
110: }, {section => 'loncapa-updates-basearch',
111: key => 'baseurl=',
112: value => $loninst.'/fedora/linux/loncapa/$releasever/$basearch',
113: }, {section => 'loncapa-updates-basearch',
114: key => 'gpgcheck=',
115: value => $gpgchk,
116: }, {section => 'loncapa-updates-basearch',
117: key => 'gpgkey=',
118: value => $gpg,
119: }, {section => 'loncapa-updates-noarch',
120: key => 'name=',
121: value => 'Fedora Core $releasever LON-CAPA noarch Updates',
122: }, {section => 'loncapa-updates-noarch',
123: key => 'baseurl=',
124: value => $loninst.'/fedora/linux/loncapa/$releasever/noarch',
125: }, {section => 'loncapa-updates-noarch',
126: key => 'gpgcheck=',
127: value => $gpgchk,
128: }, {section => 'loncapa-updates-noarch',
129: key => 'gpgkey=',
130: value => $gpg,
131: }],$nobackup);
132: } elsif ($dist =~ /^(rhes|centos|scientific|oracle|rocky|alma)(\d+)(|\-stream)$/) {
133: my $type = $1;
134: my $ver = $2;
135: my $stream = $3;
136: my $longver = $ver;
137: my $nobackup;
138: if ($type eq 'rhes') {
139: if ($ver == 4) {
140: $longver = '4ES';
141: } elsif ($ver == 5) {
142: $longver = '5Server';
143: }
144: } elsif ($type eq 'centos') {
145: $type .= $stream;
146: }
147: my %info = (
148: rhes => {
149: title => 'RHEL',
150: path => 'redhat/linux/enterprise/loncapa',
151: gpg => 'versions/redhat/RPM-GPG-KEY-loncapa',
152: gpgchk => 1,
153: },
154: centos => {
155: title => 'CentOS',
156: path => 'centos/loncapa',
157: gpg => 'versions/centos/RPM-GPG-KEY-loncapa',
158: gpgchk => 1,
159: },
160: scientific => {
161: title => 'Scientific Linux',
162: path => 'scientific/loncapa',
163: gpg => 'versions/scientific/RPM-GPG-KEY-loncapa',
164: gpgchk => 1,
165: },
166: oracle => {
167: title => 'Oracle Linux',
168: path => 'oracle/loncapa',
169: gpg => 'versions/oracle/RPM-GPG-KEY-loncapa',
170: gpgchk => 1,
171: },
172: rocky => {
173: title => 'Rocky Linux',
174: path => 'rocky/loncapa',
175: gpg => 'versions/rocky/RPM-GPG-KEY-loncapa',
176: gpgchk => 1,
177: },
178: alma => {
179: title => 'AlmaLinux',
180: path => 'alma/loncapa',
181: gpg => 'versions/alma/RPM-GPG-KEY-loncapa',
182: gpgchk => 1,
183: },
184: 'centos-stream' => {
185: title => 'CentOS Stream',
186: path => 'centos/loncapa',
187: gpg => 'versions/centos/RPM-GPG-KEY-loncapa',
188: gpgchk => 1,
189: },
190: );
191: if (ref($info{$type}) eq 'HASH') {
192: if ($ver > 4) {
193: my $file = '/etc/yum.conf';
194: if (($ver > 7) || ($type eq 'oracle') || ($type eq 'rocky') ||
195: ($type eq 'alma') || ($type eq 'centos-stream')) {
196: $file = '/etc/yum.repos.d/loncapa.repo';
197: $nobackup = 1;
198: }
199: my $release = '$releasever';
200: if ($type eq 'centos-stream') {
201: $release .= '-stream';
202: }
203: $yum_status =
204: &update_file($file,
205: [{section => 'loncapa-updates-basearch',
206: key => 'name=',
207: value => $info{$type}{title}.' $releasever LON-CAPA $basearch Updates',
208: }, {section => "loncapa-updates-basearch",
209: key => 'baseurl=',
210: value => "$loninst/$info{$type}{path}/$release/".'$basearch',
211: }, {section => 'loncapa-updates-basearch',
212: key => 'gpgcheck=',
213: value => $info{$type}{gpgchk},
214: }, {section => 'loncapa-updates-basearch',
215: key => 'gpgkey=',
216: value => "$loninst/$info{$type}{gpg}",
217: }, {section => 'loncapa-updates-noarch',
218: key => 'name=',
219: value => $info{$type}{title}.' $releasever LON-CAPA noarch Updates',
220: }, {section => 'loncapa-updates-noarch',
221: key => 'baseurl=',
222: value => "$loninst/$info{$type}{path}/$release/noarch",
223: }, {section => 'loncapa-updates-noarch',
224: key => 'gpgcheck=',
225: value => $info{$type}{gpgchk},
226: }, {section => 'loncapa-updates-noarch',
227: key => 'gpgkey=',
228: value => "$loninst/$info{$type}{gpg}",
229: }],$nobackup);
230: } elsif (($type eq 'rhes') && ($ver == 4)) {
231: my %rhn = (
232: basearch => {
233: regexp => '\s*yum\s+loncapa\-updates\-basearch\s+'.$loninst_re.'/'.$info{$type}{path}.'/'.$longver.'/\$ARCH',
234: text => "yum loncapa-updates-basearch $loninst/$info{$type}{path}/$longver/".'$ARCH',
235: },
236: noarch => {
237: regexp => '\s*yum\s+loncapa\-updates\-noarch\s+'.$loninst_re.'/'.$info{$type}{path}.'/'.$longver.'/noarch',
238: text => "yum loncapa-updates-noarch $loninst/$info{$type}{path}/$longver/noarch",
239: },
240: );
241: $yum_status = &update_rhn_source(\%rhn);
242: }
243: }
244: } elsif ($dist =~ /^(debian|ubuntu)(\d+)$/) {
245: my ($distname,$distver) = ($1,$2);
246: if ((($distname eq 'ubuntu') && ($distver > 20)) ||
247: (($distname eq 'debian') && ($distver >= 10))) {
248: $loninst = 'https://install.loncapa.org';
249: $loninst_re = 'https://install\.loncapa\.org';
250: }
251: my %apt_get_source = (
252: debian5 => {
253: regexp => '\s*deb\s+'.$loninst_re.'/debian/?\s+lenny\s+main',
254: text => "deb $loninst/debian lenny main",
255: },
256: debian6 => {
257: regexp => '\s*deb\s+'.$loninst_re.'/debian/?\s+squeeze\s+main',
258: text => "deb $loninst/debian squeeze main",
259: },
260: debian10 => {
261: regexp => '\s*deb\s+\[signed\-by=/etc/apt/keyrings/loncapa\.gpg\]\s+'.$loninst_re.'/debian/?\s+buster\s+main',
262: text => "deb [signed-by=/etc/apt/keyrings/loncapa.gpg] $loninst/debian buster main",
263: },
264: debian11 => {
265: regexp => '\s*deb\s+\[signed\-by=/etc/apt/keyrings/loncapa\.gpg\]\s+'.$loninst_re.'/debian/?\s+bullseye\s+main',
266: text => "deb [signed-by=/etc/apt/keyrings/loncapa.gpg] $loninst/debian bullseye main",
267: },
268: debian12 => {
269: regexp => '\s*deb\s+\[signed\-by=/etc/apt/keyrings/loncapa\.gpg\]\s+'.$loninst_re.'/debian/?\s+bookworm\s+main',
270: text => "deb [signed-by=/etc/apt/keyrings/loncapa.gpg] $loninst/debian bookworm main",
271: },
272:
273: ubuntu6 => {
274: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+dapper\s+main',
275: text => "deb $loninst/ubuntu dapper main",
276: },
277: ubuntu8 => {
278: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+hardy\s+main',
279: text => "deb $loninst/ubuntu hardy main",
280: },
281: ubuntu10 => {
282: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+lucid\s+main',
283: text => "deb $loninst/ubuntu lucid main",
284: },
285: ubuntu12 => {
286: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+precise\s+main',
287: text => "deb $loninst/ubuntu precise main",
288: },
289: ubuntu14 => {
290: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+trusty\s+main',
291: text => "deb $loninst/ubuntu trusty main",
292: },
293: ubuntu16 => {
294: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+xenial\s+main',
295: text => "deb $loninst/ubuntu xenial main",
296: },
297: ubuntu18 => {
298: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+bionic\s+main',
299: text => "deb $loninst/ubuntu bionic main",
300: },
301: ubuntu20 => {
302: regexp => '\s*deb\s+'.$loninst_re.'/ubuntu/?\s+focal\s+main',
303: text => "deb $loninst/ubuntu focal main",
304: },
305: ubuntu22 => {
306: regexp => '\s*deb\s+\[signed\-by=/etc/apt/keyrings/loncapa\.gpg\]\s+'.$loninst_re.'/ubuntu/?\s+jammy\s+main',
307: text => "deb [signed-by=/etc/apt/keyrings/loncapa.gpg] $loninst/ubuntu jammy main",
308: },
309: ubuntu24 => {
310: regexp => '\s*deb\s+\[signed\-by=/etc/apt/keyrings/loncapa\.gpg\]\s+'.$loninst_re.'/ubuntu/?\s+noble\s+main',
311: text => "deb [signed-by=/etc/apt/keyrings/loncapa.gpg] $loninst/ubuntu noble main",
312: },
313: );
314: my $apt_status;
315: if (defined($apt_get_source{$dist})) {
316: $apt_status = &update_apt_source($distname,$distver,$apt_get_source{$dist});
317: }
318: }
319:
320: my $mysqlfile = '/etc/my.cnf';
321: my $mysqlconf = [{section =>'mysqld',
322: key =>'wait_timeout=',
323: value =>'31536000'}];
324: my $nomysqlbackup;
325: if ($dist =~ /^ubuntu(\d+)$/) {
326: my $version = $1;
327: $mysqlfile = '/etc/mysql/my.cnf';
328: if ($version > 14) {
329: $nomysqlbackup = 1;
330: $mysqlfile = '/etc/mysql/mysql.conf.d/mysqld.cnf';
331: if ($version < 20) {
332: push(@{$mysqlconf},
333: {section =>'mysqld',
334: key =>'sql_mode=',
335: value =>'"STRICT_TRANS_TABLES,NO_ZERO_IN_DATE,NO_ZERO_DATE,ERROR_FOR_DIVISION_BY_ZERO,NO_AUTO_CREATE_USER,NO_ENGINE_SUBSTITUTION"'});
336: } else {
337: push(@{$mysqlconf},
338: {section =>'mysqld',
339: key =>'sql_mode=',
340: value =>'"STRICT_TRANS_TABLES,NO_ZERO_IN_DATE,NO_ZERO_DATE,ERROR_FOR_DIVISION_BY_ZERO,NO_ENGINE_SUBSTITUTION"'});
341: }
342: }
343: } elsif ($dist =~ /^debian(\d+)$/) {
344: my $version = $1;
345: if ($version >= 10) {
346: $mysqlfile = '/etc/mysql/mariadb.conf.d/50-server.cnf';
347: $nomysqlbackup = 1;
348: }
349: }
350:
351: my $mysql_global_status = &update_file($mysqlfile,$mysqlconf,$nomysqlbackup);
352:
353: my $local_my_cnf = '/home/www/.my.cnf';
354: if (! -e $local_my_cnf) {
355: # Create a file so we can do something with it...
356: system("touch $local_my_cnf");
357: }
358: my $mysql_www_status =
359: &update_file($local_my_cnf,
360: [{section =>'client',
361: key =>'user=',
362: value =>'www',},
363: {section =>'client',
364: key =>'password=',
365: value =>$loncapa_config->{'lonSqlAccess'}},]);
366:
367: my $needs_inputrc_check;
368: if ($dist =~ /^debian(\d+)$/) {
369: if ($1 >= 12) {
370: $needs_inputrc_check = 1;
371: }
372: } elsif ($dist =~ /^ubuntu(\d+)$/) {
373: if ($1 >= 22) {
374: $needs_inputrc_check = 1;
375: }
376: } elsif ($dist =~ /^(?:redhat|oracle|alma|rocky|centos-stream)(\d+)$/) {
377: if ($1 >= 9) {
378: $needs_inputrc_check = 1;
379: }
380: } elsif ($dist =~ /^fedora(\d+)$/) {
381: if ($1 >= 34) {
382: $needs_inputrc_check = 1;
383: }
384: }
385:
386: if ($needs_inputrc_check) {
387: my $bash_www_cnf = '/home/www/.inputrc';
388: if (!-e $bash_www_cnf) {
389: system("touch $bash_www_cnf");
390: if (open(my $fh,'>',$bash_www_cnf)) {
391: print $fh "set enable-bracketed-paste off\n";
392: close($fh);
393: } else {
394: warn "**** Error: could not open $bash_www_cnf to add 'set enable-bracketed-paste to off'";
395: }
396: } else {
397: my ($bracketed_paste_on,$bracketed_paste_off,@preserve);
398: if (open(my $fh,'<',$bash_www_cnf)) {
399: while (my $line=<$fh>) {
400: chomp($line);
401: if ($line =~ /^\s*set\s+enable\-bracketed\-paste\s+(off|on)\s*$/) {
402: if ($1 eq 'off') {
403: $bracketed_paste_off = 1;
404: } else {
405: $bracketed_paste_on = 1;
406: }
407: } else {
408: push(@preserve,$line);
409: }
410: }
411: close($fh);
412: }
413: if ($bracketed_paste_on || !$bracketed_paste_off) {
414: if (open(my $fh,'>',$bash_www_cnf)) {
415: print $fh "set enable-bracketed-paste off\n";
416: if (@preserve) {
417: foreach my $entry (@preserve) {
418: print $fh "$entry\n";
419: }
420: }
421: close($fh);
422: } else {
423: warn "**** Error: could not open $bash_www_cnf to add 'set enable-bracketed-paste to off'";
424: }
425: }
426: }
427: }
428:
429: my $exitvalue = 0;
430:
431: if ($mysql_global_status) { $exitvalue = 1; }
432:
433: exit $exitvalue;
434:
435: #################################################################
436: #################################################################
437:
438: =pod
439:
440: =over 4
441:
442: =item &update_file()
443:
444: Calls &parse_config_file for a file and then sends the
445: retrieved data to &modify_config_file, and checks if
446: modificatione were made.
447:
448: Inputs: filename, newdata (reference to an array of hashed),
449: nobackup 1, if no backup of existing file (.backup
450: appended to filename) should be made.
451:
452: Output: 0 or 1; o if no modifications exist (and hence no file
453: needed to be saved, or 1 if modifications made, and call to
454: &write_config_file to save file, or if filename does not exist.
455:
456: =back
457:
458: =cut
459:
460: #################################################################
461: #################################################################
462:
463:
464: sub update_file {
465: my ($file,$newdata,$nobackup) = @_;
466: return 1 if (! -e $file);
467: unless ($nobackup) {
468: my $backup = $file.'.backup';
469: if (! copy($file,$backup)) {
470: warn "**** Error: Unable to make backup of $file";
471: return 0;
472: }
473: }
474: my ($filedata) = &parse_config_file($file);
475: if (! ref($filedata)) { warn "**** Error: $filedata"; return 0;}
476: my $modified = 0;
477: foreach my $data (@$newdata) {
478: my $section = $data->{'section'};
479: my $key = $data->{'key'};
480: my $value = $data->{'value'};
481: my $result = &modify_config_file($filedata,$section,$key,$value);
482: if ($result) { $modified = 1; }
483: }
484: if ($modified) {
485: my $result = &write_config_file($file,$filedata);
486: if (defined($result)) { warn 'Error:'.$result; return 0; }
487: }
488: return $modified;
489: }
490:
491: #################################################################
492: #################################################################
493:
494: =pod
495:
496: =over 4
497:
498: =item &parse_config_file()
499:
500: Read a configuration file in and parse it into an internal data structure.
501:
502: Input: filename
503:
504: Output: array ref $filedata OR scalar error message
505:
506: =back
507:
508: =cut
509:
510: #################################################################
511: #################################################################
512: sub parse_config_file {
513: my ($file) = @_;
514: open(INFILE,$file) || return ('Unable to open '.$file.' for reading');
515: my @Input = <INFILE>;
516: close(INFILE);
517: my @Structure;
518: my %Sections;
519: while (my $line = shift(@Input)) {
520: chomp($line);
521: if ($line =~ /^\[([^\]]*)\]/) {
522: my $section_id = $1;
523: push(@Structure,'__section__'.$section_id);
524: while ($line = shift(@Input)) {
525: chomp($line);
526: if ($line =~ /^\[([^\]]*)\]/) {
527: unshift(@Input,$line);
528: last;
529: } else {
530: push(@{$Sections{$section_id}},$line);
531: }
532: }
533: } else {
534: push(@Structure,$line);
535: }
536: }
537: my $filedata = [\@Structure,\%Sections];
538: return $filedata;
539: }
540:
541: #################################################################
542: #################################################################
543:
544: =pod
545:
546: =over 4
547:
548: =item &write_config_file()
549:
550: Write a configuration file out based on the internal data structure returned
551: by &parse_config_file
552:
553: Inputs: filename, $filedata (the return value of &parse_config_file
554:
555: Returns: undef on success, scalar error message on failure.
556:
557: =back
558:
559: =cut
560:
561: #################################################################
562: #################################################################
563: sub write_config_file {
564: my ($file,$filedata) = @_;
565: my ($structure,$sections) = @$filedata;
566: if (! defined($structure) || ! ref($structure)) {
567: return 'Bad subroutine inputs';
568: }
569: open(OUTPUT,'>',$file) || return('Unable to open '.$file.' for writing');
570: for (my $i=0;$i<scalar(@$structure);$i++) {
571: my $line = $structure->[$i];
572: chomp($line);
573: if ($line =~ /^__section__(.*)$/) {
574: my $section_id = $1;
575: print OUTPUT ('['.$section_id.']'.$/);
576: foreach my $section_line (@{$sections->{$section_id}}) {
577: chomp($section_line);
578: print OUTPUT $section_line.$/;
579: }
580: # Deal with blank lines
581: if ($sections->{$section_id}->[-1] =~ /^\s*$/) {
582: # No need to output a blank line at the end if there is one
583: # already
584: } else {
585: print OUTPUT $/;
586: }
587: } else {
588: print OUTPUT $line.$/;
589: }
590: }
591: close OUTPUT;
592: return undef;
593: }
594:
595: #################################################################
596: #################################################################
597:
598: =pod
599:
600: =over 4
601:
602: =item &modify_config_file()
603:
604: Modifies the internal data structure of a configuration file to include new
605: sections and/or new configuration directives.
606:
607: Inputs: $filedata (see &parse_config_file
608: $section, the [section] the new entry is to reside in. A value of undef will
609: cause the "outer" section (as in yum.conf) to be updated (or have the new
610: value prepended).
611: $newkey: A line which matches this will be replaced with $newkey.$newvalue
612: $newvalue: The new value to be placed with the new key.
613:
614: Returns: 0 or 1, indicating if the file was modified(1) or not(0).
615:
616: =back
617:
618: =cut
619:
620: #################################################################
621: #################################################################
622: sub modify_config_file {
623: my ($filedata,$section,$newkey,$newvalue)=@_;
624: my $modified = 0; # returned value - set to true if the file is modified
625: my ($structure,$sections) = @$filedata;
626: if (! defined($newvalue)) {
627: $newvalue = '';
628: }
629: my $newline = $newkey.$newvalue;
630: #
631: # Determine which array ref gets the item
632: my $target;
633: if (defined($section)) {
634: if (! exists($sections->{$section})) {
635: push(@$structure,'__section__'.$section);
636: $sections->{$section}=[];
637: }
638: $target = $sections->{$section};
639: } else {
640: $target = $structure;
641: }
642: #
643: # Put the item in or update it.
644: my $key_is_new = 1;
645: for (my $i=0;$i<scalar(@$target);$i++) {
646: if ($target->[$i] =~/^$newkey/) {
647: if ($target->[$i] ne $newline) {
648: $target->[$i]=$newline;
649: $modified = 1;
650: }
651: $key_is_new = 0;
652: last;
653: }
654: }
655: if ($key_is_new) {
656: if (! defined($section)) {
657: unshift(@$target,$newline);
658: } else {
659: # No need to put things after a blank line.
660: if (defined($target->[-1]) && $target->[-1] =~ /^\s*$/) {
661: $target->[-1] = $newline;
662: $modified = 1;
663: } else {
664: push(@$target,$newline);
665: $modified = 1;
666: }
667: }
668: }
669: return $modified;
670: }
671:
672: #################################################################
673: #################################################################
674:
675: =pod
676:
677: =over 4
678:
679: =item &update_rhn_source()
680:
681: Modifies the Red Hat 4 sources file which includes repositories used by up2date
682:
683: Inputs:
684: $rhn_items - a reference to hash of a hash containing the regular expression
685: to test for, and the text string to append to the file, if an entry for the
686: LON-CAPA RHEL repository is missing for two cases:
687:
688: (a) basearch
689: (b) noarch
690:
691: Returns: 0 or 1, indicating if the file was modified(1) or not(0).
692:
693: =back
694:
695: =cut
696:
697: #################################################################
698: #################################################################
699: sub update_rhn_source {
700: my ($rhn_items) = @_;
701: return 0 if (ref($rhn_items) ne 'HASH');
702: return 0 if ((ref($rhn_items->{basearch}) ne 'HASH') || (ref($rhn_items->{noarch}) ne 'HASH'));
703: my $file = '/etc/sysconfig/rhn/sources';
704: return 0 if (! -e $file);
705: my $backup = $file.'.backup';
706: if (! copy($file,$backup)) {
707: warn "**** Error: Unable to make backup of $file";
708: return 0;
709: }
710: my $result = 0;
711: my $fh;
712: if (open($fh,'<',$file)) {
713: my $total = 0;
714: my %found;
715: foreach my $item (keys(%{$rhn_items})) {
716: $found{$item} = 0;
717: }
718: while(<$fh>) {
719: foreach my $item (keys(%{$rhn_items})) {
720: if (ref($rhn_items->{$item}) eq 'HASH') {
721: my $pattern = $rhn_items->{$item}->{regexp};
722: if ($pattern ne '') {
723: if (m{^$pattern}) {
724: $found{$item} = 1;
725: $total ++;
726: }
727: }
728: }
729: }
730: last if $total == 2;
731: }
732: close($fh);
733: if ($total < 2) {
734: if (open($fh,'>>',$file)) {
735: foreach my $item (keys(%{$rhn_items})) {
736: unless ($found{$item}) {
737: if (ref($rhn_items->{$item}) eq 'HASH') {
738: if ($rhn_items->{$item}->{text} ne '') {
739: print $fh "\n".$rhn_items->{$item}->{text}."\n";
740: $result = 1;
741: }
742: }
743: }
744: }
745: close($fh);
746: }
747: }
748: }
749: return $result;
750: }
751:
752: #################################################################
753: #################################################################
754:
755: =pod
756:
757: =over 4
758:
759: =item &update_apt_source()
760:
761: Modifies either the sources.list or sources.list.d/loncapa.list
762: file which include repositories used by apt-get.
763:
764: Inputs:
765: $distname - distro (without version): debian or ubuntu
766: $distver - distro version, e.g., 12 or 24
767: $deb_row - a reference to a hash containing the regular expression
768: to test for, and the text string to append to the file, if an entry
769: for the LON-CAPA Debian/ or Ubuntu repository is missing.
770:
771: Returns: 0 or 1, indicating if the file was modified(1) or not(0).
772:
773: =back
774:
775: =cut
776:
777: #################################################################
778: #################################################################
779: sub update_apt_source {
780: my ($distname,$distver,$deb_row) = @_;
781: return 0 if (ref($deb_row) ne 'HASH');
782: return 0 if (($deb_row->{regexp} eq '') || ($deb_row->{text} eq ''));
783: my $file = '/etc/apt/sources.list';
784: my $nobackup;
785: if ((($distname eq 'ubuntu') && ($distver > 20)) ||
786: (($distname eq 'debian') && ($distver >= 10))) {
787: $file = '/etc/apt/sources.list.d/loncapa.list';
788: $nobackup = 1;
789: }
790: return 0 if (! -e $file);
791: unless ($nobackup) {
792: my $backup = $file.'.backup';
793: if (! copy($file,$backup)) {
794: warn "**** Error: Unable to make backup of $file";
795: return 0;
796: }
797: }
798: my $result = 0;
799: my $fh;
800: if (open($fh,'<',$file)) {
801: my $found = 0;
802: my $pattern = $deb_row->{regexp};
803: while(<$fh>) {
804: if (m{^$pattern}) {
805: $found = 1;
806: last;
807: }
808: }
809: close($fh);
810: if (!$found) {
811: if (open($fh,'>>',$file)) {
812: print $fh "\n".$deb_row->{text}."\n";
813: close($fh);
814: $result = 1;
815: }
816: }
817: }
818: return $result;
819: }
820:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to modify_config_files.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / debugging_tools