File: im.cmd.in

package info (click to toggle)
im 91-1
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 832 kB
  • ctags: 8
  • sloc: sh: 1,507; makefile: 110
file content (19 lines) | stat: -rw-r--r-- 495 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
/*
 *	im*.cmd   for IMG's Internet Message scripts
 *
 *	  02/15/1997 KONDO Hiroyasu    <hirokon@homi.toyota.aichi.jp>
 *	  09/25/1997 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
 */

 perl5 = Translate('@im_path_perl@','\','/')
 Parse Arg inarg

/*   get scriptname   */
 Parse Source . . scr
 ep  = Length(scr) -4  /* 4: '.cmd' */
 scr = Left(scr,ep)

 rc=Value("PERL_BADLANG",0,"OS2ENVIRONMENT")
 rc=Value("PERL_BADFREE",0,"OS2ENVIRONMENT")
 '@'perl5 scr inarg
Exit