root/Apache-DefaultCharset/trunk/DefaultCharset.xs

Revision 653 (checked in by miyagawa, 18 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 #include "EXTERN.h"
2 #include "perl.h"
3 #include "XSUB.h"
4
5 #define CORE_PRIVATE
6 #include "mod_perl.h"
7
8 char *
9 _get(Apache r) {
10    core_dir_config *conf = ap_get_module_config(r->per_dir_config, &core_module);
11    return conf->add_default_charset_name;
12 }
13
14 void
15 _set(Apache r, char *charset) {
16     core_dir_config *conf = ap_get_module_config(r->per_dir_config, &core_module);
17     conf->add_default_charset_name = charset;
18     return;
19 }
20
21 MODULE = Apache::DefaultCharset   PACKAGE = Apache::DefaultCharset
22
23 PROTOTYPES: DISABLE
24
25 char *
26 _get(r)
27   Apache r;
28   CODE:
29     RETVAL = _get(r);
30   OUTPUT:
31     RETVAL
32
33 void
34 _set(r, charset)
35   Apache r;
36   char *charset;
37   CODE:
38     _set(r, charset);
39
Note: See TracBrowser for help on using the browser.