#!/usr/bin/perl print "AddBuddies Script :: created by Milo(Milo.Psunit.Com) :: Edit to your liking\n"; print "Before continuing this script::\n1.Put this script on your desktop\n2.Put the logs of the certain user you wish to restore in a folder named logs/ on your desktop\n"; print "Press Enter to Continue::\n"; <>; my $sepcomma; @buddydump = split("\n", `ls -1 logs/`); foreach $buddy (@buddydump) { $sepcomma = $sepcomma . "$buddy," } chop $sepcomma; print "$sepcomma------->will all be added\n\n"; print "(QUIT ADIUM OR YOU WILL GET A MILLION WINDOWS AND MASSIVE LAG)\n(OPEN THE OFFICIAL AIM CLIENT FOR MAC OSX)\n"; print "Press Enter to Continue::\n"; <>; `open -a Safari aim:addbuddy?listofscreennames=$sepcomma`; print "Thank you for using AddBuddies\nVisit Milo.Psunit.Com\n";