молчит и неинтерактивной установки пакета в Солярис через pkgadd и админ файла

Так вот этот скрипт:

(*
"Экспортировать как HTML-таблицы" для iTunes
написано Даг Адамс
[email protected]

В1.5 марта 15 '04
- включает в себя композитора, рейтинг и группирования 
(этот скрипт не обновлялся с декабря 2001 года!)

Получить больше свободного AppleScripts и информация на написание собственных
в AppleScripts дуга для iTunes
http://www.malcolmadams.com/itunes/
*)
-------------------------------------------------------
-------------------------------------------------------
-- У З Е Р - С У С Т О М И З А Б Л Е О П Ц И О Н Н Ы 
-- поддерживать котировки!
-- М А К Е Г Л А В А Н Г Е Н Д Ы В Е (команда-с)
-------------------------------------------------------
-- первоначальные параметры HTML 
myBackgroundColor собственность : "белый" -- цвет фона, а также может использовать "#ffffff", и т. д
собственность myTextColor : "черный" - текст, цвет, также можно использовать "#000000" и т. д.

-- таблица атрибутов
mycellpadding собственность : "1" -- обивка внутри клетки
mycellspacing собственность : "0" -- обивка снаружи между клетками
myborder собственность : "1" - толщина границы таблицы, 0-нет границы

-- Линия название атрибутами
myTitleJustification недвижимости : "Центр" -- (слева, по центру или справа) обоснование в основной ячейке заголовка 

-- Че атрибутами
myTHJustification собственность : "слева" -- (слева, по центру или справа) обоснование в заголовках столбцов 

-- Тд атрибутами
myTDJustification собственность : "слева" -- (слева, по центру или справа) обоснование в ячейки данных 

-- лица и размер 
- размер может быть относительным (-1,-2,+1,+2, и т. д.) или 1,2,3,4,5 -- чем меньше, тем лучше!
-- шрифт может быть установлено в любой установленный шрифт

-- верхней строчке, где имя списка воспроизведения, несколько песен, время и длина появляются
myTitleFont собственность : "Женева" -- шрифт для строки заголовка 
myTitlesize недвижимости : "-2" -- размер шрифта для заголовка строки

-- заголовки столбцов 
myTHFont собственность : "Женева" -- шрифт для заголовков
myTHsize недвижимости : "-2" -- размер шрифта для заголовков

-- текст в ячейках
myTDFont собственность : "Женева" -- шрифт для сведения
myTDsize недвижимости : "-2" -- размер шрифта для данных
-------------------------------------------------------
-------------------------------------------------------
-- НИЧЕГО НЕ ИЗМЕНИТЬ, ЕСЛИ
- ВЫ ЗНАЕТЕ, ЧТО ВЫ ДЕЛАЕТЕ ;)
-------------------------------------------------------
myChoices собственность : {"артист", "альбом"} -- помню последнюю партию или всегда по умолчанию эти
myOptions собственность : {"порядок воспроизведения", "артист", "альбом", "композитор", "Жанр", "группировка", "рейтинг", "Размер", "время", "номер трека", 
 "Количество треков", "год", "дата", "дата добавления", "скорость", "частота дискретизации", 
 "Объем", "добрый", "эквалайзер", "комментарий", "расположение"}
мировой html_contents, thePlaylist, имя_файла, TDopen, TDclose, THopen, THclose, do_number

okflag собственность : ложные
-------------------------------------------------------
-- ЛАДНО, ПОШЛИ!
-- проверить, если iTunes работает 
сказать приложение "системные события"
 если (получить имя каждого процесса) содержится "в iTunes", потом okflag в true
конец сказать
если okflag затем ... iTunes-это бег, давайте
 рассказать приложения "в iTunes"
 прошу пользователей
 набор myNewChoices на (Выбрать из списка myOptions с подсказкой 
 "Включать ячейки таблицы, для которых отдельные элементы?" & возвращение & "(\"титул\" всегда включен.)" элементы по умолчанию myChoices ОК имя кнопки 
 "Выбрать" отменить название кнопки "Отмена" с множественный выбор разрешен и пустой выбор допускается)
 если myNewChoices ложно, то номер ошибки -128 -- отмена была нажата

 копия myNewChoices в myChoices
 --первоначальные переменные в iTunes
 набор thePlaylist, чтобы смотреть на передние окна 
 мой get_the_file_name()

 -- какие треки использовать?
 если выбор {} тогда
 набор allTracks на каждый трек thePlaylist
 набор tableTitle в "плейлист "
