# cat startnet
#!/bin/sh
#connect to wi-fi through wpa_supplicant
herd stop wpa-supplicant
rfkill unblock wifi
wpa_supplicant -B -i wlp2s0 -c /etc/wpa_supplicant/wpa_supplicant.conf
sleep 2
dhclient -v wlp2s0
#./startnet

# cat /etc/dhcpcd.conf
#interface wlp2s0

#https://help.ubuntu.com/lts/serverguide/dhcp.html

default-lease-time 600;
max-lease-time 7200;

subnet 192.168.1.0 netmask 255.255.255.0 {
 range 192.168.1.2 192.168.1.255;
 option routers 192.168.1.1;
 option domain-name-servers 192.168.1.1;
 option domain-name "mydomain.example";
}

# herd restart wpa-supplicant
# herd restart dhcpv4-daemon

# ping gnu.org
ping: unknown host

# ifconfig
...
wlp2s0    Link encap:Ethernet  HWaddr B2:CD:50:67:99:E7
          UP BROADCAST MULTICAST  MTU:1500  Metric:1
          RX packets:11415 errors:0 dropped:0 overruns:0 frame:0
          TX packets:6130 errors:0 dropped:0 overruns:0 carrier:0
          collisions:0 txqueuelen:1000
          RX bytes:12515086  TX bytes:2217055

 #fdisk -l
Device     Start      End  Sectors  Size Type
/dev/sdb1   2048    34815    32768   16M unknown
/dev/sdb2  34816 61849566 61814751 29.5G unknown


# mount /dev/sdb2 /mnt
mount: /mnt: wrong fs type, bad option, bad superblock on /dev/sdb2, missing codepage or helper program, or other error.
# mount /dev/sdb2 /mnt -t vfat
mount: /mnt: wrong fs type, bad option, bad superblock on /dev/sdb2, missing codepage or helper program, or other error.
# mount /dev/sdb2 /mnt -t ntfs
mount: /mnt: wrong fs type, bad option, bad superblock on /dev/sdb2, missing codepage or helper program, or other error.
# mount /dev/sdb2 /mnt -t msdos
mount: /mnt: wrong fs type, bad option, bad superblock on /dev/sdb2, missing codepage or helper program, or other error.



# dmesg | tail -n 700
..
[ 1912.367154] usb 1-1.2: new high-speed USB device number 16 using ehci-pci
[ 1912.485661] usb 1-1.2: New USB device found, idVendor=05e3, idProduct=0751, bcdDevice=14.04
[ 1912.485690] usb 1-1.2: New USB device strings: Mfr=3, Product=4, SerialNumber=0
[ 1912.485708] usb 1-1.2: Product: USB Storage
[ 1912.485723] usb 1-1.2: Manufacturer: USB Storage
[ 1912.486960] usb-storage 1-1.2:1.0: USB Mass Storage device detected
[ 1912.488192] scsi host2: usb-storage 1-1.2:1.0
[ 1913.496691] scsi 2:0:0:0: Direct-Access     Generic  STORAGE DEVICE   1404 PQ: 0 ANSI: 6
[ 1913.497563] sd 2:0:0:0: Attached scsi generic sg1 type 0
[ 1913.831164] usb 1-1.2: reset high-speed USB device number 16 using ehci-pci
..

$ uname -a
Linux antelope 4.18.15-gnu #1 SMP 1 x86_64 GNU/Linux

# lsmod | grep bluetooth
bluetooth             540672  14 btrtl,btqca,btintel,hci_uart,btbcm,bnep,ath3k,btusb
ecdh_generic           24576  1 bluetooth

# rfkill list bluetooth
1: ideapad_bluetooth: Bluetooth
	Soft blocked: no
	Hard blocked: no

# herd status | grep bluetooth
 + bluetooth

# bluetoothctl
Agent registered
[bluetooth]# list
[bluetooth]# devices
No default controller available
[bluetooth]# 

