lilalo: f5f07049bd4f l3-frontend

lilalo

view l3-frontend @ 30:f5f07049bd4f

l3-agent:
Исправлен баг с инициализацией session_id

l3-cgi:
* Добавлена поддержка index-страницы.
При обращении на /cgi-bin/l3/index показывается таблица
с ссылками на журналы всех тренингов
В самом журнале корректно показывается информация
о курсе.

* Поскольку термин "class" перегружен, вместо него теперь
используется термин "training".
В дальнейшем такая замена произойдёт во всём коде.

* Теперь l3-cgi использует конфигурационный модуль l3config.pm
Загрузка выполняется с помощью require на этапе исполнения

l3config.pm:
Перенесены конфигурационные параметры lm.
ОСТОРОЖНО! Сам lm ПОКА ЧТО не использует l3config.pm для конфигурирования.

author	devi
date	Tue Nov 08 12:16:20 2005 +0200 (2005-11-08)
parents	450b6ac9b657
children	196c82b6e538

line source

1 #!/usr/bin/perl -w

3 use lib '.';

4 use l3config;

6 our @Command_Lines;

8 # vvv Инициализация переменных выполняется процедурой init_variables

9 our @Day_Name;

10 our @Month_Name;

11 our @Of_Month_Name;

12 our %Search_Machines;

13 our %Elements_Visibility;

14 # ^^^

16 sub search_buy;

17 sub make_comment;

18 sub load_command_lines_from_xml;

19 sub print_command_lines;

20 sub init_variables;

21 sub main;

23 main();

25 sub main

26 {

27 $| = 1;

29 init_variables();

30 init_config();

32 load_command_lines_from_xml($Config{"backend_datafile"});

33 print_command_lines($Config{"output"});

34 }

37 sub search_by

38 {

39 my $sm = shift;

40 my $topic = shift;

41 $topic =~ s/ /+/;

43 return "<a href='". $Search_Machines{$sm}->{"query"}."$topic'><img width='16' height='16' src='".

44 $Search_Machines{$sm}->{"icon"}."' border='0'/></a>";

45 }

47 sub make_comment

48 {

49 my $commands = $_[0];

50 my $files = $_[1];

51 chomp $commands;

52 chomp $files;

53 return if (!$commands && !$files);

55 my $comment="";

57 # Commands

58 for my $command (split /\s+/,$commands) {

59 $command =~ s/'//g;

60 my $description="";

61 eval { $description=`/home/devi/bin/mywi-client '$command'`; } ;

62 $description = join ("<br>\n", grep(/$[18]$/, split(/\n/, $description)));

63 $description =~ s/.*?-//;

64 next if $description =~ /^\s*$/;

66 my $query=$command." ".$Config{"keywords"};

67 $query =~ s/\ /+/g;

68 my $search= search_by("opennet",$query).

69 search_by("local",$command).

70 search_by("google",$query);

72 $comment .= "<tr><td class='note_title'>$command</td>".

73 "<td class='note_search'>$search</td>".

74 "</tr><tr><td width='100%' colspan='2' class='note_text'>".

75 "$description</td></tr><tr/>";

76 }

78 # Files

79 for my $file (split /\s+/,$files) {

80 $file =~ s@.*/@@;

81 $file =~ s/'//g;

82 next if $file =~ /^\s*$/;

83 next if $file =~ /^-/;

85 my $description=`mywi '$file'`;

86 $description = join ("<br>\n", grep(/$5$/, split(/\n/, $description)));

87 next if $description =~ /^\s*$/;

89 my $query=$file." ".$Config{"files_keywords"};

90 $query =~ s/\ /+/g;

91 my $search= search_by("opennet",$query).

92 search_by("local",$file).

93 search_by("google",$query);

95 $comment .= "<tr><td class='note_title'>$file</td>".

96 "<td class='note_search'>$search</td>".

97 "</tr><tr><td width='100%' colspan='2' class='note_text'>".

98 "$description</td></tr><tr/>";

99 }

100

101

102 return $comment;

103 }

104

105 =cut

106 Процедура load_command_lines_from_xml выполняет загрузку разобранного lab-скрипта

107 из XML-документа в переменную @Command_Lines

108

109 Предупреждение!

110 Процедура не в состоянии обрабатывать XML-документ любой структуры.

111 В действительности файл cache из которого загружаются данные

112 просто напоминает XML с виду.

113 =cut

114 sub load_command_lines_from_xml

115 {

116 my $datafile = $_[0];

117

118 open (CLASS, $datafile)

119 or die "Can't open file of the class ",$datafile,"\n";

120 local $/;

121 $data = <CLASS>;

122 close(CLASS);

123

124 for $command ($data =~ m@<command>(.*?)</command>@sg) {

125 my %cl;

126 while ($command =~ m@<([^>]*?)>(.*?)</\1>@sg) {

127 $cl{$1} = $2;

128 }

129 push @Command_Lines, \%cl;

130 }

131 }

132

133 =cut

134 Процедура print_command_lines выводит HTML-представление

135 разобранного lab-скрипта.

