A peak-fitting and calibration program for Ge(Li) detectors