equal
deleted
inserted
replaced
20 my $file = shift @ARGV; |
20 my $file = shift @ARGV; |
21 open(FILE, "<$file") or die "Coudln't open $file\n"; |
21 open(FILE, "<$file") or die "Coudln't open $file\n"; |
22 my $fcl = undef; |
22 my $fcl = undef; |
23 my $changeset = undef; |
23 my $changeset = undef; |
24 my $user = undef; |
24 my $user = undef; |
|
25 my $tag = ""; |
25 while(my $line = <FILE>) |
26 while(my $line = <FILE>) |
26 { |
27 { |
27 if($line =~ m/(\S+)(\/FCL\/\S+)/i) |
28 if($line =~ m/(\S+)(\/FCL\/\S+)/i) |
28 { |
29 { |
29 my $codeline = $1; |
30 my $codeline = $1; |
30 my $location = $2; |
31 my $location = $2; |
31 my $root; |
32 my $root; |
|
33 $tag = ""; |
|
34 |
32 if ($codeline =~ m/oss/i) |
35 if ($codeline =~ m/oss/i) |
33 { |
36 { |
34 $root = "http://developer.symbian.org/oss" |
37 $root = "http://developer.symbian.org/oss" |
35 } |
38 } |
36 elsif($codeline =~ m/sfl/i) |
39 elsif($codeline =~ m/sfl/i) |
68 elsif($line =~ m/^user:\s+(\S.+)$/) |
71 elsif($line =~ m/^user:\s+(\S.+)$/) |
69 { |
72 { |
70 #changeset: 118:c5817fd289ec |
73 #changeset: 118:c5817fd289ec |
71 $user = $1; |
74 $user = $1; |
72 } |
75 } |
|
76 elsif($line =~ m/^tag:\s+(\S+)/) |
|
77 { |
|
78 #changeset: 118:c5817fd289ec |
|
79 my $preprocessed = $1; |
|
80 $preprocessed =~ s/^tip$//g; |
|
81 if($preprocessed =~ m/\S+/) |
|
82 { |
|
83 $tag = $tag."\'\'\'".$preprocessed."\'\'\' "; |
|
84 } |
|
85 |
|
86 # $tag = $1." "; |
|
87 } |
73 elsif( defined $fcl) |
88 elsif( defined $fcl) |
74 { |
89 { |
75 if($line =~ s/^summary:\s+//) |
90 if($line =~ s/^summary:\s+//) |
76 { |
91 { |
77 $line =~ s/\n//; |
92 $line =~ s/\n//; |
78 my $bugzilla = "http:\/\/developer.symbian.org\/bugs\/show_bug.cgi?id="; |
93 my $bugzilla = "http:\/\/developer.symbian.org\/bugs\/show_bug.cgi?id="; |
79 $line =~ s/(bug\s*)(\d+)/\[$bugzilla$2 $1$2\]/gi; |
94 $line =~ s/(bug\s*)(\d+)/\[$bugzilla$2 $1$2\]/gi; |
80 print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$line."\n|-\n"; |
95 print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$tag.$line."\n|-\n"; |
81 # print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$user."\n|".$line."\n|-\n"; |
96 # print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$user."\n|".$line."\n|-\n"; |
82 } |
97 } |
83 #abort: unknown revision 'PDK_3.0.c'! |
98 #abort: unknown revision 'PDK_3.0.c'! |
84 elsif($line =~ m/^abort:\sunknown\srevision/i) |
99 elsif($line =~ m/^abort:\sunknown\srevision/i) |
85 { |
100 { |