# guix package -s bluetooth
name: bluez-alsa
version: 1.2.0
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux mips64el-linux
dependencies: alsa-lib@1.1.6 autoconf@2.69 automake@1.16.1 bluez@5.50
+ glib@2.56.0 libbsd@0.8.7 libtool@2.4.6 ncurses@6.1 ortp@0.27.0
+ pkg-config@0.29.2 sbc@1.3
location: gnu/packages/audio.scm:3232:2
homepage: https://github.com/Arkq/bluez-alsa
license: Expat
synopsis: Bluetooth ALSA backend  
description: This project is a rebirth of a direct integration between Bluez
+ and ALSA.  Since Bluez >= 5, the build-in integration has been removed in
+ favor of 3rd party audio applications.  From now on, Bluez acts as a
+ middleware between an audio application, which implements Bluetooth audio
+ profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
+ audio profiles in Bluez, so in theory every Bluetooth device (with audio
+ capabilities) can be connected.  In order to access the audio stream, one has
+ to connect to the ALSA PCM device called `bluealsa'.  The device is based on
+ the ALSA software PCM plugin.
relevance: 11

name: gnome-bluetooth
version: 3.20.1
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux mips64el-linux
dependencies: eudev@3.2.5 glib@2.56.0 gobject-introspection@1.56.0
+ gtk+@3.22.30 intltool@0.51.0 libcanberra@0.30 libnotify@0.7.7 libxml2@2.9.8
+ pkg-config@0.29.2
location: gnu/packages/gnome.scm:5457:2
homepage: https://wiki.gnome.org/Projects/GnomeBluetooth
license: LGPL 2.1+
synopsis: GNOME Bluetooth subsystem  
description: This package contains tools for managing and manipulating
+ Bluetooth devices using the GNOME desktop.
relevance: 9

name: sbc
version: 1.3
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux mips64el-linux
dependencies: libsndfile@1.0.28 pkg-config@0.29.2
location: gnu/packages/linux.scm:3103:2
homepage: https://www.kernel.org/pub/linux/bluetooth/
license: GPL 2+
synopsis: Bluetooth subband audio codec  
description: The SBC is a digital audio encoder and decoder used to transfer
+ data to Bluetooth audio output devices like headphones or loudspeakers.
relevance: 5

name: bluez
version: 5.50
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux mips64el-linux
dependencies: dbus@1.12.6 eudev@3.2.5 gettext-minimal@0.19.8.1 glib@2.56.0
+ libical@3.0.3 pkg-config@0.29.2 readline@7.0.3
location: gnu/packages/linux.scm:3126:2
homepage: http://www.bluez.org/
license: GPL 2+
synopsis: Linux Bluetooth protocol stack  
description: BlueZ provides support for the core Bluetooth layers and
+ protocols.  It is flexible, efficient and uses a modular implementation.
relevance: 5

name: bluez-qt
version: 5.49.0
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux
dependencies: dbus@1.12.6 extra-cmake-modules@5.49.0 qtbase@5.11.1
location: gnu/packages/kde-frameworks.scm:316:2
homepage: https://community.kde.org/Frameworks
license: LGPL 2.1+, LGPL 3+
synopsis: QML wrapper for BlueZ  
description: bluez-qt is a Qt-style library for accessing the bluez Bluetooth
+ stack.  It is used by the KDE Bluetooth stack, BlueDevil.
relevance: 4

name: qtconnectivity
version: 5.11.1
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux
dependencies: bluez@5.50 perl@5.26.1 pkg-config@0.29.2 qtbase@5.11.1
+ qtdeclarative@5.11.1
location: gnu/packages/qt.scm:918:2
homepage: https://www.qt.io/
license: LGPL 2.1, LGPL 3
synopsis: Qt Connectivity module  
description: The Qt Connectivity modules provides modules for interacting with
+ Bluetooth and NFC.
relevance: 2

name: modem-manager
version: 1.4.14
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux mips64el-linux
dependencies: dbus@1.12.6 glib@2.56.0 gobject-introspection@1.56.0
+ intltool@0.51.0 libgudev@230 libmbim@1.16.2 libqmi@1.20.0 pkg-config@0.29.2
+ polkit@0.115 vala@0.36.3
location: gnu/packages/freedesktop.scm:836:2
homepage: https://www.freedesktop.org/wiki/Software/ModemManager/
license: GPL 2+
synopsis: Mobile broadband modems manager  
description: ModemManager is a DBus-activated daemon which controls mobile
+ broadband (2G/3G/4G) devices and connections.  Whether built-in devices, USB
+ dongles, bluetooth-paired telephones, or professional RS232/USB devices with
+ external power supplies, ModemManager is able to prepare and configure the
+ modems and setup connections with them.
relevance: 2

name: hidapi
version: 0.8.0-rc1
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux mips64el-linux
dependencies: autoconf@2.69 automake@1.16.1 eudev@3.2.5 libtool@2.4.6
+ libusb@1.0.22 pkg-config@0.29.2
location: gnu/packages/libusb.scm:374:2
homepage: http://www.signal11.us/oss/hidapi/
license: GPL 3, Modified BSD, non-copyleft
synopsis: HID API library  
description: HIDAPI is a library which allows an application to interface with
+ USB and Bluetooth HID-Class devices.
relevance: 2

name: connman
version: 1.36
outputs: out
systems: x86_64-linux i686-linux armhf-linux aarch64-linux
dependencies: dbus@1.12.6 glib@2.56.0 gnutls@3.5.18 iptables@1.6.2
+ openconnect@7.08 openvpn@2.4.6 pkg-config@0.29.2 polkit@0.115 ppp@2.4.7
+ python2@2.7.14 readline@7.0.3 vpnc@0.5.3 wpa-supplicant@2.6
location: gnu/packages/connman.scm:44:2
homepage: https://01.org/connman
license: GPL 2
synopsis: Connection management daemon  
description: Connman provides a daemon for managing Internet connections.  The
+ Connection Manager is designed to be slim and to use as few resources as
+ possible.  It is fully modular system that can be extended through plug-ins.
+ The plug-in approach allows for easy adaption and modification for various use
+ cases.  Connman implements DNS resolving and caching, DHCP clients for both
+ IPv4 and IPv6, link-local IPv4 address handling and tethering (IP connection
+ sharing) to clients via USB, ethernet, WiFi, cellular and Bluetooth.
relevance: 2

:: Batch-script put info about services to a web-server
@echo off
setlocal

net start > C:\my-services\netstart.txt

"C:\Program Files (x86)\GnuWin32\bin\iconv.exe" -f IBM866 -t UTF-8 C:\my-services\netstart.txt > C:\my-services\netstart-utf8.txt


::Массив служб name- имя службы, stat - статус (unknown, error, ok)
set len=3
set srv[0].name=Диспетчер печати
set srv[0].stat=unknown
set srv[1].name=Защитник Windows
set srv[1].stat=unknown
set srv[2].name=Служба автонастройки WLAN
set srv[2].stat=unknown


:: Check services work
set i=0
:SrvLoop
if %i% equ %len% goto :elSrv
set cur.name=
set cur.stat=
for /f "usebackq delims==. tokens=1-3" %%j in (`set srv[%i%]`) do (
  set cur.%%k=%%l
)
::echo Проверяется работа службы %cur.name%
SET status=error
findstr /m "%cur.name%" netstart.txt
if %errorlevel%==0 (
  SET status=ok
)
SET srv[%i%].stat=%status%
set /a i=%i%+1
goto SrvLoop
:elSrv

::echo Все службы проверены.


:: Display services statuses
::set i=0
::SDLoop
::if %i% equ %len% goto :elSD
::set cur.name=
::set cur.stat=
::for /f "usebackq delims==. tokens=1-3" %%j in (`set srv[%i%]`) do (
::  set cur.%%k=%%l
::)
::echo Служба %cur.name%
::echo Статус %cur.stat%
::set /a i=%i%+1
::goto SDLoop
::elSD



:: Create get request
set req=?line=
set i=0
:ReqLoop
if %i% equ %len% goto :elReq
set cur.name=
set cur.stat=
for /f "usebackq delims==. tokens=1-3" %%j in (`set srv[%i%]`) do (
  set cur.%%k=%%l
)
SET req=%req%service%i%--%cur.name%-ampersand-status%i%--%cur.stat%-ampersand-
set /a i=%i%+1
goto ReqLoop
:elReq



SET url=http://server-status.online/win1/set.php%req%
SET "url=%url: =+%"
::echo "url - \n" "%url%"


:: Send pull request to web-server
C:\my-services\curl\bin\curl.exe "%url%"

::echo ''
endlocal

Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run chr(34) & "C:\my-services\netstart.bat" & Chr(34), 0
Set WshShell = Nothing

<?php

// full path to db file
define("DB_FILE", "db.txt");

$line=iconv("WINDOWS-1251","UTF-8",$_GET["line"]);

echo $line;

$f=fopen(DB_FILE, "a");
fwrite($f, $line."--".time()."\n");

echo "<br>done!";

?>

<?php

// full path to db file
define("DB_FILE", "db.txt");
//seconds between messages to check server online
define("PERIOD", 80);
 
 
function read_tail($file, $lines) {
    //global $fsize;
    $handle = fopen($file, "r");
    $linecounter = $lines;
    $pos = -2;
    $beginning = false;
    $text = array();
    while ($linecounter > 0) {
        $t = " ";
        while ($t != "\n") {
            if(fseek($handle, $pos, SEEK_END) == -1) {
                $beginning = true; 
                break; 
            }
            $t = fgetc($handle);
            $pos --;
        }
        $linecounter --;
        if ($beginning) {
            rewind($handle);
        }
        $text[$lines-$linecounter-1] = fgets($handle);
        if ($beginning) break;
    }
    fclose ($handle);
    return array_reverse($text);
}
 

// main start
if (isset($_GET["mode"]) && $_GET["mode"]=="full") {
	$f=file_get_contents(DB_FILE);
	echo "<pre>".$f."</pre>";

} elseif (isset($_GET["n"]) && is_numeric($_GET["n"])) {
	$fsize = round(filesize(DB_FILE)/1024,2);
	echo "File size is {$fsize} Kb\n\n<br>";
	echo "Last ".$_GET["n"]." lines of the file:\n\n<br><br>";
	echo "<pre>\n";
	$lines = read_tail(DB_FILE, $_GET["n"]);
	foreach ($lines as $line) {
		echo $line;
	}
	echo "</pre>\n";

} else {
	//readl last line
	$f=fopen(DB_FILE, "r");
	$cursor = -1;
	fseek($f, $cursor, SEEK_END);
	$char = fgetc($f);
	// Trim trailing newline chars of the file
	while ($char === "\n" || $char === "\r") {
		fseek($f, $cursor--, SEEK_END);
		$char = fgetc($f);
	}
	// Read until the start of file or first newline char
	while ($char !== false && $char !== "\n" && $char !== "\r") {
		//Prepend the new char
		$line = $char . $line;
		fseek($f, $cursor--, SEEK_END);
		$char = fgetc($f);
	}
	
	preg_match("/error/", $line, $matches);
	$c = count($matches);
	// check errors and on-line status
	if (count($matches) > 0 ) { 
		echo "<body bgcolor=red>\n"; 
	} else { 
		//get time from line and compare with current time
		preg_match("/--(\d\d\d\d\d\d\d+)/", $line, $match_time);
		//print_r($match_time);
		$diff = intval(time()) - intval($match_time[1]);
		//echo "diff = $diff ";
		if ($diff > PERIOD) {
			//set grey background if time differs more than PERIOD seconds
			echo "<body bgcolor=grey>\n";
		} else {
			//set green background if ok
			echo "<body bgcolor=green>\n"; 
		}
	}
	
	echo $line;
}

echo "<br>done!";

?>

<?php


// full path to db file
define("DB_FILE", "db.txt");

file_put_contents(DB_FILE, "");

echo "<br>clear!";

?>

$ curl -L --cookie-jar cj5 --cookie cj4 -X POST 'https://url.to/Login.aspx' \
  -d "__VIEWSTATE=/wekukuHASHbigHASHthere=" \
  -d "__EVENTVALIDATION=/theSAMEthingsHEREhashMYhash==" \
  -d "login=znavko" \
  -d "passwdline=pips11"

<!DOCTYPE html PUBLIC...>
...
...
System.ArgumentException: Invalid postback or callback argument.
 Event validation is enabled using <pages enableEventValidation="true"/&gt in configuration
 or <%@ Page EnableEventValidation="true" %&gt in a page.  
For security purposes, this feature verifies that arguments to 
postback or callback events originate from the server control 
that originally rendered them.  If the data is valid and 
expected, use the ClientScriptManager.RegisterForEventValidation 
method in order to register the postback or callback data for validation.
...

# cat /etc/wpa_supplicant.conf 
#ctrl_interface=/var/run/wpa_supplicant
#ctrl_interface_group=sudo
update_config=1

network={
	ssid="internet"
	scan_ssid=1
	psk=hash-my-hash
	proto=RSN
	key_mgmt=WPA-PSK
}

# herd stop wpa-supplicant
# wpa_supplicant -B -i wlp1s0 -c /etc/wpa_supplicant.conf
# dhclient -v wlp1s0

# cat /etc/config.scm
;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.

;;was like this:
;;(use-modules (gnu) (gnu system nss))
;;my changes are these:
(use-modules (gnu) (gnu system nss services networking))

(use-service-modules desktop)
(use-package-modules certs gnome)

(operating-system
  (host-name "antelope")
  (timezone "Europe/Moscow")
  (locale "en_US.utf8")

  ;; Use the UEFI variant of GRUB with the EFI System
  ;; Partition mounted on /boot/efi.
  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (target "/dev/sda")))

  ;; Specify a mapped device for the encrypted root partition.
  ;; The UUID is that returned by 'cryptsetup luksUUID'.
  ;(mapped-devices
  ; (list (mapped-device
  ;        (source (uuid "12345678-1234-1234-1234-hash888abc"))
  ;        (target "my-root")
  ;        (type luks-device-mapping))))

  (file-systems (cons (file-system
                        (device "/dev/sda1")
                        (mount-point "/")
                        (type "ext4")
                        )
                      %base-file-systems))

  (swap-devices '("/dev/sda2"))

  (users (cons* (user-account
                (name "alice")
                (comment "alice user")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/alice"))
	       
	  (user-account
                (name "bob")
                (comment "bobs place")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/bob"))
                
      (user-account
                (name "mom")
                (comment "mom hello")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/mom"))

               %base-user-accounts))
 


  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs         ;for HTTPS access
                   gvfs              ;for user mounts
                   %base-packages))

  ;; Add GNOME and/or Xfce---we can choose at the log-in
  ;; screen with F1.  Use the "desktop" services, which
  ;; include the X11 log-in service, networking with
  ;; NetworkManager, and more.
  (services (cons* (xfce-desktop-service)
                   %desktop-services))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss) ;;)

;;my own lines here
;;  (service wpa-supplicant-service-type
;;           (wpa-supplicant-configuration
;;            (config-file (local-file "/etc/wpa_supplicant.conf"))
;;            (interfaces '("wlp1s0"))))

)

# guix system reconfigure /etc/config.scm

guix system: error: failed to load '/etc/config.scm':
ice-9/boot-9.scm:2803:6: In procedure resolve-interface:
no code for module (gnu system nss services networking)

# guix system reconfigure /etc/config.scm
/etc/config.scm:85:2: error: invalid field specifier

 (services (cons* (xfce-desktop-service)
                   %desktop-services))