--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use FS::Record;
+use FS::UID qw(adminsuidsetup dbh driver_name);
+
+# Fix bad values in some contract_end fields resulting from a short-lived bug
+
+my $dbh = adminsuidsetup(shift) or die "Usage: fix-contract_end username\n";
+local $FS::UID::AutoCommit = 0;
+
+my @updates = (
+ q!UPDATE cust_pkg SET contract_end = NULL WHERE contract_end = -1!,
+ q!UPDATE part_pkg_option SET optionvalue = NULL WHERE optionname = 'contract_end_months' AND optionvalue = '(none)'!,
+);
+
+foreach my $sql (@updates) {
+ print "$sql\n";
+ my $rows = $dbh->do($sql);
+ print "$rows rows.\n";
+ die $dbh->errstr if $dbh->errstr;
+}
+$dbh->commit or die $dbh->errstr;