Merchant Maker.

[Kingly_Krab]

This script will create merchants for you, all you have to do is change $id and @idarray, I wrote this a while ago but never released it. It writes to a .sql file that you can easily copy and paste from or import using HeidiSQL or Navicat.

sub Create {
    print "Starting!\n";
    my $id = CHANGEME;
    my @idarray = (CHANGEME);
    open my $file, ">Merchant $id.sql";
    my $message = "INSERT INTO `merchantlist` VALUES\n";
    my $slot = 0;
    foreach my $item (@idarray) {
        $message .= "('$id', '" . ++$slot . "', '$item', '-1100', '0', '0', '65535', '100')" . (($item != $idarray[$#idarray]) ? ",\n" : ";");
    }
    print "Done!\n";
    say $file $message;
    close $file;
}
Create();

[Kingly_Krab]

I have since updated this script:

sub Create {
    my $merchant_id = shift;
    my $data = shift;
    my @items = split(/ /, $data);
    chomp $items[$#items];
    print "Starting!\n";
    open my $file, ">Merchant $merchant_id.sql";
    my $message;
    my $n = 1;
    foreach my $item (@items) {
        print "Adding item $item.\n";
        $message .= "INSERT INTO `merchantlist` VALUES ('$merchant_id', '" . $n++ . "', '$item', '-1100', '', '0', '65535', '100');\n";
    }
    say $file $message;
    print "Done!\n";
    close $file;
}
print "What is the merchant id?\n";
my $merchant_id = int(<STDIN>);
print "List the items you would like on the merchant.\n";
my $data = <STDIN>;
Create($merchant_id, $data);

Here is an example of use:

[Kingly_Krab]

Found an issue:

$message .= "INSERT INTO `merchantlist` VALUES ('$merchant_id', '" . $n++ . "', '$item', '-1100', '', '0', '65535', '100');\n";

Should be:

$message .= "INSERT INTO `merchantlist` VALUES ('$merchant_id', '" . $n++ . "', '$item', '-1100', '0', '0', '65535', '100');\n";