еще
 набор allTracks ссылкой на выбор
 набор tableTitle на "выбранный в плейлисте: "
 конец если

 -- рис общее время треков, размер и количество, даже если выбор
 набор totalSeconds до 0
 набор totalSize до 0
 повторите с this_track в allTracks
 набор totalSeconds в totalSeconds + (продолжительность this_track х)
 набор totalSize в totalSize + (размер this_track х)
 конца повторять
 набор myTotalTrackTime (мое calc_total_time(totalSeconds))
 набор myTotalTrackSize (мое calc_size(totalSize))

 набор num_of_tracks к (число allTracks)
 установить s в положение "S"
 если num_of_tracks равен 1, то множество s к ""

 -- инициализировать некоторые элементы
 -- открывать и закрывать для всех тд & - й ячейки
 набор TDopen к "<ТД выровняйте=" & myTDJustification & "><п><шрифта лицо=" & myTDFont & " размер=" & myTDsize & ">"
 набор TDclose к "</шрифт></Р></тд>"
 набор THopen к "<й выровняйте=" & myTHJustification & "><шрифта лицо=" & myTHFont & " размер=" & myTHsize & ">"
 набор THclose к "</шрифт></тг>"
 - убраны теги <p> из <й> потому что Нетскейп не нравится правильная HTML-спецификаций

 - сколько столбцов в таблице
 набор для myColspan ((графа myChoices) + 1) -- число ячеек по горизонтали = количеству всех myChoices плюс название всегда выбирают
 -- конец затем начать новую строку таблицы 
 набор startNewRow к "</ТР>" & возвращение & "<тр>"
 ... начнем странице
 набор для startHTML ((("<HTML> и" & 
 "<голова><название>" & tableTitle & (имя вам thePlaylist х) & "</заголовок></голова>" & возврат 
 & "<тело bgcolor в=" & myBackgroundColor & " текст=" & myTextColor & ">" & возврат & 
 "элементы<table cellpadding=" & mycellpadding 
 & " cellspacing=" & mycellspacing 
 & " границы=" & myborder 
 & " ширина=100%>" & возвращение & "<тр>" & возвращение & "<тд атрибуты colspan=" & myColspan как строку) 
 & " выровнять=" & myTitleJustification & "><п><шрифта лицо=" & myTitleFont & " размер=" & myTitlesize & ">" & tableTitle & "<б>" & thePlaylist имя 
 & "</б> "& num_of_tracks как строка) & "песня" & ы & ", " & myTotalTrackTime 
 & "общее время", & myTotalTrackSize) & TDclose & возвращение & "</тр>" & возврат & 
 "<тр>" & возврат & (моя make_headers()) как строку
 -- конец страницы
 набор endHTML к "</ТР>" & возвращение & "</таблица>" & возвращение & "</тело></HTML>и"

 -- главные контейнер инит 
 набор html_contents к ""
-------------------------------------------------------
 -- С Т А Р Т Т Е П Е 
