/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier SDK 4.0b2 / Scripts / quickSmallBackup / quickSmallBackup.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 fe 00 02 00 00 | 01 4a 00 00 06 de 00 00 |........|.J......|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 0d 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a8 9b | 89 98 a8 9c ea 70 00 00 |...T....|.....p..|
|00000050| 00 10 00 00 00 37 00 47 | 01 a9 01 d9 4c 41 4e 44 |.....7.G|....LAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6c 6f 63 61 |........|....loca|
|00000080| 6c 20 28 73 6f 75 72 63 | 65 66 6f 6c 64 65 72 20 |l (sourc|efolder |
|00000090| 3d 20 66 69 6c 65 2e 66 | 6f 6c 64 65 72 66 72 6f |= file.f|olderfro|
|000000a0| 6d 70 61 74 68 20 28 73 | 79 73 74 65 6d 2e 64 65 |mpath (s|ystem.de|
|000000b0| 73 6b 73 63 72 69 70 74 | 73 2e 70 61 74 68 29 29 |skscript|s.path))|
|000000c0| 0d 6c 6f 63 61 6c 20 28 | 62 61 63 6b 75 70 70 6f |.local (|backuppo|
|000000d0| 69 6e 74 65 72 20 3d 20 | 73 6f 75 72 63 65 66 6f |inter = |sourcefo|
|000000e0| 6c 64 65 72 20 2b 20 22 | 42 61 63 6b 75 70 20 46 |lder + "|Backup F|
|000000f0| 6f 6c 64 65 72 22 29 0d | 62 75 6e 64 6c 65 20 c7 |older").|bundle .|
|00000100| 65 72 72 6f 72 20 63 68 | 65 63 6b 69 6e 67 20 6f |error ch|ecking o|
|00000110| 6e 20 74 68 65 20 62 61 | 63 6b 75 70 20 66 6f 6c |n the ba|ckup fol|
|00000120| 64 65 72 0d 09 6f 6e 20 | 65 72 72 6f 72 20 28 29 |der..on |error ()|
|00000130| 0d 09 09 73 63 72 69 70 | 74 45 72 72 6f 72 20 28 |...scrip|tError (|
|00000140| 22 59 6f 75 20 6d 75 73 | 74 20 68 61 76 65 20 61 |"You mus|t have a|
|00000150| 6e 20 61 6c 69 61 73 20 | 6e 61 6d 65 64 20 d2 42 |n alias |named .B|
|00000160| 61 63 6b 75 70 20 46 6f | 6c 64 65 72 d3 ca 69 6e |ackup Fo|lder..in|
|00000170| 20 74 68 65 20 73 61 6d | 65 20 66 6f 6c 64 65 72 | the sam|e folder|
|00000180| 20 61 73 20 74 68 69 73 | 20 73 63 72 69 70 74 2e | as this| script.|
|00000190| 22 29 0d 09 69 66 20 6e | 6f 74 20 66 69 6c 65 2e |")..if n|ot file.|
|000001a0| 65 78 69 73 74 73 20 28 | 62 61 63 6b 75 70 70 6f |exists (|backuppo|
|000001b0| 69 6e 74 65 72 29 0d 09 | 09 65 72 72 6f 72 20 28 |inter)..|.error (|
|000001c0| 29 0d 09 69 66 20 6e 6f | 74 20 66 69 6c 65 2e 69 |)..if no|t file.i|
|000001d0| 73 41 6c 69 61 73 20 28 | 62 61 63 6b 75 70 70 6f |sAlias (|backuppo|
|000001e0| 69 6e 74 65 72 29 0d 09 | 09 65 72 72 6f 72 20 28 |inter)..|.error (|
|000001f0| 29 0d 09 69 66 20 6e 6f | 74 20 66 69 6c 65 2e 69 |)..if no|t file.i|
|00000200| 73 46 6f 6c 64 65 72 20 | 28 66 69 6c 65 2e 66 6f |sFolder |(file.fo|
|00000210| 6c 6c 6f 77 41 6c 69 61 | 73 20 28 62 61 63 6b 75 |llowAlia|s (backu|
|00000220| 70 70 6f 69 6e 74 65 72 | 29 29 0d 09 09 65 72 72 |ppointer|))...err|
|00000230| 6f 72 20 28 29 0d 66 69 | 6c 65 2e 73 65 74 6d 6f |or ().fi|le.setmo|
|00000240| 64 69 66 69 65 64 20 28 | 62 61 63 6b 75 70 70 6f |dified (|backuppo|
|00000250| 69 6e 74 65 72 2c 20 63 | 6c 6f 63 6b 2e 6e 6f 77 |inter, c|lock.now|
|00000260| 20 28 29 29 0d 6c 6f 63 | 61 6c 20 28 64 65 73 74 | ()).loc|al (dest|
|00000270| 66 6f 6c 64 65 72 20 3d | 20 66 69 6c 65 2e 66 6f |folder =| file.fo|
|00000280| 6c 6c 6f 77 61 6c 69 61 | 73 20 28 62 61 63 6b 75 |llowalia|s (backu|
|00000290| 70 70 6f 69 6e 74 65 72 | 29 29 0d 6c 6f 63 61 6c |ppointer|)).local|
|000002a0| 20 28 6b 65 79 73 74 72 | 69 6e 67 20 3d 20 22 62 | (keystr|ing = "b|
|000002b0| 61 63 6b 75 70 20 23 22 | 29 0d 0d 6c 6f 63 61 6c |ackup #"|)..local|
|000002c0| 20 28 6d 61 78 6e 75 6d | 20 3d 20 30 29 0d 66 69 | (maxnum| = 0).fi|
|000002d0| 6c 65 6c 6f 6f 70 20 28 | 66 20 69 6e 20 64 65 73 |leloop (|f in des|
|000002e0| 74 66 6f 6c 64 65 72 29 | 0d 09 69 66 20 66 20 63 |tfolder)|..if f c|
|000002f0| 6f 6e 74 61 69 6e 73 20 | 6b 65 79 73 74 72 69 6e |ontains |keystrin|
|00000300| 67 0d 09 09 74 72 79 0d | 09 09 09 6e 75 6d 20 3d |g...try.|...num =|
|00000310| 20 6e 75 6d 62 65 72 20 | 28 66 69 6c 65 2e 66 69 | number |(file.fi|
|00000320| 6c 65 66 72 6f 6d 70 61 | 74 68 20 28 66 29 20 2d |lefrompa|th (f) -|
|00000330| 20 6b 65 79 73 74 72 69 | 6e 67 20 2d 20 22 3a 22 | keystri|ng - ":"|
|00000340| 20 2d 20 22 2e 73 69 74 | 22 29 0d 09 09 09 69 66 | - ".sit|")....if|
|00000350| 20 6e 75 6d 20 3e 20 6d | 61 78 6e 75 6d 0d 09 09 | num > m|axnum...|
|00000360| 09 09 6d 61 78 6e 75 6d | 20 3d 20 6e 75 6d 0d 64 |..maxnum| = num.d|
|00000370| 65 73 74 66 6f 6c 64 65 | 72 20 3d 20 64 65 73 74 |estfolde|r = dest|
|00000380| 66 6f 6c 64 65 72 20 2b | 20 6b 65 79 73 74 72 69 |folder +| keystri|
|00000390| 6e 67 20 2b 20 28 6d 61 | 78 6e 75 6d 20 2b 20 31 |ng + (ma|xnum + 1|
|000003a0| 29 0d 6c 6f 63 61 6c 20 | 28 61 72 63 68 69 76 65 |).local |(archive|
|000003b0| 20 3d 20 64 65 73 74 66 | 6f 6c 64 65 72 20 2b 20 | = destf|older + |
|000003c0| 22 2e 73 69 74 22 29 0d | 64 65 73 74 66 6f 6c 64 |".sit").|destfold|
|000003d0| 65 72 20 3d 20 64 65 73 | 74 66 6f 6c 64 65 72 20 |er = des|tfolder |
|000003e0| 2b 20 22 3a 22 0d 0d 6f | 6e 20 66 69 6c 74 65 72 |+ ":"..o|n filter|
|000003f0| 20 28 66 29 0d 09 6c 6f | 63 61 6c 20 28 6e 61 6d | (f)..lo|cal (nam|
|00000400| 65 20 3d 20 66 69 6c 65 | 2e 66 69 6c 65 66 72 6f |e = file|.filefro|
|00000410| 6d 70 61 74 68 20 28 66 | 29 29 0d 09 6c 6f 63 61 |mpath (f|))..loca|
|00000420| 6c 20 28 74 79 70 65 20 | 3d 20 66 69 6c 65 2e 74 |l (type |= file.t|
|00000430| 79 70 65 20 28 66 29 2c | 20 63 72 65 61 74 6f 72 |ype (f),| creator|
|00000440| 20 3d 20 66 69 6c 65 2e | 63 72 65 61 74 6f 72 20 | = file.|creator |
|00000450| 28 66 29 29 0d 09 69 66 | 20 6e 61 6d 65 20 63 6f |(f))..if| name co|
|00000460| 6e 74 61 69 6e 73 20 22 | 28 64 6f 6e 27 74 20 62 |ntains "|(don't b|
|00000470| 61 63 6b 20 75 70 29 22 | 0d 09 09 72 65 74 75 72 |ack up)"|...retur|
|00000480| 6e 20 28 66 61 6c 73 65 | 29 0d 09 69 66 20 28 74 |n (false|)..if (t|
|00000490| 79 70 65 20 3d 3d 20 27 | 50 52 4f 4a 27 29 20 61 |ype == '|PROJ') a|
|000004a0| 6e 64 20 28 63 72 65 61 | 74 6f 72 20 3d 3d 20 27 |nd (crea|tor == '|
|000004b0| 4b 41 48 4c 27 29 0d 09 | 09 72 65 74 75 72 6e 20 |KAHL')..|.return |
|000004c0| 28 66 61 6c 73 65 29 20 | c7 64 6f 6e 27 74 20 62 |(false) |.don't b|
|000004d0| 61 63 6b 75 70 20 74 68 | 65 20 70 72 6f 6a 65 63 |ackup th|e projec|
|000004e0| 74 20 66 69 6c 65 0d 09 | 69 66 20 74 79 70 65 20 |t file..|if type |
|000004f0| 3d 3d 20 27 41 50 50 4c | 27 0d 09 09 72 65 74 75 |== 'APPL|'...retu|
|00000500| 72 6e 20 28 66 61 6c 73 | 65 29 0d 09 6d 73 67 20 |rn (fals|e)..msg |
|00000510| 28 22 43 6f 70 79 69 6e | 67 20 22 20 2b 20 6e 61 |("Copyin|g " + na|
|00000520| 6d 65 29 0d 09 72 65 74 | 75 72 6e 20 28 74 72 75 |me)..ret|urn (tru|
|00000530| 65 29 0d 0d 62 75 6e 64 | 6c 65 20 c7 63 6f 70 79 |e)..bund|le .copy|
|00000540| 20 66 69 6c 65 73 20 69 | 6e 74 6f 20 61 20 62 61 | files i|nto a ba|
|00000550| 63 6b 75 70 20 66 6f 6c | 64 65 72 0d 09 66 69 6c |ckup fol|der..fil|
|00000560| 65 2e 73 75 72 65 66 6f | 6c 64 65 72 20 28 64 65 |e.surefo|lder (de|
|00000570| 73 74 66 6f 6c 64 65 72 | 29 0d 09 66 69 6c 65 2e |stfolder|)..file.|
|00000580| 66 69 6c 74 65 72 65 64 | 63 6f 70 79 20 28 73 6f |filtered|copy (so|
|00000590| 75 72 63 65 66 6f 6c 64 | 65 72 2c 20 64 65 73 74 |urcefold|er, dest|
|000005a0| 66 6f 6c 64 65 72 2c 20 | 40 66 69 6c 74 65 72 29 |folder, |@filter)|
|000005b0| 0d 0d 62 75 6e 64 6c 65 | 20 c7 63 6f 6d 70 72 65 |..bundle| .compre|
|000005c0| 73 73 20 74 68 65 20 66 | 6f 6c 64 65 72 20 77 69 |ss the f|older wi|
|000005d0| 74 68 20 53 74 75 66 66 | 49 74 0d 09 69 66 20 64 |th Stuff|It..if d|
|000005e0| 65 66 69 6e 65 64 20 28 | 53 74 75 66 66 49 74 29 |efined (|StuffIt)|
|000005f0| 20 c7 69 74 27 73 20 62 | 65 65 6e 20 69 6e 73 74 | .it's b|een inst|
|00000600| 61 6c 6c 65 64 0d 09 09 | 53 74 75 66 66 49 74 2e |alled...|StuffIt.|
|00000610| 6c 61 75 6e 63 68 20 28 | 29 0d 09 09 53 74 75 66 |launch (|)...Stuf|
|00000620| 66 49 74 2e 62 72 69 6e | 67 54 6f 46 72 6f 6e 74 |fIt.brin|gToFront|
|00000630| 20 28 29 0d 09 09 53 74 | 75 66 66 49 74 2e 6e 65 | ()...St|uffIt.ne|
|00000640| 77 41 72 63 68 69 76 65 | 20 28 61 72 63 68 69 76 |wArchive| (archiv|
|00000650| 65 2c 20 66 61 6c 73 65 | 29 0d 09 09 53 74 75 66 |e, false|)...Stuf|
|00000660| 66 49 74 2e 73 65 74 43 | 75 72 72 65 6e 74 41 72 |fIt.setC|urrentAr|
|00000670| 63 68 69 76 65 20 28 61 | 72 63 68 69 76 65 29 0d |chive (a|rchive).|
|00000680| 09 09 53 74 75 66 66 49 | 74 2e 73 74 75 66 66 49 |..StuffI|t.stuffI|
|00000690| 74 65 6d 20 28 64 65 73 | 74 66 6f 6c 64 65 72 29 |tem (des|tfolder)|
|000006a0| 0d 09 09 53 74 75 66 66 | 49 74 2e 63 6c 6f 73 65 |...Stuff|It.close|
|000006b0| 41 72 63 68 69 76 65 20 | 28 61 72 63 68 69 76 65 |Archive |(archive|
|000006c0| 29 0d 09 09 53 74 75 66 | 66 49 74 2e 71 75 69 74 |)...Stuf|fIt.quit|
|000006d0| 20 28 29 0d 09 09 66 69 | 6c 65 2e 64 65 6c 65 74 | ()...fi|le.delet|
|000006e0| 65 66 6f 6c 64 65 72 20 | 28 64 65 73 74 66 6f 6c |efolder |(destfol|
|000006f0| 64 65 72 29 0d 0d 66 69 | 6c 65 2e 73 65 74 6d 6f |der)..fi|le.setmo|
|00000700| 64 69 66 69 65 64 20 28 | 73 79 73 74 65 6d 2e 64 |dified (|system.d|
|00000710| 65 73 6b 73 63 72 69 70 | 74 73 2e 70 61 74 68 2c |eskscrip|ts.path,|
|00000720| 20 63 6c 6f 63 6b 2e 6e | 6f 77 20 28 29 29 0d 6d | clock.n|ow ()).m|
|00000730| 73 67 20 28 22 42 61 63 | 6b 75 70 20 63 6f 6d 70 |sg ("Bac|kup comp|
|00000740| 6c 65 74 65 20 61 74 20 | 22 20 2b 20 63 6c 6f 63 |lete at |" + cloc|
|00000750| 6b 2e 6e 6f 77 20 28 29 | 29 0d 80 00 00 00 00 00 |k.now ()|).......|
|00000760| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 80 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 80 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 80 00 00 00 00 00 00 00 | 00 00 00 00 80 00 00 00 |........|........|
|000007a0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|000007b0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 80 00 |........|........|
|000007e0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000007f0| 80 00 00 00 00 00 80 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000860| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000870| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000880| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000890| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|000008a0| 00 00 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+