regexp / replacement for variable

[Jan Misol <misol@liblss.org>]

I'm new to elisp but I want my beloved editor
to generate the standard c-header stuff when creating
a new .h/.hpp header.

> c-x c-f test.h

should automatically insert:

   #ifndef _TEST_H_
   #ifndef _TEST_H_


   #endif

depending on the given filename.

I put the following to my .emacs file:

   (defun new-c-header ()
     "Insert c-header skeleton."
     (interactive "")
     (progn
       (setq bname (upcase(buffer-name)))
       (insert
        (message "#ifndef %s\n\#define %s\n\n#endif"
           bname bname))))

Apart from knowing that "message" might not be the right
choice here, I don't know how to modify the value of bname!?
"replace-regexp" doesn't seem to be the what I'm looking for.

(and how could the new-c-header() be invoked by creating a
new .h/.cpp file?)

jan