-------------------------------------------------------

 мой add_to_contents(startHTML)

 повторите с thisTrack в allTracks ... у каждого трека для каждой строки

 мой add_to_contents(startNewRow)

 если do_number является 2, то мой add_another_TD(thisTrack индекс в строку)

 мой add_another_TD(имя thisTrack это), всегда должен появляться!

 если myChoices содержится "художник", то мой add_another_TD(thisTrack художник)

 если myChoices содержится "альбом", затем мой add_another_TD(альбом thisTrack х)

 если myChoices содержится "композитор", то мой add_another_TD(thisTrack композитора)

 если myChoices содержится "жанр", то мой add_another_TD(thisTrack жанр)

 если myChoices содержит "группировка" тогда мой add_another_TD(группировка по thisTrack)

 если myChoices содержится "рейтинг", то мой add_another_TD(thisTrack рейтинг)

 если myChoices содержит "размер", затем-расчет размера 
 мой add_another_TD(мой calc_size(размер thisTrack х))
 конец если

 если myChoices содержит "время", то мой add_another_TD(thisTrack время как строковые)

 если myChoices содержится "трек-номер", то мой add_another_TD(трек номер thisTrack как строку)

 если myChoices содержится "количество треков", то мой add_another_TD(графа отслеживать thisTrack как строку)

 если myChoices содержит "год", то мой add_another_TD(thisTrack год как строку)

 если myChoices содержится "дата" тогда
 мой add_another_TD(мой fix_date_string(дата изменения thisTrack х))
 конец если

 если myChoices содержит "добавлено" потом
 мой add_another_TD(мой fix_date_string(дата thisTrack добавил))
 конец если

 если myChoices содержится "скорость", то мой add_another_TD(thisTrack по скорости как строку)

 если myChoices содержится "частота дискретизации", то мой add_another_TD(thisTrack образец которой как строку)

 если myChoices содержится "громкость", то мой add_another_TD(регулировка громкости thisTrack как строку)

 если myChoices содержит "вид", то мой add_another_TD(thisTrack вроде)

 если myChoices содержится "эквалайзер", то мой add_another_TD(thisTrack по экв)

 если myChoices содержится "комментарий", то комментарий Мой add_another_TD(thisTrack х)

 если myChoices содержится "расположение" тогда
 набор mylocation к (местоположение thisTrack в виде текста)
 если в mylocation-это "отсутствующее значение" тогда
 я поставил mylocation к "<я>не доступен на локальном диске</>"
 конец если
 мой add_another_TD(в mylocation)
 конец если

 конца повторять

 мой add_to_contents(endHTML)
 -- содержание теперь собраны
 конец сказать ... в iTunes

-------------------------------------------------------
 -- С А В Е Ф И Л Е И Е Н Д
-------------------------------------------------------

 мой Make_The_File(имя_файла, html_contents как строку)
 набор средства для возвращения & возврат & "вы хотите просмотреть экспортированный HTML-файл?"
 набор myEnding к (диалоговое окно "готово!" кнопки и средства {"готово", "да"} кнопка по умолчанию 2 со значком 1 сдаешься после 30)
 если кнопка возвращается из myEnding "да" или отказался от myEnding это правда
 рассказать приложения "TextEdit от"
активировать
попробовать
 открыть (имя_файла как псевдоним)
 на errMs ошибка 
 диалоговое окно кнопки errMs {"отмена"}
 постараюсь
 конец сказать
 конец если-кнопка "готово"
конец если ... iTunes не работает

-------------------------------------------------------
-- Ы Б Р О U Т Я Н Ы Е ----------------------------
-------------------------------------------------------
-- создать файл в Finder
в Make_The_File(имя_файла, непр.)
попробовать
 копия (открытые для доступа имя_файла запись) в fileRef
 писать продолжение к fileRef
 - установить ВФ из fileRef к (длина непр.)
 закрыть доступ к fileRef 
 по ошибке номер М Н
попробовать
 закрыть доступ к fileRefr 
 постараюсь
 если (N равен -48) тогда
 --диалоговое окно "файл не существует"
 сделать скрипт "РМ" & цитирует форму в POSIX путь имя_файла
 мой Make_The_File(имя_файла, непр.)
еще
 отобразить диалоговое окно "произошла ошибка при создании файла:" & возвращение & возврат & м & возвращение & "номер ошибки:" & N кнопки {"Отмена"}
 конец если
 постараюсь
конец Make_The_File

-- выбрать файл
в get_the_file_name()
 набор имя_файла в (Выбрать имя файла с подсказкой 
 "Введите имя для экспортируемого HTML-файл" по умолчанию наименование (наименование(thePlaylist как текст) & ".HTML-код"))
 если имя_файла ложно, то номер ошибки -128 -- отменить
 - возвращение имя_файла
конец get_the_file_name

- добавить тд чушь возможного содержания
в add_another_TD(х)
 если Х "" то, что X "<я>н/</я>"
 мой add_to_contents(TDopen & х & TDclose)
конец add_another_TD

- добавить текст на возможного содержания
в add_to_contents(х)
 если Х "" то, что X "и nbsp;"
 копия (html_contents & х & возврат) как строку html_contents
конец add_to_contents

