/[resiprocate]/main/buginfo.pl
ViewVC logotype

Contents of /main/buginfo.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 8346 - (show annotations) (download)
Sun Nov 30 18:25:00 2008 UTC (11 years ago) by adam
File MIME type: text/plain
File size: 980 byte(s)
Don't bother with ReleaseNotes.txt if not present

1 #!/usr/bin/perl
2
3 $uname = `uname -a`;
4
5 &section ("uname -a");
6 print "$uname \n";
7
8 $cc = `make show.CC`;
9 chop $cc;
10 $cc =~ s/.*=//g;
11
12 &exec("$cc --version");
13
14 $conf = `grep := build/Makefile.conf`;
15 &section("Makefile.conf");
16 print $conf."\n";
17
18 while ($conf =~ /([^ ]*) *:= *(.*)/g)
19 {
20 $name = $1;
21 $val = $2;
22 $name =~ s/[\r\n]//g;
23 $val =~ s/[\r\n]//g;
24 $conf{$name} = $val;
25 }
26
27 if ($conf{'USE_SSL'} eq 'yes')
28 {
29 if (length ($conf{SSL_LOCATION}))
30 {
31 &exec("${SSL_LOCATION}/apps/openssl version");
32 }
33 else
34 {
35 &exec("openssl version");
36 }
37 }
38
39 &exec ("svnversion");
40
41 if (-e 'ReleaseNotes.txt')
42 {
43 &exec ("head ReleaseNotes.txt");
44 }
45
46 if ($uname =~ /Darwin/i)
47 {
48 &exec ("sysctl -a hw");
49 }
50 elsif ($uname =~ /Linux/i)
51 {
52 &exec ("cat /proc/cpuinfo");
53 }
54
55
56 sub exec
57 {
58 my ($cmd) = shift;
59 &section($cmd);
60 print `$cmd`."\n";
61 }
62
63 sub section
64 {
65 my ($title) = shift;
66 my ($center) = int(36 - length($title)/2);
67 print (('='x$center)." $title ".('='x$center)."\n");
68 }

Properties

Name Value
svn:executable *

webmaster AT resiprocate DOT org
ViewVC Help
Powered by ViewVC 1.1.27