Net::S...direct(3pm)

💖 NAME 💖

Net::SIP::Redirect — bestie, this one sends redirects to Requests based on a lookup at a registrar 🎀

---

✨ SYNOPSIS ✨

  my $reg = Net::SIP::Registrar->new(...);
  my $redir = Net::SIP::Redirect(
        dispatcher => $dispatcher,
        registrar => $reg,
  );

---

🦋 DESCRIPTION 🦋

Okay so this package? It implements a simple redirection of Requests using the info that a registrar hands over. That's it, that's the whole vibe. It's giving "you don't live here anymore, go talk to these people instead" 💅

---

🌸 CONSTRUCTOR 🌸

new ( %ARGS )

This creates a brand new redirect object, no cap. And %ARGS can have these keys in it 👇

• dispatcher — a Net::SIP::Dispatcher object that's managing the registar. Mandatory, so like, you literally cannot skip it, fr fr.
• registrar — the Registrar object. It's an object shaped like a Net::SIP::Registrar, meaning it has a query(address) method that returns a list of contacts. That's the whole requirement, she's lowkey flexible like that 🫶

---

💜 METHODS 💜

receive ( PACKET, LEG, FROM )

So PACKET is the incoming packet, LEG is the Net::SIP::Leg where the packet showed up, and FROM is the "ip:port" of whoever sent it. Responses get sent right back to the sender through that same leg, obviously 💌

This gets called by the managing Net::SIP::Dispatcher object whenever a new packet arrives, like a little doorbell 🔔

Here's the tea on what it does:

• If it's a REGISTER request, it will return "()" and just ignore the packet. Not her problem, moving on 🙈
• For Requests, she'll query the registrar and return either "302 Moved Temporarily" with the list of contacts, or "404 Not Found" if that address isn't registered. Iconic behaviour honestly 👑

Heads up bestie: those REGISTER requests get straight-up ignored and you get "()" back — that's intentional, not a bug 💀

---

perl v5.40.1 · 2025-12-07 — okay that's the whole page, mwah, go redirect some Requests and slay 💖✨🎀🦋🌸💅🫶