- конструкция заголовков на основе выбора пользователя 
в make_headers()
 набор do_number к 1
 набор myNewHeaders к ""
 если myChoices начинается с "порядок воспроизведения", то
 набор myNewHeaders в THopen & "#" & THclose
 -- копировать элементы 2 через -1 из myChoices в myChoices
 набор do_number до 2
 конец если
 набор myNewHeaders в myNewHeaders & THopen & "имя" & THclose
 повторите с я от do_number к (графа myChoices)
 пункт Копировать я myChoices в thisHeader
 набор myNewHeaders для myNewHeaders & возврат & THopen & thisHeader & THclose
 конца повторять

 возвращение myNewHeaders
конец make_headers

-- сократить строки даты
в fix_date_string(х)
 набор dateList (мое TextToList((х) как String, " "))
 набор для myDateAdded ((((вам персонажи с 1 по 3 пункта 1 dateList) как строка) & 
 ", " & 
 (получить символы с 1 по 3 пункта 2 dateList) как строка) & 
 "" & (пункт 3 dateList) & 
 "" & 
 (пункт 4 dateList) & 
 "" & 
 (сделать персонажей через 1 -4 пункта 5 dateList) как строка) & 
 (пункт 6 dateList) как строку
 возвращение myDateAdded как строку
конец fix_date_string

-- обязательное текстовое->список->текст большой SUBROUTUNES
на TextToList(текст, theDelimiter)
 набор saveDelim к тексту рабочей группы по пункту разделители
попробовать
 набор текста с помощью AppleScript пункт разделители {theDelimiter}
 установить список для каждого элемента текста Текст
 на количество errStr ошибки errNum
 пункта помощью AppleScript текстовые разделители saveDelim
 количество errStr ошибки errNum
 постараюсь
 пункта помощью AppleScript текстовые разделители saveDelim
 возврат (список)
конец TextToList

на ListToText(список, theDelimiter)
 набор saveDelim к тексту рабочей группы по пункту разделители
попробовать
 набор текста с помощью AppleScript пункт разделители {theDelimiter}
 набор текст в список как текст
 на количество errStr ошибки errNum
 пункта помощью AppleScript текстовые разделители saveDelim
 количество errStr ошибки errNum
 постараюсь
 пункта помощью AppleScript текстовые разделители saveDelim
 возвращение (текст)
конец ListToText

в calc_total_time(totalSeconds)
 набор theHour в totalSeconds див 3600
 если theHour не 0 тогда
 набор theHour к (theHour как String) & ":"
еще
 набор theHour к ""
 конец если
 див набор theMinutes на (мод totalSeconds 3600) 60
 если theMinutes не 0 тогда
 если theMinutes меньше 10, то установить theMinutes на "0" & (theMinutes как строку)
 набор theMinutes к (theMinutes как String) & ":"
еще
 набор theMinutes на "00:"
 конец если
 набор theSeconds в totalSeconds мод 60
 если theSeconds меньше 10, то установить theSeconds на "0" & (theSeconds как строку)
 -- возвращает количество секунд после минуту
 возвращение theHour & theMinutes & theSeconds как строку
конец calc_total_time

-- ниже размера выборки искатель 
-- ©1998 Сэл Soghoian, Компьютер Apple 
-- немного изменен для этот скрипт я использовал фактором и 1024 1048576
- но я не полностью доволен никаких результатов; они не совпадают
-- на дисплее в iTunes именно. Однако, там меньше разница
- создается в этой версии сценария, чем в предыдущие
в calc_size(х)
 если x > 1.0 Е+9 тогда
 установить на (х разд 1.0 Е+9)
 б (х мод 1.0 Е+9) див 10000000 -- заметьте, не 100000000
 б (круглый (Б / 10) с округлением вверх)
 если B > 9 тогда б 9
 множества X на (A & "." & B как строка) & "ГБ"
 еще если x > 1048576 тогда
 установить на (X див 1048576)
 б (х мод 1048576) див 10000 -- заметьте, не 100000
 б (круглый (Б / 10) с округлением вверх)
 если B > 9 тогда б 9
 множества X на (A & "." & B, так как строка) & "МБ"
 еще если x > 1024, то
 установить на (x 1024 див)
 б (х мод 1024) див 10 -- заметьте не 100
 б (круглый (Б / 10) с округлением вверх)
 если B > 9 тогда б 9
 множества X на (A & "." & B как строка) & "КБ"
еще
 набор X к X & "байт"
 конец если
 вернуться х
конец calc_size

источник: http://dougscripts.com/067 Огромное спасибо Даг Адамс за все время своей работы на эти скрипты