Integrate[Log[1-r*exp[i*phi]]*i*r*exp[i*phi],phi]