src/lib/config.cc

   1 /*
   2     Copyright (C) 2012-2016 Carl Hetherington <cth@carlh.net>
   3
   4     This file is part of DCP-o-matic.
   5
   6     DCP-o-matic is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     DCP-o-matic is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with DCP-o-matic.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 */
  20
  21 #include "config.h"
  22 #include "filter.h"
  23 #include "ratio.h"
  24 #include "types.h"
  25 #include "log.h"
  26 #include "dcp_content_type.h"
  27 #include "cinema_sound_processor.h"
  28 #include "colour_conversion.h"
  29 #include "cinema.h"
  30 #include "util.h"
  31 #include "cross.h"
  32 #include "raw_convert.h"
  33 #include <dcp/colour_matrix.h>
  34 #include <dcp/certificate_chain.h>
  35 #include <libcxml/cxml.h>
  36 #include <glib.h>
  37 #include <libxml++/libxml++.h>
  38 #include <boost/filesystem.hpp>
  39 #include <boost/algorithm/string.hpp>
  40 #include <boost/foreach.hpp>
  41 #include <boost/thread.hpp>
  42 #include <boost/make_shared.hpp>
  43 #include <cstdlib>
  44 #include <fstream>
  45 #include <iostream>
  46
  47 #include "i18n.h"
  48
  49 using std::vector;
  50 using std::cout;
  51 using std::ifstream;
  52 using std::string;
  53 using std::list;
  54 using std::max;
  55 using std::remove;
  56 using std::exception;
  57 using std::cerr;
  58 using boost::shared_ptr;
  59 using boost::make_shared;
  60 using boost::optional;
  61 using boost::algorithm::trim;
  62
  63 Config* Config::_instance = 0;
  64
  65 /** Construct default configuration */
  66 Config::Config ()
  67 {
  68         set_defaults ();
  69 }
  70
  71 void
  72 Config::set_defaults ()
  73 {
  74         _num_local_encoding_threads = max (2U, boost::thread::hardware_concurrency ());
  75         _server_port_base = 6192;
  76         _use_any_servers = true;
  77         _servers.clear ();
  78         _only_servers_encode = false;
  79         _tms_protocol = PROTOCOL_SCP;
  80         _tms_ip = "";
  81         _tms_path = ".";
  82         _tms_user = "";
  83         _tms_password = "";
  84         _cinema_sound_processor = CinemaSoundProcessor::from_id (N_("dolby_cp750"));
  85         _allow_any_dcp_frame_rate = false;
  86         _language = optional<string> ();
  87         _default_still_length = 10;
  88         _default_container = Ratio::from_id ("185");
  89         _default_dcp_content_type = DCPContentType::from_isdcf_name ("FTR");
  90         _default_dcp_audio_channels = 6;
  91         _default_j2k_bandwidth = 100000000;
  92         _default_audio_delay = 0;
  93         _default_interop = false;
  94         _mail_server = "";
  95         _mail_port = 25;
  96         _mail_user = "";
  97         _mail_password = "";
  98         _kdm_from = "";
  99         _kdm_cc.clear ();
 100         _kdm_bcc = "";
 101         _check_for_updates = false;
 102         _check_for_test_updates = false;
 103         _maximum_j2k_bandwidth = 250000000;
 104         _log_types = LogEntry::TYPE_GENERAL | LogEntry::TYPE_WARNING | LogEntry::TYPE_ERROR;
 105         _analyse_ebur128 = true;
 106         _automatic_audio_analysis = false;
 107 #ifdef DCPOMATIC_WINDOWS
 108         _win32_console = false;
 109 #endif
 110         _cinemas_file = path ("cinemas.xml");
 111
 112         _allowed_dcp_frame_rates.clear ();
 113         _allowed_dcp_frame_rates.push_back (24);
 114         _allowed_dcp_frame_rates.push_back (25);
 115         _allowed_dcp_frame_rates.push_back (30);
 116         _allowed_dcp_frame_rates.push_back (48);
 117         _allowed_dcp_frame_rates.push_back (50);
 118         _allowed_dcp_frame_rates.push_back (60);
 119
 120         set_kdm_email_to_default ();
 121 }
 122
 123 void
 124 Config::restore_defaults ()
 125 {
 126         Config::instance()->set_defaults ();
 127         Config::instance()->changed ();
 128 }
 129
 130 shared_ptr<dcp::CertificateChain>
 131 Config::create_certificate_chain ()
 132 {
 133         return shared_ptr<dcp::CertificateChain> (
 134                 new dcp::CertificateChain (
 135                         openssl_path(),
 136                         "dcpomatic.com",
 137                         "dcpomatic.com",
 138                         ".dcpomatic.smpte-430-2.ROOT",
 139                         ".dcpomatic.smpte-430-2.INTERMEDIATE",
 140                         "CS.dcpomatic.smpte-430-2.LEAF"
 141                         )
 142                 );
 143 }
 144
 145 void
 146 Config::read ()
 147 {
 148         if (!have_existing ("config.xml")) {
 149                 cout << "No existing config.xml; creating chains.\n";
 150                 /* Make a new set of signing certificates and key */
 151                 _signer_chain = create_certificate_chain ();
 152                 /* And similar for decryption of KDMs */
 153                 _decryption_chain = create_certificate_chain ();
 154                 cout << "Writing config.\n";
 155                 write ();
 156                 return;
 157         }
 158
 159         cxml::Document f ("Config");
 160         f.read_file (path ("config.xml"));
 161         optional<string> c;
 162
 163         optional<int> version = f.optional_number_child<int> ("Version");
 164
 165         _num_local_encoding_threads = f.number_child<int> ("NumLocalEncodingThreads");
 166         _default_directory = f.string_child ("DefaultDirectory");
 167
 168         boost::optional<int> b = f.optional_number_child<int> ("ServerPort");
 169         if (!b) {
 170                 b = f.optional_number_child<int> ("ServerPortBase");
 171         }
 172         _server_port_base = b.get ();
 173
 174         boost::optional<bool> u = f.optional_bool_child ("UseAnyServers");
 175         _use_any_servers = u.get_value_or (true);
 176
 177         list<cxml::NodePtr> servers = f.node_children ("Server");
 178         for (list<cxml::NodePtr>::iterator i = servers.begin(); i != servers.end(); ++i) {
 179                 if ((*i)->node_children("HostName").size() == 1) {
 180                         _servers.push_back ((*i)->string_child ("HostName"));
 181                 } else {
 182                         _servers.push_back ((*i)->content ());
 183                 }
 184         }
 185
 186         _only_servers_encode = f.optional_bool_child ("OnlyServersEncode").get_value_or (false);
 187         _tms_protocol = static_cast<Protocol> (f.optional_number_child<int> ("TMSProtocol").get_value_or (static_cast<int> (PROTOCOL_SCP)));
 188         _tms_ip = f.string_child ("TMSIP");
 189         _tms_path = f.string_child ("TMSPath");
 190         _tms_user = f.string_child ("TMSUser");
 191         _tms_password = f.string_child ("TMSPassword");
 192
 193         c = f.optional_string_child ("SoundProcessor");
 194         if (c) {
 195                 _cinema_sound_processor = CinemaSoundProcessor::from_id (c.get ());
 196         }
 197         c = f.optional_string_child ("CinemaSoundProcessor");
 198         if (c) {
 199                 _cinema_sound_processor = CinemaSoundProcessor::from_id (c.get ());
 200         }
 201
 202         _language = f.optional_string_child ("Language");
 203
 204         c = f.optional_string_child ("DefaultContainer");
 205         if (c) {
 206                 _default_container = Ratio::from_id (c.get ());
 207         }
 208
 209         c = f.optional_string_child ("DefaultDCPContentType");
 210         if (c) {
 211                 _default_dcp_content_type = DCPContentType::from_isdcf_name (c.get ());
 212         }
 213
 214         _default_dcp_audio_channels = f.optional_number_child<int>("DefaultDCPAudioChannels").get_value_or (6);
 215
 216         if (f.optional_string_child ("DCPMetadataIssuer")) {
 217                 _dcp_issuer = f.string_child ("DCPMetadataIssuer");
 218         } else if (f.optional_string_child ("DCPIssuer")) {
 219                 _dcp_issuer = f.string_child ("DCPIssuer");
 220         }
 221
 222         _dcp_creator = f.optional_string_child ("DCPCreator").get_value_or ("");
 223
 224         if (version && version.get() >= 2) {
 225                 _default_isdcf_metadata = ISDCFMetadata (f.node_child ("ISDCFMetadata"));
 226         } else {
 227                 _default_isdcf_metadata = ISDCFMetadata (f.node_child ("DCIMetadata"));
 228         }
 229
 230         _default_still_length = f.optional_number_child<int>("DefaultStillLength").get_value_or (10);
 231         _default_j2k_bandwidth = f.optional_number_child<int>("DefaultJ2KBandwidth").get_value_or (200000000);
 232         _default_audio_delay = f.optional_number_child<int>("DefaultAudioDelay").get_value_or (0);
 233         _default_interop = f.optional_bool_child("DefaultInterop").get_value_or (false);
 234
 235         /* Load any cinemas from config.xml */
 236         read_cinemas (f);
 237
 238         _mail_server = f.string_child ("MailServer");
 239         _mail_port = f.optional_number_child<int> ("MailPort").get_value_or (25);
 240         _mail_user = f.optional_string_child("MailUser").get_value_or ("");
 241         _mail_password = f.optional_string_child("MailPassword").get_value_or ("");
 242         _kdm_subject = f.optional_string_child ("KDMSubject").get_value_or (_("KDM delivery: $CPL_NAME"));
 243         _kdm_from = f.string_child ("KDMFrom");
 244         BOOST_FOREACH (cxml::ConstNodePtr i, f.node_children("KDMCC")) {
 245                 if (!i->content().empty()) {
 246                         _kdm_cc.push_back (i->content ());
 247                 }
 248         }
 249         _kdm_bcc = f.optional_string_child ("KDMBCC").get_value_or ("");
 250         _kdm_email = f.string_child ("KDMEmail");
 251
 252         _check_for_updates = f.optional_bool_child("CheckForUpdates").get_value_or (false);
 253         _check_for_test_updates = f.optional_bool_child("CheckForTestUpdates").get_value_or (false);
 254
 255         _maximum_j2k_bandwidth = f.optional_number_child<int> ("MaximumJ2KBandwidth").get_value_or (250000000);
 256         _allow_any_dcp_frame_rate = f.optional_bool_child ("AllowAnyDCPFrameRate").get_value_or (false);
 257
 258         _log_types = f.optional_number_child<int> ("LogTypes").get_value_or (LogEntry::TYPE_GENERAL | LogEntry::TYPE_WARNING | LogEntry::TYPE_ERROR);
 259         _analyse_ebur128 = f.optional_bool_child("AnalyseEBUR128").get_value_or (true);
 260         _automatic_audio_analysis = f.optional_bool_child ("AutomaticAudioAnalysis").get_value_or (false);
 261 #ifdef DCPOMATIC_WINDOWS
 262         _win32_console = f.optional_bool_child ("Win32Console").get_value_or (false);
 263 #endif
 264
 265         list<cxml::NodePtr> his = f.node_children ("History");
 266         for (list<cxml::NodePtr>::const_iterator i = his.begin(); i != his.end(); ++i) {
 267                 _history.push_back ((*i)->content ());
 268         }
 269
 270         cxml::NodePtr signer = f.optional_node_child ("Signer");
 271         if (signer) {
 272                 shared_ptr<dcp::CertificateChain> c = make_shared<dcp::CertificateChain> ();
 273                 /* Read the signing certificates and private key in from the config file */
 274                 BOOST_FOREACH (cxml::NodePtr i, signer->node_children ("Certificate")) {
 275                         c->add (dcp::Certificate (i->content ()));
 276                 }
 277                 c->set_key (signer->string_child ("PrivateKey"));
 278                 _signer_chain = c;
 279         } else {
 280                 /* Make a new set of signing certificates and key */
 281                 _signer_chain = create_certificate_chain ();
 282         }
 283
 284         cxml::NodePtr decryption = f.optional_node_child ("Decryption");
 285         if (decryption) {
 286                 shared_ptr<dcp::CertificateChain> c = make_shared<dcp::CertificateChain> ();
 287                 BOOST_FOREACH (cxml::NodePtr i, decryption->node_children ("Certificate")) {
 288                         c->add (dcp::Certificate (i->content ()));
 289                 }
 290                 c->set_key (decryption->string_child ("PrivateKey"));
 291                 _decryption_chain = c;
 292         } else {
 293                 _decryption_chain = create_certificate_chain ();
 294         }
 295
 296         list<cxml::NodePtr> dkdm = f.node_children ("DKDM");
 297         BOOST_FOREACH (cxml::NodePtr i, f.node_children ("DKDM")) {
 298                 _dkdms.push_back (dcp::EncryptedKDM (i->content ()));
 299         }
 300
 301         _cinemas_file = f.optional_string_child("CinemasFile").get_value_or (path ("cinemas.xml").string ());
 302
 303         /* Replace any cinemas from config.xml with those from the configured file */
 304         if (boost::filesystem::exists (_cinemas_file)) {
 305                 cxml::Document f ("Cinemas");
 306                 f.read_file (_cinemas_file);
 307                 read_cinemas (f);
 308         }
 309 }
 310
 311 /** @return Filename to write configuration to */
 312 boost::filesystem::path
 313 Config::path (string file, bool create_directories)
 314 {
 315         boost::filesystem::path p;
 316 #ifdef DCPOMATIC_OSX
 317         p /= g_get_home_dir ();
 318         p /= "Library";
 319         p /= "Preferences";
 320         p /= "com.dcpomatic";
 321         p /= "2";
 322 #else
 323         p /= g_get_user_config_dir ();
 324         p /= "dcpomatic2";
 325 #endif
 326         boost::system::error_code ec;
 327         if (create_directories) {
 328                 boost::filesystem::create_directories (p, ec);
 329         }
 330         p /= file;
 331         return p;
 332 }
 333
 334 /** @return Singleton instance */
 335 Config *
 336 Config::instance ()
 337 {
 338         if (_instance == 0) {
 339                 _instance = new Config;
 340                 try {
 341                         _instance->read ();
 342                 } catch (exception& e) {
 343                         /* configuration load failed; never mind, just
 344                            stick with the default.
 345                         */
 346                         cerr << "dcpomatic: warning: configuration did not load (" << e.what() << "); using defaults\n";
 347                 } catch (...) {
 348                         cerr << "dcpomatic: warning: configuration did not load; using defaults\n";
 349                 }
 350         }
 351
 352         return _instance;
 353 }
 354
 355 /** Write our configuration to disk */
 356 void
 357 Config::write () const
 358 {
 359         write_config_xml ();
 360         write_cinemas_xml ();
 361 }
 362
 363 void
 364 Config::write_config_xml () const
 365 {
 366         xmlpp::Document doc;
 367         xmlpp::Element* root = doc.create_root_node ("Config");
 368
 369         root->add_child("Version")->add_child_text ("2");
 370         root->add_child("NumLocalEncodingThreads")->add_child_text (raw_convert<string> (_num_local_encoding_threads));
 371         root->add_child("DefaultDirectory")->add_child_text (_default_directory.string ());
 372         root->add_child("ServerPortBase")->add_child_text (raw_convert<string> (_server_port_base));
 373         root->add_child("UseAnyServers")->add_child_text (_use_any_servers ? "1" : "0");
 374
 375         for (vector<string>::const_iterator i = _servers.begin(); i != _servers.end(); ++i) {
 376                 root->add_child("Server")->add_child_text (*i);
 377         }
 378
 379         root->add_child("OnlyServersEncode")->add_child_text (_only_servers_encode ? "1" : "0");
 380         root->add_child("TMSProtocol")->add_child_text (raw_convert<string> (_tms_protocol));
 381         root->add_child("TMSIP")->add_child_text (_tms_ip);
 382         root->add_child("TMSPath")->add_child_text (_tms_path);
 383         root->add_child("TMSUser")->add_child_text (_tms_user);
 384         root->add_child("TMSPassword")->add_child_text (_tms_password);
 385         if (_cinema_sound_processor) {
 386                 root->add_child("CinemaSoundProcessor")->add_child_text (_cinema_sound_processor->id ());
 387         }
 388         if (_language) {
 389                 root->add_child("Language")->add_child_text (_language.get());
 390         }
 391         if (_default_container) {
 392                 root->add_child("DefaultContainer")->add_child_text (_default_container->id ());
 393         }
 394         if (_default_dcp_content_type) {
 395                 root->add_child("DefaultDCPContentType")->add_child_text (_default_dcp_content_type->isdcf_name ());
 396         }
 397         root->add_child("DefaultDCPAudioChannels")->add_child_text (raw_convert<string> (_default_dcp_audio_channels));
 398         root->add_child("DCPIssuer")->add_child_text (_dcp_issuer);
 399         root->add_child("DCPCreator")->add_child_text (_dcp_creator);
 400
 401         _default_isdcf_metadata.as_xml (root->add_child ("ISDCFMetadata"));
 402
 403         root->add_child("DefaultStillLength")->add_child_text (raw_convert<string> (_default_still_length));
 404         root->add_child("DefaultJ2KBandwidth")->add_child_text (raw_convert<string> (_default_j2k_bandwidth));
 405         root->add_child("DefaultAudioDelay")->add_child_text (raw_convert<string> (_default_audio_delay));
 406         root->add_child("DefaultInterop")->add_child_text (_default_interop ? "1" : "0");
 407         root->add_child("MailServer")->add_child_text (_mail_server);
 408         root->add_child("MailPort")->add_child_text (raw_convert<string> (_mail_port));
 409         root->add_child("MailUser")->add_child_text (_mail_user);
 410         root->add_child("MailPassword")->add_child_text (_mail_password);
 411         root->add_child("KDMSubject")->add_child_text (_kdm_subject);
 412         root->add_child("KDMFrom")->add_child_text (_kdm_from);
 413         BOOST_FOREACH (string i, _kdm_cc) {
 414                 root->add_child("KDMCC")->add_child_text (i);
 415         }
 416         root->add_child("KDMBCC")->add_child_text (_kdm_bcc);
 417         root->add_child("KDMEmail")->add_child_text (_kdm_email);
 418
 419         root->add_child("CheckForUpdates")->add_child_text (_check_for_updates ? "1" : "0");
 420         root->add_child("CheckForTestUpdates")->add_child_text (_check_for_test_updates ? "1" : "0");
 421
 422         root->add_child("MaximumJ2KBandwidth")->add_child_text (raw_convert<string> (_maximum_j2k_bandwidth));
 423         root->add_child("AllowAnyDCPFrameRate")->add_child_text (_allow_any_dcp_frame_rate ? "1" : "0");
 424         root->add_child("LogTypes")->add_child_text (raw_convert<string> (_log_types));
 425         root->add_child("AnalyseEBUR128")->add_child_text (_analyse_ebur128 ? "1" : "0");
 426         root->add_child("AutomaticAudioAnalysis")->add_child_text (_automatic_audio_analysis ? "1" : "0");
 427 #ifdef DCPOMATIC_WINDOWS
 428         root->add_child("Win32Console")->add_child_text (_win32_console ? "1" : "0");
 429 #endif
 430
 431         xmlpp::Element* signer = root->add_child ("Signer");
 432         DCPOMATIC_ASSERT (_signer_chain);
 433         BOOST_FOREACH (dcp::Certificate const & i, _signer_chain->root_to_leaf ()) {
 434                 signer->add_child("Certificate")->add_child_text (i.certificate (true));
 435         }
 436         signer->add_child("PrivateKey")->add_child_text (_signer_chain->key().get ());
 437
 438         xmlpp::Element* decryption = root->add_child ("Decryption");
 439         DCPOMATIC_ASSERT (_decryption_chain);
 440         BOOST_FOREACH (dcp::Certificate const & i, _decryption_chain->root_to_leaf ()) {
 441                 decryption->add_child("Certificate")->add_child_text (i.certificate (true));
 442         }
 443         decryption->add_child("PrivateKey")->add_child_text (_decryption_chain->key().get ());
 444
 445         for (vector<boost::filesystem::path>::const_iterator i = _history.begin(); i != _history.end(); ++i) {
 446                 root->add_child("History")->add_child_text (i->string ());
 447         }
 448
 449         BOOST_FOREACH (dcp::EncryptedKDM i, _dkdms) {
 450                 root->add_child("DKDM")->add_child_text (i.as_xml ());
 451         }
 452
 453         root->add_child("CinemasFile")->add_child_text (_cinemas_file.string());
 454
 455         try {
 456                 doc.write_to_file_formatted (path("config.xml").string ());
 457         } catch (xmlpp::exception& e) {
 458                 string s = e.what ();
 459                 trim (s);
 460                 throw FileError (s, path("config.xml"));
 461         }
 462 }
 463
 464 void
 465 Config::write_cinemas_xml () const
 466 {
 467         xmlpp::Document doc;
 468         xmlpp::Element* root = doc.create_root_node ("Cinemas");
 469         root->add_child("Version")->add_child_text ("1");
 470
 471         for (list<shared_ptr<Cinema> >::const_iterator i = _cinemas.begin(); i != _cinemas.end(); ++i) {
 472                 (*i)->as_xml (root->add_child ("Cinema"));
 473         }
 474
 475         try {
 476                 doc.write_to_file_formatted (_cinemas_file.string ());
 477         } catch (xmlpp::exception& e) {
 478                 string s = e.what ();
 479                 trim (s);
 480                 throw FileError (s, _cinemas_file);
 481         }
 482 }
 483
 484 boost::filesystem::path
 485 Config::default_directory_or (boost::filesystem::path a) const
 486 {
 487         if (_default_directory.empty()) {
 488                 return a;
 489         }
 490
 491         boost::system::error_code ec;
 492         bool const e = boost::filesystem::exists (_default_directory, ec);
 493         if (ec || !e) {
 494                 return a;
 495         }
 496
 497         return _default_directory;
 498 }
 499
 500 void
 501 Config::drop ()
 502 {
 503         delete _instance;
 504         _instance = 0;
 505 }
 506
 507 void
 508 Config::changed (Property what)
 509 {
 510         Changed (what);
 511 }
 512
 513 void
 514 Config::set_kdm_email_to_default ()
 515 {
 516         _kdm_subject = _("KDM delivery: $CPL_NAME");
 517
 518         _kdm_email = _(
 519                 "Dear Projectionist\n\n"
 520                 "Please find attached KDMs for $CPL_NAME.\n\n"
 521                 "Cinema: $CINEMA_NAME\n"
 522                 "Screen(s): $SCREENS\n\n"
 523                 "The KDMs are valid from $START_TIME until $END_TIME.\n\n"
 524                 "Best regards,\nDCP-o-matic"
 525                 );
 526 }
 527
 528 void
 529 Config::reset_kdm_email ()
 530 {
 531         set_kdm_email_to_default ();
 532         changed ();
 533 }
 534
 535 void
 536 Config::add_to_history (boost::filesystem::path p)
 537 {
 538         /* Remove existing instances of this path in the history */
 539         _history.erase (remove (_history.begin(), _history.end(), p), _history.end ());
 540
 541         _history.insert (_history.begin (), p);
 542         if (_history.size() > HISTORY_SIZE) {
 543                 _history.pop_back ();
 544         }
 545
 546         changed ();
 547 }
 548
 549 bool
 550 Config::have_existing (string file)
 551 {
 552         return boost::filesystem::exists (path (file, false));
 553 }
 554
 555 void
 556 Config::read_cinemas (cxml::Document const & f)
 557 {
 558         _cinemas.clear ();
 559         list<cxml::NodePtr> cin = f.node_children ("Cinema");
 560         for (list<cxml::NodePtr>::iterator i = cin.begin(); i != cin.end(); ++i) {
 561                 /* Slightly grotty two-part construction of Cinema here so that we can use
 562                    shared_from_this.
 563                 */
 564                 shared_ptr<Cinema> cinema = make_shared<Cinema> (*i);
 565                 cinema->read_screens (*i);
 566                 _cinemas.push_back (cinema);
 567         }
 568 }
 569
 570 void
 571 Config::set_cinemas_file (boost::filesystem::path file)
 572 {
 573         _cinemas_file = file;
 574
 575         if (boost::filesystem::exists (_cinemas_file)) {
 576                 /* Existing file; read it in */
 577                 cxml::Document f ("Cinemas");
 578                 f.read_file (_cinemas_file);
 579                 read_cinemas (f);
 580         }
 581
 582         changed (OTHER);
 583 }