1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/*
* $Id$
* 'OpenSSL for Ruby' project
* Copyright (C) 2001-2002 Michal Rokos <m.rokos@sh.cvut.cz>
* All rights reserved.
*/
/*
* This program is licenced under the same licence as Ruby.
* (See the file 'LICENCE'.)
*/
#include "ossl.h"
#define WrapConfig(obj, conf) obj = Data_Wrap_Struct(cConfig, 0, CONF_free, conf)
#define GetConfig(obj, conf) Data_Get_Struct(obj, LHASH, conf)
/*
* Classes
*/
VALUE cConfig;
VALUE eConfigError;
/*
* Public
*/
/*
* Private
*/
static VALUE
ossl_config_s_load(int argc, VALUE *argv, VALUE klass)
{
LHASH *conf = NULL;
long err_line = 0;
VALUE obj, path;
rb_scan_args(argc, argv, "10", &path);
path = rb_str_to_str(path);
Check_SafeStr(path);
if (!(conf = CONF_load(NULL, RSTRING(path)->ptr, &err_line))) {
if (err_line <= 0)
rb_raise(eConfigError, "wrong config file %s", RSTRING(path)->ptr);
else
rb_raise(eConfigError, "error on line %ld in config file %s",\
err_line, RSTRING(path)->ptr);
}
WrapConfig(obj, conf);
return obj;
}
static VALUE
ossl_config_get_value(VALUE self, VALUE section, VALUE item)
{
LHASH *conf = NULL;
char *sect = NULL, *str = NULL;
GetConfig(self, conf);
if (!NIL_P(section)) {
section = rb_String(section);
sect = RSTRING(section)->ptr;
}
item = rb_String(item);
if (!(str = CONF_get_string(conf, sect, RSTRING(item)->ptr))) {
OSSL_Raise(eConfigError, "");
}
return rb_str_new2(str);
}
/*
* Get all numbers as strings - use str.to_i to convert
* long number = CONF_get_number(confp->config, sect, RSTRING(item)->ptr);
*/
static VALUE
ossl_config_get_section(VALUE self, VALUE section)
{
LHASH *conf = NULL;
STACK_OF(CONF_VALUE) *sk = NULL;
CONF_VALUE *entry = NULL;
int i, entries = 0;
VALUE hash;
GetConfig(self, conf);
section = rb_String(section);
if (!(sk = CONF_get_section(conf, RSTRING(section)->ptr))) {
OSSL_Raise(eConfigError, "");
}
hash = rb_hash_new();
if ((entries = sk_CONF_VALUE_num(sk)) < 0) {
rb_warning("# of items in section is < 0?!?");
return hash;
}
for (i=0; i<entries; i++) {
entry = sk_CONF_VALUE_value(sk, i);
rb_hash_aset(hash, rb_str_new2(entry->name), rb_str_new2(entry->value));
}
return hash;
}
/*
* INIT
*/
void
Init_ossl_config(VALUE module)
{
eConfigError = rb_define_class_under(module, "ConfigError", eOSSLError);
cConfig = rb_define_class_under(module, "Config", rb_cObject);
rb_define_singleton_method(cConfig, "load", ossl_config_s_load, -1);
rb_define_alias(CLASS_OF(cConfig), "new", "load");
rb_define_method(cConfig, "get_value", ossl_config_get_value, 2);
rb_define_method(cConfig, "get_section", ossl_config_get_section, 1);
}
|