Помогите разобраться

[Jesterik]

Пришел а новую работу.....а тут

## Ссылка наверх (в родительскую директорию).

#set( $files = $cms.files().view() )

#set( $request = $cms.request )

#set( $f = $request.getParameter( 'f') )

#set( $dir = $request.getParameter( 'dir' ) )

#set( $file = $request.getParameter( 'file' ) )

#set ($smsNumber = "3377")

#if( $dir && ! $files.node( $dir ) )#set( $badRequest = 1 )#end

#if( $file && ! $files.node( $file ) )#set( $badRequest = 1 )#end

#if( ! $badRequest )

#if ($dir)

$cms.include( 'buttons.vm' )

<p>

#elseif ($file)

$cms.include( 'buttons.vm' )

<p>

#else

<card id="card" title="video-mobile.ru">

<p align="center">

-=Video-Mobile.ru=-<br/>

Last Update: 27.01.2005<br/><br/>

<a href="news">Новости</a><br/><br/>

#end

$cms.include( 'files.vm' )

#set( $dir = $request.getParameter( 'dir' ) )

#set( $file = $request.getParameter( 'file' ) )

#else

<card id="404" title="404">

<p>

Запрошенная вами страница не существует!

#end

#if (!$main)

#if ($request.getParameter( 'main' ) )

#set ($main = 1)

#else

#set ($main=2)

#end

#end

#if ($main==1)

<br/>

<a href="konkurs/?f=$f">Конкурс видеороликов</a><br/>

<br/>

Если возникли проблемы, сообщите на admin@video-mobile.ru<br/>

<a href="http://top.wab.ru/rating.php?id=3661"><img src="http://top.wab.ru/count.php?id=3661" alt="W@B-City"/></a>

#end

#if ($main!=1)

<br/><a href="http://video-mobile.ru/?f=$f">Главная</a>

#end

что это за язык

[Guest Форматцевт]

Jesterik насколько я понял это строки файла смd, командного процессора, забыл я его название, но это надо смотреть или PSDOS, а лучше в OS/2. Уточни конкретно, тогда смогу ответить, языков то много :D

[Guest Форматцевт]

Jesterik: так может ответишь? Может помогу чем либо

[gvozd]

А это разве не PHP или Perl? Ведь там есть и HTML теги.

[Darhazer]

Точно не PHP

[freeloader]

ЭТО Visual Basic!!!

[freeloader]

ЭТО Visual Basic!!! 

166148[/snapback]

А если серьезно может это TCL, хотя насколько я знаю ТСЛ это по протоколам, и то что это не ПХП и не Перл(перл помоему не так пишется) это однозначно

[Darhazer]

А если серьезно может это TCL, хотя насколько я знаю ТСЛ это по протоколам, и то что это не ПХП и не Перл(перл помоему не так пишется) это однозначно

166152[/snapback]

Похоже, но и у TCL и у Perl с # начинают коментари

А и у TCL думаю синтаксис не if() а if{}, но я с TCL не занимался...