src/Pure/Tools/phabricator.scala
author wenzelm
Tue, 05 Nov 2019 20:47:15 +0100
changeset 71051 4eeff87c5072
parent 71050 8198ceef0301
child 71052 6bf53035baf0
permissions -rw-r--r--
more phabricator setup;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Tools/phabricator.scala
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     3
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     4
Support for Phabricator server. See also:
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     5
  - https://www.phacility.com/phabricator
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     6
  - https://secure.phabricator.com/book/phabricator
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     7
*/
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     8
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
     9
package isabelle
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    10
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    11
70969
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    12
import scala.util.matching.Regex
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    13
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    14
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    15
object Phabricator
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    16
{
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    17
  /** defaults **/
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    18
71049
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    19
  /* required packages */
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    20
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    21
  val packages: List[String] =
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    22
    Build_Docker.packages :::
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    23
    List(
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    24
      // https://secure.phabricator.com/source/phabricator/browse/master/scripts/install/install_ubuntu.sh 15e6e2adea61
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    25
      "git", "mysql-server", "apache2", "libapache2-mod-php", "php", "php-mysql",
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    26
      "php-gd", "php-curl", "php-apcu", "php-cli", "php-json", "php-mbstring",
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    27
      // more packages
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    28
      "php-zip", "python-pygments", "ssh")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    29
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    30
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    31
  /* global system resources */
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    32
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    33
  val daemon_user = "phabricator"
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    34
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    35
  val ssh_standard = 22
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    36
  val ssh_alternative1 = 222
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    37
  val ssh_alternative2 = 2222
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    38
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    39
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    40
  /* installation parameters */
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    41
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    42
  val default_name = "vcs"
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    43
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
    44
  def default_prefix(name: String): String = "phabricator-" + name
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    45
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    46
  def default_root(options: Options, name: String): Path =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    47
    Path.explode(options.string("phabricator_www_root")) + Path.basic(default_prefix(name))
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    48
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    49
  def default_repo(options: Options, name: String): Path =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    50
    default_root(options, name) + Path.basic("repo")
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    51
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    52
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    53
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    54
  /** global configuration **/
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    55
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    56
  val global_config = Path.explode("/etc/isabelle-phabricator.conf")
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    57
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    58
  sealed case class Config(name: String, root: Path)
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
    59
  {
70969
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    60
    def home: Path = root + Path.explode("phabricator")
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    61
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    62
    def execute(command: String): Process_Result =
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
    63
      Isabelle_System.bash("./bin/" + command, cwd = home.file).check
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
    64
  }
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    65
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    66
  def read_config(): List[Config] =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    67
  {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    68
    if (global_config.is_file) {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    69
      for (entry <- Library.trim_split_lines(File.read(global_config)) if entry.nonEmpty)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    70
      yield {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    71
        space_explode(':', entry) match {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    72
          case List(name, root) => Config(name, Path.explode(root))
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    73
          case _ => error("Malformed config file " + global_config + "\nentry " + quote(entry))
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    74
        }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    75
      }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    76
    }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    77
    else Nil
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    78
  }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    79
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    80
  def write_config(configs: List[Config])
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    81
  {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    82
    File.write(global_config,
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    83
      configs.map(config => config.name + ":" + config.root.implode).mkString("", "\n", "\n"))
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    84
  }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    85
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    86
  def get_config(name: String): Config =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    87
    read_config().find(config => config.name == name) getOrElse
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    88
      error("Bad Isabelle/Phabricator installation " + quote(name))
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    89
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    90
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    91
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    92
  /** setup **/
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
    93
71049
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    94
  def user_setup(name: String, description: String, ssh_setup: Boolean = false)
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    95
  {
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    96
    if (!Linux.user_exists(name)) {
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    97
      Linux.user_add(name, description = description, ssh_setup = ssh_setup)
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    98
    }
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
    99
    else if (Linux.user_description(name) != description) {
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   100
      error("User " + quote(name) + " already exists --" +
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   101
        " for Phabricator it should have the description:\n  " + quote(description))
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   102
    }
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   103
  }
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   104
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   105
  def phabricator_setup(
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   106
    options: Options,
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   107
    name: String = default_name,
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   108
    prefix: String = "",
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   109
    root: String = "",
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   110
    repo: String = "",
71047
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   111
    package_update: Boolean = false,
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   112
    progress: Progress = No_Progress)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   113
  {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   114
    /* system environment */
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   115
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   116
    Linux.check_system_root()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   117
71047
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   118
    if (package_update) {
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   119
      Linux.package_update(progress = progress)
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   120
      Linux.check_reboot_required()
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   121
    }
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   122
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   123
    Linux.package_install(packages, progress = progress)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   124
    Linux.check_reboot_required()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   125
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   126
71049
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   127
    /* users */
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   128
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   129
    if (name == daemon_user) {
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   130
      error("Clash of installation name with daemon user " + quote(daemon_user))
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   131
    }
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   132
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   133
    user_setup(daemon_user, "Phabricator Daemon User", ssh_setup = true)
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   134
    user_setup(name, "Phabricator SSH User")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   135
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   136
    val www_user = options.string("phabricator_www_user")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   137
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   138
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   139
    /* basic installation */
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   140
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   141
    val prefix_name = proper_string(prefix) getOrElse default_prefix(name)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   142
    val root_path = if (root.nonEmpty) Path.explode(root) else default_root(options, name)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   143
    val repo_path = if (repo.nonEmpty) Path.explode(repo) else default_repo(options, name)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   144
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   145
    val configs = read_config()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   146
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   147
    for (config <- configs if config.name == name) {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   148
      error("Duplicate Phabricator installation " + quote(name) + " in " + config.root)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   149
    }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   150
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   151
    if (!Isabelle_System.bash("mkdir -p " + File.bash_path(root_path)).ok) {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   152
      error("Failed to create root directory " + root_path)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   153
    }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   154
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   155
    progress.bash(cwd = root_path.file, echo = true,
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   156
      script = """
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   157
        set -e
71050
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   158
        chown """ + Bash.string(www_user) + ":" + Bash.string(www_user) + """ .
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   159
        chmod 755 .
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   160
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   161
        git clone https://github.com/phacility/libphutil.git
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   162
        git clone https://github.com/phacility/arcanist.git
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   163
        git clone https://github.com/phacility/phabricator.git
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   164
      """).check
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   165
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   166
    val config = Config(name, root_path)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   167
    write_config(configs ::: List(config))
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   168
71051
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   169
    config.execute("config set pygments.enabled true")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   170
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   171
71050
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   172
    /* local repository directory */
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   173
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   174
    if (!Isabelle_System.bash("mkdir -p " + File.bash_path(repo_path)).ok) {
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   175
      error("Failed to create local repository directory " + repo_path)
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   176
    }
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   177
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   178
    Isabelle_System.bash(cwd = repo_path.file,
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   179
      script = """
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   180
        set -e
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   181
        chown -R """ + Bash.string(daemon_user) + ":" + Bash.string(daemon_user) + """ .
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   182
        chmod 755 .
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   183
      """).check
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   184
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   185
    config.execute("config set repository.default-local-path " + File.bash_path(repo_path))
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   186
8198ceef0301 more phabricator setup;
wenzelm
parents: 71049
diff changeset
   187
70969
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   188
    /* MySQL setup */
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   189
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   190
    progress.echo("MySQL setup...")
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   191
71051
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   192
    File.write(Path.explode("/etc/mysql/mysql.conf.d/phabricator.cnf"),
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   193
"""[mysqld]
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   194
max_allowed_packet = 32M
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   195
innodb_buffer_pool_size = 1600M
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   196
local_infile = 0
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   197
""")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   198
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   199
    Linux.service_restart("mysql")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   200
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   201
70969
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   202
    def mysql_conf(R: Regex): Option[String] =
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   203
      split_lines(File.read(Path.explode(options.string("phabricator_mysql_config")))).
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   204
        collectFirst({ case R(a) => a })
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   205
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   206
    for (user <- mysql_conf("""^user\s*=\s*(\S*)\s*$""".r)) {
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   207
      config.execute("config set mysql.user " + Bash.string(user))
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   208
    }
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   209
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   210
    for (pass <- mysql_conf("""^password\s*=\s*(\S*)\s*$""".r)) {
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   211
      config.execute("config set mysql.pass " + Bash.string(pass))
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   212
    }
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   213
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   214
    config.execute("config set storage.default-namespace " +
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   215
      Bash.string(prefix_name.replace("-", "_")))
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   216
71051
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   217
    config.execute("config set storage.mysql-engine.max-size 8388608")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   218
70969
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   219
    config.execute("storage upgrade --force")
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   220
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   221
71049
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   222
    /* PHP daemon */
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   223
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   224
    progress.echo("PHP daemon setup...")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   225
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   226
    config.execute("config set phd.user " + Bash.string(daemon_user))
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   227
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   228
    Linux.service_install("phd-" + prefix_name,
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   229
"""[Unit]
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   230
Description=PHP daemon (Phabricator """ + quote(name) + """)
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   231
After=syslog.target network.target apache2.service mysql.service
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   232
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   233
[Service]
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   234
Type=oneshot
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   235
User=""" + daemon_user + """
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   236
Group=""" + daemon_user + """
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   237
Environment=PATH=/sbin:/usr/sbin:/usr/local/sbin:/usr/local/bin:/usr/bin:/bin
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   238
ExecStart=""" + root_path.expand.implode + """/phabricator/bin/phd start
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   239
ExecStop=""" + root_path.expand.implode + """/phabricator/bin/phd stop
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   240
RemainAfterExit=yes
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   241
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   242
[Install]
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   243
WantedBy=multi-user.target
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   244
""")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   245
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   246
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   247
    /* SSH hosting */
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   248
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   249
    progress.echo("SSH hosting setup...")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   250
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   251
    val ssh_port = ssh_alternative2
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   252
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   253
    config.execute("config set diffusion.ssh-user " + Bash.string(name))
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   254
    config.execute("config set diffusion.ssh-port " + ssh_port)
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   255
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   256
    val sudoers_file = Path.explode("/etc/sudoers.d") + Path.basic(prefix_name)
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   257
    File.write(sudoers_file,
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   258
      www_user + " ALL=(" + daemon_user + ") SETENV: NOPASSWD: /usr/bin/git, /usr/bin/hg, /usr/bin/ssh, /usr/bin/id\n" +
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   259
      name + " ALL=(" + daemon_user + ") SETENV: NOPASSWD: /usr/bin/git, /usr/bin/git-upload-pack, /usr/bin/git-receive-pack, /usr/bin/hg, /usr/bin/svnserve, /usr/bin/ssh, /usr/bin/id\n")
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   260
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   261
    Isabelle_System.bash("chmod 0440 " + File.bash_path(sudoers_file)).check
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   262
f4b9dd5ab0cc more phabricator setup;
wenzelm
parents: 71047
diff changeset
   263
71051
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   264
    /* PHP setup */
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   265
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   266
    val php_version =
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   267
      Isabelle_System.bash("""php --run 'echo PHP_MAJOR_VERSION . "." . PHP_MINOR_VERSION;'""")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   268
        .check.out
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   269
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   270
    val php_conf =
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   271
      Path.explode("/etc/php") + Path.basic(php_version) +  // educated guess
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   272
        Path.explode("apache2/conf.d/phabricator.ini")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   273
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   274
    File.write(php_conf,
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   275
      "post_max_size = 32M\n" +
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   276
      "opcache.validate_timestamps = 0\n" +
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   277
      "memory_limit = 512M\n")
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   278
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   279
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   280
    /* Apache setup */
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   281
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   282
    progress.echo("Apache setup...")
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   283
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   284
    val apache_root = Path.explode(options.string("phabricator_apache_root"))
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   285
    val apache_sites = apache_root + Path.explode("sites-available")
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   286
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   287
    if (!apache_sites.is_dir) error("Bad Apache sites directory " + apache_sites)
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   288
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   289
    File.write(apache_sites + Path.basic(prefix_name + ".conf"),
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   290
"""<VirtualHost *:80>
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   291
    #ServerName: "lvh.me" is an alias for "localhost" for testing
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   292
    ServerName """ + prefix_name + """.lvh.me
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   293
    ServerAdmin webmaster@localhost
70969
a48112873f81 MySQL setup;
wenzelm
parents: 70968
diff changeset
   294
    DocumentRoot """ + config.home.implode + """/webroot
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   295
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   296
    ErrorLog ${APACHE_LOG_DIR}/error.log
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   297
    RewriteEngine on
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   298
    RewriteRule ^(.*)$  /index.php?__path__=$1  [B,L,QSA]
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   299
</VirtualHost>
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   300
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   301
# vim: syntax=apache ts=4 sw=4 sts=4 sr noet
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   302
""")
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   303
71051
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   304
    Isabelle_System.bash( """
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   305
      set -e
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   306
      a2enmod rewrite
71051
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   307
      a2ensite """ + Bash.string(prefix_name)).check
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   308
4eeff87c5072 more phabricator setup;
wenzelm
parents: 71050
diff changeset
   309
    Linux.service_restart("apache2")
70968
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   310
46847076477c Apache setup;
wenzelm
parents: 70967
diff changeset
   311
    progress.echo("\nDONE\nWeb configuration via http://" + prefix_name + ".lvh.me")
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   312
  }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   313
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   314
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   315
  /* Isabelle tool wrapper */
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   316
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   317
  val isabelle_tool1 =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   318
    Isabelle_Tool("phabricator_setup", "setup Phabricator server on Ubuntu Linux", args =>
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   319
    {
71047
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   320
      var repo = ""
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   321
      var package_update = false
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   322
      var options = Options.init()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   323
      var prefix = ""
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   324
      var root = ""
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   325
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   326
      val getopts =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   327
        Getopts("""
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   328
Usage: isabelle phabricator_setup [OPTIONS] [NAME]
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   329
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   330
  Options are:
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   331
    -R DIR       repository directory (default: """ + default_repo(options, "NAME") + """)
71047
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   332
    -U           full update of system packages before installation
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   333
    -o OPTION    override Isabelle system OPTION (via NAME=VAL or NAME)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   334
    -p PREFIX    prefix for derived names (default: """ + default_prefix("NAME") + """)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   335
    -r DIR       installation root directory (default: """ + default_root(options, "NAME") + """)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   336
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   337
  Install Phabricator as Ubuntu LAMP application (Linux, Apache, MySQL, PHP).
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   338
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   339
  Slogan: "Discuss. Plan. Code. Review. Test.
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   340
  Every application your project needs, all in one tool."
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   341
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   342
  The installation NAME (default: """ + quote(default_name) + """) is mapped to
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   343
  a regular Unix user and used for public SSH access.
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   344
""",
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   345
          "R:" -> (arg => repo = arg),
71047
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   346
          "U" -> (_ => package_update = true),
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   347
          "o:" -> (arg => options = options + arg),
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   348
          "p:" -> (arg => prefix = arg),
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   349
          "r:" -> (arg => root = arg))
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   350
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   351
      val more_args = getopts(args)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   352
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   353
      val name =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   354
        more_args match {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   355
          case Nil => default_name
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   356
          case List(name) => name
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   357
          case _ => getopts.usage()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   358
        }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   359
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   360
      val progress = new Console_Progress
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   361
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   362
      phabricator_setup(options, name, prefix = prefix, root = root, repo = repo,
71047
87c132cf5860 more options;
wenzelm
parents: 70970
diff changeset
   363
        package_update = package_update, progress = progress)
70967
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   364
    })
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   365
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   366
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   367
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   368
  /** update **/
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   369
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   370
  def phabricator_update(name: String, progress: Progress = No_Progress)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   371
  {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   372
    Linux.check_system_root()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   373
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   374
    ???
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   375
  }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   376
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   377
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   378
  /* Isabelle tool wrapper */
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   379
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   380
  val isabelle_tool2 =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   381
    Isabelle_Tool("phabricator_update", "update Phabricator server installation", args =>
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   382
    {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   383
      val getopts =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   384
        Getopts("""
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   385
Usage: isabelle phabricator_update [NAME]
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   386
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   387
  Update Phabricator installation, with lookup of NAME (default + """ + quote(default_name) + """)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   388
  in """ + global_config + "\n")
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   389
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   390
      val more_args = getopts(args)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   391
      val name =
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   392
        more_args match {
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   393
          case Nil => default_name
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   394
          case List(name) => name
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   395
          case _ => getopts.usage()
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   396
        }
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   397
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   398
      val progress = new Console_Progress
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   399
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   400
      phabricator_update(name, progress = progress)
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   401
    })
79736ffe77c3 some support for Phabricator server;
wenzelm
parents:
diff changeset
   402
}