After you have the mobiperl tools properly set up on Mac or Linux... just typing at a command prompt:
Code:
mobi2mobi bookname.mobi
will print out the current EXTH records that the mobi has. If it already has 113 and 501 records, you only need to change/add the data like so:
Code:
mobi2mobi --outfile bookname.mobi --exthtype 113 --exthdata "B001234567" bookname.mobi
and likewise:
Code:
mobi2mobi --outfile bookname.mobi --exthtype 501 --exthdata "EBOK" bookname.mobi
If those EXTH records don't already exist... you need to create them with:
Code:
mobi2mobi --outfile bookname.mobi --addexthtype 113 --exthdata "B001234567" bookname.mobi
and:
Code:
mobi2mobi --outfile bookname.mobi --addexthtype 501 --exthdata "EBOK" bookname.mobi
When you're done, type:
Code:
mobi2mobi bookname.mobi
to check that everything "took."
Make sure you have a good backup of the original ebook before you go messing. You can change the outfile name if you want -- so the original is untouched, but I just overwrite the original by using the same outfile as infile.