Current section

Files

Jump to
blah src blah@internet.erl
Raw

src/blah@internet.erl

-module(blah@internet).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([username/1, password/0, passphrase/0, ip_v4/0, ip_v6/0, mac/0, long_hex_color/0, short_hex_color/0, hex_color/0, email/1, domain_name/0, uri/0, status_code/0, status_code_in_class/1]).
-export_type([http_status_class/0]).
-type http_status_class() :: informational |
successful |
redirection |
client_error |
server_error.
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 19).
-spec username(binary()) -> binary().
username(Name) ->
Adjective = blah@en@word:adjective(),
Nonce = blah@utils:get_random_int(4, 2048),
case Nonce rem 8 of
0 ->
_pipe = [Adjective,
gleam@string:replace(Name, <<" "/utf8>>, <<""/utf8>>)],
gleam@string:join(_pipe, <<""/utf8>>);
1 ->
_pipe@1 = [Adjective,
gleam@string:replace(
string:lowercase(Name),
<<" "/utf8>>,
<<"."/utf8>>
)],
gleam@string:join(_pipe@1, <<"."/utf8>>);
2 ->
_pipe@2 = [Adjective,
gleam@string:replace(
string:lowercase(Name),
<<" "/utf8>>,
<<"-"/utf8>>
)],
gleam@string:join(_pipe@2, <<"-"/utf8>>);
3 ->
_pipe@3 = [Adjective,
gleam@string:replace(
string:lowercase(Name),
<<" "/utf8>>,
<<"_"/utf8>>
)],
gleam@string:join(_pipe@3, <<"_"/utf8>>);
4 ->
_pipe@4 = [Adjective,
gleam@string:replace(Name, <<" "/utf8>>, <<""/utf8>>),
blah@en@string:with_pattern(<<"%d%d"/utf8>>)],
gleam@string:join(_pipe@4, <<""/utf8>>);
5 ->
_pipe@5 = [Adjective,
gleam@string:replace(
string:lowercase(Name),
<<" "/utf8>>,
<<"."/utf8>>
),
blah@en@string:with_pattern(<<"%d%d"/utf8>>)],
gleam@string:join(_pipe@5, <<"."/utf8>>);
6 ->
_pipe@6 = [Adjective,
gleam@string:replace(
string:lowercase(Name),
<<" "/utf8>>,
<<"-"/utf8>>
),
blah@en@string:with_pattern(<<"%d%d"/utf8>>)],
gleam@string:join(_pipe@6, <<"-"/utf8>>);
_ ->
_pipe@7 = [Adjective,
gleam@string:replace(
string:lowercase(Name),
<<" "/utf8>>,
<<"_"/utf8>>
),
blah@en@string:with_pattern(<<"%d%d"/utf8>>)],
gleam@string:join(_pipe@7, <<"_"/utf8>>)
end.
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 81).
-spec password() -> binary().
password() ->
Length = blah@utils:get_random_int(8, 32),
blah@en@string:alphanumeric(Length).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 86).
-spec passphrase() -> binary().
passphrase() ->
_pipe@1 = [blah@en@word:adjective(),
begin
_pipe = blah@name:first_name(),
string:lowercase(_pipe)
end,
blah@en@word:verb(),
blah@en@word:adverb()],
gleam@string:join(_pipe@1, <<" "/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 162).
-spec ip_v4() -> binary().
ip_v4() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 4),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(256) end),
_pipe@2 = gleam@list:map(_pipe@1, fun erlang:integer_to_binary/1),
gleam@string:join(_pipe@2, <<"."/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 169).
-spec ip_v6() -> binary().
ip_v6() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 8),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(65536) end),
_pipe@4 = gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
string:lowercase(_pipe@3) end),
gleam@string:join(_pipe@4, <<":"/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 180).
-spec mac() -> binary().
mac() ->
_pipe = gleam@list:repeat(<<""/utf8>>, 6),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(256) end),
_pipe@4 = gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
string:lowercase(_pipe@3) end),
gleam@string:join(_pipe@4, <<":"/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 191).
-spec long_hex_color() -> binary().
long_hex_color() ->
_pipe@5 = [<<"#"/utf8>> |
begin
_pipe = gleam@list:repeat(<<""/utf8>>, 3),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(256) end),
gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
_pipe@4 = string:lowercase(_pipe@3),
gleam@string:pad_start(_pipe@4, 2, <<"0"/utf8>>) end)
end],
gleam@string:join(_pipe@5, <<""/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 206).
-spec short_hex_color() -> binary().
short_hex_color() ->
_pipe@4 = [<<"#"/utf8>> |
begin
_pipe = gleam@list:repeat(<<""/utf8>>, 3),
_pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(16) end),
gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
_pipe@3 = gleam@int:to_base16(_pipe@2),
string:lowercase(_pipe@3) end)
end],
gleam@string:join(_pipe@4, <<""/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 220).
-spec hex_color() -> binary().
hex_color() ->
Nonce = blah@utils:get_random_int(4, 2048),
case Nonce rem 2 of
0 ->
long_hex_color();
_ ->
short_hex_color()
end.
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 74).
-spec email(binary()) -> binary().
email(Name) ->
Email_domain = blah@utils:get_random_item(
[<<"aol.com"/utf8>>,
<<"gmail.com"/utf8>>,
<<"hotmail.com"/utf8>>,
<<"live.com"/utf8>>,
<<"mail.ru"/utf8>>,
<<"msn.com"/utf8>>,
<<"outlook.com"/utf8>>,
<<"proton.me"/utf8>>,
<<"protonmail.com"/utf8>>,
<<"yahoo.com"/utf8>>,
<<"ymail.com"/utf8>>]
),
_pipe = [username(Name), Email_domain],
gleam@string:join(_pipe, <<"@"/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 97).
-spec domain_name() -> binary().
domain_name() ->
Adjective = blah@en@word:adjective(),
Noun = blah@en@word:noun(),
Nonce = blah@utils:get_random_int(4, 2048),
Hostname = case Nonce rem 3 of
0 ->
_pipe = [Adjective, Noun],
gleam@string:join(_pipe, <<"."/utf8>>);
1 ->
_pipe@1 = [Adjective, Noun],
gleam@string:join(_pipe@1, <<"-"/utf8>>);
_ ->
_pipe@2 = [Adjective, Noun],
gleam@string:join(_pipe@2, <<"_"/utf8>>)
end,
Suffix = blah@utils:get_random_item(
[<<"co"/utf8>>,
<<"com"/utf8>>,
<<"edu"/utf8>>,
<<"gov"/utf8>>,
<<"int"/utf8>>,
<<"io"/utf8>>,
<<"mil"/utf8>>,
<<"net"/utf8>>,
<<"org"/utf8>>]
),
_pipe@3 = [Hostname, Suffix],
gleam@string:join(_pipe@3, <<"."/utf8>>).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 122).
-spec uri() -> binary().
uri() ->
Nonce = blah@utils:get_random_int(4, 2048),
Protocol = blah@utils:get_random_item([<<"http"/utf8>>, <<"https"/utf8>>]),
case Nonce rem 4 of
0 ->
_pipe = [Protocol, <<"://"/utf8>>, domain_name()],
gleam@string:join(_pipe, <<""/utf8>>);
1 ->
_pipe@1 = [Protocol, <<"://"/utf8>>, domain_name(), <<"/"/utf8>>],
gleam@string:join(_pipe@1, <<""/utf8>>);
2 ->
_pipe@4 = [Protocol,
<<"://"/utf8>>,
domain_name(),
<<"/"/utf8>>,
begin
_pipe@2 = gleam@list:repeat(
<<""/utf8>>,
blah@utils:get_random_int(2, 8)
),
_pipe@3 = gleam@list:map(
_pipe@2,
fun(_) -> blah@en@word:noun() end
),
gleam@string:join(_pipe@3, <<"/"/utf8>>)
end],
gleam@string:join(_pipe@4, <<""/utf8>>);
_ ->
_pipe@7 = [Protocol,
<<"://"/utf8>>,
domain_name(),
<<"/"/utf8>>,
begin
_pipe@5 = gleam@list:repeat(
<<""/utf8>>,
blah@utils:get_random_int(2, 8)
),
_pipe@6 = gleam@list:map(
_pipe@5,
fun(_) -> blah@en@word:noun() end
),
gleam@string:join(_pipe@6, <<"/"/utf8>>)
end,
<<"/"/utf8>>],
gleam@string:join(_pipe@7, <<""/utf8>>)
end.
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 229).
-spec status_code() -> integer().
status_code() ->
{_, Codes} = blah@utils:get_random_item(
[{informational, [100, 101, 102, 103]},
{successful, [200, 201, 202, 203, 204, 205, 206, 207, 208, 226]},
{redirection, [300, 301, 302, 303, 304, 305, 306, 307, 308]},
{client_error,
[400,
401,
402,
403,
404,
405,
406,
407,
408,
409,
410,
411,
412,
413,
414,
415,
416,
417,
418,
421,
422,
423,
424,
425,
426,
428,
429,
431,
451]},
{server_error,
[500, 501, 502, 503, 504, 505, 506, 507, 508, 510, 511]}]
),
blah@utils:get_random_item(Codes).
-file("/home/runner/work/blah/blah/src/blah/internet.gleam", 234).
-spec status_code_in_class(http_status_class()) -> integer().
status_code_in_class(Class) ->
_assert_subject = gleam@list:filter(
[{informational, [100, 101, 102, 103]},
{successful, [200, 201, 202, 203, 204, 205, 206, 207, 208, 226]},
{redirection, [300, 301, 302, 303, 304, 305, 306, 307, 308]},
{client_error,
[400,
401,
402,
403,
404,
405,
406,
407,
408,
409,
410,
411,
412,
413,
414,
415,
416,
417,
418,
421,
422,
423,
424,
425,
426,
428,
429,
431,
451]},
{server_error,
[500, 501, 502, 503, 504, 505, 506, 507, 508, 510, 511]}],
fun(Kv) -> gleam@pair:first(Kv) =:= Class end
),
[{_, Codes}] = case _assert_subject of
[{_, _}] -> _assert_subject;
_assert_fail ->
erlang:error(#{gleam_error => let_assert,
message => <<"Pattern match failed, no pattern matched the value."/utf8>>,
value => _assert_fail,
module => <<"blah/internet"/utf8>>,
function => <<"status_code_in_class"/utf8>>,
line => 235})
end,
blah@utils:get_random_item(Codes).