6 // Thierry Parmentelat -- INRIA
7 // first draft for a revival of former (3.x?) alpina-logs in 5.0
9 // this needs be created with proper permissions at package install time
10 $logdir="/var/log/bm";
12 // limit: applies to uploads coming from an unrecognized IP
15 $default_hostname="unknown";
17 function mkdir_if_needed ($dirname) {
18 if (is_dir ($dirname))
20 mkdir ($dirname) or die ("Cannot create dir " . $dirname);
23 // Get admin API handle
24 require_once 'plc_api.php';
27 // find the node that these longs should belong to by looking for a node_id
28 // with an ip the same as the http requestor ip
29 $ip = $_SERVER['REMOTE_ADDR'];
31 $hostname=$default_hostname;
32 // locate hostname from DB based on this IP
33 $interfaces=$adm->GetInterfaces(array("ip"=>$ip));
34 if (! empty($interfaces) ) {
35 $interface=$interfaces[0];
36 $node_id=$interface['node_id'];
37 $nodes=$adm->GetNodes($node_id,array("hostname"));
39 $hostname=$nodes[0]['hostname'];
43 // store the actual data in /var/log/bm/raw/2008-11-31-20-02-onelab01.inria.fr-138.96.250.141.txt
45 $rawdir=$logdir . "/raw";
46 $date=strftime("%Y-%m-%d-%H-%M");
47 $log_name=$date . "-" . $hostname . "-" . $ip . ".txt";
48 $log_path=$rawdir . "/" . $log_name;
49 $month=strftime("%Y-%m");
50 $time=strftime("%d-%H-%M");
52 mkdir_if_needed ($rawdir);
54 ////////////////////////////////////////
56 $log=fopen($log_path,"w") or die ("Cannot open logfile "+$log_path);
58 $uploaded_name= $_FILES['log']['tmp_name'];
59 $uploaded_size=filesize($uploaded_name);
61 fprintf ($log, "BootManager log created on: %s-%s\n",$month,$time);
62 fprintf( $log, "From IP: %s\n",$ip);
63 fprintf( $log, "hostname: %s\n",$hostname);
64 fprintf ( $log, "uploaded file: %s (%d bytes)\n",$uploaded_name,$uploaded_size);
65 if ( ( strcmp($hostname,$default_hostname)==0) && ( $uploaded_size >= $limit_bytes) ) {
66 fprintf ( $log, "contents from an unrecognized IP address was truncated to %d bytes\n",$limit_bytes);
68 $uploaded_size=$limit_bytes;
73 fprintf( $log, "-----------------\n\n" );
74 $uploaded = fopen($uploaded_name,'r');
75 $contents = fread($uploaded, $uploaded_size);
77 fwrite($log,$contents);
79 fwrite ($log, " ..<" . "truncated" . ">..\n");
82 ////////////////////////////////////////
84 // create symlinks for easy browsing
86 // /var/log/bm/per-month/2008-11/onelab1.inria.fr/31-20-02.bmlog
88 $linkdir=$linkdir . "/per-month";
89 mkdir_if_needed ($linkdir);
90 $linkdir=$linkdir . "/" . $month;
91 mkdir_if_needed ($linkdir);
92 $linkdir = $linkdir . "/" . $hostname;
93 mkdir_if_needed ($linkdir);
94 $link = $linkdir . "/" . $time ;
95 symlink ("../../../raw/".$log_name,$link);
97 # /var/log/bm/per-hostname/onelab1.inria.fr/2008-11-31-20-02.bmlog
99 $linkdir=$linkdir . "/per-hostname";
100 mkdir_if_needed ($linkdir);
101 $linkdir=$linkdir . "/" . $hostname;
102 mkdir_if_needed ($linkdir);
103 $link = $linkdir . "/" . $month . "-" . $time ;
104 symlink ("../../raw/".$log_name,$link);
106 # /var/log/bm/per-ip/138.96.250.141/2008-11-31-20-02.bmlog
108 $linkdir=$linkdir . "/per-ip";
109 mkdir_if_needed ($linkdir);
110 $linkdir=$linkdir . "/" . $ip;
111 mkdir_if_needed ($linkdir);
112 $link = $linkdir . "/" . $month . "-" . $time ;
113 symlink ("../../raw/".$log_name,$link);