Re: ANNOUNCE: WML 1.6.0

[nospam@thanx (Ralf S. Engelschall)]

Hello vang@ely.leader.ro, in a previous mail you wrote:

> > > Running WML Test Suite (still incomplete):
> > > t/01-wml............** IPP:Error: Bad argument to option ':
> > > WML_GEN_REALNAME=
> > > ok
> > > t/02-p1_ipp.........** IPP:Error: Bad argument to option ':
> > > WML_GEN_REALNAME=
> > > ok
> > > All tests successful.
> > > Files=2,  Tests=4,  6 secs ( 3.98 cusr  0.71 csys =  4.69 cpu)
> > > make[1]: Leaving directory /home/vang/wml-1.6.0/wml_test'
> > 
> > Hmmm... very interesting. Do you have a $HOME/.wmlrc file or any other stuff
> > which sets WML_GEN_REALNAME? I never saw this although my PORTING.test script
> > also ran "make test" on the tested platforms. Hmmm... is this only for "make
> > test" or does IPP flames you also on normal operation? If yes, can you please
> > send us a "wml -v2" run where we can see how IPP is called?
> 
> Same IPP flames when i do normal operations. I have a .wmlrc, but it doesn't
> set WML_GEN_REALNAME. By the way, what is this variable? (if it is something
> with my hostname, I may be in trouble).
> 
> Atached file is the result of a
>     wmk -f -v 2 local.wml 2> err
>[...]

Ok, the particular problem you have is that the WML_GEN_REALNAME variable
couldn't we determined correctly by the "wml" frontend.  This is your name
which should be available through ``(getpwuid($<)){6]'' in Perl. Perhaps you
are using NIS, AFS or some other mechanism which leads to no result here.  As
a workaround you can apply the following patch to wml_frontend/wml.src.  It
makes sure that these variables at least hold some content.

--- wml.src.old Mon Feb  2 17:26:59 1998
+++ wml.src Tue Feb 10 19:24:37 1998
@@ -774,13 +774,16 @@
 
 $gen_username = $pwinfo[0];
 $gen_username =~ s|[\'\$\`\"]||g; # make safe for shell interpolation
+$gen_username ||= 'UNKNOWN-USERNAME';
 
 $gen_realname = $pwinfo[6];
 $gen_realname =~ s|^([^\,]+)\,.*$|$1|;
 $gen_realname =~ s|[\'\$\`\"]||g; # make safe for shell interpolation
+$gen_realname ||= 'UNKNOWN-REALNAME';
 
 $gen_hostname = `hostname`;
 $gen_hostname =~ s|\n$||;
+$gen_hostname ||= 'UNKNOWN-HOSTNAME';
 
 if ($gen_hostname =~ m|^[a-zA-Z0-9_-]+$| and 
     -f "/etc/resolv.conf") {
@@ -821,8 +824,10 @@
     $src_isotime = &isotime($mtime);
     @pwinfo = getpwuid($uid);
     $src_username = $pwinfo[0] || 'UNKNOWN-USERNAME';
+    $src_username =~ s|[\'\$\`\"]||g; # make safe for shell interpolation
     $src_realname = $pwinfo[6] || 'UNKNOWN-REALNAME';
     $src_realname =~ s|^([^\,]+)\,.*$|$1|;
+    $src_realname =~ s|[\'\$\`\"]||g; # make safe for shell interpolation
 }
 
 unshift(@opt_D, "WML_SRC_DIRNAME=\"$src_dirname\"");

To fix this problem correctly, I had to know how I can determine the realname
of the user under your system. What password mechanism are you using? How can
I get the users realname on your system?

Greetings,
                                       Ralf S. Engelschall
                                       rse@engelschall.com
                                       www.engelschall.com
______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com