AppleScript 创建 VirtualHost

Question

我正在尝试编写一个 AppleScript，它将按名称和绝对路径添加新的虚拟主机。

当我尝试测试文件（桌面上的txt文件）时它可以工作，但是当我尝试真实文件（/private/etc/hosts和/private/etc/apache2/extras/httpd-vhosts.conf）时它就不起作用。

问题似乎出在用户权限附近，但我不知道如何以管理员身份打开文件进行写入。我尝试了“do shell script”的方法，但它不起作用（可能我使用了不正确的语法）

我的代码：

on run (input)
display dialog "New VirtualHost name" default answer ""
set VirtualHostName to text returned of result

display dialog "Absolute path to VirtualHost's root" default answer "/Library/Webserver/Documents"
set VirtualHostRoot to text returned of result

try
    set hostsNL to "\n127.0.0.1 " & VirtualHostName

    set httpdVhostNL to "\n<VirtualHost 127.0.0.1:80>
ServerAdmin [email protected]
ServerName " & VirtualHostName & ".local
DocumentRoot '" & VirtualHostRoot & "'
ErrorLog '/private/var/log/apache2/" & VirtualHostName & "-error_log'
CustomLog '/private/var/log/apache2/" & VirtualHostName & "-access_log' common </VirtualHost>"

    set hosts to open for access (POSIX file "/private/etc/hosts") with write permission
    write hostsNL to hosts starting at eof
    close access hosts

    set httpdVhosts to open for access (POSIX file "/private/etc/apache2/extras/httpd-vhosts.conf") with write permission
    write httpdVhostNL to httpdVhosts starting at eof
    close access httpdVhosts


    do shell script "apachectl graceful" with administrator privileges


    return true
on error
    try
        close access hosts
        close access httpdVhosts
    end try
    return false
end try end run

或者：还有其他简单的方法来创建虚拟主机吗？

Answer 1

不要在 AppleScript 中执行大部分工作，而是在 shell 脚本中执行。传递虚拟主机名&将文档根目录作为 shell 脚本的命令行参数，您可以使用管理员权限执行该脚本。