use DBI;
use IPC::Open2;
+system('mkdir doc') && die;
+chdir('doc');
+qx{git init};
+
$password = qx(perl -F= -lane 'print \$F[1] if (\$F[0] eq "password")' \\
/mit/sipb-www/.my.cnf);
chomp $password;
print "committed as $head.\n";
}
+
+qx{git reset --hard $head};