FasdUAS 1.101.10 k l E? -------------------------------------------------------------- l   Mail to iCal   l   Brian Hargreaves.   l E? -------------------------------------------------------------- l l =7 This script gets the selected date from a mail message l @:and makes a new event in iCal. It prompts for the name of l >8the iCal event, and which iCal calendar it should be in. l l  E? --------------------------------------------------------------!" !l"#$ #l$%& %l&'( 'w)* )i+, +I- .emalcpmanull@mssg -o 0 selectedmsgs selectedMsgs ,kd../0 /O512 1k43345 4r 67 6l 8 8I 9 .corecnte******** 9o 0 selectedmsgs selectedMsgs 7o 0selcountselCount5:; :r <= <n >? >4 @  cobj @m ?o 0 selectedmsgs selectedMsgs =o 0msg;AB ArCD CnEF E1  subj Fo 0msg Do 0 thesubject theSubjectBGH GrIJ InKL K1  sndr Lo 0msg Jo 0 thesender theSenderHMN Mr&OP OI$Q .emaleafneafrobj Qo 0 thesender theSender Po 0 thesender theSenderNRS Rr',TU Tn'*VW Vl(*X X1(*  drcv Wo'( 0msg Uo 0 thedatesent theDateSentSY Yr-4Z[ Zc-2\] \n-0^_ ^1.0  ctnt _o-. 0msg ]m01  TEXT [o 0 selecteddate 2m**null߀ Mail.app%!X̿`Ϳް!* DemalalisD Macintosh HD,H+ Mail.appM a*@ Applications-/4a "Macintosh HD:Applications:Mail.appMail.app Macintosh HDApplications/Mail.app/0`a `l66abc br6;de db69fg fo67 0 selecteddate go78 0 thesubject theSubject eo 0 selecteddatechi hl<<ijk jr<Alm lc<?no nm<=p p 1 hour later om=>  TEXT mo 0 onehourlater OneHourLaterkqr qrBGst scBEuv umBCw w 2 hours later vmCD  TEXT to 0 twohourslater TwoHoursLaterrxy xlHHyz{ zlHH| |0* display dialog "Subject is " & theSubject{}~ }lHH~ lHH GA display dialog "Contents are: " & return & return & selecteddate lHH lHH '!Get Selected Date from clipboard. lHH 2, set selecteddate to (the clipboard) as text lHH lHH ?9This section allows parsing with a perl script to extract lHH E?all dates from text. It doesn't work perfectly, and installing lHH <6the perl script means this script doesn't stand alone. lHH /)For now it is commented out by "if false" lHH lHH lHH ;5Select Date if there's more than one in selected text rHK mHI  o 0 chosendate ZL mLM  boovtrue kP rPc lPa IPa .sysoexecTEXTTEXT bP] bPW bPU mPQ echo  nQT 1RT  strq oQR 0 selecteddate mUV )#| /Users/brian/bin/extractdates.pl  nW\ 1Z\  strq lWZ cWZ oWX 0 thedatesent theDateSent mXY  TEXT o 0 processedtext ldd ldd 82 display dialog "Processed text: " & processedtext ldd rdo Idm 0 texttolist TextToList oef 0 processedtext mfi -- o 0datelist lpp lpp ,& If no dates, try the email sent date. Zp Apw npu 1qu  leng opq 0datelist muv kz rz lz Iz .sysoexecTEXTTEXT bz bz bz mz} echo  m} today m )#| /Users/brian/bin/extractdates.pl  n 1  strq l c o 0 thedatesent theDateSent m  TEXT o 0 processedtext r I 0 texttolist TextToList o 0 processedtext m -- o 0datelist l~~} Z| ? n 1{ { leng oz z 0datelist myy r c lx Iw w.gtqpchltTEXT@@TEXT ov v 0datelistu t u prmp  m   Choose a Datetx ms s ctxt or r0 chosendate| r   l q  n 4p p cobj moo on n 0datelistq  om m0 chosendate} llklk Zji A n 1h h leng og g0 chosendate mff r oe e0 selecteddate od d0 chosendateji lcbcb la!a !;5Select Time if there's more than one in selected text "# "r$% $m& & %o` `0chosenstarttime#'( 'r)* )m+ + *o_ _0 chosenendtime(,- ,l^]^]-./ .Zr01\[ 0mZ Z boovtrue 1kn2234 3r56 5l7Y 7IX8W X.sysoexecTEXTTEXT 8b9: 9b;< ;m= = echo  <n>? >1V V strq ?oU U0 selecteddate :m@ @("| /Users/brian/bin/extracttimes.plWY 6oT T0 processedtext4AB AlSRSRBCD ClQEQ E82 display dialog "Processed text: " & processedtextDFG FlPOPOGHI Hr JK JINLM N0 texttolist TextToListLMN MoL L0 processedtextNOK OmP P--KM KoJ J 0timelistIQR Ql  IHIHRST SZ /UVGW U? XY Xn Z[ Z1 F F leng [o  E E 0timelist YmDD Vr&\] \c$^_ ^l `C `I Bab B.gtqpchltTEXT@@TEXT aoA A 0timelistb@c? @ prmp cmd dChoose start Time?C _m #> > ctxt ]o= =0chosenstarttimeG Wr)/ef en)-gh g4*-<i < cobj im+,;; ho)*: : 0timelist fo9 90chosenstarttimeTjk jl008787klm lZ0lno6p n?07qr qn05st s1155 5 leng to014 4 0timelist rm5633 ok:cuuvw vr:Exy xc:Cz{ zn:?|} |1;?2 2 leng }o:;1 1 0timelist {m?B0 0 long yo/ / 0numtimesw~ ~rFQ bFO bFM JFI. oFG- -0 onehourlater OneHourLater. JIL, oIJ+ +0 twohourslater TwoHoursLater, oMN* * 0timelist o) ) 0timelist lRR(( 60display dialog "Count is: " & length of timelist' rRc cRa lR]& IR]% %.gtqpchltTEXT@@TEXT oRS$ $ 0timelist#" # prmp mVY Choose end Time"& m]`! ! ctxt o 0 chosenendtime'6 prfl nfj 4gj  cobj mhi ofg  0timelist o 0chosenstarttimem lmm\[/ lss Zs Asz nsx 1tx  leng ost 0chosenstarttime mxy r} m}  12:00pm o 0chosenstarttime l l   r 4   ldt l b b o 0 chosendate m   o 0chosenstarttime o 0startdateformat Z ? n 1  leng o 0 chosenendtime m r 4  ldt l b b o 0 chosendate m   o 0 chosenendtime o 0 enddateformat l l c] display dialog "Date to add is " & date chosendate buttons {"Cancel", "Ok"} default button 2 l I .sysodlogaskrTEXT b b b m Enter Event Name on  o 0 chosendate m   o 0chosenstarttime  dtxt o 0 thesubject theSubject r n 1  ttxt 1  rslt o 0 eventname l Ob ka I .miscactvnullnull I .wrbtaec9nullobj   wtdt o 0 chosendate l r l e 2  wres o 0 allcalendars r c n 1  leng o 0 allcalendars m  long o 0 numcalendars r J n 1  wr02 n   4   cobj  m    o 0 allcalendars o 0calendartitles   ZG ? o 0 numcalendars m Y!C s-> n-9 159  wr02 n-5 405  cobj o14 0i o-0 0 allcalendars l n ;<= o9< 0calendartitles 0i m$% l%( o%( 0 numcalendars  !  lHH!"# "lHH$ $:4display dialog "name is " & eventname buttons ("Ok")#%& %lHH&'( 'rHa)* )cH]+, +lHY- -IHY./ .gtqpchltTEXT@@TEXT .oHK 0calendartitles/0  prmp 0lNU1 1bNU23 2mNQ4 4Choose a calendar for  3oQT 0 eventname ,mY\  ctxt *o 0 chosentitle(56 5lbb678 7lbb9 9C=display dialog "You selected " & (chosentitle) buttons {"Ok"}8:; :lbb;<= <rbk>? >cbg@A @mbc Amcf  long ?o 0 calnumber=BC BYlDEF DZ}GH G=}IJ In}KL K4M  cobj Mo 0i Lo} 0calendartitles Jo 0 chosentitle HrNO No 0i Oo 0 calnumber 0i Emop FlpxP PnpxQR Q1sw  leng Rops 0calendartitlesCST SlTUV UlVW WZaXY X?Z[ Zo 0 calnumber [m Yk]\\]^ ]l^_` _rab alc cId .corecrel****nulldef  kocl em  wrevfg  insh gnhi h; injk j2  wrev k4l  wres lo 0 calnumber bo 0theitemtheItem`mn mIop .wrbtaec9nullobj oo 0 calnumberpq  wtdt qo 0 chosendatenrs rlstu tluvw vOUxy xkTzz{| {r}~ }o 0 eventname ~1  wr11| r o 0startdateformat l 1  wr1s ZR = o~ ~0 chosenendtime o} }0 onehourlater OneHourLater r [ 1| | wr1s ] m{{ 1z z hour ly 1x x wr5sy ZRw =  ov v0 chosenendtime o u u0 onehourlater OneHourLater r  [  1 t t wr1s ] mss 1r r hour lq 1p p wr5sqw k!R l!!ononm Z!Rl =!$ o!"k k0 chosenendtime o"#j j0 twohourslater TwoHoursLater r'8 ['2 1',i i wr1s ],1 m,-hh 1-0g g hour lf 127e e wr5sfl Z;Rdc ?;B l;@b n;@ 1<@a a leng o;<` `0 chosenendtimeb m@A__ rEN oEH^ ^0 enddateformat l] 1HM\ \ wr5s]dcm[ lSSZYZY[ yoX X0theitemtheItemwW IV]VU V.wrbtaec3nullobj oVYT T0theitemtheItemUW mnull߀ iCal.app%( 4)n($0wrbtalisD Macintosh HD,H+ iCal.app gx Applications-/4  "Macintosh HD:Applications:iCal.appiCal.app Macintosh HDApplications/iCal.app/S lccRQRQS( lPOPO lNMNM i ILK L0 texttolist TextToList oJ J0thetexttheTextI oH H0 thedelimiter theDelimiterIK k3 r n 1G G txdl 1F F ascr oE E0 savedelim saveDelim Q* k  r  J D o C C0 thedelimiter theDelimiterD n 1 B B txdl 1 A A ascr@ r n 2? ? citm o> >0thetexttheText o= =0thelisttheList@ R< <.ascrerr ******** o; ;0errstrerrStr:9 : errn o8 80errnumerrNum9 k* r# o7 70 savedelim saveDelim n 1 "6 6 txdl 1 5 5 ascr4 R$*3 3.ascrerr ******** o()2 20errstrerrStr10 1 errn o&'/ /0errnumerrNum04 r+0 o+,. .0 savedelim saveDelim n 1-/- - txdl 1,-, , ascr+ L13 l12* o12) )0thelisttheList*+ l('(' w* i  I&%$ &.aevtoappnull****%$ k O  r  1# # slct o" "0sel m*! O    I   .emalcpmanull@mssg  l   o 0sel  f !   l l .emalcpmanull@mssg 0 texttolist TextToList .aevtoappnull**** 0sel,  .emalcpmanull@mssg 0 selectedmsgs selectedMsgs   0 selectedmsgs selectedMsgs 0selcountselCount 0msg 0 thesubject theSubject 0 thesender theSender 0 thedatesent theDateSent 0 selecteddate 0 onehourlater OneHourLater 0 twohourslater TwoHoursLater 0 chosendate 0 processedtext 0datelist 0chosenstarttime 0 chosenendtime 0timelist 0numtimes 0startdateformat 0 enddateformat 0 eventname 0 allcalendars 0 numcalendars 0calendartitles 0i 0 chosentitle 0 calnumber 0theitemtheItem>*pw &+=@Pd4 .corecnte********  cobj  subj  sndr .emaleafneafrobj  drcv  ctnt  TEXT  strq .sysoexecTEXTTEXT 0 texttolist TextToList  leng  prmp .gtqpchltTEXT@@TEXT  ctxt  long  ldt  dtxt .sysodlogaskrTEXT  rslt  ttxt .miscactvnullnull  wtdt .wrbtaec9nullobj  wres  wr02  kocl  wrev  insh .corecrel****null  wr11  wr1s  hour  wr5s .wrbtaec3nullobj  e2j EOk/EO,EO,EOj EO,EO,&EUO%EO&EO&EOEOe{,%%&,%j EO*al+EOa,k(aa%a%&,%j EO*al+EYhOa,kaal a&EYk/EYhOa,kEYhOaEOaEOea,%a%j EO*al+EOa,kaa l a&EYk/EOa,k.a,a!&EOkvkv%%EOaa"l a&EYk/EOPYhOa,k a#EYhO*a$a%%%/E^Oa,j*a$a&%%/E^YhOa'%a(%%a)l *O_+a,,E^Oa-*j .O*a/l 0O*a1-EE^O]a,a!&E^O]k/a2,kvE^O]k'!l]kh]]/a2,]6G[OYYhO]aa3]%l a&E^Oja!&E^O/k]a,Ekh]]/] ]E^Yh[OYO]j*a4a5a6*a1]/a5-6a7 8E^O]a/l 0O]}]*a9,FO]*a:,FO*a:,k_; *a<,FYM*a:,k_; *a<,FY3*a:,l_; *a<,FYa,j]*a<,FYhOPUO]j =YhUOP 0 texttolist TextToList 0thetexttheText 0 thedelimiter theDelimiter 0thetexttheText 0 thedelimiter theDelimiter 0 savedelim saveDelim 0thelisttheList 0errstrerrStr 0errnumerrNum  ascr  txdl  citm 0errstrerrStr  errn 0errnumerrNum  errn4,EOkv,FO-EWX,FO)lO,FO .aevtoappnull*****  slct 0sel .emalcpmanull@mssg*,EUO)j U  !"!*#  mact#$$Stanford Email  mbxp"%% INBOX  mssgbo  kfrmID ascr ޭ