administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

TeacherControlPlugin.cs - изменения в авторизации

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2022-08-13 08:45:19 +03:00
parent e1ae47aee9
commit e38921c9e8
11 changed files with 485 additions and 106 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "8";
public const string Build = "3";
public const string Revision = "3152";
public const string Revision = "3154";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=3
%REVISION%=3152
%REVISION%=3154
%MINOR%=8
%MAJOR%=3

5
PluginsSupport/Interfaces.cs
View file

@ -59,6 +59,11 @@ namespace VisualPascalABCPlugins
void GetGUI(List<IPluginGUIItem> MenuItems, List<IPluginGUIItem> ToolBarItems);
}
public interface IExtendedVisualPascalABCPlugin: IVisualPascalABCPlugin
{
void AfterAddInGUI();
}
public enum VisualEnvironmentState
{

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.8.3.3152
3.8.3.3154

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.8.3.3152'
!define VERSION '3.8.3.3154'

2
VisualPascalABCNET/DS/PluginsController/PluginsController.cs
View file

@ -121,6 +121,8 @@ namespace VisualPascalABCPlugins
//ToolStrip.Refresh();
if (ToolStripMenuItem.Visible == false)
ToolStripMenuItem.Visible = true;
if (Plugin is IExtendedVisualPascalABCPlugin iex)
iex.AfterAddInGUI();
}
void button_Click(object sender, EventArgs e)
{

81
VisualPlugins/TraningControlPlugin/LoginForm.Designer.cs generated
View file

@ -41,17 +41,22 @@
this.groupImage = new System.Windows.Forms.PictureBox();
this.PluginImage = new System.Windows.Forms.PictureBox();
this.PluginImageAuthorized = new System.Windows.Forms.PictureBox();
this.panelUnAuthorized = new System.Windows.Forms.Panel();
this.panelAuthorized = new System.Windows.Forms.Panel();
this.labelUserName = new System.Windows.Forms.Label();
((System.ComponentModel.ISupportInitialize)(this.userImage)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.groupImage)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.PluginImage)).BeginInit();
((System.ComponentModel.ISupportInitialize)(this.PluginImageAuthorized)).BeginInit();
this.panelUnAuthorized.SuspendLayout();
this.panelAuthorized.SuspendLayout();
this.SuspendLayout();
//
// groupNamesBox
//
this.groupNamesBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList;
this.groupNamesBox.FormattingEnabled = true;
this.groupNamesBox.Location = new System.Drawing.Point(114, 12);
this.groupNamesBox.Location = new System.Drawing.Point(114, 19);
this.groupNamesBox.Name = "groupNamesBox";
this.groupNamesBox.Size = new System.Drawing.Size(258, 21);
this.groupNamesBox.TabIndex = 1;
@ -61,7 +66,7 @@
//
this.usersNamesBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList;
this.usersNamesBox.FormattingEnabled = true;
this.usersNamesBox.Location = new System.Drawing.Point(114, 50);
this.usersNamesBox.Location = new System.Drawing.Point(114, 59);
this.usersNamesBox.Name = "usersNamesBox";
this.usersNamesBox.Size = new System.Drawing.Size(258, 21);
this.usersNamesBox.TabIndex = 2;
@ -69,7 +74,7 @@
// labelGroup
//
this.labelGroup.AutoSize = true;
this.labelGroup.Location = new System.Drawing.Point(63, 15);
this.labelGroup.Location = new System.Drawing.Point(63, 22);
this.labelGroup.Name = "labelGroup";
this.labelGroup.Size = new System.Drawing.Size(45, 13);
this.labelGroup.TabIndex = 3;
@ -78,7 +83,7 @@
// labelUser
//
this.labelUser.AutoSize = true;
this.labelUser.Location = new System.Drawing.Point(25, 53);
this.labelUser.Location = new System.Drawing.Point(25, 62);
this.labelUser.Name = "labelUser";
this.labelUser.Size = new System.Drawing.Size(83, 13);
this.labelUser.TabIndex = 4;
@ -86,7 +91,7 @@
//
// passwordBox
//
this.passwordBox.Location = new System.Drawing.Point(114, 92);
this.passwordBox.Location = new System.Drawing.Point(114, 99);
this.passwordBox.Name = "passwordBox";
this.passwordBox.Size = new System.Drawing.Size(258, 20);
this.passwordBox.TabIndex = 5;
@ -94,7 +99,7 @@
// labelPassword
//
this.labelPassword.AutoSize = true;
this.labelPassword.Location = new System.Drawing.Point(60, 95);
this.labelPassword.Location = new System.Drawing.Point(60, 102);
this.labelPassword.Name = "labelPassword";
this.labelPassword.Size = new System.Drawing.Size(48, 13);
this.labelPassword.TabIndex = 6;
@ -102,7 +107,7 @@
//
// enterButton
//
this.enterButton.Location = new System.Drawing.Point(87, 131);
this.enterButton.Location = new System.Drawing.Point(87, 138);
this.enterButton.Name = "enterButton";
this.enterButton.Size = new System.Drawing.Size(118, 34);
this.enterButton.TabIndex = 8;
@ -113,7 +118,7 @@
// closeButton
//
this.closeButton.DialogResult = System.Windows.Forms.DialogResult.Cancel;
this.closeButton.Location = new System.Drawing.Point(225, 131);
this.closeButton.Location = new System.Drawing.Point(225, 138);
this.closeButton.Name = "closeButton";
this.closeButton.Size = new System.Drawing.Size(118, 34);
this.closeButton.TabIndex = 7;
@ -124,7 +129,7 @@
// userImage
//
this.userImage.InitialImage = null;
this.userImage.Location = new System.Drawing.Point(378, 45);
this.userImage.Location = new System.Drawing.Point(378, 54);
this.userImage.Name = "userImage";
this.userImage.Size = new System.Drawing.Size(32, 32);
this.userImage.TabIndex = 10;
@ -133,7 +138,7 @@
// groupImage
//
this.groupImage.InitialImage = null;
this.groupImage.Location = new System.Drawing.Point(378, 7);
this.groupImage.Location = new System.Drawing.Point(378, 14);
this.groupImage.Name = "groupImage";
this.groupImage.Size = new System.Drawing.Size(32, 32);
this.groupImage.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize;
@ -144,7 +149,7 @@
//
this.PluginImage.BackColor = System.Drawing.Color.Magenta;
this.PluginImage.Image = ((System.Drawing.Image)(resources.GetObject("PluginImage.Image")));
this.PluginImage.Location = new System.Drawing.Point(379, 95);
this.PluginImage.Location = new System.Drawing.Point(385, 146);
this.PluginImage.Margin = new System.Windows.Forms.Padding(6);
this.PluginImage.Name = "PluginImage";
this.PluginImage.Size = new System.Drawing.Size(25, 26);
@ -157,31 +162,58 @@
this.PluginImageAuthorized.BackColor = System.Drawing.Color.Magenta;
this.PluginImageAuthorized.Image = ((System.Drawing.Image)(resources.GetObject("PluginImageAuthorized.Image")));
this.PluginImageAuthorized.InitialImage = null;
this.PluginImageAuthorized.Location = new System.Drawing.Point(379, 131);
this.PluginImageAuthorized.Location = new System.Drawing.Point(351, 146);
this.PluginImageAuthorized.Name = "PluginImageAuthorized";
this.PluginImageAuthorized.Size = new System.Drawing.Size(25, 26);
this.PluginImageAuthorized.TabIndex = 12;
this.PluginImageAuthorized.TabStop = false;
this.PluginImageAuthorized.Visible = false;
//
// panelUnAuthorized
//
this.panelUnAuthorized.Controls.Add(this.groupNamesBox);
this.panelUnAuthorized.Controls.Add(this.passwordBox);
this.panelUnAuthorized.Controls.Add(this.usersNamesBox);
this.panelUnAuthorized.Controls.Add(this.labelUser);
this.panelUnAuthorized.Controls.Add(this.labelGroup);
this.panelUnAuthorized.Controls.Add(this.labelPassword);
this.panelUnAuthorized.Controls.Add(this.groupImage);
this.panelUnAuthorized.Controls.Add(this.userImage);
this.panelUnAuthorized.Location = new System.Drawing.Point(0, 0);
this.panelUnAuthorized.Name = "panelUnAuthorized";
this.panelUnAuthorized.Size = new System.Drawing.Size(422, 132);
this.panelUnAuthorized.TabIndex = 13;
//
// panelAuthorized
//
this.panelAuthorized.Controls.Add(this.labelUserName);
this.panelAuthorized.Location = new System.Drawing.Point(0, 0);
this.panelAuthorized.Name = "panelAuthorized";
this.panelAuthorized.Size = new System.Drawing.Size(422, 132);
this.panelAuthorized.TabIndex = 14;
//
// labelUserName
//
this.labelUserName.Font = new System.Drawing.Font("Microsoft Sans Serif", 12F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((byte)(204)));
this.labelUserName.Location = new System.Drawing.Point(25, 14);
this.labelUserName.Name = "labelUserName";
this.labelUserName.Size = new System.Drawing.Size(372, 26);
this.labelUserName.TabIndex = 11;
this.labelUserName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter;
//
// LoginForm
//
this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
this.CancelButton = this.closeButton;
this.ClientSize = new System.Drawing.Size(422, 175);
this.ClientSize = new System.Drawing.Size(422, 191);
this.Controls.Add(this.panelUnAuthorized);
this.Controls.Add(this.panelAuthorized);
this.Controls.Add(this.PluginImageAuthorized);
this.Controls.Add(this.PluginImage);
this.Controls.Add(this.userImage);
this.Controls.Add(this.groupImage);
this.Controls.Add(this.closeButton);
this.Controls.Add(this.enterButton);
this.Controls.Add(this.labelPassword);
this.Controls.Add(this.passwordBox);
this.Controls.Add(this.labelUser);
this.Controls.Add(this.labelGroup);
this.Controls.Add(this.usersNamesBox);
this.Controls.Add(this.groupNamesBox);
this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog;
this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));
this.Name = "LoginForm";
this.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent;
@ -191,8 +223,10 @@
((System.ComponentModel.ISupportInitialize)(this.groupImage)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.PluginImage)).EndInit();
((System.ComponentModel.ISupportInitialize)(this.PluginImageAuthorized)).EndInit();
this.panelUnAuthorized.ResumeLayout(false);
this.panelUnAuthorized.PerformLayout();
this.panelAuthorized.ResumeLayout(false);
this.ResumeLayout(false);
this.PerformLayout();
}
@ -210,5 +244,8 @@
private System.Windows.Forms.PictureBox userImage;
public System.Windows.Forms.PictureBox PluginImage;
public System.Windows.Forms.PictureBox PluginImageAuthorized;
private System.Windows.Forms.Panel panelUnAuthorized;
private System.Windows.Forms.Label labelUserName;
private System.Windows.Forms.Panel panelAuthorized;
}
}

