На каком ЯП написан этот код?

Question

[redlinesoft]

Собственно, сабж. Хранилось в файле с расширением .p, работало на хостинге valuehost.ru.

Заранее спасибо за ответы.

# $Id: images.p,v 1.0.3.4 2005/02/28 Eugene Spearance Exp $

@CLASS
images

@auto[]
$script_path[/_classes]

################################################################################
# Сохраняет картинку в каталог $source_path с именем $image_name.
# Проверяет является ли картинка jpeg, jpe, jpg, gif или png файлом.
# Если не задан путь $source_path, картинка сохраняется в корневом каталоге (/).
# Если не указано имя файла $image_name, картинка сохраняется с текущим именем.
# Если указан $format[gif|jpg|jpeg|jpe|png], то картинка в него конвертируется
################################################################################
@save[image_file;source_path;image_name;format][script;file_image]
^if($image_file && $image_file is "file"){
$source_path[^_prepare_path[$source_path]]
^if(!def $image_name){$image_name[$image_file.name]}
^if(^image_name.match[^^.+\.(jp(?=[eg])e?g?|gif|png)^$][i]){
^if(def $format){
^try{
$script[$script_path/convert.pl]
^image_file.save[binary;$source_path/temp_$image_name]
$file_image[^file::exec[$script;
$.CGI_FILE_IMAGE[${envOCUMENT_ROOT}$source_path/temp_$image_name]
$.CGI_FORMAT[$format]
]
]
^fileelete[$source_path/temp_$image_name]
}{
$exception.handled(1)
$result(3) # ошибка конвертирования
}
}{
^image_file.save[binary;$source_path/$image_name]
}
$result(0) # сохранение завершено
}{
$result(1) # формат файла не поддерживается
}
}{
$result(2) # файл не определен
}
### End @save[]


Answer 1

[mduduzi_zungu]

Похоже на Parser.

Comments

[redlinesoft]

Да, и правда похоже, спасибо!