mirror of
https://github.com/ChronosX88/psyced.git
synced 2024-11-08 11:31:01 +00:00
101 lines
2.4 KiB
Perl
Executable File
101 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# parse the historic CHANGESTODO.txt file and produce
|
|
# a "tab seperated values" CSV according to csv2trac format:
|
|
#
|
|
# Each line in the CSV file needs to have the following entries
|
|
# type text -- the ticket purpose
|
|
# time integer -- the time it was created
|
|
# changetime integer
|
|
# component text
|
|
# severity text
|
|
# priority text
|
|
# owner text -- who is this ticket assigned to
|
|
# reporter text
|
|
# cc text -- email addresses to notify
|
|
# url text -- url related to this ticket
|
|
# version text --
|
|
# milestone text --
|
|
# status text
|
|
# resolution text
|
|
# summary text -- one-line summary
|
|
# description text -- problem description (long)
|
|
# keywords text
|
|
|
|
use locale;
|
|
|
|
my $changestodofile = shift or die 'Please provide path to CHANGESTODO.txt';
|
|
open(I, "/usr/bin/expand $changestodofile |")
|
|
or die "Failed to /usr/bin/expand $changestodofile";
|
|
|
|
print <<X;
|
|
type\ttime\tchangetime\tcomponent\tseverity\tpriority\towner\treporter\tcc\turl\tversion\tmilestone\tstatus\tresolution\tsummary\tdescription\tkeywords
|
|
X
|
|
|
|
my $text = '';
|
|
my $headline, $first, $type, $sub;
|
|
|
|
my %types = (
|
|
'-' => 'defect',
|
|
'+' => 'enhancement',
|
|
'*' => 'task',
|
|
'?' => 'question', # needs to be added by trac-admin
|
|
);
|
|
|
|
sub output {
|
|
return unless $first;
|
|
my $t = $types{$type};
|
|
die 'no type' unless $t;
|
|
$summary = ($first && $sub) ? "$sub: $first" : ($first || $sub);
|
|
die 'expand failed' if $summary =~ /\t/ or $text =~ /\t/;
|
|
# $summary =~ s/\t/ /gm;
|
|
# $text =~ s/\t/ /gm;
|
|
$text =~ s/\n/\\n/gm;
|
|
my $mytime = 1234567890;
|
|
print <<X;
|
|
$t\t$mytime\t\tpsyced\t\t\t\t\t\t\t$headline\tnew\t\t$summary\t\\n$summary\\n$text\told imported
|
|
X
|
|
undef $type;
|
|
undef $first;
|
|
$text = '';
|
|
}
|
|
|
|
<I>; # skip first line
|
|
while (<I>) {
|
|
next if /^[_¯]+$/;
|
|
next if /^\|/;
|
|
if ( /^== (.+) =====/ ) {
|
|
&output;
|
|
$headline = $1;
|
|
undef $sub;
|
|
next;
|
|
}
|
|
if ( /^(-|\+|\?|\*) (.+)$/ ) {
|
|
&output;
|
|
$type = $1;
|
|
$first = "$1 $2";
|
|
next;
|
|
}
|
|
if ( /^\> (.+)$/ ) {
|
|
&output;
|
|
$sub = $1;
|
|
# print STDERR $_;
|
|
next;
|
|
}
|
|
if ( /^\>\>\>/ ) {
|
|
&output;
|
|
undef $sub;
|
|
next;
|
|
}
|
|
if ( /^=+$/ ) {
|
|
&output;
|
|
exit;
|
|
}
|
|
# if ( /^ (.+)$/ or /^\t(.+)$/ ) {
|
|
# $text .= $1;
|
|
# next;
|
|
# }
|
|
$text .= $_;
|
|
# print STDERR;
|
|
}
|
|
|