305
VisualPlugins/TraningControlPlugin/LoginForm.cs
View file

@ -2,6 +2,7 @@
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.IO;
using System.Drawing;
using System.Linq;
using System.Text;
@ -15,6 +16,7 @@ namespace DBAccessPluginNamespace
{
public SiteAccessProvider SiteProvider = null;
public VisualPascalABCPlugin_TeacherControlPlugin Plugin = null;
public bool Authorized = false;
public LoginForm(VisualPascalABCPlugin_TeacherControlPlugin Plugin)
{
@ -22,7 +24,205 @@ namespace DBAccessPluginNamespace
InitializeComponent();
}
public bool Authorized = false;
public bool TryCreateAuthFile(string filename, string login, string pass)
{
var res = true;
try
{
using (var sw = new System.IO.StreamWriter(filename))
{
sw.WriteLine(login);
sw.WriteLine(pass);
}
}
catch (Exception)
{
res = false;
}
return res;
}
public bool IsRootDirectory(string path)
{
var isroot = false;
try
{
var full = Path.GetFullPath(path);
var root = Path.GetPathRoot(full);
if (full == root)
isroot = true;
}
catch { }
return isroot;
}
public bool CalcParentDirectory(string path, out string parent)
{
parent = "";
if (IsRootDirectory(path))
return false;
var hasparent = false;
try
{
var full = Path.GetFullPath(path);
parent = Directory.GetParent(full).FullName;
hasparent = true;
}
catch { }
return hasparent;
}
public void WriteLoginPassToAuthDat(string login, string pass)
{
// SSM 04.08.22 Сохранить в auth.dat логин и пароль
// Плохо вот что. Мы можем зайти из папки, в которой есть lightpt.dat, а потом перейти в папку, где его нет
// Мы также можем скопировать lightpt.dat в корень
// SSM 04.08.22 Поэтому надо проверить, что в текущей папке находится lightpt.dat и эта папка не корневая. В принципе, просто в корне этого диска можно
// После этого перейти в корень диска и там создать этот файл
// SSM 11.08.22 При ручной авторизации - сохранение
// Мехмат: auth сохраняется в корень сетевого диска
// Дома: auth сохраняется в папке на уровень выше текущей. Если это невозможно, то в текущей папке.
// Если это диск C, то тоже не сохранять и тогда сохранять в текущей
// дома сохранять авторизацию на уровень выше текущего если это не корень. Если корень, то в текущий
// на мехмате сохранять авторизацию в корень сетевого диска если он не защищен от записи
// вопрос: если на мехмате текущий каталог - PABCWork.NET, то надо ли сохранять авторизацию?
// это происходит тогда когда школьник смонтировал сетевой диск, но зашел в Паскаль по кнопке Пуск или с рабочего стола
// можно попробовать поискать сетевой диск
var AuthFileFullName = "";
if (Plugin.IsMechmath())
{
// Найти корень сетевого диска
// Если сетевой - текущий, то в него (это как правило)
var workDir = Plugin.WorkingDirectory();
var root = Path.GetPathRoot(workDir);
System.IO.DriveInfo di = new System.IO.DriveInfo(root);
bool b = false;
if (di.DriveType == System.IO.DriveType.Network)
{
var auth = System.IO.Path.Combine(root, "auth.dat");
b = TryCreateAuthFile(auth, login, pass);
}
// Если нет, то попытаться найти первый сетевой, где в корне уже есть auth.dat
if (!b) // Если не удалось записать
{
string authName = "";
foreach (var drive in System.IO.DriveInfo.GetDrives())
{
if (drive.DriveType != System.IO.DriveType.Network)
continue;
// Проверять, что диск сетевой!!! Для несетевых - нет!
var auth = System.IO.Path.Combine(drive.Name, "auth.dat");
if (System.IO.File.Exists(auth))
authName = auth;
}
b = TryCreateAuthFile(authName, login, pass);
}
// Если нет, то попытаться найти первый сетевой (это первый раз когда нет auth
if (!b) // Если не удалось записать
{
string authName = "";
foreach (var drive in System.IO.DriveInfo.GetDrives())
{
if (drive.DriveType != System.IO.DriveType.Network)
continue;
// Найти первый сетевой куда можно записать
b = TryCreateAuthFile(authName, login, pass);
if (b)
break;
}
}
// Та редкая ситуация когда школьник заходит первый раз на первом занятии, не подключает диск и залогинивается в PABC
}
else // это домашний компьютер
{
//System.IO.Directory.GetParent
var workDir = Plugin.WorkingDirectory();
//Path.GetFullPath
///
// сохранить пароль в каталоге на уровень выше WorkingDir. Если это корни дисков или уровнем выше нельзя, то в текущем
//
//var auth = System.IO.Path.Combine(workDir, "auth.dat");
var b1 = CalcParentDirectory(workDir, out string parent);
bool b = false;
if (b1 && !IsRootDirectory(parent))
{
// пытаемся в родительском
var auth = System.IO.Path.Combine(parent, "auth.dat");
b = TryCreateAuthFile(auth, login, pass);
if (b)
AuthFileFullName = auth; // Эта информация нигде не используется - только для тестирования
}
if (!b)
{
// пытаемся в текущем. Если он корень - ну, человек так хотел
var auth = System.IO.Path.Combine(workDir, "auth.dat");
b = TryCreateAuthFile(auth, login, pass);
if (b)
AuthFileFullName = auth; // Эта информация нигде не используется - только для тестирования
}
}
}
public void ChangeControlsAfterLogin(string login)
{
try
{
Text = "Авторизация: вход выполнен";
usersNamesBox.Text = login;
//var login = usersNamesBox.Text;
//var pass = passwordBox.Text;
passwordBox.Text = "";
enterButton.Text = "Выход";
passwordBox.Visible = false;
labelPassword.Visible = false;
groupNamesBox.Enabled = false;
usersNamesBox.Enabled = false;
Authorized = true;
Plugin.toolStripButton.ToolTipText = "Авторизация выполнена: " + login;
Plugin.toolStripButton.Image = PluginImageAuthorized.Image;
Plugin.menuItem.Image = PluginImageAuthorized.Image;
this.Icon = VisualPascalABCPlugins.Properties.Resources.IconAuthorized;
closeButton.Focus();
panelUnAuthorized.SendToBack();
labelUserName.Text = login;
}
catch (Exception e)
{
MessageBox.Show(e.ToString());
e = e;
}
}
public void ChangeControlsAfterLogout()
{
Text = "Авторизация";
passwordBox.Text = "";
enterButton.Text = "Вход";
groupNamesBox.SelectedIndex = -1;
usersNamesBox.Items.Clear();
usersNamesBox.SelectedIndex = -1;
groupNamesBox.Enabled = true;
usersNamesBox.Enabled = true;
passwordBox.Visible = true;
labelPassword.Visible = true;
Authorized = false;
Plugin.toolStripButton.ToolTipText = "Авторизация: вход не выполнен";
Plugin.toolStripButton.Image = PluginImage.Image;
Plugin.menuItem.Image = PluginImage.Image;
System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(LoginForm));
this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));
panelUnAuthorized.BringToFront();
labelUserName.Text = "";
}
private async void enterButton_Click(object sender, EventArgs e)
{
if (SiteProvider == null)
@ -30,46 +230,33 @@ namespace DBAccessPluginNamespace
if (!Authorized)
{
var answer = await SiteProvider.Login("", usersNamesBox.Text, passwordBox.Text);
if(answer == "Success")
try
{
//DialogResult = DialogResult.OK;
//Close();
Text = "Авторизация: вход выполнен";
passwordBox.Text = "";
enterButton.Text = "Выход";
passwordBox.Visible = false;
labelPassword.Visible = false;
groupNamesBox.Enabled = false;
usersNamesBox.Enabled = false;
Authorized = true;
Plugin.toolStripButton.ToolTipText = "Авторизация выполнена: " + SiteProvider.FullFIO;
Plugin.toolStripButton.Image = PluginImageAuthorized.Image;
Plugin.menuItem.Image = PluginImageAuthorized.Image;
this.Icon = VisualPascalABCPlugins.Properties.Resources.IconAuthorized;
if (Text.StartsWith("Авторизация: нет связи с сервером"))
Text = "Авторизация";
var answer = await SiteProvider.Login("", usersNamesBox.Text, passwordBox.Text);
if (answer == "Success")
{
WriteLoginPassToAuthDat(usersNamesBox.Text, passwordBox.Text);
ChangeControlsAfterLogin(usersNamesBox.Text);
}
else MessageBox.Show(answer, "Ошибка");
}
catch (System.Net.Http.HttpRequestException ex)
{
Text = "Авторизация: нет связи с сервером";
closeButton.Focus();
}
else MessageBox.Show(answer,"Ошибка");
catch (Exception ex)
{
MessageBox.Show(ex.ToString());
}
}
else
{
SiteProvider.Logout();
Text = "Авторизация";
passwordBox.Text = "";
enterButton.Text = "Вход";
groupNamesBox.SelectedIndex = -1;
usersNamesBox.Items.Clear();
usersNamesBox.SelectedIndex = -1;
groupNamesBox.Enabled = true;
usersNamesBox.Enabled = true;
passwordBox.Visible = true;
labelPassword.Visible = true;
Authorized = false;
Plugin.toolStripButton.ToolTipText = "Авторизация: вход не выполнен";
Plugin.toolStripButton.Image = PluginImage.Image;
Plugin.menuItem.Image = PluginImage.Image;
System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(LoginForm));
this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));
ChangeControlsAfterLogout();
}
}
@ -81,11 +268,25 @@ namespace DBAccessPluginNamespace
throw new Exception("Error in Login form! Site credentials cannot be empty!");
if (groupNamesBox.Items.Count > 0) // Группы уже загружены
return;
//groupImage.Image = Properties.Resources.LoadingImg;
var groups = await SiteProvider.GetGroupsNames();
groupNamesBox.Items.Clear();
groupNamesBox.Items.AddRange(groups.Split(';').Where(Item => Item != "").ToArray());
//groupImage.Image = null;
try
{
if (Text.StartsWith("Авторизация: нет связи с сервером"))
Text = "Авторизация";
//groupImage.Image = Properties.Resources.LoadingImg;
groupNamesBox.Items.Clear();
var groups = await SiteProvider.GetGroupsNames();
groupNamesBox.Items.AddRange(groups.Split(';').Where(Item => Item != "").ToArray());
//groupImage.Image = null;
}
catch (System.Net.Http.HttpRequestException ex)
{
Text = "Авторизация: нет связи с сервером";
closeButton.Focus();
}
catch (Exception ex)
{
MessageBox.Show(ex.ToString());
}
}
private async void GroupNamesBox_SelectedIndexChanged(object sender, EventArgs e)
@ -95,11 +296,27 @@ namespace DBAccessPluginNamespace
if (SiteProvider == null)
throw new Exception("Error in Login form! Site credentials cannot be empty!");
//userImage.Image = Properties.Resources.LoadingImg;
var users = await SiteProvider.GetUsersNames(groupNamesBox.Text);
usersNamesBox.Items.Clear();
usersNamesBox.Items.AddRange(users.Split(';').Where(Item => Item != "").ToArray());
//userImage.Image = null;
try
{
if (Text.StartsWith("Авторизация: нет связи с сервером"))
Text = "Авторизация";
//var t = Text;
//userImage.Image = Properties.Resources.LoadingImg;
usersNamesBox.Items.Clear();
var users = await SiteProvider.GetUsersNames(groupNamesBox.Text);
usersNamesBox.Items.AddRange(users.Split(';').Where(Item => Item != "").ToArray());
//userImage.Image = null;
//Text = t;
}
catch (System.Net.Http.HttpRequestException ex)
{
Text = "Авторизация: нет связи с сервером";
closeButton.Focus();
}
catch (Exception ex)
{
MessageBox.Show(ex.ToString());
}
}
private void cancelButton_Click(object sender, EventArgs e)

