Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-06 07:53:43 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2006-02-08 19:40:18 +00:00
parent d727ea603e
commit cb0dcd832c
2 changed files with 55 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/cgi/logs.cgi
+17 -17
View File
@@ -2,30 +2,29 @@
# displays available logs
use CGI::Form;
my $paparazzi_lib;
BEGIN {
# $paparazzi_lib = (defined $ENV{PAPARAZZI_SRC}) ?
# $ENV{PAPARAZZI_SRC}."/sw/lib/perl" : "/usr/lib/paparazzi/";
$paparazzi_lib = "/home/poine/work/paparazzi_savannah/paparazzi3/sw/lib/perl";
}
use lib ($paparazzi_lib);
use strict;
use warnings;
use Cwd;
use CGI ":standard";
my $paparazzi_src;
my $paparazzi_lib;
BEGIN {
$paparazzi_src = getcwd()."/../..";
$paparazzi_lib = $paparazzi_src."/sw/lib/perl";
}
use lib ($paparazzi_lib);
my $paparazzi_home = $paparazzi_src;
use Paparazzi::Environment;
Paparazzi::Environment::set_env("/home/poine/work/paparazzi_savannah/paparazzi3",
"/home/poine/work/paparazzi_savannah/paparazzi3");
Paparazzi::Environment::set_env($paparazzi_src, $paparazzi_home);
use Paparazzi::Log;
my $query = new CGI::Form();
my $query = new CGI();
print $query->header();
print $query->start_html("Paparazzi Logs");
#my $configuration = Paparazzi::Configuration::read_current();
my @logs = Paparazzi::Log::get_available();
my $log_info = undef;
@@ -43,9 +42,10 @@ print $query->popup_menu('file', \@logs, $logs[0]);
print $query->submit('Action','Update');
print $query->endform();
if (defined $log_info) {
print $query->path_info()."<br>";
Paparazzi::Log::html_print_summary($log_info, $log_data);
my $url = Paparazzi::Log::gen_activity_plot($log_info, $log_data);
print"<img src=\"$url\">\n";
# my $url = Paparazzi::Log::gen_activity_plot($log_info, $log_data);
# print"<img src=\"$url\">\n";
}
print "<HR>\n";
print "<a href=\"../index.html\">home</a><BR>\n";