From b42f358d511096689916d75584583bd4dd08e41b Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 24 Aug 2005 11:17:28 +0000
Subject: r9576: Couple of small fixes. Generate notice indicating that the
 parsers were autogenerated. (This used to be commit
 a37e2134e61eb38e9cbc54f8533113622f013037)

---
 source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'source4/pidl/lib')

diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
index 72ff819b68..f61ce89ee8 100644
--- a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
@@ -542,7 +542,7 @@ sub RegisterInterface($)
 	    # in epan/dissctors are deleted.
     
 	    my $name = "\"" . uc($x->{NAME}) . " (pidl)\"";
-	    my $short_name = $x->{NAME};
+	    my $short_name = uc($x->{NAME});
 	    my $filter_name = $x->{NAME};
 
 	    if (has_property($x, "helpstring")) {
@@ -697,16 +697,29 @@ sub Initialize($)
 
 #####################################################################
 # Generate ethereal parser and header code
-sub Parse($$)
+sub Parse($$$$)
 {
-	my($ndr,$h_filename,$cnf_file) = @_;
+	my($ndr,$idl_file,$h_filename,$cnf_file) = @_;
 	Initialize($cnf_file);
 
 	$tabs = "";
 
 	%res = (code=>"",def=>"",hdr=>"");
 
-	pidl_hdr "/* header auto-generated by pidl */";
+	my $notice = 
+"/* DO NOT EDIT
+	This filter was automatically generated
+	from $idl_file and $cnf_file.
+	
+	Pidl is a perl based IDL compiler for DCE/RPC idl files. 
+	It is maintained by the Samba team, not the Ethereal team.
+	Instructions on how to download and install Pidl can be 
+	found at http://wiki.ethereal.com/Pidl
+*/
+
+";
+
+	pidl_hdr $notice;
 
 	$res{headers} = "\n";
 	$res{headers} .= "#ifdef HAVE_CONFIG_H\n";
@@ -733,7 +746,7 @@ sub Parse($$)
 	$res{ett} = DumpEttDeclaration();
 	$res{hf} = DumpHfDeclaration();
 
-	my $parser = "/* parser auto-generated by pidl */";
+	my $parser = $notice;
 	$parser.= $res{headers};
 	$parser.=$res{ett};
 	$parser.=$res{hf};
-- 
cgit