цемдоган.цом

ИБМ и ИБМ радном месту колаборативно учење, учење Манагемент Системс ЛМС апликација, многи корисници користе АПИ-ја може да се користи за чување следећи код.

Чита текст фајл и чува корисничка имена и шифре о курсевима који се чувају у ЛМС је код да оствари задатак курс.

Други ЛМС АПИ за употребу у ИБМ сајту апидоц испитани и побољшани.

импорт јава.ио. *;
увоз јава.нет.УРЛ;
увоз јава.утил.АрраиЛист;
увоз јавак.кмл.намеспаце.КНаме;
јавак.кмл.рпц.ПараметерМоде увоз;
орг.апацхе.акис.цлиент импорт .*;
/ **
* Корисник региструје за наравно ...
* Пример: Корисник: 00000000002ф9200ЦТЕН
* @ Аутхор Цем ДОГАН Децембар 2008
*
* /
{Публиц цласс Регистер_то_цоурсеВЦЛ
публиц статиц Стринг [] корисника;
публиц статиц инт укупно = 0;
публиц статиц воид маин (Стринг [] аргс) {

три {
Филе филе = нев филе ("кулланицилар_курслар.ткт");
ФилеИнпутСтреам фис = нев ФилеИнпутСтреам (фајл);
ИнпутСтреамРеадер ИСР = нев ИнпутСтреамРеадер (ФИС);
БуффередРеадер полирати = нових БуффередРеадер (ИСР);
ИнпутЛине Стринг = "";

<стринг> АрраиЛист листе = нев АрраиЛист ();
док је ((= инпутЛине буфф.реадЛине ()) = нулл) {
лист.адд (инпутЛине);
}
буфф.цлосе ();

корисника = нев Стринг [лист.сизе ()];
Ростер_лог филе = нев филе ("курсатама.лог");
ФилеОутпутСтреам ФОН = нових ФилеОутпутСтреам (ростер_лог, труе);
ОутпутСтреамВритер се = нових ОутпутСтреамВритер (ФОС);
БуффередВритер буф = нових БуффередВритер (излаз);
три {
фор (инт и = 0 и <лист.сизе (); и + +) {
корисника [и] = лист.гет (и);
Стринг линија [] = корисника [и] Сплиту. (":");

Сачувај (ред [0], ред [1]);
оут.врите (линија [0 ]+":"+ линије [1] + "У реду \ р");
}
} Цатцх (Екцептион е) {
е.принтСтацкТраце ();
}
буф.цлосе ();
} Цатцх (ФилеНотФоундЕкцептион е) {
е.принтСтацкТраце ();
} Цатцх (ИОЕкцептион е) {
е.принтСтацкТраце ();
}
}

публиц статиц воид Сачувај (Стринг име, Стринг курскоду) баца Изузетак {
УРЛ УРЛ;
три {
урл = нових УРЛ-а ("хттп://ИБМЛМСадресиниз/лмс-лмм/сервицес/ЛМСРостерАПИ");
Сервице = нови сервис ();
Позива позива = (по позиву) сервице.цреатеЦалл ();
цалл.сетТаргетЕндпоинтАддресс (УРЛ);
цалл.сетУсернаме ("Администратор");
цалл.сетПассворд ("лозинку");
НС_КССД Стринг = "хттп://ввв.в3.орг/2001/КСМЛСцхема";
КНАМЕ_ТИПЕ_СТРИНГ КНаме = нових КНаме (НС_КССД, "стринг");
цалл.аддПараметер ("усер_ид", КНАМЕ_ТИПЕ_СТРИНГ, ПараметерМоде.ИН);
цалл.аддПараметер ("офферинг_ид", КНАМЕ_ТИПЕ_СТРИНГ,
ПараметерМоде.ИН);
Стринг [] = {параметре корисничким именом, курскоду};
цалл.сетРетурнТипе (КНАМЕ_ТИПЕ_СТРИНГ);
цалл.сетОператионНаме (нови КНаме ("ЛМСЕнроллментАПИ",
"ЕнроллЦоурсеФорУсер"));
цалл.инвоке (параметре);

} Цатцх (Екцептион е) {
тхров нев Екцептион ("Дошло је до грешке");
}
}
}