lilalo
diff l3-cgi @ 60:0b1553611bb5
В l3scripts добавился скрипт send-current-lablogs
| author | devi |
|---|---|
| date | Sat Jan 14 18:23:11 2006 +0200 (2006-01-14) |
| parents | f9447da96f15 |
| children | 440d12c122d5 |
line diff
1.1 --- a/l3-cgi Wed Dec 21 14:39:44 2005 +0200 1.2 +++ b/l3-cgi Sat Jan 14 18:23:11 2006 +0200 1.3 @@ -120,9 +120,19 @@ 1.4 my $t = load_training($training); 1.5 $training ||= "current"; 1.6 1.7 + my $prefix = "/cgi-bin/l3/$training/"; 1.8 + my $suffix = ""; 1.9 + if ($is_not_cgi) { 1.10 + $prefix = ""; 1.11 + $suffix = ".html"; 1.12 + } 1.13 + my $path = $to_file; 1.14 + $path = "" unless $path =~ s@/[^/]*$@@; 1.15 + 1.16 $print .= "<html>\n"; 1.17 $print .= "<head>\n"; 1.18 $print .= "<title>Журналы лабораторных работ</title>\n"; 1.19 + $print .= "<meta content='text/html; charset=utf-8' http-equiv='Content-Type' />"; 1.20 $print .= "<link rel='stylesheet' href='".$l3config::Config{frontend_css}."' type='text/css'/>\n"; 1.21 $print .= "</head>\n"; 1.22 $print .= "<body>\n"; 1.23 @@ -135,12 +145,6 @@ 1.24 $print .= "</tr>\n"; 1.25 for my $host (sort keys %{$t->{host}}) { 1.26 1.27 - my $prefix = "/cgi-bin/l3/$training/"; 1.28 - my $suffix = ""; 1.29 - if ($is_not_cgi) { 1.30 - $prefix = ""; 1.31 - $suffix = ".html"; 1.32 - } 1.33 1.34 $print .= "<tr>\n"; 1.35 my $h = $t->{host}->{$host}; 1.36 @@ -148,7 +152,7 @@ 1.37 $print .= "<td>$host</td>"; 1.38 $print .= "<td><a href='".$prefix.$host."/root$suffix'>root</a></td>"; 1.39 $print .= "<td><a href='".$prefix.$host."/".$h->{user}."$suffix'>".$h->{user}."</a></td>"; 1.40 - $print .= "<td><a href='".$prefix.$host."$suffix'>все</a></td>"; 1.41 + $print .= "<td><a href='".$prefix.$host."$suffix'>все</a></td>" if not $is_not_cgi; 1.42 $print .= "</td>\n"; 1.43 $print .= "</tr>\n"; 1.44 1.45 @@ -157,8 +161,7 @@ 1.46 # Если мы чувствуем, что нас вызывают для генерения индексного файла, 1.47 # нам нужно создать и файлы, на которые он указывает 1.48 # Лучше было бы это сделать хотя бы через вызов функций 1.49 - my $path = $to_file; 1.50 - $path = "" unless $path =~ s@/[^/]*$@@; 1.51 +# Такой же хак чуть ниже 1.52 mkdir("$path/$host"); 1.53 system("$0 --cgi2file $path/$prefix$host/root$suffix ". 1.54 "--cgi_path_info ".$training."/".$host."/root ". 1.55 @@ -166,15 +169,27 @@ 1.56 system("$0 --cgi2file $path/$prefix$host/".$h->{user}."$suffix ". 1.57 "--cgi_path_info ".$training."/".$host."/".$h->{user}." ". 1.58 "--frontend_css ../$l3config::Config{frontend_css}"); 1.59 + # system("$0 --cgi2file $path/$prefix$host$suffix ". 1.60 + # "--cgi_path_info ".$training."/".$host." ". 1.61 + # "--frontend_css ../$l3config::Config{frontend_css}"); 1.62 } 1.63 1.64 } 1.65 - $print .= "<tr>\n"; 1.66 - $print .= "<td>"."Инструктор"."</td>"; 1.67 - $print .= "<td>from linux.nt</td>"; 1.68 - $print .= "<td/>"; 1.69 - $print .= "<td/>"; 1.70 - $print .= "<td><a href='/cgi-bin/l3/current"."?login_from=192.168.15.254'>все</a></td>"; 1.71 +# Такой же хак был чуть выше 1.72 + if ($is_not_cgi) { 1.73 +# $print .= "<td><a href='".$prefix."instructor.".$suffix."'>все</a></td>"; 1.74 +# system("$0 --cgi2file $path/$prefix$host$suffix" 1.75 +# . " --cgi_path_info ".$training."?login_from=192.168.15.254".$host 1.76 +# . " --frontend_css ../$l3config::Config{frontend_css}"); 1.77 + } 1.78 + else { 1.79 + $print .= "<tr>\n"; 1.80 + $print .= "<td>"."Инструктор"."</td>"; 1.81 + $print .= "<td>from linux.nt</td>"; 1.82 + $print .= "<td/>"; 1.83 + $print .= "<td/>"; 1.84 + $print .= "<td><a href='$training"."?login_from=192.168.15.254'>все</a></td>"; 1.85 + } 1.86 $print .= "</tr>\n"; 1.87 $print .= "</table>\n"; 1.88 $print .= "</body>\n";