5
VisualPlugins/TraningControlPlugin/SiteAccessInfo.cs
View file

@ -44,6 +44,7 @@ namespace DBAccessPluginNamespace
// Если клиент ещё не создан был, пересоздаём
if (client == null) client = new HttpClient();
client.Timeout = TimeSpan.FromSeconds(10);
// Словарик для параметров запроса
var values = new Dictionary<string, string>
{
@ -79,6 +80,7 @@ namespace DBAccessPluginNamespace
{
// Если клиент ещё не создан был, пересоздаём
if (client == null) client = new HttpClient();
client.Timeout = TimeSpan.FromSeconds(10);
// Тут не столь важно что отправлять, можно и пустой список параметров
var values = new Dictionary<string, string>
{
@ -102,6 +104,7 @@ namespace DBAccessPluginNamespace
// Если клиент ещё не создан был, пересоздаём
if (client == null) client = new HttpClient();
client.Timeout = TimeSpan.FromSeconds(10);
var values = new Dictionary<string, string>();
var content = new FormUrlEncodedContent(values);
var response = await client.PostAsync(ServAddr + "/groupslist.php", content);
@ -120,6 +123,7 @@ namespace DBAccessPluginNamespace
if (ServAddr == "") return "Error";
// Если клиент ещё не создан был, пересоздаём
if (client == null) client = new HttpClient();
client.Timeout = TimeSpan.FromSeconds(10);
Group = GroupName;
var values = new Dictionary<string, string>
{
@ -145,6 +149,7 @@ namespace DBAccessPluginNamespace
FullFIO = fullFIO;
Password = password;
if (client == null) client = new HttpClient();
client.Timeout = TimeSpan.FromSeconds(10);
// Словарик для параметров запроса
var values = new Dictionary<string, string>

165
VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
View file

@ -10,7 +10,7 @@ using DBAccessPluginNamespace;
namespace VisualPascalABCPlugins
{
//имя класса *_VisualPascalABCPlugin
public class VisualPascalABCPlugin_TeacherControlPlugin : IVisualPascalABCPlugin
public class VisualPascalABCPlugin_TeacherControlPlugin : IExtendedVisualPascalABCPlugin
{
private const string LabelEntered = "Авторизация: ";
private const string LabelNotEntered = "Авторизация: вход не выполнен";
@ -33,12 +33,14 @@ namespace VisualPascalABCPlugins
public LoginForm loginForm;
bool firstTime = true;
public ToolStripMenuItem menuItem = null;
public ToolStripButton toolStripButton = null;
public string AuthFileFullName = "";
public VisualPascalABCPlugin_TeacherControlPlugin(IWorkbench Workbench)
{
User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
loginForm = new LoginForm(this);
this.Workbench = Workbench;
VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
@ -51,14 +53,6 @@ namespace VisualPascalABCPlugins
}
public void Execute()
{
if (firstTime)
{
firstTime = false;
menuItem = (ToolStripMenuItem)Item.menuItem;
toolStripButton = (ToolStripButton)Item.toolStripButton;
}
User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
loginForm.SiteProvider = User;
loginForm.ShowDialog(); // OK никогда не будет
@ -74,38 +68,149 @@ namespace VisualPascalABCPlugins
}*/
}
public void GetGUI(List<IPluginGUIItem> MenuItems, List<IPluginGUIItem> ToolBarItems)
public string FullAuthNameFromNETDisk()
{
Item = new PluginGUIItem(StringsPrefix + "NAME", StringsPrefix + "DESCRIPTION", loginForm.PluginImage.Image, loginForm.PluginImage.BackColor, Execute);
MenuItems.Add(Item);
ToolBarItems.Add(Item);
string authName = "";
try
{
foreach (var drive in System.IO.DriveInfo.GetDrives())
{
if (drive.DriveType != System.IO.DriveType.Network)
continue;
// Проверять, что диск сетевой!!! Для несетевых - нет!
var auth = System.IO.Path.Combine(drive.Name, "auth.dat");
if (System.IO.File.Exists(auth))
authName = auth;
}
}
catch (Exception)
{
}
return authName;
}
/*private void BeforeCompileHandler(string filename) // filename - pas-файл
public string WorkingDirectory()
{
// Проверяем присутствие файла lightpt.dat
var fi = new System.IO.FileInfo(filename);
var SourceFileDirectory = fi.DirectoryName;
var FileName = Workbench.ServiceContainer.DocumentService.CurrentCodeFileDocument.FileName;
return System.IO.Path.GetDirectoryName(FileName);
}
var FullLightPTName = System.IO.Path.Combine(SourceFileDirectory, "lightpt.dat");
public string FullLightPTName()
{
var WorkingDir = WorkingDirectory();
var lightptname = System.IO.Path.Combine(WorkingDir, "lightpt.dat");
if (System.IO.File.Exists(lightptname))
return lightptname;
return "";
}
// VisualEnvironmentCompiler.Compiler.SyntaxTreeConvertersController возвращает NotSupportedException для RemoteCompiler. Странно... И как это вообще срабатывает?
var SyntaxTreeConverters = VisualEnvironmentCompiler.Compiler.SyntaxTreeConvertersController.SyntaxTreeConverters;
// Если осталось с прошлого раза
SyntaxTreeConverters.RemoveAll(st => st.Name == "TeacherContolConverter");
//if (System.IO.File.Exists(FullLightPTName)) // Если в папке есть файл lightpt.dat
public /*async*/ void TryLogin(string login, string pass)
{
var answer = User.Login("", login, pass);
if (answer.Result == "Success")
{
//SyntaxTreeConverters.Add(new TeacherContolConverter());
loginForm.ChangeControlsAfterLogin(login);
}
}
public bool IsMechmath() => System.Environment.MachineName.ToLower().StartsWith("mil8a-");
public void GetGUI(List<IPluginGUIItem> MenuItems, List<IPluginGUIItem> ToolBarItems)
{
// Для студентов: если в рабочем каталоге нет lightpt.dat, то кнопки не появляются
// На самом деле надо еще проверять диск P: - точнее, сетевой диск с определенной меткой (например, в его корне лежит файл auth.dat
// if (!File.Exists(Path.Combine(WorkingDir,'lightpt.dat'))
// return;
// Scan disks
// Find NET disk with auth.dat in root
// if not - return
//var WorkingDirectory = Workbench.VisualEnvironmentCompiler.Compiler.CompilerOptions.SourceFileDirectory;
var LightPTExists = false;
var AuthExists = false;
try
{
// Только на мехмате - проверяю все диски на предмет существования в корне файла auth.dat
if (IsMechmath())
AuthFileFullName = FullAuthNameFromNETDisk();
LightPTExists = FullLightPTName() != "";
AuthExists = AuthFileFullName != "";
}
catch (Exception)
{
// Погасили исключение
}
//System.IO.File.AppendAllText("d:\\Stmd.txt", string.Join(" ", StandartModules.Select(sm => sm.Name)) + '\n');
//System.IO.File.AppendAllText("d:\\Stmd.txt", FullLightPTName + " " + DateTime.Now + '\n');
}*/
// При запуске иконка плагина показывается
// Мехмат: при наличии auth.dat в корне сетевого диска или при наличии lightpt в текущей папке !!!
// Дома: всегда у тех, у кого установлен плагин
// При запуске auth.dat ищется
// Мехмат: в корне сетевого диска (только!). Если находится, делается попытка авторизации
// Дома: в текущей папке. Если нет, ищется в папке на уровень выше. Если находится, делается попытка авторизации
// При ручной авторизации - сохранение
// Мехмат: auth сохраняется в корень сетевого диска
// Дома: auth сохраняется в папке на уровень выше текущей. Если это невозможно, то в текущей папке.
// Если это диск C, то тоже не сохранять и тогда сохранять в текущей
if (
(IsMechmath() && (LightPTExists || AuthExists)) ||
!IsMechmath() // дома - всегда
)
{
Item = new PluginGUIItem(StringsPrefix + "NAME", StringsPrefix + "DESCRIPTION", loginForm.PluginImage.Image, loginForm.PluginImage.BackColor, Execute);
MenuItems.Add(Item);
ToolBarItems.Add(Item);
}
}
public void AfterAddInGUI()
{
menuItem = (ToolStripMenuItem)Item.menuItem;
toolStripButton = (ToolStripButton)Item.toolStripButton;
// Попытка выполнить автоматический вход из информации в auth.dat
// Прочитать логин и хеш пароля в auth.dat
// По идее в БД надо хранить хеш пароля.
// Авторизоваться по этому паролю через БД
// Непонятно, как сделать эту часть асинхронно
// В AuthFileFullName только auth с сетевого диска. Если он пустой, то для дома попытаться добавить сюда
// текущую папку и потом корневую папку
try {
if (!IsMechmath()) // если дома, то искать auth в текущей папке
{
var WorkingDir = WorkingDirectory();
var auth = System.IO.Path.Combine(WorkingDir,"auth.dat");
// искать auth в текущей папке
if (System.IO.File.Exists(auth))
AuthFileFullName = auth;
else
{
// искать auth в папке на уровень выше
auth = System.IO.Path.Combine(WorkingDir, "..", "auth.dat");
if (System.IO.File.Exists(auth))
AuthFileFullName = auth;
}
}
if (AuthFileFullName != "")
{
var ss = System.IO.File.ReadAllLines(AuthFileFullName);
if (ss.Length >= 2)
{
var login = ss[0];
var pass = ss[1];
System.Threading.Tasks.Task.Run(() => TryLogin(login, pass));
}
}
}
catch (Exception)
{ }
}
private void RunStartingHandler(string filename)
{
/*if (RegisterForm.Registered)
{
System.IO.File.AppendAllText("d:\\runs.txt", filename + " " + DateTime.Now + '\n');

20
bin/Lib/LightPT.pas
View file

@ -27,7 +27,7 @@ var
TaskResultInfo: string; // доп. информация о результате. Как правило пуста. Или содержит TaskException.Info. Или содержит для Solved и BadSolution информацию о модуле: Robot, Drawman, PT4
TaskException: PTException := new PTException;
WriteInfoCallBack: procedure (name: string; result: TaskStatus; AdditionalInfo: string);
WriteInfoCallBack: procedure (LessonName,TaskName: string; result: TaskStatus; AdditionalInfo: string);
LessonName: string := '';
TaskNamesMap := new Dictionary<string,string>;
@ -218,10 +218,10 @@ procedure CheckInitialOutputSeq(a: sequence of System.Type) := CheckInitialOutpu
procedure CheckInitialInputSeq(a: sequence of System.Type) := CheckInitialInput(a.Select(x->object(x)).ToArray);
procedure WriteInfoToLocalDatabase(name: string; result: TaskStatus; AdditionalInfo: string := '');
procedure WriteInfoToLocalDatabase(LessonName,TaskName: string; result: TaskStatus; AdditionalInfo: string := '');
begin
try
System.IO.File.AppendAllText('db.txt', $'{name} {dateTime.Now.ToString(''u'')} {Result.ToString} {AdditionalInfo}' + #10);
System.IO.File.AppendAllText('db.txt', $'{LessonName} {TaskName} {dateTime.Now.ToString(''u'')} {Result.ToString} {AdditionalInfo}' + #10);
except
on e: Exception do
Print(e.Message);
@ -987,7 +987,7 @@ begin
end;
// Хотелось бы писать в БД для Робота и др. имя задания в Task
if WriteInfoCallBack<>nil then
WriteInfoCallBack(TName, TaskResult, TaskResultInfo);
WriteInfoCallBack(LessonName,TName, TaskResult, TaskResultInfo);
end;
procedure LoadLightPTInfo;
@ -999,12 +999,20 @@ begin
if line.Trim = '' then
continue;
if LessonName = '' then
LessonName := line
LessonName := line.ToWords.First // первое слово
else begin
var (name1,name2) := Regex.Split(line,'->');
TaskNamesMap[name1.Trim.ToLower] := name2.Trim;
end;
end;
if LessonName = '' then
begin
// Имя текущей папки. Плохо - в lightpt забыли написать имя урока
var ttt := ExtractFileDir(System.Environment.GetCommandLineArgs[0]);
var LastDir := ttt.ToWords(System.IO.Path.DirectorySeparatorChar).LastOrDefault;
// Каталог может содержать пробелы. Брать первое слово
if LastDir<>nil then
LessonName := LastDir.ToWords.First;
end;
except