--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sysmodelgen/getsferrors.pl	Fri Jun 18 09:49:13 2010 +0100
@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+$bld = shift || "symbian3_FCL.single.316";
+$ver = $bld; $ver =~s/_.*// ;
+$url = "http://cdn.symbian.org/SF_builds/$ver/builds/FCL/$bld/html/index.html";
+$data = `wget  -O - -nv -q $url`;
+
+#open F,shift;
+#$data = join('',<F>);
+#close F;
+
+
+$state = 'start';
+foreach (split(/\n/,$data)) {
+			s,[\r\n],,g;
+	if($state eq 'start' && /<table/) {
+		$state = 'general';
+	} elsif($state eq 'general' && /<table/) {
+		$state = 'pkg';
+	}
+	if($state eq 'pkg') {
+		if(s,<tr><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td></tr>,$1,) {
+			my @err = ($2,$3,$4,$5,$6);
+			s,^.*>(.*?)<.*$,$1,;
+			s,^.*/,,;
+			$critical{$_}=$err[0];
+			$major{$_}=$err[1];
+			$minor{$_}=$err[2];
+			$unknown{$_}=$err[3];
+			$missing{$_}=$err[4];
+		}
+	}
+}
+
+$url=~s,[^/]+$,raptor_unreciped.html,;
+$data = `wget  -O - -nv -q $url`;
+
+#open F,shift;
+#$data = join('',<F>);
+#close F;
+
+
+
+$state = 'start';
+foreach (split(/\n/,$data)) {
+			s,[\r\n],,g;
+			if(m,^<br/>([A-Z]+)<br/>$,) {
+				$state = $1
+			}
+		if(m,<tr><td>[^<]+</td><td>[^<]+</td><td><a href='(.*)?#(.*)$,) {
+			$Type{$2} = $state;
+			$listname= $1;
+		}
+}
+
+
+$url=~s,[^/]+$,$listname,;
+$data = `wget  -O - -nv -q $url`;
+
+#open F,shift;
+#$data = join('',<F>);
+#close F;
+
+
+$state = 'start';
+$cur;
+foreach (split(/\n/,$data)) {
+	if(m,</pre,) {next}
+	if(m,<a name="(.*?)">,) {$cur = $1}
+	elsif(/\S/) {
+		m,([E-Z]:/| at )sf/[a-z]+/([^/]+), || print STDERR "$_\n";
+		my $pkg = $2;
+		if($Type{$cur}  eq 'UNKNOWN') {
+			$unknown{$pkg}++;
+		}
+		elsif($Type{$cur}  eq 'MAJOR') {
+			$major{$pkg}++;
+		}
+		elsif($Type{$cur}  eq 'MINOR') {
+			$minor{$pkg}++;
+		}
+		elsif($Type{$cur}  eq 'CRITICAL') {
+			$critical{$pkg}++;
+		}
+	}
+}
+
+
+print "<info data-type=\"status\">\n";
+foreach (keys(%critical)) {
+	print  " <item ref=\"$_\"  critical=\"$critical{$_}\" major=\"$major{$_}\" minor=\"$minor{$_}\" unknown=\"$unknown{$_}\" missing=\"$missing{$_}\"/>\n";
+}
+print "</info>\n";
+
+