<div>I&#39;ve been converting a LOT of our reports from paper to PDF/Copy to Windows FileServer.</div>
<div>&nbsp;</div>
<div>The below script runs great for us to copy .PDF / .XLS files created by (SCO 6) filepro for normal level users.</div>
<div>My problem is .. If root attempts to run a report &amp; copy the .PDF to the FileServer, it crashs on the</div>
<div>system ( $command )&nbsp; line.&nbsp; No output, no nothing.</div>
<div>&nbsp;</div>
<div>Anyone have any idea what might cause the script to crash out ?</div>
<div>&nbsp;</div>
<div>Software Rev&#39;s</div>
<div>&nbsp;&nbsp;&nbsp; sco&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 5v6.0.0</div>
<div>&nbsp;&nbsp;&nbsp; filepro&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 5.6.06K7D4</div>
<div>&nbsp;&nbsp;&nbsp; perl&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 5.8.7 (i586-pc-sysv5)</div>
<div>&nbsp;</div>
<div>Thanks in Advances</div>
<div>&nbsp;</div>
<div>Doug</div>
<div>&nbsp;</div>
<div>- Filepro Code -</div>
<div>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( pn { fn is /appl/fpmerge/excellist2 )</div>
<div>212&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then: xx=&quot;/appl/scripts/scpreport&quot; &lt; pn { fn {&quot;.pdf HRR&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
213&nbsp; -------&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -&nbsp;&nbsp; -<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then: xy = system( xx )&nbsp; </div>
<div>&nbsp;</div>
<div>- script ( /appl/scripts/scpreport ) -</div>
<div>&nbsp;</div>
<div>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>#! /bin/perl</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>use File::HomeDir;</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>&nbsp;</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>$ENV{PATH} = &quot;/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/gnu/bin&quot;;</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>$&lt; = $&gt;;<span style="mso-spacerun: yes">&nbsp; </span># Real UID = Effective UID</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>&nbsp;</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>unless( $#ARGV + 1 == 2 ) {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>print &quot;Incorrect number of arguments.\n&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>print &quot;Usage:\n&quot;;</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>die<span style="mso-spacerun: yes">&nbsp;&nbsp; </span>&quot;<span style="mso-spacerun: yes">&nbsp; </span>scpreport source destination\n&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>}</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>$dst_file = $ARGV[1];</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>&nbsp;</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>if ($src_file =~ /^([-\/\@\w.]+)$/) {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>$src_file = $1;</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>} else {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>die &quot;Bad Data in Source : $src_file&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>}</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>&nbsp;</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>if ($dst_file =~ /^([-\/\@\w.]+)$/) {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>$dst_file = $1;</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>} else {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>die &quot;Bad Data in Destination: $dst_file&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>}</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>&nbsp;</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>$identity = home( &#39;filepro&#39; ) . &quot;/.ssh/id_rsa&quot;;</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>$command = &quot;/bin/scp &quot; .</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp; </span>&quot;-q&nbsp;</strong></font></font><font face="Times New Roman"><font color="#009900"><strong>-i $identity&nbsp;</strong></font></font><font face="Times New Roman"><font color="#009900"><strong>$src_file filepro\@FileServer01:/public/$dst_file &quot; ;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>&nbsp;</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>if( system( $command ) ) {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>print &quot;<span style="mso-spacerun: yes">&nbsp;&nbsp; </span>FAILED!!!\n&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>die &quot;unable to execute $command\n&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong>} else {</strong></font></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman"><font color="#009900"><strong><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>print &quot;<span style="mso-spacerun: yes">&nbsp;&nbsp; </span>Done\n&quot;;</strong></font></font></p>

<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><font face="Times New Roman" color="#009900"><strong>}</strong></font></p>
<p class="MsoNormal" style="MARGIN: 0in 0in 0pt"><strong><font face="Times New Roman" color="#009900"></font></strong>&nbsp;</p></div>