| |
|
Line 22
|
Parallel
|
Line 22
|
Parallel
|
| 22 |
|
22 |
|
| 23 |
use strict; |
23 |
use strict; |
| 24 |
use Config; |
24 |
use Config; |
|
|
25 |
use lib '../lib'; |
| 25 |
|
26 |
|
| 26 |
# Now load up the required modules. Do this is a lazy fashion so that Perl |
27 |
# Now load up the required modules. Do this is a lazy fashion so that Perl |
| 27 |
# doesn't try to grab this during compile time, otherwise nasty-looking |
28 |
# doesn't try to grab this during compile time, otherwise nasty-looking |
| |
| |
|
Line 29
|
Parallel
|
Line 30
|
Parallel
|
| 29 |
eval("use Cwd"); |
30 |
eval("use Cwd"); |
| 30 |
eval("use CPAN"); |
31 |
eval("use CPAN"); |
| 31 |
eval("use File::Path"); |
32 |
eval("use File::Path"); |
| 32 |
eval("use lib '../lib'"); |
|
|
| 33 |
eval("use Codestriker"); |
33 |
eval("use Codestriker"); |
| 34 |
eval("use Codestriker::DB::Database"); |
34 |
eval("use Codestriker::DB::Database"); |
| 35 |
eval("use Codestriker::DB::Column"); |
35 |
eval("use Codestriker::DB::Column"); |
| |
| |
|
Line 579
|
Parallel
|
Line 579
|
Parallel
|
| 579 |
my $timestamp = Codestriker->get_timestamp(time); |
579 |
my $timestamp = Codestriker->get_timestamp(time); |
| 580 |
$insert->execute($topicid, $fileline, $filenumber, $filenew, |
580 |
$insert->execute($topicid, $fileline, $filenumber, $filenew, |
| 581 |
$state, $version, $timestamp, $timestamp); |
581 |
$state, $version, $timestamp, $timestamp); |
| 582 |
$insert->finish(); |
|
|
| 583 |
print "Create commentstate\n"; |
582 |
print "Create commentstate\n"; |
| 584 |
|
583 |
|
| 585 |
# Find out what the commentstateid is, and update the |
584 |
# Find out what the commentstateid is, and update the |
| |
| |
|
Line 751
|
Parallel
|
Line 750
|
Parallel
|
| 751 |
print " Updating comment topicid $topicid offset $line...\n"; |
750 |
print " Updating comment topicid $topicid offset $line...\n"; |
| 752 |
$insert->execute($topicoffset_map{"$topicid|$line"}, |
751 |
$insert->execute($topicoffset_map{"$topicid|$line"}, |
| 753 |
$commentfield, $author, $creation_ts); |
752 |
$commentfield, $author, $creation_ts); |
| 754 |
$insert->finish(); |
|
|
| 755 |
} |
753 |
} |
| 756 |
$stmt->finish(); |
754 |
$stmt->finish(); |
| 757 |
|
755 |
|
| |