import-trac: work in fresh doc/ subdir
[sipb-www.git] / import-trac
1 #!/usr/bin/perl
2 use DBI;
3 use IPC::Open2;
4
5 system('mkdir doc') && die;
6 chdir('doc');
7 qx{git init};
8
9 $password = qx(perl -F= -lane 'print \$F[1] if (\$F[0] eq "password")' \\
10                /mit/sipb-www/.my.cnf);
11 chomp $password;
12 $dbh = DBI->connect('DBI:mysql:sipb-www+doc;host=sql.mit.edu',
13                     'sipb-www', $password) or die;
14 $rows = $dbh->selectall_arrayref('SELECT * FROM wiki', {Slice=>{}});
15 foreach $row (@$rows) {
16   next if $row->{author} eq 'trac';
17   print "Processing revision $row->{version} of $row->{name} by $row->{author}...";
18
19   $pid = open2(OUT, IN, qw(git hash-object -w --stdin));
20   print IN $row->{text};
21   close(IN);
22   chomp($blob = <OUT>);
23   waitpid $pid, 0;
24
25   $pid = open2(OUT, IN, qw(git mktree));
26   print IN `git ls-tree $head | grep -v $row->{name}` if $head;
27   print IN "100644 blob $blob\t$row->{name}\n";
28   close(IN);
29   chomp($tree = <OUT>);
30   waitpid $pid, 0;
31
32   $ENV{GIT_AUTHOR_NAME} = "$row->{author} via Trac";
33   $ENV{GIT_AUTHOR_EMAIL} = "$row->{author}\@mit.edu";
34   $ENV{GIT_AUTHOR_DATE} = $row->{time};
35   $pid = open2(OUT, IN, qw{git commit-tree}, $tree, $head ? ('-p', $head) : ());
36   print IN $row->{comment};
37   close(IN);
38   chomp($head = <OUT>);
39   waitpid $pid, 0;
40
41   print "committed as $head.\n";
42 }
43
44 qx{git reset --hard $head};