' Admin ' If $System.IsPost ' If ! $HttpLog ' $System.Add httplog HttpLog ' EndIf ' If $Add ' If ! $HttpLog.Pages ' $HttpLog.Add pages Aliases ' EndIf ' $ID = $HttpLog.Pages.Add Object ' $HttpLog.Pages.$ID.Name = $Name ' $HttpLog.Pages.$ID.Title = $Title ' $System.Redirect $Server?page=HttpLogPages&id=$ID ' Elif ! $ID ' $System.Redirect $Server?page=HttpLogPages ' Elif $Remove ' $HttpLog.Pages.Remove $ID ' $System.Redirect $Server?page=HttpLogPages ' Else ' If $Modify ' $HttpLog.Pages.$ID.Title = $Title ' $HttpLog.Pages.$ID.Name = $Name ' Elif $Up ' $HttpLog.Pages.OrderUp $ID ' Elif $Down ' $HttpLog.Pages.OrderDown $ID ' EndIf ' $System.Redirect $Server?page=HttpLogPages&id=$ID ' EndIf ' Exit ' EndIf