Буду выкладывать тут историю своих разборок с кодом BW
Если есть, чем дополнить - просьба не стесняться
файл:
badc_gen_2.pl, функция:
get_sqdname
параметры:
$request
Функция ищет в файле *aircrafts.data директивы, типа
"rusfig=176IAP,3IAK,7IAP,4IAP;" или
"gerjab=I_LG2,III_KG27a;" и возвращает имя эскадрильи в зависимости от параметра
$request.
Например, при
$request = "rusfig" и строке
"rusfig=176IAP,3IAK,7IAP,4IAP;" в файле *aircrafts.data, функция возвратит одно из названий:
"176IAP", "3IAK", "7IAP", "4IAP", выбранное случайным образом.