File: im.cmd.in

package info (click to toggle)
im 1%3A151-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,464 kB
  • ctags: 368
  • sloc: perl: 8,081; sh: 3,254; makefile: 141
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