136

137 Разобранный lab-скрипт должен находиться в массиве @Command_Lines

138 =cut

139

140 sub print_command_lines

141 {

142 my $output_filename=$_[0];

143

144 my $course_name = $Config{"course-name"};

145 my $course_code = $Config{"course-code"};

146 my $course_date = $Config{"course-date"};

147 my $course_center = $Config{"course-center"};

148 my $course_trainer = $Config{"course-trainer"};

149 my $course_student = $Config{"course-student"};

150

151

152 # Результат выполнения процедуры равен

153 # join("", @Result{header,body,stat,help,about,footer})

154 my %Result;

155 my $toc =""; # Хранит оглавление по дням

156

157 $Result{"body"} = "<table width='100%'>\n";

158

159 my $cl;

160 my $last_tty="";

161 my $last_day="";

162 my $in_range=0;

163

164 for my $cl (@Command_Lines) {

165

166 if ($Config{"from"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"from"}/) {

167 $in_range=1;

168 next;

169 }

170 if ($Config{"to"} && $cl->{"cline"} =~ /$Config{"signature"}\s*$Config{"to"}/) {

171 $in_range=0;

172 next;

173 }

174 next if ($Config{"from"} && $Config{"to"} && !$in_range)

175 ||

176 ($Config{"skip_empty"} =~ /^y/i && $cl->{"cline"} =~ /^\s*$/ )

177 ||

178 ($Config{"skip_wrong"} =~ /^y/i && $cl->{"err"} != 0)

179 ||

180 ($Config{"skip_interrupted"} =~ /^y/i && $cl->{"err"} == 130);

181

182 #my @new_commands=@{$cl->{"new_commands"}};

183 #my @new_files=@{$cl->{"new_files"}};

184

185 my $cl_class="cline";

186 my $out_class="output";

187 if ($cl->{"class"}) {

188 $cl_class = $cl->{"class"}."_".$cl_class;

189 $out_class = $cl->{"class"}."_".$out_class;

190 }

191

192 my @new_commands;

193 my @new_files;

194 @new_commands = split (/\s+/, $cl->{"new_commands"}) if defined $cl->{"new_commands"};

195 @new_files = split (/\s+/, $cl->{"new_files"}) if defined $cl->{"new_files"};

196

197 my $output="";

198 if ($Config{"head_lines"} || $Config{"tail_lines"}) {

199 # Partialy output

200 my @lines = split '\n', $cl->{"output"};

201 # head

202 my $mark=1;

203 for (my $i=0; $i<= $#lines && $i < $Config{"head_lines"}; $i++) {

204 $output .= $lines[$i]."\n";

205 }

206 # tail

207 my $start=$#lines-$Config{"tail_lines"}+1;

208 if ($start < 0) {

209 $start=0;

210 $mark=0;

211 }

212 if ($start < $Config{"head_lines"}) {

213 $start=$Config{"head_lines"};

214 $mark=0;

215 }

216 $output .= $Config{"skip_text"}."\n" if $mark;

217 for (my $i=$start; $i<= $#lines; $i++) {

218 $output .= $lines[$i]."\n";

219 }

220 }

221 else {

222 # Full output

223 $output .= $cl->{"output"};

224 }

225 #$output .= "^C\n" if ($cl->{"err"} eq "130");

226

227 #

228 ##

229 ## Начинается собственно вывод

230 ##

231 #

232

233 # <command>

234

235 my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($cl->{time});

236 # Добавляем спереди 0 для удобочитаемости

237 $min = "0".$min if $min =~ /^.$/;

238 $hour = "0".$hour if $hour =~ /^.$/;

239 $sec = "0".$sec if $sec =~ /^.$/;

240

241 $class=$cl->{"out_class"};

242 $class =~ s/output$//;

243

244

245 $Result{"body"} .= "<tr class='command'>\n";

246

247

248 # DAY CHANGE

249 if ( $last_day ne $day) {

250 #$Result{"body"} .= "<td colspan='6'><p></p><h3>День ",$day,"</h4></td></tr><tr>";

251 $Result{"body"} .= "<td colspan='6'><p></p><h3 id='day$day'>".$Day_Name[$wday]."</h4></td></tr><tr>";

252 $toc .= "<li><a href='#day$day'>".$Day_Name[$wday]."</a></li>\n";

253 $last_day=$day;

254 }

255

256 # CONSOLE CHANGE

257 if ( $last_tty ne $cl->{"tty"}) {

258 $Result{"body"} .= "<td colspan='6'><table><tr><td class='ttychange' width='140' align='center'>".$cl->{"tty"}."</td><td/></tr></table></td></tr><tr>";

259 $last_tty=$cl->{"tty"};

260 }

261

262 # TIME

263 if ($Config{"show_time"} =~ /^y/i) {

264 $Result{"body"} .= "<td valign='top' class='time' width='$Config{time_width}'><pre>".

265 $hour. ":". $min. ":". $sec.

266 "</td>";

267 } else {

268 $Result{"body"} .= "<td width='0'/>"

269 }

270