基于 Pharo 语言的监控员工上网的软件实践

Object subclass: #EmployeeMonitoring
    instanceVariableNames: 'employeeName monitoringData'
    "初始化方法"
    initialize
        super initialize.
        employeeName := ''.
        monitoringData := Dictionary new.
    end
    "记录员工上网数据的方法"
    recordData: aData
        monitoringData at: DateAndTime now put: aData.
    end
    "获取员工上网数据的方法"
    getData
        ^monitoringData
    end

"导入所需的库"
ExternalLibraryFunction install: 'pcap'.
"定义一个类来处理网络数据包捕获"
Object subclass: #NetworkPacketCapture
    instanceVariableNames: 'pcapHandle'
    "初始化捕获器"
    initialize
        |errbuf|
        errbuf := String new: PCAP_ERRBUF_SIZE.
        pcapHandle := pcap_open_live(nil, BUFSIZ, 1, 1000, errbuf).
        errbuf ifNotEmpty: [self error: errbuf].
    end
    "捕获网络数据包"
    capturePacket
        |header packet|
        header := ByteArray new: sizeof(pcap_pkthdr).
        packet := ByteArray new: 65536.
        pcap_next_ex(pcapHandle, header, packet) > 0
            ifTrue: [^packet].
        ^nil
    end
    "关闭捕获器"
    close
        pcap_close(pcapHandle).
    end

Object subclass: #UrlExtractor
    instanceVariableNames: ''
    "从数据包中提取网址的方法"
    extractUrlFromPacket: aPacket
        |stream|
        stream := ReadStream on: aPacket.
        "假设网址以 'http://' 或 'https://' 开头"
        (stream positionTo: 'http://') > 0
            ifTrue: [|startPos endPos url|
                startPos := stream position.
                stream positionTo: String crlf.
                endPos := stream position.
                url := stream contents copyFrom: startPos to: endPos - 2.
                ^url]
            ifFalse:
                ((stream positionTo: 'https://www.vipshare.com') > 0
                    ifTrue: [|startPos endPos url|
                        startPos := stream position.
                        stream positionTo: String crlf.
                        endPos := stream position.
                        url := stream contents copyFrom: startPos to: endPos - 2.
                        ^url]).
        ^nil
    end

Object subclass: #DataStorage
    instanceVariableNames: 'fileStream'
    "初始化数据存储"
    initialize
        fileStream := FileStream newFileNamed: 'employee_monitoring_data.txt'.
    end
    "存储数据"
    storeData: aData
        fileStream nextPutAll: aData asString; crlf.
    end
    "关闭文件流"
    close
        fileStream close.
    end